4 - Ao entrar no form todos os dados são mostrados no DBGrid. quero mostrando apenas os dados referentes ao período atual, esse periodo é atraves de data
Tentei fazer da seguinte maneira so não deu certo,
onde sera que estar erro??
Var global
data1,data2 : string;
function TF_Pagamentos.DataToSql(sdata: string) : string;
Pergunta
Livio Neiva
Modulo 8 lição 07
4 - Ao entrar no form todos os dados são mostrados no DBGrid. quero mostrando apenas os dados referentes ao período atual, esse periodo é atraves de data
Tentei fazer da seguinte maneira so não deu certo,
onde sera que estar erro??
Var global
data1,data2 : string;
function TF_Pagamentos.DataToSql(sdata: string) : string;
begin
result := copy(sdata,7,4) + '/' + Copy(sdata,4,2) + '/' + Copy(sdata,1,2);
end;
tentei fazer no evento OnCreate no formulario Pagamento mais não deu certo.
begin
Data1 := DataToSQL(MaskPeriodo.Text);
Data2 := DataToSQL(MaskA.Text);
MaskPeriodo.Text := DateToStr(Date);
MaskA.Text := DateToStr(Date);
F_DMEXpress.Q_Pagamento.Active := False;
F_DMEXpress.Q_Pagamento.SQL.Clear;
F_DMExpress.Q_Pagamento.SQL.Add('SELECT VENCIMENTO FROM PAGAMENTO');
F_DMExpress.Q_Pagamento.SQL.Add('AND VENCIMENTO BETWEEN '+#39+ data1+#39+' and '+#39+data2+#39);
F_DMEXpress.Q_Pagamento.Active := True;
F_DMExpress.Cds_Pagamento.Refresh;
end;
ele
onde estar erro??
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.