ADP and MDB database set tools...

Option Compare Database
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
Dim a() As Byte
Dim straaa, strbbb, strQ As String
Dim intbegID, intendID, intbegCMG, intendCMG, intbegDPB, intendDP, intbegGC, intendGC As Long
Dim i, j, k, m, N, p, q, X, BegID(1 To 10), BegCMG(1 To 10) As Long
Dim pjLoop As Integer
Dim pjTag As Boolean

Private Sub cmdDisAllMenu_Click()
    ChangeProperty "AllowFullMenus", DB_Boolean, False
End Sub

Private Sub cmdDisBoot_Click()
    ChangeProperty "StartupForm", DB_Text, "(none)"
End Sub

Private Sub cmdDisCode_Click()
    ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
End Sub

Private Sub cmdDisDb_Click()
    ChangeProperty "StartupShowDBWindow", DB_Boolean, False
End Sub

Private Sub cmdDisShift_Click()
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub

Private Sub cmdDisSpecialKeys_Click()
    ChangeProperty "AllowSpecialKeys", DB_Boolean, False
End Sub

Private Sub cmdDisStatusBar_Click()
    ChangeProperty "StartupShowStatusBar", DB_Boolean, False
End Sub

Private Sub cmdDisToolbars_Click()
    ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
End Sub

Private Sub cmdEnaAllMenu_Click()
    ChangeProperty "AllowFullMenus", DB_Boolean, True
End Sub

Private Sub cmdEnaCode_Click()
    ChangeProperty "AllowBreakIntoCode", DB_Boolean, True
End Sub

Private Sub cmdEnaDB_Click()
    ChangeProperty "StartupShowDBWindow", DB_Boolean, True
End Sub

Private Sub cmdEnaShift_Click()
    ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub

Private Sub cmdEnaSpecialKeys_Click()
    ChangeProperty "AllowSpecialKeys", DB_Boolean, True
End Sub

Private Sub cmdEnaStatusBar_Click()
    ChangeProperty "StartupShowStatusBar", DB_Boolean, True
End Sub

Private Sub cmdEnaToolbars_Click()
    ChangeProperty "AllowBuiltinToolbars", DB_Boolean, True
End Sub

Private Sub CmdJiaM_Click()
  Me.TextGet = Encrypt(Me.TextSource, TextMA)
End Sub

Private Sub CmdJieM_Click()
  Me.TextSource = Decrypt(Me.TextGet, TextMA)
End Sub

Private Sub Form_Close()
  BackToMain
End Sub
Private Sub CmdBillMana_Click()
On Error GoTo Err_CmdBillMana_Click

    DoCmd.Close
    DoCmd.OpenForm "FmSYS_BaseBills"

Exit_CmdBillMana_Click:
    Exit Sub

Err_CmdBillMana_Click:
    MsgBox Err.Description
    Resume Exit_CmdBillMana_Click
   
End Sub