问题描述:
盟威Access快速开发平台启用了自动备份功能,但是退出时候没有备份提醒,
解决方法:
因为平台系统参数有调整,需要用下面的代码替换SysFrmMain窗体的卸载事件,
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Dim intResult As Long
If Not IsLoggedRDP Then Exit Sub
If GetParameter("Stop Confirm When Close Main Form", dbBoolean, False) Then Exit Sub
Select Case GetDatabaseConfig(dptDatabaseType)
Case "Access"
If GetParameter("Access - Enabled Auto Backup", dbBoolean, False, OnServer:=True) Then
If GetParameter("Access - Confirm Before Backup", , False, OnServer:=True) Then
intResult = MsgBoxEx(LoadString("Do you want to backup database?"), _
vbQuestion + vbYesNoCancel + vbDefaultButton2)
DoEvents
Select Case intResult
Case vbYes: BackupAccessDB
Case vbNo: DoEvents
Case vbCancel: Cancel = True
End Select
Else
BackupAccessDB
End If
End If
End Select
End Sub
这样,快速开发平台在退出的时候就弹出下面的确认框,用户可以选择是否进行备份。