mdiform1.frm

能够实现登陆

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "药品管理系统"
   ClientHeight    =   3495
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   6630
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuBaseInfo 
      Caption         =   "药品基本信息(&B)"
      Begin VB.Menu mnuCourInfo 
         Caption         =   "药品名称信息(&C)"
      End
      Begin VB.Menu mnuStuInfo 
         Caption         =   "药品库存信息(&S)"
      End
      Begin VB.Menu mnuUserInfo 
         Caption         =   "药品价格信息(&U)"
      End
   End
   Begin VB.Menu mnuStuScore 
      Caption         =   "药品查询统计(&S)"
      Begin VB.Menu mnuEditStuScore 
         Caption         =   "用户操作日志(&S)"
      End
      Begin VB.Menu mnuQueryStuScore 
         Caption         =   "出入库管理(&Q)"
      End
   End
   Begin VB.Menu mnuExit 
      Caption         =   "退出(&X)"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub mnuCourInfo_Click()
frmCourInfo.Show
End Sub
Private Sub mnuEditStuScore_Click()
frmUserInfo.Show
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub mnuLogin_Click()
frmLogin.Show
End Sub
Private Sub mnuQueryStuScore_Click()
frmQueryStuScore.Show
End Sub
Private Sub mnuStuInfo_Click()
frmStuInfo.Show
End Sub
Private Sub mnuUserInfo_Click()
frmStuScore.Show
End Sub