F_splash:=tF_splash.create(Application);
F_splash.Show;
F_splash.Refresh;
domingo, 8 de novembro de 2015
CODIGOS DOS BOTOES:
___________________________________
NOVO
ClientDataSet1.insert;
___________________________________
PRIMEIRO
ClientDataSet1.first;
___________________________________
ANTERIOR
ClientDataSet1.prior;
___________________________________
PRÓXIMO
ClientDataSet1.next;
___________________________________
ÚLTIMO
ClientDataSet1.last;
___________________________________
EXCLUIR
if MessageDlg('Você realmente deseja excluir este registro?', mtconfirmation, [mbYes, mbNo], 0)
= mrYes then
Begin
ClientDataSet1.delete;
End;
___________________________________
EDITAR
ClientDataSet1.edit;
___________________________________
SALVAR
ClientDataSet1.post;
Clientdataset1.filtered := false;
___________________________________
CANCELAR
With ClientDataSet1 Do
Begin
Cancel;
Filtered := False;
End;
___________________________________
FECHAR
Close;
NOVO
ClientDataSet1.insert;
___________________________________
PRIMEIRO
ClientDataSet1.first;
___________________________________
ANTERIOR
ClientDataSet1.prior;
___________________________________
PRÓXIMO
ClientDataSet1.next;
___________________________________
ÚLTIMO
ClientDataSet1.last;
___________________________________
EXCLUIR
if MessageDlg('Você realmente deseja excluir este registro?', mtconfirmation, [mbYes, mbNo], 0)
= mrYes then
Begin
ClientDataSet1.delete;
End;
___________________________________
EDITAR
ClientDataSet1.edit;
___________________________________
SALVAR
ClientDataSet1.post;
Clientdataset1.filtered := false;
___________________________________
CANCELAR
With ClientDataSet1 Do
Begin
Cancel;
Filtered := False;
End;
___________________________________
FECHAR
Close;
BOTÃO LOCALIZAR:
ClientDataset1.Filter:= '( Nome_pessoa like ' + QuotedStr(Edit1.text + '%') + ')';
ClientDataset1.Filtered := True;
OBS: Este código faz com que qualquer nome escrito no (edit 1) seja encontrado no (dbgrid),
mais para que o nome seja encontrado pela primeira letra, seja maiuscula ou minuscula,
primeiro precisa clicar no (clientdataset 1) e configurar para (caseinsensitive)
desta forma sempre que a primeira letra for digitada no edit aparecerá todos
os registros que comecem pela letra digitada...
ClientDataset1.Filtered := True;
OBS: Este código faz com que qualquer nome escrito no (edit 1) seja encontrado no (dbgrid),
mais para que o nome seja encontrado pela primeira letra, seja maiuscula ou minuscula,
primeiro precisa clicar no (clientdataset 1) e configurar para (caseinsensitive)
desta forma sempre que a primeira letra for digitada no edit aparecerá todos
os registros que comecem pela letra digitada...
CODIGO PARA FAZER O PROGRAMA RODAR EM OUTRA MÁQUINA:
Se você for rodar o Modulo Cliente em outro computador, não esqueça de levar junto com o executável o arquivo MIDAS.DLL Não será necessário a instalação de nenhum driver de banco de dados na máquina cliente.
Dica:
Se não quiser distribuir a MIDAS.DLL, acrescente a unit:
MidasLib
à cláusula Uses do projeto cliente. O executável ficará um pouco maior, mas pode compensar o fato de ter de distribuir apenas o arquivo executável.
Dica:
Se não quiser distribuir a MIDAS.DLL, acrescente a unit:
MidasLib
à cláusula Uses do projeto cliente. O executável ficará um pouco maior, mas pode compensar o fato de ter de distribuir apenas o arquivo executável.
CODIGO PARA O BOTAO CHAMAR O RELATÓRIO:
Crie um novo botão com o nome: Relatório e coloque o seguinte código no botão.
F_RelatorioCliente.Quickrep1.Preview;
F_RelatorioCliente.Quickrep1.Preview;
DATA E HORA NO FORMULÁRIO:
CODIGO PARA COLOCAR HORA NO FORM:
Label1.Caption:=timetostr(time);
CODIGO PARA COLOCAR DATA NO FORM:
Label2.Caption:=datetostr(date);
CODIGO PARA COLOCAR DATA E HORA NO STATUSBAR DO FORM:
Statusbar1.Panels[0].Text:=timetostr(Time);
Statusbar1.Panels[1].Text:=datetostr(date);
Label1.Caption:=timetostr(time);
CODIGO PARA COLOCAR DATA NO FORM:
Label2.Caption:=datetostr(date);
CODIGO PARA COLOCAR DATA E HORA NO STATUSBAR DO FORM:
Statusbar1.Panels[0].Text:=timetostr(Time);
Statusbar1.Panels[1].Text:=datetostr(date);
CODIGO PARA CRIAR CALCULADORA:
valor: real;
COLOCA ENTRE O (Form1: TForm1;) E O (implementation) EM SEGUIDA COLOCA OS CODIGOS EM CADA BOTAO:
BOTAO +:
valor:=strtofloat(edit1.Text)+strtofloat(edit2.Text);
edtresultado.Text:=floattostr(valor);
BOTAO -:
valor:=strtofloat(edit1.Text)-strtofloat(edit2.Text);
edtresultado.Text:=floattostr(valor);
BOTAO /:
valor:=strtofloat(edit1.Text)/strtofloat(edit2.Text);
edtresultado.Text:=floattostr(valor);
BOTAO x:
valor:=strtofloat(edit1.Text)*strtofloat(edit2.Text);
edtresultado.Text:=floattostr(valor);
BOTAO LIMPAR:
edit1.Text:='';
edit2.Text:='';
edtresultado.Text:='';
edit1.SetFocus;
COLOCA ENTRE O (Form1: TForm1;) E O (implementation) EM SEGUIDA COLOCA OS CODIGOS EM CADA BOTAO:
BOTAO +:
valor:=strtofloat(edit1.Text)+strtofloat(edit2.Text);
edtresultado.Text:=floattostr(valor);
BOTAO -:
valor:=strtofloat(edit1.Text)-strtofloat(edit2.Text);
edtresultado.Text:=floattostr(valor);
BOTAO /:
valor:=strtofloat(edit1.Text)/strtofloat(edit2.Text);
edtresultado.Text:=floattostr(valor);
BOTAO x:
valor:=strtofloat(edit1.Text)*strtofloat(edit2.Text);
edtresultado.Text:=floattostr(valor);
BOTAO LIMPAR:
edit1.Text:='';
edit2.Text:='';
edtresultado.Text:='';
edit1.SetFocus;
Assinar:
Postagens (Atom)