?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -