【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-Main_Ypwh.frm，希望本篇文章对您学习有所帮助。

    VERSION 5.00
    Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
    Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
    Begin VB.Form Main_Ypwh 
       BackColor       =   &H00C0EAFC&
       Caption         =   "数据维护-药品维护"
       ClientHeight    =   5220
       ClientLeft      =   2220
       ClientTop       =   2460
       ClientWidth     =   10395
       Icon            =   "Main_Ypwh.frx":0000
       LinkTopic       =   "Form1"
       ScaleHeight     =   5220
       ScaleWidth      =   10395
       StartUpPosition =   1  '所有者中心
       Begin VB.CommandButton Command4 
          Caption         =   "(&P)打印"
          Height          =   375
          Left            =   5640
          TabIndex        =   12
          Top             =   4635
          Width           =   1380
       End
       Begin VB.CommandButton CmdDelete 
          Caption         =   "(&D)删除"
          Height          =   375
          Left            =   4275
          TabIndex        =   1
          Top             =   4635
          Width           =   1380
       End
       Begin VB.CommandButton CmdModify 
          Caption         =   "(&M)修改"
          Height          =   375
          Left            =   2910
          TabIndex        =   3
          Top             =   4635
          Width           =   1380
       End
       Begin VB.CommandButton Command3 
          Caption         =   "(&A)增加库存"
          Height          =   375
          Left            =   1545
          TabIndex        =   11
          Top             =   4635
          Width           =   1380
       End
       Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
          Bindings        =   "Main_Ypwh.frx":000C
          Height          =   2625
          Left            =   150
          TabIndex        =   4
          Top             =   1770
          Width           =   10095
          _ExtentX        =   17806
          _ExtentY        =   4630
          _Version        =   393216
          BackColor       =   12643068
          ForeColor       =   0
          Cols            =   14
          FixedCols       =   0
          BackColorFixed  =   8421376
          ForeColorFixed  =   16777215
          BackColorSel    =   8388608
          BackColorBkg    =   12643068
          GridColor       =   12632256
          SelectionMode   =   1
          _NumberOfBands  =   1
          _Band(0).Cols   =   14
          _Band(0)._NumMapCols=   14
          _Band(0)._MapCol(0)._Name=   "药品编码"
          _Band(0)._MapCol(0)._RSIndex=   0
          _Band(0)._MapCol(1)._Name=   "品名"
          _Band(0)._MapCol(1)._RSIndex=   1
          _Band(0)._MapCol(2)._Name=   "拼音码"
          _Band(0)._MapCol(2)._RSIndex=   2
          _Band(0)._MapCol(3)._Name=   "剂型"
          _Band(0)._MapCol(3)._RSIndex=   3
          _Band(0)._MapCol(4)._Name=   "规格"
          _Band(0)._MapCol(4)._RSIndex=   4
          _Band(0)._MapCol(5)._Name=   "最小单位"
          _Band(0)._MapCol(5)._RSIndex=   5
          _Band(0)._MapCol(6)._Name=   "包装量"
          _Band(0)._MapCol(6)._RSIndex=   6
          _Band(0)._MapCol(7)._Name=   "包装单位"
          _Band(0)._MapCol(7)._RSIndex=   7
          _Band(0)._MapCol(8)._Name=   "零售价"
          _Band(0)._MapCol(8)._RSIndex=   8
          _Band(0)._MapCol(8)._Alignment=   7
          _Band(0)._MapCol(9)._Name=   "库存数量"
          _Band(0)._MapCol(9)._RSIndex=   9
          _Band(0)._MapCol(10)._Name=   "自费类型"
          _Band(0)._MapCol(10)._RSIndex=   10
          _Band(0)._MapCol(11)._Name=   "类别"
          _Band(0)._MapCol(11)._RSIndex=   11
          _Band(0)._MapCol(12)._Name=   "毒麻标志"
          _Band(0)._MapCol(12)._RSIndex=   12
          _Band(0)._MapCol(13)._Name=   "生产企业"
          _Band(0)._MapCol(13)._RSIndex=   13
       End
       Begin MSAdodcLib.Adodc Adodc1 
          Height          =   345
          Left            =   -285
          Top             =   2280
          Visible         =   0   'False
          Width           =   1200
          _ExtentX        =   2117
          _ExtentY        =   609
          ConnectMode     =   0
          CursorLocation  =   3
          IsolationLevel  =   -1
          ConnectionTimeout=   15
          CommandTimeout  =   30
          CursorType      =   3
          LockType        =   3
          CommandType     =   1
          CursorOptions   =   0
          CacheSize       =   50
          MaxRecords      =   0
          BOFAction       =   0
          EOFAction       =   0
          ConnectStringType=   1
          Appearance      =   1
          BackColor       =   -2147483643
          ForeColor       =   -2147483640
          Orientation     =   0
          Enabled         =   -1
          Connect         =   "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=MZJJSFXT"
          OLEDBString     =   "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=MZJJSFXT"
          OLEDBFile       =   ""
          DataSourceName  =   ""
          OtherAttributes =   ""
          UserName        =   ""
          Password        =   ""
          RecordSource    =   "select * from 药品信息表"
          Caption         =   "Adodc1"
          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
             Name            =   "宋体"
             Size            =   9
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          _Version        =   393216
       End
       Begin VB.CommandButton CmdEnd 
          Caption         =   "(&E)返回"
          Height          =   375
          Left            =   8085
          TabIndex        =   2
          Top             =   4635
          Width           =   2160
       End
       Begin VB.CommandButton CmdAdd 
          Caption         =   "(&A)新增药品"
          Height          =   375
          Left            =   180
          TabIndex        =   0
          Top             =   4635
          Width           =   1380
       End
       Begin VB.Frame Frame1 
          BackColor       =   &H00E3D9E6&
          Height          =   810
          Left            =   150
          TabIndex        =   7
          Top             =   930
          Width           =   10095
          Begin VB.CommandButton Command2 
             Caption         =   "(&F)查询"
             Height          =   375
             Left            =   8520
             TabIndex        =   10
             Top             =   285
             Width           =   1380
          End
          Begin VB.TextBox Text1 
             Height          =   345
             Left            =   2235
             TabIndex        =   9
             Text            =   "Text1"
             Top             =   285
             Width           =   6090
          End
          Begin VB.ComboBox Combo1 
             Height          =   300
             Left            =   150
             TabIndex        =   8
             Text            =   "Combo1"
             Top             =   285
             Width           =   2070
          End
       End
       Begin VB.Label Label1 
          Appearance      =   0  'Flat
          BackColor       =   &H00CFFEE2&
          BorderStyle     =   1  'Fixed Single
          Caption         =   "     药品维护"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   18
             Charset         =   134
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          ForeColor       =   &H00008000&
          Height          =   450
          Left            =   3420
          TabIndex        =   5
          Top             =   210
          Width           =   3540
       End
       Begin VB.Label Label2 
          Appe