frmmain.frm

电脑销售管理系统是典型的信息管理系统（MIS）

VERSION 5.00
Begin VB.Form FrmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "电脑销售管理系统"
   ClientHeight    =   3090
   ClientLeft      =   45
   ClientTop       =   615
   ClientWidth     =   5355
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3090
   ScaleWidth      =   5355
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu mn_sys 
      Caption         =   "系统设置"
      Begin VB.Menu mn_client 
         Caption         =   "客户管理"
      End
      Begin VB.Menu mn_stocks 
         Caption         =   "仓库管理"
      End
      Begin VB.Menu mn_users 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mn_exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mn_product 
      Caption         =   "产品管理"
      Begin VB.Menu mn_protype 
         Caption         =   "产品类目"
      End
      Begin VB.Menu mn_proinfo 
         Caption         =   "产品信息"
      End
   End
   Begin VB.Menu mn_operate 
      Caption         =   "库存操作"
      Begin VB.Menu mn_in 
         Caption         =   "入库操作"
      End
      Begin VB.Menu mn_out 
         Caption         =   "出库操作"
      End
      Begin VB.Menu mn_check 
         Caption         =   "盘点"
      End
   End
   Begin VB.Menu mn_alarm 
      Caption         =   "库存警示"
      Begin VB.Menu mn_num 
         Caption         =   "数量报警"
      End
      Begin VB.Menu mn_invalid 
         Caption         =   "失效报警"
      End
   End
   Begin VB.Menu mn_static 
      Caption         =   "统计查询"
      Begin VB.Menu mn_report1 
         Caption         =   "产品出入库统计表"
      End
      Begin VB.Menu mn_report2 
         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 mn_Check_Click()
  FrmCheckMan.Show 1
End Sub

Private Sub mn_client_Click()
  frmcltman.Show 1
End Sub

Private Sub mn_exit_Click()
  End
End Sub

Private Sub mn_In_Click()
  frmstoreinman.Show 1
End Sub

Private Sub mn_Invalid_Click()
  frmvalidalarm.Show 1
End Sub

Private Sub mn_num_Click()
  frmnumalarm.Show 1
End Sub

Private Sub mn_Out_Click()
  frmtakeoutman.Show 1
End Sub

Private Sub mn_ProInfo_Click()
  frmproman.Show 1
End Sub

Private Sub mn_ProType_Click()
  frmprotypeman.Show 1
End Sub

Private Sub mn_Report1_Click()
  Frm_Report1.Show 1
End Sub

Private Sub mn_Report2_Click()
  Frm_Report2.Show 1
End Sub

Private Sub mn_stocks_Click()
  frmstoreman.Show 1
End Sub

Private Sub mn_users_Click()
  If Format(CurUser.UserName, "<") = "admin" Then
    FrmUserMan.Show 1
  Else
    With FrmUserEdit
    .OriUser = CurUser.UserName
    .txtUserName = CurUser.UserName
    .txtPass = CurUser.Pwd
    .txtPass2 = CurUser.Pwd
    .txtEname = CurUser.EmpName
    .txtEname.Enabled = False
    .Modify = True
    .Show 1
    End With
  End If
End Sub