www.pudn.com > vb625557712344.rar > FrmMain.frm, change:2005-06-07,size:8679b
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
Top = 6345
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
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