Fórum Relatório de entrega usando AdoTable. #465804
04/01/2014
0
Em um outro formulário, onde monto um relatório, filtro os dados através de duas datas usando o código:
If(Edit2.Text<>'') Then
Begin
If(StrtoDate(Edit2.Text)<StrtoDate(Edit1.Text)) Then
Begin
ShowMessage('Data final menor que data inicial. Não é possível realizar operação!');
Edit2.SetFocus;
End
Else
Begin
Data2:=StrtoDate(Edit2.Text);
AdoTable1.Filter:='DatadeSaída>='+QuotedStr(DatetoStr(Data1))+'and DatadeSaída<='+QuotedStr(Datetostr(Data2));
AdoTable1.Filtered:=True;
Label3.Caption:=InttoStr(AdoTable1.RecordCount)+(' Registros');
End;
End;Funciona normal.
Agora vem o problema, Filtro todas as pessoas cadastradas entre essas datas. Quero colocar mais dois Edit's, um para adicionar um cadastro e outro para remover um cadastro.
Por exemplo, filtro as pessoas cadastradas entre 01/01/2014 e 04/01/2014 e além disso quero poder adicionar uma outra pessoa cadastrada que não esteja entre essas datas ou excluir uma pessoa cadastrada que esteja entre essas datas. Quero fazer isso apenas no DBGrid que fica nesse formulário de Relatório, pois tenho um botão que manda tudo por Excel depois.
Como posso fazer isso?
Se estiver complicado de entender o meu problema, me digam. Fico muito grato!
Matheus Gomes
Curtir tópico
+ 0Posts
08/01/2014
Leonardo Xavier
Gostei + 0
09/01/2014
Matheus Gomes
Gostei + 0
09/01/2014
Leonardo Xavier
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)