【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，main_Tjcx_ypcx.frm，希望对大家有所帮助！

    VERSION 5.00
    Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
    Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
    Begin VB.Form main_Tjcx_ypcx 
       AutoRedraw      =   -1  'True
       BorderStyle     =   1  'Fixed Single
       Caption         =   "药品查询"
       ClientHeight    =   3930
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   8085
       Icon            =   "main_Tjcx_ypcx.frx":0000
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   3930
       ScaleWidth      =   8085
       StartUpPosition =   1  '所有者中心
       Begin VB.CommandButton CmdEnd 
          BackColor       =   &H00C0C0C0&
          Caption         =   "&E 退出"
          Height          =   390
          Left            =   6270
          Style           =   1  'Graphical
          TabIndex        =   1
          Top             =   3450
          Width           =   1755
       End
       Begin VB.CommandButton CmdFind 
          BackColor       =   &H00C0C0C0&
          Caption         =   "&S 查询"
          Height          =   390
          Left            =   4530
          Style           =   1  'Graphical
          TabIndex        =   0
          Top             =   3450
          Width           =   1755
       End
       Begin MSAdodcLib.Adodc Adodc1 
          Height          =   330
          Left            =   -1035
          Top             =   3105
          Visible         =   0   'False
          Width           =   1710
          _ExtentX        =   3016
          _ExtentY        =   582
          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.Frame Frame1 
          Height          =   870
          Left            =   30
          TabIndex        =   4
          Top             =   15
          Width           =   7965
          Begin VB.TextBox Text1 
             BackColor       =   &H00FFFFC0&
             Height          =   300
             Left            =   2040
             TabIndex        =   6
             Top             =   435
             Width           =   5820
          End
          Begin VB.ComboBox Combo1 
             BackColor       =   &H00FFFFC0&
             Height          =   300
             Left            =   90
             TabIndex        =   5
             Top             =   435
             Width           =   1920
          End
          Begin VB.Label Label2 
             BackStyle       =   0  'Transparent
             Caption         =   "选择查询字段         输入查询内容"
             Height          =   255
             Left            =   105
             TabIndex        =   8
             Top             =   180
             Width           =   4470
          End
       End
       Begin MSDataGridLib.DataGrid DataGrid2 
          Bindings        =   "main_Tjcx_ypcx.frx":000C
          Height          =   2415
          Left            =   60
          TabIndex        =   7
          Top             =   915
          Width           =   7995
          _ExtentX        =   14102
          _ExtentY        =   4260
          _Version        =   393216
          BackColor       =   12648384
          HeadLines       =   1
          RowHeight       =   15
          FormatLocked    =   -1  'True
          BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
             Name            =   "宋体"
             Size            =   9
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
             Name            =   "宋体"
             Size            =   9
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          ColumnCount     =   13
          BeginProperty Column00 
             DataField       =   "药品编码"
             Caption         =   "药品编码"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column01 
             DataField       =   "品名"
             Caption         =   "品名"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column02 
             DataField       =   "剂型"
             Caption         =   "剂型"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column03 
             DataField       =   "规格"
             Caption         =   "规格"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column04 
             DataField       =   "最小单位"
             Caption         =   "最小单位"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column05 
             DataField       =   "包装量"
             Caption         =   "包装量"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                Firs