?? frmmain.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmMain
Caption = "汽車出租業務管理系統"
ClientHeight = 6840
ClientLeft = 165
ClientTop = 450
ClientWidth = 11880
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
MouseIcon = "FrmMain.frx":0000
Picture = "FrmMain.frx":030A
ScaleHeight = 6840
ScaleWidth = 11880
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 1
Width = 11880
_ExtentX = 20955
_ExtentY = 873
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 20452
Text = "汽 車 租 賃 管 理 系 統"
TextSave = "汽 車 租 賃 管 理 系 統"
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 0
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1111
ButtonWidth = 2090
ButtonHeight = 953
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":32B86
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":32FE0
Key = "aa"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":36062
Key = "bb"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":38A14
Key = "cc"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":3A71E
Key = "dd"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":3C428
Key = "ee"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":3D8AA
Key = "ff"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":3F9E4
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
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 + -