formmain.frm

轿车管理系统

VERSION 5.00
Begin VB.Form FormMain 
   Caption         =   "轿车销售管理系统"
   ClientHeight    =   10710
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   15240
   LinkTopic       =   "Form1"
   Picture         =   "FormMain.frx":0000
   ScaleHeight     =   10710
   ScaleWidth      =   15240
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有 违者必究"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   13080
      TabIndex        =   3
      Top             =   9960
      Width           =   1815
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "2008年12月"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   13440
      TabIndex        =   2
      Top             =   9480
      Width           =   1095
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "06计本1 胡国靖"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   13080
      TabIndex        =   1
      Top             =   9120
      Width           =   2295
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "南京晓庄学院信息技术学院"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   11760
      TabIndex        =   0
      Top             =   8640
      Width           =   2775
   End
   Begin VB.Menu MenuUser 
      Caption         =   "系统用户管理"
      Begin VB.Menu Menu_addUser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu Menu_edit_User 
         Caption         =   "查看/修改密码"
      End
   End
   Begin VB.Menu Menu_CarInfo 
      Caption         =   "轿车信息管理"
      Begin VB.Menu Menu_queCar 
         Caption         =   "查看轿车信息"
      End
      Begin VB.Menu Menu_edit_Car 
         Caption         =   "修改/删除轿车信息"
      End
      Begin VB.Menu Menu_addCar 
         Caption         =   "增加轿车信息"
      End
   End
   Begin VB.Menu Menu_CustomerInfo 
      Caption         =   "客户信息管理"
      Begin VB.Menu Menu_queCus 
         Caption         =   "查看客户信息"
      End
      Begin VB.Menu Menu_edit_Cus 
         Caption         =   "修改 /删除客户信息"
      End
      Begin VB.Menu Menu_addCus 
         Caption         =   "增加客户信息"
      End
   End
   Begin VB.Menu Menu_EmplyeeInfo 
      Caption         =   "员工信息管理"
      Begin VB.Menu Menu_queEmp 
         Caption         =   "查看员工信息"
      End
      Begin VB.Menu Menu_modiEmp 
         Caption         =   "修改/删除员工信息"
      End
      Begin VB.Menu Menu_addEmp 
         Caption         =   "增加员工信息"
      End
   End
   Begin VB.Menu Menu_Exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "FormMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public User As String
Public usertype As Integer

Private Sub Form_Load()
    Frm_login.Show 1
End Sub

Private Sub Menu_addCar_Click()
    Frm_addCar.Show
End Sub

Private Sub Menu_addCus_Click()
    Frm_addCus.Show
End Sub

Private Sub Menu_addEmp_Click()
    Frm_addEmp.Show
End Sub

Private Sub Menu_addUser_Click()
    Frm_addUser.Show
End Sub


Private Sub Menu_Exit_Click()
    Unload Me
End Sub

Private Sub Menu_edit_Car_Click()
    Frm_edit_Car.Show
End Sub

Private Sub Menu_edit_Cus_Click()
     Frm_edit_Cus.Show
End Sub

Private Sub Menu_edit_User_Click()
    Frm_edit_User.Show
End Sub


Private Sub Menu_modiEmp_Click()
    Frm_edit_Emp.Show
End Sub

Private Sub Menu_queCar_Click()
    Frm_queCar.Show
End Sub

Private Sub Menu_queCus_Click()
    Frm_queCus.Show
End Sub

Private Sub Menu_queEmp_Click()
    Frm_queEmp.Show
End Sub