?? main.frm
字號:
VERSION 5.00
Begin VB.Form main
Caption = "車輛管理"
ClientHeight = 7905
ClientLeft = 165
ClientTop = 735
ClientWidth = 11880
LinkTopic = "Form1"
Picture = "main.frx":0000
ScaleHeight = 7905
ScaleWidth = 11880
StartUpPosition = 3 '窗口缺省
Begin VB.Menu shezhi
Caption = "名稱設置"
Begin VB.Menu mingcheng
Caption = "車輛名稱"
End
Begin VB.Menu xmmingcheng
Caption = "項目名稱"
End
End
Begin VB.Menu guanli
Caption = "車輛管理"
Begin VB.Menu cheliangjiayou
Caption = "車輛加油"
End
End
Begin VB.Menu guodaofeikaohe
Caption = "過道費管理"
Begin VB.Menu guodaofeiinput
Caption = "過道費輸入窗口"
End
Begin VB.Menu guodaofeitjb
Caption = "過道費統計表"
End
End
Begin VB.Menu qita
Caption = "其它費用管理"
Begin VB.Menu qitainput
Caption = "其它費用輸入窗口"
End
Begin VB.Menu qtchaxun
Caption = "其他費用查詢窗口"
End
End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cheliangjiayou_Click()
jiayou.Show 1
End Sub
Private Sub guodaofeiinput_Click()
guodaofeiinputb.Show 1
End Sub
Private Sub guodaofeitjb_Click()
guodaofei.Show 1
End Sub
Private Sub mingcheng_Click()
cheliangmingcheng.Show 1
End Sub
Private Sub qitainput_Click()
qitainputb.Show 1
End Sub
Private Sub qtchaxun_Click()
qitachaxun.Show 1
End Sub
Private Sub xmmingcheng_Click()
xiangmumingcheng.Show 1
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -