下面的程序当SWXB1.Checked then 是显示数据库所有的数据还是显示DRRQ的数据
其中XM和DRRQ、SWXB是数据库（DQQK）的字段
begin
hide;
QXKJYXGS.SHOW;
.......
if SWXB1.Checked then
begin
QXKJYXGS.ADOQuery2.SQL.Clear;
QXKJYXGS.ADOQuery2.SQL.Add('select * from DQQK where XM=:XM3 and DRRQ=:DRRQ3');
QXKJYXGS.ADOQuery2.Parameters.ParamByName('XM3').Value:=Trim(YHDR.qry1.FieldByName('XM').value);
QXKJYXGS.ADOQuery2.Parameters.ParamByName('DRRQ3').Value:=DateToStr(mytime);
QXKJYXGS.ADOQuery2.Active:=True;
if QXKJYXGS.ADOQuery2.RecordCount>0 then
begin
QXKJYXGS.ADOQuery2.Edit;
QXKJYXGS.ADOQuery2.FieldByName('SWXB').Value:=TimeToStr(DateTime);
QXKJYXGS.ADOQuery2.Post;
QXKJYXGS.ADOQuery2.SQL.Clear;
QXKJYXGS.ADOQuery2.SQL.Add('select * from DQQK where DRRQ=:DRRQ1');
QXKJYXGS.ADOQuery2.Parameters.ParamByName('DRRQ1').Value:=DateToStr(mytime5);
QXKJYXGS.ADOQuery2.Open;
end；
else
begin
......
......
......
end
end
.......
......
问题解决
[此贴子已经被作者于2006-6-9 17:09:19编辑过]
