main.frm

vb下的数据库编程,医药销售管理系统

VERSION 5.00
Begin VB.Form main 
   BackColor       =   &H00FFC0C0&
   Caption         =   "medicine"
   ClientHeight    =   5295
   ClientLeft      =   225
   ClientTop       =   825
   ClientWidth     =   7980
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   15
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   5295
   ScaleWidth      =   7980
   StartUpPosition =   3  '窗口缺省
   Begin VB.Label Label1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "欢迎进入药品销售管理系统"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   840
      TabIndex        =   0
      Top             =   1200
      Width           =   6015
   End
   Begin VB.Menu m1 
      Caption         =   "基础信息管理查询"
      Begin VB.Menu m11 
         Caption         =   "查询药品信息"
      End
      Begin VB.Menu m12 
         Caption         =   "更改药品信息"
      End
      Begin VB.Menu m13 
         Caption         =   "添加药品信息"
      End
      Begin VB.Menu m14 
         Caption         =   "删除药品信息"
      End
   End
   Begin VB.Menu m2 
      Caption         =   "进货管理"
      Begin VB.Menu m21 
         Caption         =   "入库登记"
      End
      Begin VB.Menu m22 
         Caption         =   "入库查询"
      End
      Begin VB.Menu m23 
         Caption         =   "删除记录"
      End
   End
   Begin VB.Menu m3 
      Caption         =   "销售管理"
      Begin VB.Menu m31 
         Caption         =   "销售登记"
      End
      Begin VB.Menu m32 
         Caption         =   "销售查询"
      End
      Begin VB.Menu m33 
         Caption         =   "删除记录"
      End
      Begin VB.Menu m34 
         Caption         =   "退货处理"
      End
   End
   Begin VB.Menu m5 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Image1_Click()

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub m11_Click()
     f11.Show
End Sub

Private Sub m12_Click()
     f12.Show
End Sub

Private Sub m13_Click()
     f13.Show
End Sub

Private Sub m14_Click()
     f14.Show
End Sub

Private Sub m21_Click()
     f21.Show
End Sub

Private Sub m22_Click()
     f22.Show
End Sub

Private Sub m23_Click()
     f23.Show
End Sub

Private Sub m31_Click()
     f31.Show
End Sub

Private Sub m32_Click()
     f32.Show
End Sub

Private Sub m33_Click()
     f33.Show
End Sub

Private Sub m34_Click()
     f34.Show
End Sub

Private Sub m5_Click()
    Unload Me
End Sub