Private Sub Form_Load()
'通过注册表将系统的宏设置设为启用所有宏
Set WScr = CreateObject("WScript.Shell")
WScr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\VBAWarnings", "00000001", "REG_DWORD"
Application.Echo False
If IsLoaded("usysfrmLogin") Then '-----------系统代码,请勿修改-----------
DoCmd.RunCommand acCmdAppMaximize ' -----系统代码,请勿修改-----------
g_usysfrmMainMenu_Load ' -----------系统代码,请勿修改-----------
g_usysfrmMain_Form_Load ' -----------系统代码,请勿修改-----------
Else ' -----------系统代码,请勿修改-----------
DoCmd.Close ' -----------系统代码,请勿修改-----------
End If ' -----------系统代码,请勿修改-----------
Application.Echo True
End Sub