mainform.frm

药品管理系统,药品的进销,药品的过期以及药品系统的备分

VERSION 5.00
Begin VB.Form MainForm 
   Caption         =   "欢迎使用药品进销存管理系统"
   ClientHeight    =   5430
   ClientLeft      =   4080
   ClientTop       =   3720
   ClientWidth     =   8835
   LinkTopic       =   "Form1"
   ScaleHeight     =   5430
   ScaleWidth      =   8835
   Begin VB.Menu login 
      Caption         =   "用户管理"
      Begin VB.Menu newusers 
         Caption         =   "添加用户"
      End
      Begin VB.Menu changepass 
         Caption         =   "修改用户"
      End
      Begin VB.Menu deluser 
         Caption         =   "删除用户"
      End
   End
   Begin VB.Menu medic 
      Caption         =   "药品管理"
      Begin VB.Menu addmedic 
         Caption         =   "添加药品信息"
      End
      Begin VB.Menu changemedic 
         Caption         =   "修改药品信息"
      End
      Begin VB.Menu delmedic 
         Caption         =   "删除药品信息"
      End
   End
   Begin VB.Menu customer 
      Caption         =   "会员管理"
      Begin VB.Menu addcustomer 
         Caption         =   "添加会员"
      End
      Begin VB.Menu delcustomer 
         Caption         =   "删除会员"
      End
      Begin VB.Menu changecustomer 
         Caption         =   "修改会员"
      End
   End
   Begin VB.Menu sell 
      Caption         =   "药品销售"
      Begin VB.Menu medicsell 
         Caption         =   "销售药品"
      End
   End
   Begin VB.Menu system 
      Caption         =   "系统管理"
      Begin VB.Menu datesave 
         Caption         =   "数据备份"
      End
      Begin VB.Menu dateresult 
         Caption         =   "数据恢复"
      End
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub addcustomer_Click()   '添加会员
   Load addcustomer
   addcustomer.Show
   MainForm.Enabled = False
End Sub

Private Sub addmedic_Click()   '添加药品信息
   Load addmedic
   addmedic.Show
   MainForm.Enabled = False
End Sub


Private Sub changecustomer_Click()   '修改会员
   Load changecustomer
   changecustomer.Show
   MainForm.Enabled = False
End Sub

Private Sub changemedic_Click()   '修改药品信息
   Load changemedic
   changemedic.Show
   MainForm.Enabled = False
End Sub

Private Sub changepass_Click()   '修改用户
   Load changepass
   changepass.Show
   MainForm.Enabled = False
End Sub

Private Sub dateresult_Click()  '恢复
   Load dateresult
   dateresult.Show
   MainForm.Enabled = False
End Sub

Private Sub datesave_Click()    '备份
   Load datesave
   datesave.Show
   MainForm.Enabled = False
End Sub

Private Sub delcustomer_Click()   '删除会员
   Load delcustomer
   delcustomer.Show
   MainForm.Enabled = False
End Sub

Private Sub delmedic_Click()     '删除药品信息
   Load delmedic
   delmedic.Show
   MainForm.Enabled = False
End Sub

Private Sub deluser_Click()   '删除用户
  Load deluser
  deluser.Show
  MainForm.Enabled = False
End Sub

Private Sub medicsell_Click()
   Load medicsell
   medicsell.Show
   MainForm.Enabled = False
End Sub

Private Sub newusers_Click()    '添加新用户
  Load newusers
  newusers.Show
  MainForm.Enabled = False
End Sub