实用Access代码程序.docVIP

取消Acc?ess主窗?口的关闭按?钮 窗体层输入?如下代码：（载入该窗体?则可） Optio?n Compa?re Datab?ase Optio?n Expli?cit Publi?c Allow?Chang?e As Boole?an Publi?c allow?ImgCh?ange As Boole?an Publi?c allow?LblCh?ange As Boole?an Priva?te Decla?re Funct?ion GetSy?stemM?enu Lib User3?2 (ByVal? hwnd As Long, ByVal? bReve?rt As Long) As Long Priva?te Decla?re Funct?ion Delet?eMenu? Lib User3?2 (ByVal? hMenu? As Long, ByVal? nPosi?tion As Long, ByVal? wFlag?s As Long) As Long Priva?te Sub glSet?NoClo?seBut?ton() 取消系统菜?单中关闭按?钮 Const? MF_BY?COMMA?ND = H0 Const? SC_CL?OSE = HF060? Dim hMenu? As Long hMenu? = GetSy?stemM?enu(Appli?catio?n.hWndA?ccess?App, 0) Call Delet?eMenu?(hMenu?, SC_CL?OSE, MF_BY?COMMA?ND) End Sub Priva?te Sub glSet?NoRes?toreB?utton?() 取消系统菜?单中恢复按?钮 Dim hSysM?enu As Long Dim RetVa?l As Long hSysM?enu = GetSy?stemM?enu(hWndA?ccess?App, 0) RetVa?l = Delet?eMenu?(hSysM?enu, HF120?, H0) hSysM?enu = GetSy?stemM?enu(Me.hwnd, 0) RetVa?l = Delet?eMenu?(hSysM?enu, HF120?, H0) End Sub Priva?te Sub cmdCl?ose_C?lick() DoCmd?.Close? Quit End Sub Priva?te Sub FORM_?Load() On Error? Resum?e Next DoCmd?.Echo False? glSet?NoClo?seBut?ton 调用取消系?统菜单中关?闭按钮 glSet?NoRes?toreB?utton? 调用取消系?统菜单中恢?复按钮 DoCmd?.RunCo?mmand? acCmd?AppMa?ximiz?e 最大化AC?CESS DoCmd?.RunCo?mmand? acCmd?ShowO?nlyWe?bTool?bar 隐藏除WE?B工具栏外?的所有工具?栏 DoCmd?.ShowT?oolba?r web, acToo?lbarN?o 隐藏WEB?工具栏 DoCmd?.ShowT?oolba?r 数据库, acToo?lbarN?o 隐藏数据库?工具栏 DoCmd?.ShowT?oolba?r 格式（窗体/报表）, acToo?lbarN?o 隐藏格式（窗体/报表）工具栏 DoCmd?.ShowT?oolba?r 窗体视图, acToo?lbarN?o 隐藏窗体视?图工具栏 Acces?s.SetOp?tion Show Statu?s Bar, False? 隐藏状态栏? Me.Short?cutMe?nu = False? 隐藏快捷菜?单 ======================================================= 最大化窗体?，不显示恢复?按钮 Dim W, H As Integ?er DoCmd?.Maxim?ize W = Me.Windo?wWidt?h 取得宽度 H = Me.Windo?wHeig?ht 取向高度 DoCmd?.Resto?re DoCmd?.Echo True DoCmd?.MoveS?ize 0, 0, W, H =====================