如果窗体有数据操作，在未保存时关闭窗体，进行一个提示。 procedure TFrmSave.FormCloseQuery(Sender: TObject; var CanClose: Boolean); //窗体关闭时提示变动的保存 begin if ADODataSet1.State in [dsInsert, dsEdit] then begin if MessageBox(0, '发现未保存的数据，需要保存吗？', '', MB_YESNO + M
标签： 保存
定时保存Excel(VBA实现法）
很多朋友在处理Excel数据的时候，总是没有养成习惯点击系统自带的保存按钮，有时候电脑出现死机或停电等现象，往往丢失数据而后悔莫及！今天给大家一个定时保存的方法。 打开表格，按住ALT+F11，打开VB编辑器，在 ThisWorkbook中输入以下代码： Private Sub Workbook_Open() MsgBox "欢迎你，在这张表格里，每5分钟出现一次保存的提示！", vbInformation, "请注意！"