📄 mainform.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm FrmMain
BackColor = &H8000000C&
Caption = "单位车辆管理系统"
ClientHeight = 7575
ClientLeft = 165
ClientTop = 735
ClientWidth = 12345
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.PictureBox Picture1
Align = 1 'Align Top
BorderStyle = 0 'None
Height = 615
Left = 0
ScaleHeight = 615
ScaleMode = 0 'User
ScaleWidth = 8132.411
TabIndex = 1
Top = 0
Width = 12345
Begin VB.Frame Frame6
Height = 615
Left = 9600
TabIndex = 7
Top = 0
Width = 855
Begin VB.Image Image22
Height = 240
Left = 480
Picture = "mainform.frx":0000
ToolTipText = "使用帮助"
Top = 240
Width = 240
End
Begin VB.Image Image21
Height = 240
Left = 120
Picture = "mainform.frx":040E
ToolTipText = "离开系统"
Top = 240
Width = 240
End
End
Begin VB.Frame Frame5
Height = 615
Left = 1680
TabIndex = 6
Top = 0
Width = 1695
Begin VB.Image Image19
Height = 240
Left = 1320
Picture = "mainform.frx":0694
ToolTipText = "删除车辆信息"
Top = 240
Width = 240
End
Begin VB.Image Image18
Height = 240
Left = 840
Picture = "mainform.frx":0A66
ToolTipText = "查询车辆信息"
Top = 240
Width = 240
End
Begin VB.Image Image17
Height = 240
Left = 480
Picture = "mainform.frx":0E1F
ToolTipText = "修改车辆信息"
Top = 240
Width = 240
End
Begin VB.Image Image16
Height = 240
Left = 120
Picture = "mainform.frx":0FA6
ToolTipText = "添加车辆信息"
Top = 240
Width = 240
End
End
Begin VB.Frame Frame4
Height = 615
Left = 7560
TabIndex = 5
Top = 0
Width = 1815
Begin VB.Image Image15
Height = 240
Left = 1440
Picture = "mainform.frx":1112
ToolTipText = "费用信息删除"
Top = 240
Width = 240
End
Begin VB.Image Image14
Height = 240
Left = 960
Picture = "mainform.frx":14F5
ToolTipText = "费用查询"
Top = 240
Width = 240
End
Begin VB.Image Image13
Height = 240
Left = 480
Picture = "mainform.frx":18AE
ToolTipText = "费用修改"
Top = 240
Width = 240
End
Begin VB.Image Image12
Height = 240
Left = 120
Picture = "mainform.frx":1C94
ToolTipText = "费用登记"
Top = 240
Width = 240
End
End
Begin VB.Frame Frame3
Height = 615
Left = 5640
TabIndex = 4
Top = 0
Width = 1695
Begin VB.Image Image11
Height = 240
Left = 1320
Picture = "mainform.frx":1F14
ToolTipText = "删除运营信息"
Top = 240
Width = 240
End
Begin VB.Image Image10
Height = 240
Left = 840
Picture = "mainform.frx":22F7
ToolTipText = "查询运营信息"
Top = 240
Width = 240
End
Begin VB.Image Image9
Height = 240
Left = 480
Picture = "mainform.frx":26B0
ToolTipText = "修改运营信息"
Top = 240
Width = 240
End
Begin VB.Image Image8
Height = 240
Left = 120
Picture = "mainform.frx":2AB8
ToolTipText = "添加运营信息"
Top = 240
Width = 240
End
End
Begin VB.Frame Frame2
Height = 615
Left = 3600
TabIndex = 3
Top = 0
Width = 1815
Begin VB.Image Image7
Height = 240
Left = 1440
Picture = "mainform.frx":2BCB
ToolTipText = "删除司机信息"
Top = 240
Width = 240
End
Begin VB.Image Image6
Height = 240
Left = 960
Picture = "mainform.frx":2FAE
ToolTipText = "查询司机信息"
Top = 240
Width = 240
End
Begin VB.Image Image5
Height = 240
Left = 480
Picture = "mainform.frx":3367
ToolTipText = "修改司机信息"
Top = 240
Width = 240
End
Begin VB.Image Image4
Height = 240
Left = 120
Picture = "mainform.frx":3749
ToolTipText = "添加司机信息"
Top = 240
Width = 240
End
End
Begin VB.Frame Frame1
Height = 615
Left = 120
TabIndex = 2
Top = 0
Width = 1335
Begin VB.Image Image1
Height = 480
Left = 120
Picture = "mainform.frx":3AEC
ToolTipText = "添加用户"
Top = 240
Width = 480
End
Begin VB.Image Image3
Height = 240
Left = 960
Picture = "mainform.frx":3DF6
ToolTipText = "修改密码"
Top = 240
Width = 240
End
Begin VB.Image Image2
Height = 480
Left = 480
Picture = "mainform.frx":41E3
ToolTipText = "删除用户"
Top = 240
Width = 480
End
End
End
Begin MSComctlLib.StatusBar StatusBar
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 0
Top = 7260
Width = 12345
_ExtentX = 21775
_ExtentY = 556
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 16140
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
TextSave = "2004-6-9"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "11:09"
EndProperty
EndProperty
End
Begin VB.Menu system
Caption = "系统"
Begin VB.Menu modiuser
Caption = "修改用户密码"
End
Begin VB.Menu adduser
Caption = "添加用户(管理员)"
End
Begin VB.Menu deluser
Caption = "删除用户(管理员)"
End
Begin VB.Menu exit
Caption = "退出系统"
End
End
Begin VB.Menu vehiclem
Caption = "车辆管理"
Begin VB.Menu addcl
Caption = "添加车辆信息"
End
Begin VB.Menu modicl
Caption = "修改车辆信息"
End
Begin VB.Menu delcl
Caption = "删除车辆信息"
End
Begin VB.Menu selcl
Caption = "查询车辆信息"
End
End
Begin VB.Menu driverm
Caption = "司机管理"
Begin VB.Menu addsj
Caption = "添加司机信息"
End
Begin VB.Menu modisj
Caption = "修改司机信息"
End
Begin VB.Menu delsj
Caption = "删除司机信息"
End
Begin VB.Menu selsj
Caption = "查询司机信息"
End
End
Begin VB.Menu yygl
Caption = "运营管理"
Begin VB.Menu addyyxx
Caption = "添加运营信息"
End
Begin VB.Menu modiyyxx
Caption = "修改运营信息"
End
Begin VB.Menu delyyxx
Caption = "删除运营信息"
End
Begin VB.Menu selyyxx
Caption = "查询运营信息"
End
End
Begin VB.Menu wxgl
Caption = "维修管理"
Begin VB.Menu addwxxx
Caption = "添加维修信息"
End
Begin VB.Menu modiwxxx
Caption = "修改维修信息"
End
Begin VB.Menu delwxxx
Caption = "删除维修信息"
End
Begin VB.Menu selwxxx
Caption = "查询维修信息"
End
End
Begin VB.Menu sgxxgl
Caption = "事故管理"
Begin VB.Menu addsgxx
Caption = "添加事故信息"
End
Begin VB.Menu modisgxx
Caption = "修改事故信息"
End
Begin VB.Menu delsgxx
Caption = "删除事故信息"
End
Begin VB.Menu selsgxx
Caption = "查询事故信息"
End
End
Begin VB.Menu costm
Caption = "费用管理"
Begin VB.Menu fydj
Caption = "费用信息登记"
End
Begin VB.Menu fyxg
Caption = "费用信息修改"
End
Begin VB.Menu fycx
Caption = "费用信息查询"
End
Begin VB.Menu delfy
Caption = "费用信息删除"
End
End
Begin VB.Menu helpm
Caption = "帮助"
Begin VB.Menu aboutthis
Caption = "关于此系统"
End
Begin VB.Menu helpfile
Caption = "使用帮助"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub aboutthis_Click()
frmabout.Show
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -