domingo, 8 de novembro de 2015

TELA SPLASH:

F_splash:=tF_splash.create(Application);
  F_splash.Show;
  F_splash.Refresh;

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;

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...

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.

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;

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);

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;