frmsystemmain.frm

仓储药房管理系统

VERSION 5.00
Begin VB.MDIForm SystemMain 
   BackColor       =   &H8000000C&
   Caption         =   "西华仓储药房管理系统"
   ClientHeight    =   3210
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   5790
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuFile 
      Caption         =   "文件"
      WindowList      =   -1  'True
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuSys 
      Caption         =   "系统管理"
      Begin VB.Menu mnuSysUsers 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mnuPassword 
         Caption         =   "修改口令"
      End
   End
   Begin VB.Menu mnuMedicine 
      Caption         =   "药品管理"
      Begin VB.Menu mnuData 
         Caption         =   "数据管理"
      End
      Begin VB.Menu mnuStock 
         Caption         =   "库存管理"
      End
   End
   Begin VB.Menu mnuSaleManage 
      Caption         =   "购销管理"
      Begin VB.Menu mnuForSale 
         Caption         =   "前台销售"
         Begin VB.Menu mnuCreate 
            Caption         =   "创建购物车"
         End
         Begin VB.Menu mnuSale 
            Caption         =   "药品销售"
         End
      End
      Begin VB.Menu mnuCharge 
         Caption         =   "结算管理"
      End
      Begin VB.Menu mnuGet 
         Caption         =   "取药管理"
      End
      Begin VB.Menu mnuPlan 
         Caption         =   "制订采购计划"
      End
      Begin VB.Menu mnuReport 
         Caption         =   "制订销售报表"
      End
   End
End
Attribute VB_Name = "SystemMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MDIForm_Load()
    Select Case CurrentUserStatus
        Case "1"    '当前用户为销售员
            mnuSysUsers.Visible = False
            mnuMedicine.Visible = False
            mnuGet.Visible = False
            mnuReport.Visible = False
            mnuPlan.Visible = False
            mnuCharge.Visible = False
        Case "2"    '当前用户为收银员
            mnuSysUsers.Visible = False
            mnuMedicine.Visible = False
            mnuGet.Visible = False
            mnuReport.Visible = False
            mnuPlan.Visible = False
            mnuForSale.Visible = False
        Case "3"    '当前用户为取药员
            mnuSysUsers.Visible = False
            mnuMedicine.Visible = False
            mnuCharge.Visible = False
            mnuReport.Visible = False
            mnuPlan.Visible = False
            mnuForSale.Visible = False
        Case "4"    '当前用户为采购员
            mnuSysUsers.Visible = False
            mnuMedicine.Visible = False
            mnuCharge.Visible = False
            mnuReport.Visible = False
            mnuGet.Visible = False
            mnuForSale.Visible = False
    End Select
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("你选择了关闭药房管理系统，是否继续？", _
        vbYesNo + vbInformation, "西华仓储药房管理系统") = vbYes Then
        '判断在所有子窗体关闭之后才关闭系统主窗体
        If Not Me.ActiveForm Is Nothing Then
            MsgBox "请先关闭打开的子窗体！", vbCritical, "西华仓储药房管理系统"
            Cancel = 1
        End If
    Else
        Cancel = 1
    End If
End Sub

Private Sub mnuExit_Click()
    Unload Me       '关闭系统主窗体
End Sub
Private Sub mnuCharge_Click()
    SaleCharging.Show
    SaleCharging.SetFocus
End Sub

Private Sub mnuCreate_Click()
    AddShopingCar.Show
    AddShopingCar.SetFocus
End Sub

Private Sub mnuData_Click()
    DrugInfoManage.Show
    DrugInfoManage.SetFocus
End Sub

Private Sub mnuGet_Click()
    GetMedicine.Show
    GetMedicine.SetFocus
End Sub

Private Sub mnuPassword_Click()
    ChangePassword.Show
    ChangePassword.SetFocus
End Sub

Private Sub mnuPlan_Click()
    PurchasePlan.Show
    PurchasePlan.SetFocus
End Sub

Private Sub mnuReport_Click()
    SalesReport.Show
    SalesReport.SetFocus
End Sub

Private Sub mnuSale_Click()
    DrugSale.Show
    DrugSale.SetFocus
End Sub

Private Sub mnuStock_Click()
    StockManage.Show
    StockManage.SetFocus
End Sub

Private Sub mnuSysUsers_Click()
    SysUserManage.Show
    SysUserManage.SetFocus
End Sub