📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmMain
Caption = "汽车出租业务管理系统"
ClientHeight = 7365
ClientLeft = 165
ClientTop = 450
ClientWidth = 11460
Icon = "FrmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
MouseIcon = "FrmMain.frx":08CA
Picture = "FrmMain.frx":0BD4
ScaleHeight = 7365
ScaleWidth = 11460
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 390
Left = 0
TabIndex = 1
Top = 6975
Width = 11460
_ExtentX = 20214
_ExtentY = 688
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 19685
Text = "汽车出租业务管理系统"
TextSave = "汽车出租业务管理系统"
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
MouseIcon = "FrmMain.frx":D476
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 0
Top = 0
Width = 11460
_ExtentX = 20214
_ExtentY = 1085
ButtonWidth = 2090
ButtonHeight = 926
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "类型管理"
Key = "aa"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "销售商管理"
Key = "bb"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保险公司管理"
Key = "cc"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "汽车租赁"
Key = "dd"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "汽车归还"
Key = "ee"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "会员信息"
Key = "gg"
ImageIndex = 7
EndProperty
EndProperty
MouseIcon = "FrmMain.frx":EC38
Begin MSComctlLib.ImageList ImageList1
Left = 9720
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":F092
Key = "aa"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":12114
Key = "bb"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":14AC6
Key = "cc"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":167D0
Key = "dd"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":184DA
Key = "ee"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":1995C
Key = "ff"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":1BA96
Key = "gg"
EndProperty
EndProperty
End
End
Begin VB.Menu m_Info
Caption = "基本信息管理(&J)"
Begin VB.Menu m_Types
Caption = "类型管理"
End
Begin VB.Menu m_Sales
Caption = "销售商管理"
End
Begin VB.Menu m_Insur
Caption = "保险公司管理"
End
Begin VB.Menu m_Cars
Caption = "车辆管理"
End
Begin VB.Menu m_Exit
Caption = "退出系统"
End
End
Begin VB.Menu m_Cust
Caption = "客户会员管理(&K)"
Begin VB.Menu m_Customer
Caption = "客户信息管理"
End
Begin VB.Menu m_Member
Caption = "会员信息管理"
End
Begin VB.Menu m_MemberType
Caption = "会员类型管理"
End
End
Begin VB.Menu m_Work
Caption = "日常业务管理(&R)"
Begin VB.Menu m_Lease
Caption = "汽车租赁管理"
End
Begin VB.Menu m_Return
Caption = "汽车归还管理"
End
End
Begin VB.Menu m_UserManage
Caption = "系统用户管理(&X)"
Begin VB.Menu userid
Caption = "用户管理"
End
End
Begin VB.Menu help
Caption = "系统帮助信息(&F)"
Begin VB.Menu hepl1
Caption = "帮助"
End
Begin VB.Menu about
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 about_Click()
Frmabout.Show 1
End Sub
Private Sub Form_Load()
Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path + "\" + DATABASE + ";Persist Security Info=False"
FrmLogin.Show 1
End Sub
Private Sub hepl1_Click()
Frmhelp.Show
End Sub
Private Sub m_Cars_Click()
FrmCar.Show 1
End Sub
Private Sub m_Customer_Click()
FrmCustomer.Show 1
End Sub
Private Sub m_Exit_Click()
DBapi_Disconnect
End
End Sub
Private Sub m_Insur_Click()
FrmInsurance.Show 1
End Sub
Private Sub m_Lease_Click()
FrmLease.Show 1
End Sub
Private Sub m_Member_Click()
FrmMembers.Show 1
End Sub
Private Sub m_MemberType_Click()
FrmMemberType.Show 1
End Sub
Private Sub m_Return_Click()
FrmReturn.Show 1
End Sub
Private Sub m_Sales_Click()
FrmSales.Show 1
End Sub
Private Sub m_Types_Click()
FrmType.Show 1
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "aa"
Load FrmType
FrmType.Show vbModal
Case "bb"
Load FrmSales
FrmSales.Show vbModal
Case "cc"
Load FrmInsurance
FrmInsurance.Show vbModal
Case "dd"
Load FrmLease
FrmLease.Show vbModal
Case "ee"
Load FrmReturn
FrmReturn.Show vbModal
Case "gg"
Load FrmMembers
FrmMembers.Show vbModal
End Select
End Sub
Private Sub userid_Click()
FrmUserMan.Show 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -