mdiform1.frm

车辆管理系统

            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