2,496
社区成员
发帖
与我相关
我的任务
分享
procedure Tincoming_edit.BitBtn1Click(Sender: TObject); //确定1
begin
dm1.ADO_incoming.UpdateBatch;
dm1.ADO_incoming_item.UpdateBatch;
incoming_edit.incoming_report.Enabled := true;
Application.MessageBox('保存成功', '金时代提示你!', MB_OK + MB_ICONINFORMATION +
MB_TOPMOST);
BitBtn1.Enabled:= False;
end;