frmmain.frm

还不错的一个东东 源码+毕业论文。还不错哦 欢迎来下

VERSION 5.00
Begin VB.Form FrmMain 
   Caption         =   "医药管理"
   ClientHeight    =   7275
   ClientLeft      =   60
   ClientTop       =   765
   ClientWidth     =   9300
   LinkTopic       =   "Form1"
   ScaleHeight     =   7275
   ScaleWidth      =   9300
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu A 
      Caption         =   "销售界面"
      Begin VB.Menu A1 
         Caption         =   "登录"
      End
      Begin VB.Menu A2 
         Caption         =   "药品查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu A3 
         Caption         =   "销售"
         Enabled         =   0   'False
      End
      Begin VB.Menu A4 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu B 
      Caption         =   "仓库管理界面"
      Begin VB.Menu B1 
         Caption         =   "登录"
      End
      Begin VB.Menu B2 
         Caption         =   "药品信息管理"
         Enabled         =   0   'False
      End
      Begin VB.Menu B4 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu C 
      Caption         =   "日常管理"
      Begin VB.Menu C1 
         Caption         =   "登录"
      End
      Begin VB.Menu C2 
         Caption         =   "药品信息查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu C3 
         Caption         =   "销售记录查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu C4 
         Caption         =   "供应商查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu C5 
         Caption         =   "用户信息管理"
         Enabled         =   0   'False
      End
      Begin VB.Menu C6 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu D 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub A1_Click()
登录.Show
登录.Adodc1.RecordSource = "select * from userinfor  where power='销售'"
登录.Adodc1.Refresh
登录.Option1.Value = True
登录.Option1.Visible = True
登录.Option2.Value = False
登录.Option2.Visible = False
登录.Option3.Value = False
登录.Option3.Visible = False
   A = 1: B = 0: C = 0
End Sub

Private Sub A2_Click()
前台查询.Show
End Sub

Private Sub A3_Click()
销售界面.Show
End Sub

Private Sub A4_Click()
   FrmMain.A2.Enabled = False
   FrmMain.A3.Enabled = False
   FrmMain.B2.Enabled = False
   FrmMain.C2.Enabled = False
FrmMain.C3.Enabled = False
FrmMain.C4.Enabled = False
FrmMain.C5.Enabled = False

   A = 1: B = 1: C = 1
End Sub

Private Sub B_Click()
药品信息.Command1.Visible = True
药品信息.Command2.Visible = True
药品信息.Command3.Visible = True
End Sub

Private Sub B1_Click()
登录.Show
登录.Adodc1.RecordSource = "select * from userinfor  where power='仓库管理'"
登录.Adodc1.Refresh
登录.Option2.Value = True
登录.Option2.Visible = True
登录.Option1.Value = False
登录.Option1.Visible = False
登录.Option3.Value = False
登录.Option3.Visible = False
   A = 0: B = 1: C = 0
End Sub

Private Sub B2_Click()
药品信息.Show
End Sub

Private Sub B4_Click()
FrmMain.A2.Enabled = False
FrmMain.A3.Enabled = False
FrmMain.B2.Enabled = False
FrmMain.C2.Enabled = False
FrmMain.C3.Enabled = False
FrmMain.C4.Enabled = False
FrmMain.C5.Enabled = False

   A = 1: B = 1: C = 1
End Sub

Private Sub C_Click()
药品信息.Command1.Visible = False
药品信息.Command2.Visible = False
药品信息.Command3.Visible = False
药品信息.Command4.Visible = False
End Sub

Private Sub C1_Click()
登录.Show
登录.Adodc1.RecordSource = "select * from userinfor  where power='日常管理'"
登录.Adodc1.Refresh
登录.Option3.Value = True
登录.Option3.Visible = True
登录.Option1.Value = False
登录.Option1.Visible = False
登录.Option2.Value = False
登录.Option2.Visible = False
   A = 0: B = 0: C = 1
End Sub

Private Sub C2_Click()
药品信息.Show
End Sub

Private Sub C3_Click()
销售信息记录.Show
End Sub

Private Sub C4_Click()
供应商信息.Show
End Sub

Private Sub C5_Click()
用户信息.Show
End Sub

Private Sub C6_Click()
FrmMain.A2.Enabled = False
FrmMain.A3.Enabled = False
FrmMain.B2.Enabled = False
FrmMain.C2.Enabled = False
FrmMain.C3.Enabled = False
FrmMain.C4.Enabled = False
FrmMain.C5.Enabled = False
   A = 1: B = 1: C = 1
End Sub

Private Sub D_Click()
End
End Sub