frmmain.frm

不错的药房管理系统

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "药房管理系统"
   ClientHeight    =   8190
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   12915
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   12
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   Picture         =   "frmMain.frx":0000
   ScaleHeight     =   10710
   ScaleWidth      =   15240
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command1 
      Caption         =   "初始设置"
      Height          =   615
      Left            =   12600
      TabIndex        =   10
      Top             =   4680
      Width           =   1815
   End
   Begin VB.CommandButton cmdReturn 
      Caption         =   "退货"
      Height          =   600
      Left            =   12600
      TabIndex        =   9
      Top             =   7920
      Width           =   1800
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Left            =   12600
      TabIndex        =   8
      Top             =   9150
      Width           =   1800
   End
   Begin VB.CommandButton cmdMedicao 
      Caption         =   "药品维护"
      Height          =   600
      Left            =   9990
      TabIndex        =   6
      Top             =   4680
      Width           =   1800
   End
   Begin VB.CommandButton cmdOperator 
      Caption         =   "操作员维护"
      Height          =   600
      Left            =   9990
      TabIndex        =   5
      Top             =   9150
      Width           =   1800
   End
   Begin VB.CommandButton cmdCustomer 
      Caption         =   "客户维护"
      Height          =   600
      Left            =   12600
      TabIndex        =   4
      Top             =   6840
      Width           =   1800
   End
   Begin VB.CommandButton cmdSuplyer 
      Caption         =   "供应商维护"
      Height          =   600
      Left            =   9960
      TabIndex        =   3
      Top             =   6840
      Width           =   1800
   End
   Begin VB.CommandButton cmdSale 
      Caption         =   "销售管理"
      Height          =   600
      Left            =   12600
      TabIndex        =   2
      Top             =   5640
      Width           =   1800
   End
   Begin VB.CommandButton cmdJY 
      Caption         =   "进药管理"
      Height          =   600
      Left            =   9960
      TabIndex        =   1
      Top             =   5640
      Width           =   1800
   End
   Begin VB.CommandButton cmdKC 
      Caption         =   "库存管理"
      Height          =   600
      Left            =   9960
      TabIndex        =   0
      Top             =   7920
      Width           =   1755
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   " 药房管理系统"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   54.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1185
      Left            =   1170
      TabIndex        =   7
      Top             =   1380
      Width           =   7455
   End
   Begin VB.Menu system 
      Caption         =   "系统"
      Begin VB.Menu load 
         Caption         =   "登录"
         Shortcut        =   ^A
      End
      Begin VB.Menu operator 
         Caption         =   "操作员管理"
         Shortcut        =   ^B
      End
      Begin VB.Menu exit 
         Caption         =   "退出系统"
         Shortcut        =   ^Z
      End
   End
   Begin VB.Menu work 
      Caption         =   "业务"
      Begin VB.Menu enter 
         Caption         =   "进药"
         Shortcut        =   ^C
      End
      Begin VB.Menu sale 
         Caption         =   "销售"
         Shortcut        =   ^D
      End
   End
   Begin VB.Menu protect 
      Caption         =   "资料维护"
      Begin VB.Menu supplyer 
         Caption         =   "供应商维护"
         Shortcut        =   ^E
      End
      Begin VB.Menu customer 
         Caption         =   "客户资料维护"
         Shortcut        =   ^F
      End
      Begin VB.Menu medicine 
         Caption         =   "药品维护"
         Shortcut        =   ^G
      End
   End
   Begin VB.Menu relate 
      Caption         =   "关于"
      Begin VB.Menu help 
         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 cmdCustomer_Click()
    frmCustomer.Show vbModal
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdJY_Click()
    frmJY.Show vbModal
End Sub

Private Sub cmdKC_Click()
    frmRk.Show vbModal
End Sub

Private Sub cmdMedical_Click()
   frmmedical.Show vbModal
End Sub

Private Sub cmdMedicao_Click()
    frmmedical.Show vbModal
End Sub

Private Sub cmdOperator_Click()
    frmOperator.Show vbModal
End Sub

Private Sub cmdReturn_Click()
frmReturn.Show vbModal
End Sub

Private Sub cmdSale_Click()
    frmSale.Show vbModal
End Sub

Private Sub cmdSuplyer_Click()
    frmSuplyer.Show vbModal
End Sub

Private Sub Command1_Click()
   frmSystem.Show vbModal
End Sub