else //4
begin
QXKJYXGS.ADOQuery2.Append;
QXKJYXGS.ADOQuery2.FieldByName('XM').Value:=Trim(YHDR.qry1.FieldByName('XM').value); ;
QXKJYXGS.ADOQuery2.FieldByName('B2').Value:=Trim(YHDR.qry1.FieldByName('BM').value);
QXKJYXGS.ADOQuery2.FieldByName('B1').Value:=TimeToStr(DateTime);//如何把这个时间减去3分钟，还有怎么和其他时间比较？
QXKJYXGS.ADOQuery2.FieldByName('B').Value:=k;
QXKJYXGS.ADOQuery2.FieldByName('B'3).Value:=k;
QXKJYXGS.ADOQuery2.FieldByName('B'4).Value:=k;
QXKJYXGS.ADOQuery2.FieldByName('r').Value:=DateToStr(mytime);
QXKJYXGS.ADOQuery2.FieldByName('y').Value:=IntToStr(SysTime.wYear)+'-'+IntToStr(SysTime.wMonth);
QXKJYXGS.ADOQuery2.Post;
end
end

[此贴子已经被作者于2006-6-6 9:10:10编辑过]