IT博客-小新排骨 IT'博客http://www.cnitblog.com/xiaoxinpaigu/Code'blogzh-cnTue, 05 May 2026 03:08:18 GMTTue, 05 May 2026 03:08:18 GMT60闹钟http://www.cnitblog.com/xiaoxinpaigu/archive/2007/04/12/25617.html小新排骨小新排骨Thu, 12 Apr 2007 01:01:00 GMThttp://www.cnitblog.com/xiaoxinpaigu/archive/2007/04/12/25617.htmlhttp://www.cnitblog.com/xiaoxinpaigu/comments/25617.htmlhttp://www.cnitblog.com/xiaoxinpaigu/archive/2007/04/12/25617.html#Feedback0http://www.cnitblog.com/xiaoxinpaigu/comments/commentRss/25617.htmlhttp://www.cnitblog.com/xiaoxinpaigu/services/trackbacks/25617.html 

procedure TForm3.ADODataSet1AfterScroll(DataSet: TDataSet);
begin
  with ADODataSet1 do begin
    Edit1.Text := Fields.FieldByName('任务令').AsString;
    Edit2.Text := Fields.FieldByName('机种编码').AsString;
    Edit3.Text := Fields.FieldByName('描述').AsString;
    Edit4.Text := Fields.FieldByName('Lot数').AsString;
    Edit5.Text := Fields.FieldByName('是否强制环保').AsString;
    Edit6.Text := Fields.FieldByName('环保属性').AsString;
    Edit10.Text := Fields.FieldByName('下任务令时间').AsString;
    Memo1.Text := Fields.FieldByName('条码范围').AsString;
    Memo2.Text := Fields.FieldByName('报废条码').AsString;
    Memo3.Text := Fields.FieldByName('后补条码').AsString;
    Edit8.Text := Fields.FieldByName('打印人').AsString;
    Edit9.Text := Fields.FieldByName('领条码人').AsString;
    Memo4.Text := Fields.FieldByName('备注').AsString;
    end;
end;


小新排骨 2007-04-12 09:01 发表评论
]]>