Progr'amador

Ai vai: Esquerda = 37 Direita = 39 Acima = 38 Abaixo = 40 Abs. Progr'amador.

hehehe!!! Nem um nem outro, fiz uma analise do seu código e vi algums erro. 1º: esse erro de keyword, tá nessa linha: for i:=0 to Memo1.Lines.Count - 1 do If Pos('',Memo1.Lines[i+1])<>1 then declaracao:= declaracao + Memo1.Lines else declaracao:= declaracao + Memo1.Lines+' '; essa variável (declaracao) ta recebendo o valor dessa forma: Select * From countryWhere Continent = "South America" não está colocando espaço entre o nome da tabela (country) e o Where, assim: country Where sugiro que coloque assim: declaracao:= declaracao + Memo1.Lines+' ', igual a outra linha do else. Outro erro: If Pos('Select',UpperCase(declaracao))>0 Then Consulta:= True; Try If Consulta = True then Query1.Open else Query1.ExecSQL; except Showmessage('Erro no código SQL'); com esse código ta sende excultado o Query1.ExecSQL até mesmo pro select. em vez disso , faça assim: if UpperCase(Copy(declaracao,1,6)) = 'SELECT' Then Consulta:= True; Try If Consulta = True then Query1.Open else Query1.ExecSQL; except Showmessage('Erro no código SQL'); Não sei bem o porque desses erros, ainda não entendo bem o uso desse 'POS' Abs. Progr'amador.

Olá hencker. Na minha opnião, o Firebird seria uma boa opção. Abs. Progr'amador.

se colocar isso um botao referente ao programa não ficaria na barra de tarefas? acho que assim apenas o form principal não apareceria mas o exe seria mostrado na barra. Olá Vagner, Num aparece na barra não! poderia colocar tambem no dpr, assim: program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.ShowMainForm := false; Application.Run; Abs. Progr'amador.

parar um pouco!? Como assim??? Poderia esclarecer melhor sua pergunta. Abs. Progr'amador.

Olá Paulo. Use aspas simples(' ') em vez de aspas duplas(" "), assim : Continent = 'South America' Abs. Progr'amador.

Olá Almir. Eu num entendi muito bem essa sua pergunta não , esse "usuário on-line", você quer dizer o usuário que está com o programa aberto ou usando o banco de dados? é isso??? Abs Progr'amador.

Olá Alexandre. Achei um pacote de compnentes que incluem código de baras. http://geocities.yahoo.com.br/pgdelphi/qr305pd4.zip Abs. Progr'amador.

Ok! Alexandre Vou procurar sim. Abs. Progr'amador.

Olá qual versão do delphi você ta usando ae: Tenho uma rotina aqui que roda no 6 e no 7 que eu saida, só sei que no 3 não roda. Adicione dois Button, um Timer, e um Label, no interval do Timer coloque o valor = 10. só que esse código é só a HH:MM:SS;ZZZ, não tem o dia, mas acredito que da pra adaptar. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; Button2: TButton; Label1: TLabel; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } TimeOld:TDateTime; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := FormatDateTime('HH:MM:SS:ZZZ', TimeOld - NOW); Application.ProcessMessages; end; procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption := '00:00:00:000'; TimeOld := Now; end; procedure TForm1.Button1Click(Sender: TObject); begin with TButton(Sender) do begin case TButton(Sender).Tag of 0:begin Timer1.Enabled := True; Caption := 'Desativar'; Tag := 1; end; 1:begin Timer1.Enabled := False; Caption := 'Ativar'; Tag := 0; end; end;//case end;//with end; procedure TForm1.Button2Click(Sender: TObject); begin TimeOld := Now; Label1.Caption := '00:00:00:000'; end; end. Abs. Progr'amador

Pô! cara, furou!!!, o leitor num reconhece esse código não. Mas eu tenho um componente aki que funciona legal pro QuickReport, só que é pro D3, mas esse tipo de componente é possível encontrar paras outras versões. Abs. Progr'amador.

Olá Marcos. Você ta usando um registro pra cada parcela? Se tiver, você pode usar um campo na tabela pra ter essa informação. Posta ae falw!!! Abs, Progr'amador

Olá Arlon!, não tenho certeza, mas daqui a pouco vou testar e posto aki, falou!!!

Olá Baiano. Adicione 1 Timage, 1 TEdit e 1 TButton no form, e use o código abaixo. var Form1: TForm1; implementation {$R *.DFM} Procedure TForm1.CriaCodigo(Cod : String; Imagem : TCanvas); Const digitos : array['0'..'9'] of string[5]= ('00110','10001','01001','11000','00101', '10100','01100','00011','10010','01010'); Var Numero : String; Cod1 : Array[1..1000] Of Char; Cod2 : Array[1..1000] Of Char; Codigo : Array[1..1000] Of Char; Digito : String; c1,c2 : Integer; x,y,z,h : LongInt; a,b,c,d : TPoint; I : Boolean; Begin Numero := Cod; For x := 1 to 1000 Do Begin Cod1 [x] := #0; Cod2 [x] := #0; Codigo[x] := #0; End; c1 := 1; c2 := 1; x := 1; For y := 1 to Length(Numero) div 2 do Begin Digito := Digitos[Numero[x ]]; For z := 1 to 5 do Begin Cod1[c1] := Digito[z]; Inc(c1); End; Digito := Digitos[Numero[x+1]]; For z := 1 to 5 do Begin Cod2[c2] := Digito[z]; Inc(c2); End; Inc(x,2); End; y := 5; Codigo[1] := '0'; Codigo[2] := '0'; Codigo[3] := '0'; Codigo[4] := '0'; { Inicio do Codigo } For x := 1 to c1-1 do begin Codigo[y] := Cod1[x]; Inc(y); Codigo[y] := Cod2[x]; Inc(y); end; Codigo[y] := '1'; Inc(y); { Final do Codigo } Codigo[y] := '0'; Inc(y); Codigo[y] := '0'; Imagem.Pen .Width := 1; Imagem.Brush.Color := clBtnFace; //<<-- aqui altera a cor do fundo.; Imagem.Pen .Color := clBtnFace; a.x := 1; a.y := 0; b.x := 1; b.y := 79; c.x := 2000; c.y := 79; d.x := 2000; d.y := 0; Imagem.Polygon([a,b,c,d]); Imagem.Brush.Color := ClBlack; Imagem.Pen .Color := ClBlack; x := 0; i := True; for y:=1 to 1000 do begin If Codigo[y] <> #0 Then Begin If Codigo[y] = '0' then h := 1 Else h := 3; a.x := x; a.y := 0; b.x := x; b.y := 79; c.x := x+h-1; c.y := 79; d.x := x+h-1; d.y := 0; If i Then Imagem.Polygon([a,b,c,d]); i := Not(i); x := x + h; End; end; end; procedure TForm1.Button1Click(Sender: TObject); begin CriaCodigo(Edit1.text,Image1.Canvas); end; Qualquer dúvida, posta ae!!! Abs. Progr'amador

Tipo assim: Propriedade Data Link ¬ na Aba Conecção ¬ na opção: 1. Insira o nome de um banco de dados: \\Computador\db\DancoDados.mdb , Ou se for mapeada, assim: F:\db\DancoDados.mdb , por exemplo. Você consegue enchergar os computadores no ambiente de rede? Qual é o windows dos pcs? com relação ao P4, acredito que num tem nada aver o procesador, a num ser que seu programa sejá MUITO pesado, a ponto de não rodar em um processador inferior ao P4, e mesmo assim acho que isso é difícil acontecer. Abs.

beleza Alex, de qualquer maneira vou deixa este tópico aberto, e se alguém souber explicar o motivo desse erro, posta ae, falow!!! Abs. Progr'amador

o que seria esse P4? Independe do que seja esse P4, acho que é so você mudar o caminho lá no ADOconection buscando o "banco.mdb" nesse P4, tipo assim "\\P4\Banco\banco.mdb" ou então mapeando nas máquinas clients essa unidade de rede. Qualquer dúvida, posta ae, falow! Abs.

Ola Alessandro. O que você ta usando pra fazer a conecção? Onde você quer colocar o *.mdb? Abs.

Olá Alex. o erro é esse?: Project Project1.exe raised exceotion class EConvertError with message "Edit1' is not a valid integer value'. Process stopped. Use Step or Run to continue. Se for, esse erro só acontece quando você execulta o exe compilado do projeto, quando você abre o exe direto, isso não acontece, não sei o porque disso, mas acontece toda vez que se usa esse Try (pelo memos comigo sempre é assim), por enquanto eu considero "normal" esse erro, tendo em vista não influencia no funcionamento do programa. No entanto, se alguém tiver uma explicação lógica pra isso, posta ae, falow galera! Abs. Progr'amador.

Olá rafael. Com relação a essa sua outra pergunta seu ainda num sei não. Abs.

Olá rafael. No object inspector desse qrdbtext, nas propriedades AutoStretch e WordWrap coloque True e a propriedade AutoSize como False que vai funcionar. Abs. Progr'amador

como relação as virgulas. Você pode fazer uma coisa bem simples (boba) . No OnKeyDown do Edit: procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key=110) or (Key=188) then begin ShowMessage('Virgula Não Pode. HeHeHe!!! :)'); Edit1.Text := ''; end; end; Abs.

Olá Pimenta. Você já tentou desinstalar e instalar dinovo o D7, acredito que o problema num seja com o rave não, isso se o seu cd do delphi for original Abs.

Olá Zolhos. Além do ExecSql, tinha alguns erros, e tambem tirei a variável "sqlProdGrid" e coloquei a select direto no Sql.add('...'). Ai vai as três query: QryProdGrid.Close; qryProdGrid.sql.clear; qryProdGrid.sql.add('SELECT * FROM Ingredientes WHERE ingrCodigoProduto = '+''''+mskProdCodigo.text+''''+' and ingrTipoIngrediente = '+''''+grdProdIngredientes.cells[0,linhas]+''''+''); qryProdGrid.open; qryProdGrid2.close; qryProdGrid2.sql.clear; qryProdGrid2.sql.add('UPDATE Ingredientes SET ingrCodigoProduto = '+''''+mskProdCodigo.text+''''+', ingrTipoIngrediente = '+''''+grdProdIngredientes.cells[0,linhas]+''''+', ingrQuantidade = '+''''+grdProdIngredientes.Cells[1,linhas]+''''+''); qryProdGrid2.ExecSql; qryProdGrid2.close; qryProdGrid2.sql.clear; qryProdGrid2.sql.add('INSERT INTO Ingredientes (ingrCodigoProduto, ingrTipoIngrediente, ingrQuantidade) VALUE ('+''''+mskProdCodigo.text+''''+', '+''''+grdProdIngredientes.cells[0,linhas]+''''+', '+''''+grdProdIngredientes.Cells[1,linhas]+''''+')'); qryProdGrid2.ExecSql; Qualquer dúvida, posta ae falou! Abs. Progr'amador

É galera, acho que esse assunto tá encerrado. Abs. a todos.