frmmain.frm

汽车租赁管理系统,采用VB+SQL实现,包含源程序及数据库备份,完美运行,完整无缺.

VERSION 5.00
Begin VB.Form FrmMain 
   Caption         =   "汽车租赁管理系统"
   ClientHeight    =   8310
   ClientLeft      =   60
   ClientTop       =   -225
   ClientWidth     =   11880
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "FrmMain.frx":0000
   ScaleHeight     =   8310
   ScaleWidth      =   11880
   StartUpPosition =   2  '屏幕中心
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "汽车租赁管理系统"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   840
      Left            =   3120
      TabIndex        =   0
      Top             =   3480
      Width           =   6840
   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         =   "系统用户管理"
      Begin VB.Menu mn_Users 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mn_Pwd 
         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 Form_Load()
  '系统登录界面
  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 mn_Pwd_Click()
  With FrmUserEdit
  .OriUser = CurUser.UserName
  .txtUserName = CurUser.UserName
  .Modify = True
  .Show 1
  End With
End Sub

Private Sub mn_Users_Click()
  If CurUser.UserName = "Admin" Then
    FrmUserMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub