Kodlama dili (delphi)
procedure TForm1.sButton6Click(Sender: TObject);
begin
if (sdateEdit1.Modified=false) and (sdateEdit2.Modified=false) Then
ShowMessage('En Az Bir Parametre Girmelisiniz')
else if sdateEdit1.Modified=false Then
begin
Query1.SQL.Clear;
Query1.SQL.Add('Select * from FATURA Where FATURATARIH<=:FAT');
Query1.Params[0].AsDate:=StrToDate(sdateEdit2.Text);
Query1.Open;
end
else if sdateEdit2.Modified=false Then
begin
Query1.SQL.Clear;
Query1.SQL.Add('Select * from FATURA Where FATURATARIH>=:FAT');
Query1.Params[0].AsDate:=StrToDate(sdateEdit1.Text);
Query1.Open;
end
else
begin
Query1.SQL.Clear;
Query1.SQL.Add('Select * from FATURA Where FATURATARIH>=:FAT and FATURATARIH<=:FAT2');
Query1.Params[0].AsDate:=StrToDate(sdateEdit1.Text);
Query1.Params[1].AsDate:=StrToDate(sdateEdit2.Text);
Query1.Open;
end;
ben IDE de standart olmayan bileşenler kullandım, kendinize göre uyarlayınız.
