frmmain.frm

一个简单的汽车销售管理数据库系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   7470
   ClientLeft      =   165
   ClientTop       =   870
   ClientWidth     =   9765
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMain.frx":319A
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   7215
      Width           =   9765
      _ExtentX        =   17224
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   6174
            MinWidth        =   6174
            Text            =   "          工大英才制作室制作"
            TextSave        =   "          工大英才制作室制作"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5821
            MinWidth        =   5821
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   4410
            MinWidth        =   4410
            Text            =   "  "
            TextSave        =   "  "
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   4410
            MinWidth        =   4410
            Text            =   "  "
            TextSave        =   "  "
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   6174
            MinWidth        =   6174
            Text            =   "   www.mingchexiaoshou.com.cn"
            TextSave        =   "   www.mingchexiaoshou.com.cn"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mn1 
      Caption         =   "销售管理(&S)"
      Begin VB.Menu mnsale 
         Caption         =   "车辆销售"
      End
      Begin VB.Menu mncarsell_find 
         Caption         =   "销售查询"
      End
   End
   Begin VB.Menu mn2 
      Caption         =   "库存管理(&W)"
      Begin VB.Menu mnin 
         Caption         =   "车辆入库"
      End
      Begin VB.Menu mnwarehouse_find 
         Caption         =   "库存查询"
      End
   End
   Begin VB.Menu mn3 
      Caption         =   "查询统计(&U)"
      Begin VB.Menu mncarsell_find1 
         Caption         =   "销售查询"
      End
      Begin VB.Menu F1 
         Caption         =   "-"
      End
      Begin VB.Menu mnsellday 
         Caption         =   "销售日报表"
      End
      Begin VB.Menu mnsellmonth 
         Caption         =   "销售月报表"
      End
   End
   Begin VB.Menu mn5 
      Caption         =   "基础信息管理(&B)"
      Begin VB.Menu mncar_style 
         Caption         =   "车型信息"
      End
      Begin VB.Menu mncustomer 
         Caption         =   "客户信息"
      End
   End
   Begin VB.Menu mn6 
      Caption         =   "系统设置"
      Begin VB.Menu mnoperator 
         Caption         =   "操作员管理"
      End
      Begin VB.Menu mnpassword 
         Caption         =   "口令设置"
      End
   End
   Begin VB.Menu mnend 
      Caption         =   "退出系统(&Q)"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Activate()
StatusBar1.Panels.Item(3).Text = Format(Now, "yyyy年mm月dd日")
StatusBar1.Panels.Item(4).Text = Time
End Sub

Private Sub mncar_style_Click()
Cars_information.Height = 8610
Cars_information.Width = 10005
Cars_information.Show
End Sub

Private Sub mncarsell_find_Click()
Sell_find.Height = 7740
Sell_find.Width = 9840
Sell_find.Show
End Sub

Private Sub mncarsell_find1_Click()
Sell_find.Height = 7740
Sell_find.Width = 9840
Sell_find.Show
End Sub

Private Sub mncustomer_Click()
Customer_information.Height = 7365
Customer_information.Width = 8925
Customer_information.Show
End Sub

Private Sub mnend_Click()
End
End Sub

Private Sub mnin_Click()
Cars_warehouse.Height = 8505
Cars_warehouse.Width = 9930
Cars_warehouse.Show
End Sub

Private Sub mnoperator_Click()
Admin.Show
Admin.Width = 6225
Admin.Height = 5340
End Sub

Private Sub mnpassword_Click()
Password.Show
Password.Width = 6225
Password.Height = 4665
End Sub

Private Sub mnsale_Click()
Cars_sell.Height = 8820
Cars_sell.Width = 9660
Cars_sell.Show
End Sub

Private Sub mnsellday_Click()
Sell_day.Height = 7080
Sell_day.Width = 9840
Sell_day.Show
End Sub

Private Sub mnsellmonth_Click()
Sell_month.Height = 7080
Sell_month.Width = 9840
Sell_month.Show
End Sub

Private Sub mnwarehouse_Click()
Warehouse_all.Height = 7080
Warehouse_all.Width = 9840
Warehouse_all.Show
End Sub

Private Sub mnwarehouse_find_Click()
Warehouse_find.Height = 6900
Warehouse_find.Width = 9840
Warehouse_find.Show
End Sub