软件设计/软件工程

开发平台：
WORD

MDIForm1.frm：源码内容
							VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "系统主界面"
   ClientHeight    =   6090
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   10785
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   1  '所有者中心
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   5250
      Top             =   660
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   8
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":3650D
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":36DE9
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":3837D
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":38C59
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":39935
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":3A211
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":3AAED
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":3B3C9
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   600
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   10785
      _ExtentX        =   19024
      _ExtentY        =   1058
      ButtonWidth     =   1032
      ButtonHeight    =   1005
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   10
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "车辆档案列表"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "驾驶员档案列表"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "车辆运营记录"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "车辆维修记录"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "车辆违章记录"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "车辆事故记录"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "查询"
            ImageIndex      =   7
            Style           =   5
            BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
               NumButtonMenus  =   7
               BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Key             =   "mnudacha"
                  Text            =   "车辆档案查询"
               EndProperty
               BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Key             =   "mnujsycha"
                  Text            =   "驾驶员查询"
               EndProperty
               BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Key             =   "mnuyycha"
                  Text            =   "车辆运营查询"
               EndProperty
               BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Key             =   "mnufen"
                  Text            =   "-"
               EndProperty
               BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Key             =   "mnuwxcha"
                  Text            =   "车辆维修查询"
               EndProperty
               BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Key             =   "mnuwzcha"
                  Text            =   "车辆违章查询"
               EndProperty
               BeginProperty ButtonMenu7 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Key             =   "mnusgcha"
                  Text            =   "车辆事故查询"
               EndProperty
            EndProperty
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   5715
      Width           =   10785
      _ExtentX        =   19024
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   6174
            MinWidth        =   6174
            Text            =   "请选择您要使用的窗体："
            TextSave        =   "请选择您要使用的窗体："
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   9790
            MinWidth        =   9790
            Text            =   "明日科技车辆管理系统 HTTP://www.MingRiSoft.com"
            TextSave        =   "明日科技车辆管理系统 HTTP://www.MingRiSoft.com"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            AutoSize        =   1
            Object.Width           =   1413
            MinWidth        =   1413
            TextSave        =   "2005-02-19"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   2
            Object.Width           =   1765
            MinWidth        =   1765
            TextSave        =   "9:33"
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Menu mnucarda 
      Caption         =   "车辆档案管理(&C)"
      Begin VB.Menu mnucardaadd 
         Caption         =   "车辆档案录入(&I)"
      End
      Begin VB.Menu mnucardacha 
         Caption         =   "车辆档案查询(&S)"
      End
      Begin VB.Menu mnucaryd 
         Caption         =   "车辆异动列表(&Y)"
      End
      Begin VB.Menu mnucarydcha 
         Caption         =   "车辆异动查询(&X)"
      End
      Begin VB.Menu mnucarbf 
         Caption         =   "车辆报废(&B)"
      End
      Begin VB.Menu mnucarbfcha 
         Caption         =   "车辆报废查询(&F)"
      End
      Begin VB.Menu mnufenge1 
         Caption         =   "-"
      End
   End
   Begin VB.Menu mnucaryymanage 
      Caption         =   "车辆运营管理(&Y)"
      Begin VB.Menu mnuyylist 
         Caption         =   "车辆运营列表(&L)"
      End
      Begin VB.Menu mnucaryycha 
         Caption         =   "车辆运营查询(&F)"
      End
      Begin VB.Menu mnuyydelete 
         Caption         =   "清空运营表(&Q)"
      End
      Begin VB.Menu mnufenge2 
         Caption         =   "-"
      End
   End
   Begin VB.Menu mnucarmanage 
      Caption         =   "车辆管理(&G)"
      Begin VB.Menu mnuwxmanage 
         Caption         =   "维修管理(&W)"
         Begin VB.Menu mnucarwxlist 
            Caption         =   "车辆维修列表(&X)"
         End
         Begin VB.Menu mnucarwxcha 
            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

						