formmain.frm

通过vb控件制作界面

VERSION 5.00
Begin VB.Form FormMain 
   Caption         =   "轿车销售管理系统"
   ClientHeight    =   4395
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7020
   LinkTopic       =   "Form1"
   ScaleHeight     =   4395
   ScaleWidth      =   7020
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Height          =   4455
      Left            =   0
      Picture         =   "FormMain.frx":0000
      ScaleHeight     =   4395
      ScaleWidth      =   7035
      TabIndex        =   0
      Top             =   0
      Width           =   7095
   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