1、数据处理窗口CloseQuery事件编程
该事件下的脚本流程是首先判断数据是否修改过,如果修改过,则让用户选择是否保存,用户确认保存则保存,不保存则退回事务然后关闭窗口。保存数据时,保存成功则直接关闭窗口,保存失败则让用户确认是否关闭窗口,用户确认要关闭则关闭窗口。脚本如下:
int li_flag
If dw_1.ModifiedCount() <> 0 or dw_1.DeletedCount() <> 0 Then
Beep(2)
li_flag = MessageBox("确认","数据已经修改,是否保存",Question!,YesNoCancel!,1)
Choose Case li_flag
Case 1//用户要求保存
If dw_1.Update() = 1 Then//如果保存成功
commit;//提交数据
return 0//关闭窗口
Else//保存不成功
rollback;//回退事务
Beep(2)//响铃两声
//让用户确认是否关闭窗口
If MessageBox("错误","数据保存不成功,是否还要关闭窗口?",Question!,YesNo!,2) = 1 Then
return 0//关闭窗口
Else
return 1//