Begin VB.Menu EXIT 
      Caption         =   "退出系統"
      Begin VB.Menu CXDL 
         Caption         =   "重新登錄"
         Shortcut        =   ^R
      End
      Begin VB.Menu END 
         Caption         =   "退出系統"
         Shortcut        =   ^E
      End
   End
End
Attribute VB_Name = "Frm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_REMOVE = &H1000&
Private Const SC_MAXIMIZE = &HF030

Private Sub BMZLSZ_Click()    '部門信息設置
  Frm_Bmzl.Show 1
End Sub

Private Sub CKRZ_Click()
  frm_rz.Show 1
End Sub

Private Sub CLDDAP_Click()
   Frm_Cldd.Show 1              '車輛調度
End Sub

Private Sub CLDDXXCX_Click()
   StrCx = 2
   Frm_Xxcx.Show 1
End Sub

Private Sub CLXXSZ_Click()
  Frm_Clxx.Show 1
End Sub

Private Sub CXDL_Click()
  Unload Me
  frm_xtdl.Show
End Sub

Private Sub END_Click()
  End
End Sub

Private Sub Form_Activate()
  StatusBar1.Panels.Item(3).Text = Format(Now, "yyyy年mm月dd日")
  AdoRs.Open "select * from tb_user where user_Name='" + Name1 + "'", Cnn, adOpenKeyset
  If AdoRs.RecordCount > 0 Then
      If AdoRs.Fields("1") = 1 Then
         BMZLSZ.Enabled = True
      ElseIf AdoRs.Fields("1") = 0 Then
         BMZLSZ.Enabled = False
      End If
      If AdoRs.Fields("2") = 1 Then
         zwxxsz.Enabled = True
      ElseIf AdoRs.Fields("2") = 0 Then
         zwxxsz.Enabled = False
      End If
      If AdoRs.Fields("3") = 1 Then
         GSZLSZ.Enabled = True
      ElseIf AdoRs.Fields("3") = 0 Then
         GSZLSZ.Enabled = False
      End If
      If AdoRs.Fields("4") = 1 Then
         YGZLSZ.Enabled = True
      ElseIf AdoRs.Fields("4") = 0 Then
         YGZLSZ.Enabled = False
      End If
      If AdoRs.Fields("5") = 1 Then
         KHZLSZ.Enabled = True
      ElseIf AdoRs.Fields("5") = 0 Then
         KHZLSZ.Enabled = False
      End If
      If AdoRs.Fields("6") = 1 Then
         SJZLSZ.Enabled = True
      ElseIf AdoRs.Fields("6") = 0 Then
         SJZLSZ.Enabled = False
      End If
      If AdoRs.Fields("7") = 1 Then
         CLXXSZ.Enabled = True
      ElseIf AdoRs.Fields("7") = 0 Then
         CLXXSZ.Enabled = False
      End If
      If AdoRs.Fields("8") = 1 Then
         CLDDAP.Enabled = True
         Toolbar1.Buttons(4).Enabled = True
      ElseIf AdoRs.Fields("8") = 0 Then
         CLDDAP.Enabled = False
         Toolbar1.Buttons(4).Enabled = False
      End If
      If AdoRs.Fields("9") = 1 Then
         SQDGL.Enabled = True
         Toolbar1.Buttons(1).Enabled = True
      ElseIf AdoRs.Fields("9") = 0 Then
         SQDGL.Enabled = False
         Toolbar1.Buttons(1).Enabled = False
      End If
      If AdoRs.Fields("10") = 1 Then
         HWTYDGL.Enabled = True
         Toolbar1.Buttons(6).Enabled = True
      ElseIf AdoRs.Fields("10") = 0 Then
         HWTYDGL.Enabled = False
         Toolbar1.Buttons(6).Enabled = False
      End If
      If AdoRs.Fields("11") = 1 Then
         HWYSDGL.Enabled = True
         Toolbar1.Buttons(12).Enabled = True
      ElseIf AdoRs.Fields("11") = 0 Then
         HWYSDGL.Enabled = False
         Toolbar1.Buttons(12).Enabled = False
      End If
      If AdoRs.Fields("12") = 1 Then
         PSJLDGL.Enabled = True
         Toolbar1.Buttons(9).Enabled = True
      ElseIf AdoRs.Fields("12") = 0 Then
         PSJLDGL.Enabled = False
         Toolbar1.Buttons(9).Enabled = False
      End If
      If AdoRs.Fields("13") = 1 Then
         HWSQDCX.Enabled = True
      ElseIf AdoRs.Fields("13") = 0 Then
         HWSQDCX.Enabled = False
      End If
      If AdoRs.Fields("14") = 1 Then
         CLDDXXCX.Enabled = True
      ElseIf AdoRs.Fields("14") = 0 Then
         CLDDXXCX.Enabled = False
      End If
      If AdoRs.Fields("15") = 1 Then
         HWTYXXCX.Enabled = True
         Toolbar1.Buttons(14).Enabled = True
      ElseIf AdoRs.Fields("15") = 0 Then
         HWTYXXCX.Enabled = False
         Toolbar1.Buttons(14).Enabled = False
      End If
      If AdoRs.Fields("16") = 1 Then
         HWTYYSCX.Enabled = True
      ElseIf AdoRs.Fields("16") = 0 Then
         HWTYYSCX.Enabled = False
      End If
      If AdoRs.Fields("17") = 1 Then
         PSHWBGCX.Enabled = True
      ElseIf AdoRs.Fields("17") = 0 Then
         PSHWBGCX.Enabled = False
      End If
      If AdoRs.Fields("18") = 1 Then
         HWSQDBB.Enabled = True
      ElseIf AdoRs.Fields("18") = 0 Then
         HWSQDBB.Enabled = False
      End If
      If AdoRs.Fields("19") = 1 Then
         HWTYDBB.Enabled = True
         Toolbar1.Buttons(16).Enabled = True
      ElseIf AdoRs.Fields("19") = 0 Then
         HWTYDBB.Enabled = False
         Toolbar1.Buttons(16).Enabled = False
      End If
      If AdoRs.Fields("20") = 1 Then
         HWYSDBB.Enabled = True
      ElseIf AdoRs.Fields("20") = 0 Then
         HWYSDBB.Enabled = False
      End If
      If AdoRs.Fields("21") = 1 Then
         SCRZ.Enabled = True
      ElseIf AdoRs.Fields("21") = 0 Then
         SCRZ.Enabled = False
      End If
      If AdoRs.Fields("22") = 1 Then
         YHGL.Enabled = True
         Toolbar1.Buttons(19).Enabled = True
      ElseIf AdoRs.Fields("22") = 0 Then
         YHGL.Enabled = False
         Toolbar1.Buttons(19).Enabled = False
      End If
      If AdoRs.Fields("23") = 1 Then
         SJBF.Enabled = True
      ElseIf AdoRs.Fields("23") = 0 Then
         SJBF.Enabled = False
      End If
      If AdoRs.Fields("24") = 1 Then
         SJHF.Enabled = True
      ElseIf AdoRs.Fields("24") = 0 Then
         SJHF.Enabled = False
      End If
      If AdoRs.Fields("25") = 1 Then
         SJQL.Enabled = True
      ElseIf AdoRs.Fields("25") = 0 Then
         SJQL.Enabled = False
      End If
End If
AdoRs.Close

  If TWidth <= 800 Or THeigth <= 600 Then
     Me.BorderStyle = 2
     Me.WindowState = 2
   Else
        RemoveMenu GetSystemMenu(Frm_Main.hwnd, 0), SC_MAXIMIZE, MF_REMOVE        '最大化按鈕不可用
  End If

End Sub

Private Sub GSZLSZ_Click()    '公司資料設置
    Frm_Gszl.Show 1
End Sub

Private Sub HWSQDBB_Click()
On Error Resume Next
DEvr1.rsCom_sqd.Open "select * from tb_Goods_sqd"
  If DEvr1.rsCom_sqd.RecordCount > 0 Then
     DRP_Sqd.Show 1
  End If
End Sub

Private Sub HWSQDCX_Click()
   StrCx = 1
   Frm_Xxcx.Show 1
End Sub

Private Sub HWTYDBB_Click()
 DEvr1.rsCom_tyd.Open "select * from tb_Goods_tyd"
   If DEvr1.rsCom_tyd.RecordCount > 0 Then
      DRP_Tyd.Show 1
   End If
End Sub

Private Sub HWTYDGL_Click()
   Frm_Hpty.Show 1             '貨品托運
End Sub

Private Sub HWTYXXCX_Click()
   StrCx = 3
   Frm_Xxcx.Show 1
End Sub

Private Sub HWTYYSCX_Click()
   StrCx = 4
   Frm_Xxcx.Show 1
End Sub

Private Sub HWYSDBB_Click()
 DEvr1.rsCom_Ysd.Open "select * from tb_Goods_khys"
  If DEvr1.rsCom_Ysd.RecordCount > 0 Then
     DRP_Ysd.Show 1
  End If
End Sub

Private Sub HWYSDGL_Click()
  Frm_Hpys.Show 1
End Sub

Private Sub KHZLSZ_Click()    '客戶資料信息
   Frm_Khxx.Show 1
End Sub
Private Sub PSHWBGCX_Click()
   Frm_ZtgzCx.Show 1
End Sub

Private Sub PSJLDGL_Click()
   Frm_Ztgz.Show 1
End Sub

Private Sub SCRZ_Click()
Dim del
Dim Temp1 As String
On Error Resume Next  '錯誤處理語句
del = MsgBox("確認要清除系統的日志信息嗎?", 17, "提示信息")
    If del = vbOK Then
         Kill (App.Path & "\系統日志.ini")
             Open (App.Path & "\系統日志.ini") For Output As #1
                  Temp1 = "  操作員姓名             日期時間                      操作類型"
             Print #1, Temp1
             Print #1,
             Close #1
             MsgBox "日志清理成功完成!!", , "提示信息"
    Else
    End If
End Sub

Private Sub SJBF_Click()
  frm_backup.Show 1
End Sub

Private Sub SJHF_Click()
Dim iTask As Long
MsgBox "請您注意,為了確保數據安全,在進行數據恢復的同時需要關閉應用程序,請您在恢復數據完成之后重新運行應用程序", 64, "提示信息"
'調用數據恢復可執行文件
iTask = Shell(App.Path & "\Restore.exe", vbNormalFocus)
End
End Sub

Private Sub SJQL_Click()
  frm_sfyz.Show 1
End Sub

Private Sub SJZLSZ_Click()
   Frm_Sjxx.Show 1
End Sub

Private Sub SQDGL_Click()
  Frm_Tysq.Show 1              '托運申請
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.key
      Case "SQ"
         Frm_Tysq.Show 1
      Case "DD"
         Frm_Cldd.Show 1
      Case "TY"
         Frm_Hpty.Show 1
      Case "GZ"
         Frm_Ztgz.Show 1
      Case "YS"
         Frm_Hpys.Show 1
      Case "CX"
         StrCx = 3
         Frm_Xxcx.Show 1
      Case "BB"
         DRP_Tyd.Show 1
      Case "RZ"
         frm_systemer.Show 1
      Case "TC"
         End
  End Select
End Sub

Private Sub YGZLSZ_Click()    '員工資料信息
   Frm_Ygzl.Show 1
End Sub

Private Sub YHGL_Click()
   frm_systemer.Show 1
End Sub

Private Sub zwxxsz_Click()
  Frm_Zwxx.Show 1
End Sub
Private Sub Timer1_Timer()
  StatusBar1.Panels.Item(4).Text = Time
End Sub

Private Sub ChangeScreen()     '改變屏幕分辨率函數
   
   MsgBox "您桌面的分辨率并不是800*600,建議您將桌面的分辨率調整成800*600之后，再運行此程序!", 64, "提示信息"
   
End Sub