谢谢大家,可是好象还是不行.请大家看我的源程序
w:=frmHh.edit1.text;
u:=frmHh.combobox1.text;
frmHh.Query2.Locate('机器号',w,[loCaseInsensitive])
frmHh.Query2.edit;
sjz:=frmHh.Query2.fieldbyname('上机者代码').asString;
kssj:=frmHh.Query2.fieldbyname('开始时间').asString;
frmHh.Query2.fieldbyname('状态').asString:='闲';
frmHh.Query2.fieldbyname('上机者代码').asString:='';
frmHh.Query2.fieldbyname('开始时间').asString:='';
frmHh.Query2.first;
frmHh.Query2.Locate('机器号',u,[loCaseInsensitive]);
frmHh.Query2.edit;
frmHh.Query2.fieldbyname('状态').asString:='忙';
frmHh.Query2.fieldbyname('上机者代码').asString:=sjz;
frmHh.Query2.fieldbyname('开始时间').asString:=kssj;
frmDqjl.Query1.refresh;