?? mdifrm.frm

?? 一個較為完整的運輸行業管理系統
?? FRM
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIFrm 
   BackColor       =   &H8000000C&
   Caption         =   "運輸行業管理系統"
   ClientHeight    =   10770
   ClientLeft      =   1245
   ClientTop       =   1470
   ClientWidth     =   14940
   Icon            =   "MDIFrm.frx":0000
   LinkTopic       =   "MDIForm1"
   Begin MSComctlLib.ImageList ToolImage 
      Left            =   9240
      Top             =   120
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   9
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFrm.frx":014A
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFrm.frx":0464
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFrm.frx":05BE
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFrm.frx":0A10
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFrm.frx":0E62
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFrm.frx":12B4
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFrm.frx":1706
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFrm.frx":1CA0
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIFrm.frx":20FA
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   660
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   14940
      _ExtentX        =   26353
      _ExtentY        =   1164
      ButtonWidth     =   1032
      ButtonHeight    =   1005
      Appearance      =   1
      ImageList       =   "ToolImage"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   12
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Key_Dri"
            Object.ToolTipText     =   "司機檔案"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Key_Car"
            Object.ToolTipText     =   "車輛檔案"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Key_Work"
            Object.ToolTipText     =   "運營記錄"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Key_Rep"
            Object.ToolTipText     =   "維修記錄"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Key_Pec"
            Object.ToolTipText     =   "違章記錄"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Key_Acc"
            Object.ToolTipText     =   "事故記錄"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Key_Bal"
            Object.ToolTipText     =   "每日結算"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Key_About"
            Object.ToolTipText     =   "關于"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Key_Exit"
            Object.ToolTipText     =   "退出系統"
            ImageIndex      =   9
         EndProperty
      EndProperty
   End
   Begin VB.Menu Driver 
      Caption         =   "司機檔案"
      Begin VB.Menu Dri_Man 
         Caption         =   "司機檔案管理"
      End
      Begin VB.Menu Dri_Query 
         Caption         =   "司機檔案查詢"
      End
   End
   Begin VB.Menu Car 
      Caption         =   "車輛檔案"
      Begin VB.Menu Car_Man 
         Caption         =   "車輛檔案管理"
      End
      Begin VB.Menu Car_Query 
         Caption         =   "車輛檔案查詢"
      End
   End
   Begin VB.Menu Operation 
      Caption         =   "業務管理"
      Begin VB.Menu Ope_Work 
         Caption         =   "車輛運營記錄"
         Begin VB.Menu Ope_Work_Man 
            Caption         =   "運營記錄管理"
         End
         Begin VB.Menu Ope_Work_Query 
            Caption         =   "運營記錄查詢"
         End
      End
      Begin VB.Menu Ope_Repair 
         Caption         =   "車輛維修記錄"
         Begin VB.Menu Ope_Rep_Man 
            Caption         =   "維修記錄管理"
         End
         Begin VB.Menu Ope_Rep_Query 
            Caption         =   "維修記錄查詢"
         End
      End
      Begin VB.Menu Ope_Ppeccancy 
         Caption         =   "車輛違章記錄"
         Begin VB.Menu Ope_Pec_Man 
            Caption         =   "違章記錄管理"
         End
         Begin VB.Menu Ope_Pec_Query 
            Caption         =   "違章記錄查詢"
         End
      End
      Begin VB.Menu Ope_Accident 
         Caption         =   "車輛事故記錄"
         Begin VB.Menu Ope_Acc_Man 
            Caption         =   "事故記錄管理"
         End
         Begin VB.Menu Ope_Acc_Query 
            Caption         =   "事故記錄查詢"
         End
      End
   End
   Begin VB.Menu Balance 
      Caption         =   "結算"
      Begin VB.Menu Bal_LastDay 
         Caption         =   "昨日結算"
      End
   End
   Begin VB.Menu System 
      Caption         =   "系統"
      Begin VB.Menu Sys_About 
         Caption         =   "關于"
      End
      Begin VB.Menu Sys_Exit 
         Caption         =   "退出系統"
      End
   End
End
Attribute VB_Name = "MDIFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MDIForm_Load()
    '設置連接數據庫字符串
    CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    CnStr = CnStr & App.Path & "\DB\Transportation.mdb;Persist Security Info=False"
    '連接數據庫
    DBCn.Open CnStr
    
    '每日結算自動提示
    FormBal.Show
    
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    '關閉數據庫連接
    DBCn.Close
End Sub

'昨日結算菜單
Private Sub Bal_LastDay_Click()
    FormBal.Show
    FormBal.SetFocus
End Sub

'車輛檔案管理菜單
Private Sub Car_Man_Click()
    FormCar.Show
    FormCar.SSTab1.Tab = 0
    FormCar.SetFocus
End Sub

'車輛檔案查詢菜單
Private Sub Car_Query_Click()
    FormCar.Show
    FormCar.SSTab1.Tab = 1
    FormCar.SetFocus
End Sub

'司機檔案管理菜單
Private Sub Dri_Man_Click()
    FormDriver.Show
    FormDriver.SSTab1.Tab = 0
    FormDriver.SetFocus
End Sub

'司機檔案查詢菜單
Private Sub Dri_Query_Click()
    FormDriver.Show
    FormDriver.SSTab1.Tab = 1
    FormDriver.SetFocus
End Sub

'車輛事故記錄管理菜單
Private Sub Ope_Acc_Man_Click()
    FormAcc.Show
    FormAcc.SSTab1.Tab = 0
    FormAcc.SetFocus
End Sub

'車輛事故記錄查詢菜單
Private Sub Ope_Acc_Query_Click()
    FormAcc.Show
    FormAcc.SSTab1.Tab = 1
    FormAcc.SetFocus
End Sub

 '車輛運營記錄管理菜單
 Private Sub Ope_Work_Man_Click()
    FormWork.Show
    FormWork.SSTab1.Tab = 0
    FormWork.SetFocus
End Sub

'車輛運營記錄查詢菜單
Private Sub Ope_Work_Query_Click()
    FormWork.Show
    FormWork.SSTab1.Tab = 1
    FormWork.SetFocus
End Sub

'車輛維修記錄管理菜單
Private Sub Ope_Rep_Man_Click()
    FormRep.Show
    FormRep.SSTab1.Tab = 0
    FormRep.SetFocus
End Sub

'車輛維修記錄查詢菜單
Private Sub Ope_Rep_Query_Click()
    FormRep.Show
    FormRep.SSTab1.Tab = 1
    FormRep.SetFocus
End Sub

'車輛違章記錄管理菜單
Private Sub Ope_Pec_Man_Click()
    FormPec.Show
    FormPec.SSTab1.Tab = 0
    FormPec.SetFocus
End Sub

'車輛違章記錄查詢菜單
Private Sub Ope_Pec_Query_Click()
    FormPec.Show
    FormPec.SSTab1.Tab = 1
    FormPec.SetFocus
End Sub

'關于菜單
Private Sub Sys_About_Click()
    FormAbout.Show
    FormAbout.SetFocus
End Sub

'退出系統
Private Sub Sys_Exit_Click()
    If MsgBox("是否要退出程序？", vbYesNo, "退出") = vbYes Then End
End Sub

'工具欄響應函數，與菜單對應
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    '司機檔案
    Case "Key_Dri"
        Call Dri_Man_Click
    '車輛檔案
    Case "Key_Car"
        Call Car_Man_Click
    '運營管理
    Case "Key_Work"
        Call Ope_Work_Man_Click
    '維修記錄
    Case "Key_Rep"
        Call Ope_Rep_Man_Click
    '違章記錄
    Case "Key_Pec"
        Call Ope_Pec_Man_Click
    '事故記錄
    Case "Key_Acc"
        Call Ope_Acc_Man_Click
    '每日結算
    Case "Key_Bal"
        Call Bal_LastDay_Click
    '關于
    Case "Key_About"
        Call Sys_About_Click
    '退出系統
    Case "Key_Exit"
        Call Sys_Exit_Click
    End Select
End Sub
?? 文件大小 113 K
?? 上傳用戶 zhoulovely
?? 所屬分類企業管理
??? 相關標簽

#運輸 #管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mdifrm.frm

?? 快捷鍵說明
