frmmain.frm

一个较为完整的汽车租赁业的VB管理系统源码。

VERSION 5.00
Begin VB.Form FrmMain 
   Caption         =   "车辆租赁管理系统"
   ClientHeight    =   7185
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9570
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7185
   ScaleWidth      =   9570
   StartUpPosition =   2  '屏幕中心
   Begin VB.Image Image1 
      Height          =   7170
      Left            =   0
      Picture         =   "FrmMain.frx":0000
      Top             =   0
      Width           =   9570
   End
   Begin VB.Menu m_Info 
      Caption         =   "基本信息管理"
      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         =   "客户会员管理"
      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         =   "日常业务管理"
      Begin VB.Menu m_Lease 
         Caption         =   "车辆租赁管理"
      End
      Begin VB.Menu m_Return 
         Caption         =   "车辆归还管理"
      End
   End
   Begin VB.Menu m_UserManage 
      Caption         =   "系统用户管理"
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
  Dim PicPath As String
  PicPath = App.Path + "\Img\lease.jpg"  '图片相对地址
  Picture = LoadPicture(PicPath)         '载入图片
  '设置数据库连接字符串
  Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
   App.Path + "\" + DATABASE + ";Persist Security Info=False"
  '系统登录界面
 'FrmLogin.Show 1
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 m_UserManage_Click()
  '用户管理
  FrmUserMan.Show 1
End Sub