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;