Caption         =   "車輛維修查詢(&F)"
         End
         Begin VB.Menu mnuaddlj 
            Caption         =   "添加零件(&A)"
         End
      End
      Begin VB.Menu mnuwzmanage 
         Caption         =   "違章管理(&Z)"
         Begin VB.Menu mnucarwzlist 
            Caption         =   "車輛違章列表(&L)"
         End
         Begin VB.Menu mnucarwzcha 
            Caption         =   "車輛違章查詢(&F)"
         End
      End
      Begin VB.Menu mnusgmanage 
         Caption         =   "事故管理(&S)"
         Begin VB.Menu mnucarsglist 
            Caption         =   "車輛事故列表(&G)"
         End
         Begin VB.Menu mnucarsgcha 
            Caption         =   "車輛事故查詢(&F)"
         End
      End
   End
   Begin VB.Menu mnujsymanage 
      Caption         =   "駕駛員管理(&J)"
      Begin VB.Menu mnujsylist 
         Caption         =   "駕駛員檔案列表(&D)"
      End
      Begin VB.Menu mnujsycha 
         Caption         =   "駕駛員檔案查詢(&F)"
      End
      Begin VB.Menu mnufenge3 
         Caption         =   "-"
      End
      Begin VB.Menu mnujsyjc 
         Caption         =   "駕駛員獎罰(&G)"
      End
   End
   Begin VB.Menu mnysystem 
      Caption         =   "系統維護(&S)"
      Begin VB.Menu mnusyscsh 
         Caption         =   "系統初始化(&T)"
      End
      Begin VB.Menu mnuglyset 
         Caption         =   "管理員設置(&M)"
      End
      Begin VB.Menu mnubf 
         Caption         =   "數據備份(&C)"
      End
      Begin VB.Menu mnuhf 
         Caption         =   "數據恢復(&H)"
      End
      Begin VB.Menu mnufenge4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuexit3 
         Caption         =   "退出(&E)"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuaddlj_Click()
    frmLJ.Show
    StatusBar1.Panels(1).Text = "零件添加窗體"
End Sub

Private Sub mnubf_Click()
    frmDataCopy.Show
    StatusBar1.Panels(1).Text = "數據備份窗體"
End Sub

Private Sub mnucarbf_Click()
    frmcarBFlr.Show
    StatusBar1.Panels(1).Text = "車輛報廢錄入窗體"
End Sub

Private Sub mnucarbfcha_Click()
    frmcarBFcha.Show
    StatusBar1.Panels(1).Text = "車輛報廢查詢窗體"
End Sub

Private Sub mnucardaadd_Click()
    frmcardalr.Show

    StatusBar1.Panels(1).Text = "車輛檔案錄入窗體"
End Sub

Private Sub mnucardacha_Click()
    frmcardacha.Show
    StatusBar1.Panels(1).Text = "車輛檔案查詢窗體"
End Sub

Private Sub mnucarsgcha_Click()
     frmcarSGcha.Show
     StatusBar1.Panels(1).Text = "車輛事故查詢窗體"
End Sub

Private Sub mnucarsglist_Click()
    frmcarSGlr.Show
    StatusBar1.Panels(1).Text = "車輛事故錄入窗體"
End Sub

Private Sub mnucarwxcha_Click()
    frmcarWXcha.Show
    StatusBar1.Panels(1).Text = "車輛維修查詢窗體"
End Sub

Private Sub mnucarwxlist_Click()
    frmcarWXlr.Show
    StatusBar1.Panels(1).Text = "車輛維修錄入窗體"
End Sub

Private Sub mnucarwzcha_Click()
    frmcarWZcha.Show
    StatusBar1.Panels(1).Text = "車輛違章查詢窗體"
End Sub

Private Sub mnucarwzlist_Click()
    frmcarWZlr.Show
    StatusBar1.Panels(1).Text = "車輛違章錄入窗體"
End Sub

Private Sub mnucaryd_Click()
    frmcarydlr.Show
    
    StatusBar1.Panels(1).Text = "車輛異動錄入窗體"
End Sub

Private Sub mnucarydcha_Click()
    frmcarydcha.Show
    StatusBar1.Panels(1).Text = "車輛異動查詢窗體"
End Sub

Private Sub mnucaryycha_Click()
    frmcarYYcha.Show
    StatusBar1.Panels(1).Text = "車輛運營查詢窗體"
End Sub

Private Sub mnuexit1_Click()
    Unload Me
End Sub

Private Sub mnuexit3_Click()
    Unload Me
End Sub

Private Sub mnuglyset_Click()
    frmManager.Show
    StatusBar1.Panels(1).Text = "管理員設置窗體"
End Sub

Private Sub mnuhf_Click()
     frmDataHF.Show
     StatusBar1.Panels(1).Text = "數據恢復窗體"
End Sub

Private Sub mnujsycha_Click()
    frmDrivercha.Show
    StatusBar1.Panels(1).Text = "駕駛員檔案查詢窗體"
End Sub

Private Sub mnujsyjc_Click()
    frmDrJC.Show
    StatusBar1.Panels(1).Text = "獎金評定窗體"
End Sub

Private Sub mnujsylist_Click()
    frmDriverlr.Show
    StatusBar1.Panels(1).Text = "駕駛員檔案錄入窗體"
End Sub

Private Sub mnusyscsh_Click()
    If MsgBox("執行此命令會清空數據庫里所有記錄，確實要執行嗎？", vbOKCancel, "系統提示") = vbOK Then
        adoCon.Execute ("delete from 車輛檔案")
        adoCon.Execute ("delete from 車輛報廢表")
        adoCon.Execute ("delete from 車輛事故表")
        adoCon.Execute ("delete from 車輛違章表")
        adoCon.Execute ("delete from 車輛維修表")
        adoCon.Execute ("delete from 車輛異動表")
        adoCon.Execute ("delete from 車輛運營表")
        adoCon.Execute ("delete from 駕駛員檔案")
        adoCon.Execute ("delete from 零件表")
        adoCon.Execute ("delete from 用戶表")
        adoCon.Execute ("delete from 獎罰表")
    Else
        Exit Sub
    End If
End Sub

Private Sub mnuyydelete_Click()
    If MsgBox("真的要清空運營表嗎？", vbOKCancel, "系統提示") = vbOK Then
        adoCon.Execute ("delete from 車輛運營表")
    Else
        Exit Sub
    End If
End Sub

Private Sub mnuyylist_Click()
    frmcarYYlr.Show
    StatusBar1.Panels(1).Text = "車輛運營錄入窗體"
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Index
      Case 1
         Call mnucardaadd_Click
      Case 2
          Call mnujsylist_Click
      Case 3
          Call mnuyylist_Click
      Case 5
          Call mnucarwxlist_Click
      Case 6
          Call mnucarwzlist_Click
      Case 7
          Call mnucarsglist_Click
  End Select
  
End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
    Select Case ButtonMenu.Index
        Case 1
            Call mnucardacha_Click
        Case 2
            Call mnujsycha_Click
        Case 3
            Call mnucaryycha_Click
        Case 5
            Call mnucarwxcha_Click
        Case 6
            Call mnucarwzcha_Click
        Case 7
            Call mnucarsgcha_Click
            
    End Select
    
End Sub