'**初始化ADO對象，用于儲存操作記錄，還有待于優化
  Set rsMain = New ADODB.Recordset    '先利用 rsMain 獲得有關系數
  rsMain.CursorType = adOpenKeyset
  rsMain.LockType = adLockOptimistic
  
  Set rsPrint = New ADODB.Recordset    '用于報表的打印
  rsPrint.CursorType = adOpenKeyset
  rsPrint.LockType = adLockOptimistic
   
  rsMain.Open "Select * From 系統日志", cnSys  '用Open打開表
End Sub

Private Sub LoadNewDoc()
  Static lDocumentCount As Long
  Dim frmD As frmDocument
  lDocumentCount = lDocumentCount + 1
  Set frmD = New frmDocument
  frmD.Caption = "文檔 " & lDocumentCount
  frmD.Show
  frmD.Move 1000, 500, 9000, 5500      '調整位置及大小
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
  If Me.WindowState <> vbMinimized Then
    SaveSetting App.Title, "Settings", "MainLeft", Me.Left
    SaveSetting App.Title, "Settings", "MainTop", Me.Top
    SaveSetting App.Title, "Settings", "MainWidth", Me.Width
    SaveSetting App.Title, "Settings", "MainHeight", Me.Height
  End If
End Sub

Private Sub mnuabfw_Click()
  Doitem ("安標范圍管理")
  frmabfw.Show
End Sub

Private Sub mnuabgl_Click()
  Doitem ("安標管理")
  frmabgl.Show
End Sub

Private Sub mnuAutoBackup_Click()
  Doitem ("定時備份")
  MsgBox "該功能是通過在服務器上設置的！", 0 = 64, "信息窗"
End Sub

Private Sub mnubqprint_Click()
  Doitem ("標簽打印")
  frmbqdy.Show
End Sub

Private Sub mnubqsl_Click()
  Doitem ("標簽數量管理")
  frmbqsl.Show
End Sub

Private Sub mnuddsj_Click()
  Doitem ("生產任務管理")
  frmScrw.Show
End Sub

Private Sub mnuexit_Click()
  '卸載窗體
  Doitem ("退出系統")
  If MsgBox("真的要關閉本系統嗎(Y/N)？", vbYesNo + vbQuestion, "關閉系統", 0, 0) = vbYes Then
    
    rsMain.Close
    Set rsMain = Nothing    '清除設置的變量
    Set rsTmp = Nothing
    Set rsPrint = Nothing
    
    cnSys.Close
    Set cnSys = Nothing
    Set fMainForm = Nothing
    Unload Me
    End
  End If
End Sub

Private Sub mnuhb_Click()
  Doitem ("環標數據管理")
  frmhb.Show
End Sub

Private Sub mnuManuBackup_Click()
  Doitem ("手工備份")
  frmBackup.Show
End Sub

Private Sub mnuFaxMail_Click()
  Doitem ("發送郵件")
  Dim sadd As String
  Dim nRet As Integer
  
  On Error Resume Next
  sadd = "mailto: "
  '一定得賦值,即使不會用到該返回值
  nRet = ShellExecute(GetDesktopWindow(), "Open", sadd, " ", "", SW_SHOWNORMAL)
  If Err Then
    MsgBox Err.Description
  End If
End Sub

Private Sub mnuOrganDat_Click()
  Doitem ("器件資料")
  frmOrganDat.Show
End Sub

Private Sub mnuOrganEdt1_Click()
  Doitem ("測試記錄(一)")
  frmOrganEdt1.Show
End Sub

Private Sub mnuOrganEdt2_Click()
  If UserRole = "批準者" Then
    Doitem ("測試記錄(二)")
    frmOrganEdt2.Show
  Else
    MsgBox "對不起！您不能使用本模塊。", 0 + 16, "提示窗"
    Exit Sub
  End If
End Sub

Private Sub mnuOrganPrn_Click()
  Doitem ("記錄打印")
  frmOrganPrn.Show
End Sub

Private Sub mnuPeopSet_Click()
  Doitem ("人員設置")
  frmPeopSet.Show
End Sub

Private Sub mnupn_Click()
  Doitem ("PN表管理")
  frmpnb.Show
End Sub


Private Sub mnuprint_Click()
  Doitem ("打印機紙張類型")
  frmprint.Show
End Sub

Private Sub mnuPswdChg_Click()
  Doitem ("密碼更改")
  If UserRole = "系統管理員" Then  '系統管理員可修改所有用戶的密碼
    frmChgPswd.Show
  Else
    frmPswdChg.Show  '用戶只能改變自己的密碼
  End If
End Sub

Private Sub mnuPurviewSet_Click()
  Doitem ("權限設置")
  frmPurveSet.Show
End Sub

Private Sub mnuRelogin_Click()
  Dim i As Integer
  
  Doitem ("重新登錄")
  frmRelogin.Show vbModal, Me
  
  sbStatusBar.Panels(2).Text = "當前用戶： " + UserName
  
  rsTmp.Open "Select * From 用戶權限", cnSys
  rsTmp.Find "用戶帳號='" & UserName & "'"
  If IsNull(rsTmp("使用模塊")) Or IsEmpty(rsTmp("使用模塊")) Then
    PurvString = "111111111111111"  '缺省值為擁有所有模塊
  Else
    PurvString = Trim(rsTmp("使用模塊"))
  End If
  rsTmp.Close
  
  For i = 1 To Len(PurvString)
    If Mid(PurvString, i, 1) = "1" Then
      Call MenuButtSet(i, True)
    Else
      Call MenuButtSet(i, False)
    End If
  Next i
  
End Sub

Private Sub mnuRestore_Click()
  Doitem ("數據恢復")
  frmRestore.Show
End Sub

Private Sub mnuHelpTopic_Click()
  Dim nRet As Integer

  '如果這個工程沒有幫助文件，顯示消息給用戶
  '可以在“工程屬性”對話框中為應用程序設置幫助文件
  If Len(App.HelpFile) = 0 Then
    MsgBox "無法顯示幫助目錄，該工程沒有相關聯的幫助。", vbInformation, Me.Caption
  Else
    On Error Resume Next
    nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
    If Err Then
      MsgBox Err.Description
    End If
  End If
End Sub

Private Sub mnuHelpWhat_Click()
  Dim nRet As Integer

  '如果這個工程沒有幫助文件，顯示消息給用戶
  '可以在“工程屬性”對話框中為應用程序設置幫助文件
  If Len(App.HelpFile) = 0 Then
    MsgBox "無法顯示幫助目錄，該工程沒有相關聯的幫助。", vbInformation, Me.Caption
  Else
    On Error Resume Next
    nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
    If Err Then
      MsgBox Err.Description
    End If
  End If
End Sub

Private Sub mnuSystemlog_Click()
  Doitem ("系統日志")
  frmSystemlog.Show
End Sub

Private Sub mnuxjbab_Click()
  Doitem ("新加坡安標")
  frmxjbab.Show
End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
'工具條
  On Error Resume Next
  Select Case Button.Key
    Case "退出系統"
      mnuProgExit_Click
    Case "標簽打印"
      mnubqprint_Click
    Case "人員設置"
      mnuPeopSet_Click
    Case "權限設置"
      mnuPurviewSet_Click
    Case "密碼更改"
      mnuPswdChg_Click
    Case "重新登錄"
      mnuRelogin_Click
    Case "系統日志"
      mnuSystemlog_Click
  End Select
End Sub

Private Sub mnuHelpAbout_Click()
  frmAbout.Show
End Sub

Private Sub mnuViewStatusBar_Click()
  mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
  sbStatusBar.Visible = mnuViewStatusBar.Checked
End Sub

Private Sub mnuViewToolbar_Click()
  mnuViewToolBar.Checked = Not mnuViewToolBar.Checked
  tbToolBar.Visible = mnuViewToolBar.Checked
End Sub

Private Sub mnuProgExit_Click()
  '卸載窗體
  Doitem ("退出系統")
  If MsgBox("真的要關閉本系統嗎(Y/N)？", vbYesNo + vbQuestion, "關閉系統", 0, 0) = vbYes Then
    
    rsMain.Close
    Set rsMain = Nothing    '清除設置的變量
    Set rsTmp = Nothing
    Set rsPrint = Nothing
    
    cnSys.Close
    Set cnSys = Nothing
    Set fMainForm = Nothing
    Unload Me
    End
  End If
End Sub

Private Sub mnuFilePageSetup_Click()
  On Error Resume Next
  
  Doitem ("頁面設置")
  With dlgCommonDialog
    .DialogTitle = "頁面設置"
    .CancelError = True
    .ShowPrinter
  End With
End Sub

'**根據權限模塊設置菜單及按鈕。注：分隔符也算一個 index,第一個按鈕的 index=1
Private Sub MenuButtSet(k As Integer, byesno As Boolean)
  Select Case k
    Case 1
    '  mnuOrganEdt1.Enabled = byesno
    '  tbToolBar.Buttons(3).Enabled = byesno
    Case 2
    '  mnuOrganEdt2.Enabled = byesno
    '  tbToolBar.Buttons(4).Enabled = byesno
    Case 3
    '  mnuOrganPrn.Enabled = byesno
    '  tbToolBar.Buttons(5).Enabled = byesno
    Case 4
    '  mnuFaxMail.Enabled = byesno
    '  tbToolBar.Buttons(6).Enabled = byesno
    Case 5
    '  mnuFilePageSetup.Enabled = byesno
    Case 6
    '  mnuProgExit.Enabled = byesno
    '  tbToolBar.Buttons(1).Enabled = byesno
    Case 7
    '  mnuOrganDat.Enabled = byesno
    '  tbToolBar.Buttons(8).Enabled = byesno
    Case 8
    '  mnuPeopSet.Enabled = byesno
    '  tbToolBar.Buttons(9).Enabled = byesno
    Case 9
   '   mnuPurviewSet.Enabled = byesno
    '  tbToolBar.Buttons(10).Enabled = byesno
    Case 10
    '  mnuPswdChg.Enabled = byesno
    '  tbToolBar.Buttons(11).Enabled = byesno
    Case 11
    '  mnuRelogin.Enabled = byesno
    '  tbToolBar.Buttons(13).Enabled = byesno
    Case 12
    '  mnuAutoBackup.Enabled = byesno
    Case 13
   '   mnuManuBackup.Enabled = byesno
    Case 14
   '   mnuRestore.Enabled = byesno
    Case 15
   '   mnuSystemlog.Enabled = byesno
    '  tbToolBar.Buttons(14).Enabled = byesno
  End Select
End Sub

'**記錄使用者操作模塊的信息
Private Sub Doitem(menuitem As String)
  rsMain.AddNew
  rsMain("日期") = Date
  rsMain("時間") = Time
  rsMain("用戶帳號") = UserName
  rsMain("用戶角色") = UserRole
  rsMain("使用模塊") = menuitem
  rsMain.Update
  rsMain.Requery
End Sub