recipeypqueryzym.~dfm

本文重点研究的是医院西药药房管理系统

        object Box1: TDBLookupComboBox
          Left = 29
          Top = 0
          Width = 77
          Height = 21
          KeyField = 'yp_classa'
          ListField = 'classa_name'
          ListSource = YpClassaSource1
          TabOrder = 0
        end
      end
    end
    object ToolBar4: TToolBar
      Left = 9
      Top = 31
      Width = 132
      Height = 25
      Caption = 'ToolBar3'
      Images = ImageList1
      TabOrder = 3
      object ToolButton2: TToolButton
        Left = 0
        Top = 2
        Hint = '清除'
        Caption = 'ToolButton2'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton2Click
      end
      object Panel6: TPanel
        Left = 23
        Top = 2
        Width = 105
        Height = 22
        TabOrder = 0
        object Label2: TLabel
          Left = 1
          Top = 2
          Width = 26
          Height = 16
          Caption = '功能'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Box2: TDBLookupComboBox
          Left = 27
          Top = -1
          Width = 77
          Height = 21
          KeyField = 'yp_class'
          ListField = 'class_name'
          ListSource = YpClassSource1
          TabOrder = 0
        end
      end
    end
    object ToolBar5: TToolBar
      Left = 9
      Top = 58
      Width = 613
      Height = 25
      ButtonHeight = 25
      ButtonWidth = 22
      Caption = 'ToolBar3'
      TabOrder = 4
      object Panel4: TPanel
        Left = 0
        Top = 2
        Width = 169
        Height = 25
        TabOrder = 0
        object RadioButton3: TRadioButton
          Left = 6
          Top = 2
          Width = 75
          Height = 17
          Caption = '所有药品'
          Checked = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
        end
        object RadioButton4: TRadioButton
          Left = 88
          Top = 2
          Width = 73
          Height = 17
          Caption = '制剂药品'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
      end
    end
    object ToolBar6: TToolBar
      Left = 9
      Top = 85
      Width = 613
      Height = 25
      Caption = 'ToolBar3'
      Images = ImageList1
      TabOrder = 5
      object ToolButton3: TToolButton
        Left = 0
        Top = 2
        Hint = '清除'
        Caption = 'ToolButton2'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton3Click
      end
      object Panel8: TPanel
        Left = 23
        Top = 2
        Width = 346
        Height = 22
        Caption = 'Panel5'
        TabOrder = 0
        object Label7: TLabel
          Left = 283
          Top = 1
          Width = 26
          Height = 16
          Caption = '单位'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 215
          Top = 1
          Width = 26
          Height = 16
          Caption = '规格'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 84
          Top = 1
          Width = 26
          Height = 16
          Caption = '品名'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 3
          Top = 1
          Width = 39
          Height = 16
          Caption = '输入码'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Edit4: TEdit
          Left = 309
          Top = 1
          Width = 32
          Height = 21
          Enabled = False
          TabOrder = 0
        end
        object Edit3: TEdit
          Left = 241
          Top = 1
          Width = 42
          Height = 21
          Enabled = False
          TabOrder = 1
        end
        object Edit2: TEdit
          Left = 110
          Top = 1
          Width = 105
          Height = 21
          Enabled = False
          TabOrder = 2
        end
        object Edit1: TEdit
          Left = 42
          Top = 1
          Width = 42
          Height = 21
          TabOrder = 3
          OnKeyPress = Edit1KeyPress
        end
        object Edit5: TSpinEdit
          Left = 352
          Top = 1
          Width = 1
          Height = 22
          AutoSize = False
          MaxValue = 0
          MinValue = 0
          TabOrder = 4
          Value = 0
          Visible = False
        end
      end
    end
  end
  object Panel7: TPanel
    Left = 0
    Top = 233
    Width = 630
    Height = 125
    Align = alClient
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel3'
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 622
      Height = 117
      Align = alClient
      DataSource = RecipeYpSource
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'qr_date'
          Title.Caption = '时间'
          Width = 58
          Visible = True
        end
        item
          Color = clNone
          Expanded = False
          FieldName = 'qr_man'
          Title.Caption = '确认人'
          Width = 56
          Visible = True
        end
        item
          Color = clNone
          Expanded = False
          FieldName = 'yp_amou'
          Title.Caption = '数量'
          Width = 60
          Visible = True
        end
        item
          Color = clNone
          Expanded = False
          FieldName = 'ls_price'
          Title.Caption = '售价'
          Width = 73
          Visible = True
        end
        item
          Color = clNone
          Expanded = False
          FieldName = 'yp_batch'
          Title.Caption = '批号'
          Visible = True
        end
        item
          Color = clNone
          Expanded = False
          FieldName = 'sc_fact'
          Title.Caption = '生产厂'
          Width = 102
          Visible = True
        end
        item
          Color = clNone
          Expanded = False
          FieldName = 'bz_id'
          Title.Caption = '病志号'
          Width = 58
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ys_name'
          Title.Caption = '医生'
          Width = 48
          Visible = True
        end
        item
          Color = clNone
          Expanded = False
          FieldName = 'hj_id'
          Title.Caption = '划价单号'
          Width = 55
          Visible = True
        end>
    end
  end
  object Panel12: TPanel
    Left = 83
    Top = 103
    Width = 292
    Height = 103
    TabOrder = 3
    Visible = False
    OnExit = Panel12Exit
    object Label9: TLabel
      Left = 4
      Top = 3
      Width = 131
      Height = 13
      AutoSize = False
      Caption = '药品名称'
      Color = clHighlight
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label17: TLabel
      Left = 136
      Top = 3
      Width = 87
      Height = 13
      AutoSize = False
      Caption = '规格'
      Color = clHighlight
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label18: TLabel
      Left = 224
      Top = 3
      Width = 65
      Height = 13
      AutoSize = False
      Caption = '单位'
      Color = clHighlight
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow