盟威快速开发平台2.5.1版本退出没有备份提醒的解决方法

时　间:2020-07-22 09:17:03
作　者:宏鹏   ID：21115  城市：上海
摘　要:没有备份提醒的解决方法。
正　文:

问题描述：

盟威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