form1.frm

本系统为汽车销售系统

VERSION 5.00
Begin VB.Form frmmain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "汽车销售管理系统"
   ClientHeight    =   7485
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   10545
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   7485
   ScaleWidth      =   10545
   StartUpPosition =   1  '所有者中心
   Begin VB.Label Label1 
      BackColor       =   &H80000018&
      Caption         =   "退 出 系 统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   8400
      TabIndex        =   0
      Top             =   6720
      Width           =   1815
   End
   Begin VB.Menu mn_sys 
      Caption         =   "系统设置"
      Begin VB.Menu mn_exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mn_clienti 
      Caption         =   "课户"
      Begin VB.Menu mn_client 
         Caption         =   "客户管理"
      End
   End
   Begin VB.Menu mn_store 
      Caption         =   "仓库"
      Begin VB.Menu mn_stocks 
         Caption         =   "仓库管理"
      End
   End
   Begin VB.Menu mn_user 
      Caption         =   "用户"
      Begin VB.Menu mn_users 
         Caption         =   "用户管理"
      End
   End
   Begin VB.Menu mn_product 
      Caption         =   "产品管理"
      Begin VB.Menu mn_proinfo 
         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 Label1_Click()
End
End Sub

Private Sub mn_client_Click()
frmcltman.Show
End Sub

Private Sub mn_exit_Click()
DBapi_Disconnect
End
End Sub




Private Sub mn_proinfo_Click()
frmproman.Show
End Sub

Private Sub mn_stocks_Click()
frmstoreman.Show
End Sub

Private Sub mn_users_Click()
frmuserman.Show
End Sub