P
pingmeme
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TF_rkd_find.BitBtn3Click(Sender: TObject);
var
Q_chr:String;
begin
Q_chr:='';
Q_chr:='入库日期>=#'+Datetostr(F_rkd_Find.DateTimePicker1.Date)+'# and 入库日期<=#'+Datetostr(F_rkd_find.DateTimePicker2.Date)+'#';
if ComboBox1.text<>'' then Q_chr:=Q_chr+' and 操作员='+''''+ComboBox1.text+'''';
With F_data.ADOQ_rkb do
begin
close;
SQL.clear;
SQL.add('select * from 入库表');
SQl.add('where '+Q_chr);
open;
end;
end;
var
Q_chr:String;
begin
Q_chr:='';
Q_chr:='入库日期>=#'+Datetostr(F_rkd_Find.DateTimePicker1.Date)+'# and 入库日期<=#'+Datetostr(F_rkd_find.DateTimePicker2.Date)+'#';
if ComboBox1.text<>'' then Q_chr:=Q_chr+' and 操作员='+''''+ComboBox1.text+'''';
With F_data.ADOQ_rkb do
begin
close;
SQL.clear;
SQL.add('select * from 入库表');
SQl.add('where '+Q_chr);
open;
end;
end;