【正文】 End If (用戶名).Value = UserName (操作時間).Value = Date + Time (操作內(nèi)容).Value = inf End FunctionPublic Sub 更新自定義查詢菜單() On Error GoTo quit = select * from 自定義查詢 Dim count As Integer count = If count = 1 Then = True = (查詢名稱).Value If = False Then Else = False End If If count = 2 Then = True = (查詢名稱).Value If = False Then Else = False End If If count = 3 Then = True = (查詢名稱).Value If = False Then Else = False End If If count = 4 Then = True = (查詢名稱).Value If = False Then Else = False End If If count = 5 Then = True = (查詢名稱).Value If = False Then Else = False End If If count = 6 Then = True = (查詢名稱).Value If = False Then Else = False End If If count = 7 Then = True = (查詢名稱).Value If = False Then Else = False End If If count = 8 Then = True = (查詢名稱).Value If = False Then Else = False End If GoTo quit2quit:quit2:End Sub39。還原數(shù)據(jù)庫后初始化各類信息Private Sub InitAfterResume() 39。更改數(shù)據(jù)庫中的用戶信息 = select * from 用戶管理 where 用戶名=39。 + UserName + 39。 39。如果已存在記錄則更新 If 0 Then (用戶密碼).Value = UserPas (用戶權(quán)限).Value = Purview Else 39。新建用戶記錄 (用戶名).Value = UserName (用戶密碼).Value = UserPas (用戶權(quán)限).Value = Purview End If 39。更新當(dāng)前操作用戶 = UserName 39。初始化菜單 39。InitMenu 更新自定義查詢菜單 End SubPrivate Sub Form_Load() 39。初始化m_checkado = DataConnectString = False 39。每天首次運(yùn)行自動備份數(shù)據(jù)庫 = select 操作時間 from 系統(tǒng)日志 order by 操作時間 desc If 0 Then Dim t As String t = (操作時間).Value 39。如果今天從未有人登陸,備份數(shù)據(jù)庫 If InStr(1, t, Str(Date)) 1 Then BackupData DataPath, + \ End If Else BackupData DataPath, + \ End If 39。寫入系統(tǒng)日志 (登陸系統(tǒng)) 39。初始化各種權(quán)限類別 39。初始化菜單 更新自定義查詢菜單 39。加載圖片 39。加載flash 39。禁止flash右鍵彈出 Dim hwnd As Long 39。初始化軟件信息End SubPrivate Sub Form_Resize() On Error Resume Next = End SubPrivate Sub Form_Unload(Cancel As Integer) 39。寫入系統(tǒng)日志 (退出系統(tǒng)) End SubPrivate Sub L高級查詢_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button 1 Then Exit Sub If 權(quán)限類別(7) 0 Then M高級查詢_ClickEnd SubPrivate Sub L用戶管理_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button 1 Then Exit Sub If 權(quán)限類別(16) 0 Then mnuUserManage_ClickEnd SubPrivate Sub mnuFileExit_Click() Unload MeEnd SubPrivate Sub mnuModifyPassword_Click() vbModalEnd SubPrivate Sub mnuUserManage_Click() vbModalEnd SubPrivate Sub mnuHelpAbout_Click() vbModal, MeEnd SubPrivate Sub mnuFilePageSetup_Click() On Error Resume Next With dlgCommonDialog .DialogTitle = 頁面設(shè)置 .CancelError = True .ShowPrinter End WithEnd SubPrivate Sub mnuViewStatusBar_Click() = True = End SubPrivate Sub mnuViewToolbar_Click() = True = End SubPrivate Sub M報損單_Click() vbModalEnd SubPrivate Sub M備份數(shù)據(jù)庫_Click() On Error GoTo failure With dlgCommonDialog .DialogTitle = 數(shù)據(jù)庫備份為.. .ShowSave If Len(.filename) = 0 Then Exit Sub If BackupData(DataPath, .filename) = 1 Then MsgBox 備份成功! 39。寫入系統(tǒng)日志 (備份數(shù)據(jù)) Elsefailure: MsgBox 備份失敗! End If End With End SubPrivate Sub M查看日志_Click() vbModal End SubPrivate Sub M打印出庫單_Click() Dim f As New 出庫單 = = = False = False vbModal Unload f End SubPrivate Sub M打印入庫單_Click() Dim f As New 入庫單 = = = False = False vbModal Unload f End SubPrivate Sub M打印月盤點(diǎn)_Click() vbModalEnd SubPrivate Sub M管理查詢_Click() vbModal 更新自定義查詢菜單 End SubPrivate Sub M還原到昨天數(shù)據(jù)庫_Click() On Error GoTo failure If MsgBox(還原數(shù)據(jù)庫將導(dǎo)致現(xiàn)在數(shù)據(jù)庫數(shù)據(jù)丟失,您確信要還原數(shù)據(jù)庫嗎?, vbYesNo Or vbQuestion) = vbNo Then Exit Sub If ResumeData(DataPath, + \) = 1 Then 39。初始化還原后的信息 InitAfterResume MsgBox 還原成功! Elsefailure: MsgBox 還原失敗! End If End SubPrivate Sub M還原數(shù)據(jù)庫_Click() 39。On Error GoTo failure With dlgCommonDialog .DialogTitle = 數(shù)據(jù)庫還原于... .ShowOpen If Len(.filename) = 0 Then Exit Sub If MsgBox(還原數(shù)據(jù)庫將導(dǎo)致現(xiàn)在數(shù)據(jù)庫數(shù)據(jù)丟失,您確信要還原數(shù)據(jù)庫嗎?, vbYesNo Or vbQuestion) = vbNo Then Exit Sub If ResumeData(DataPath, .filename) = 1 Then 39。初始化還原后的信息 InitAfterResume MsgBox 還原成功! Elsefailure: MsgBox 還原失敗! End If End With End SubPrivate Sub M倉庫信息_Click() vbModalEnd SubPrivate Sub M出庫單_Click() vbModalEnd SubPrivate Sub M單據(jù)查詢_Click() vbModalEnd SubPrivate Sub M高級查詢