hzcx.~dfm

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

object F_hzcx: TF_hzcx
  Left = -14
  Top = 81
  Width = 791
  Height = 496
  Caption = '出库综合查询'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 783
    Height = 73
    Align = alTop
    TabOrder = 0
    object GB: TGroupBox
      Left = 410
      Top = 1
      Width = 172
      Height = 71
      Align = alClient
      Caption = '选择时间'
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      object Label1: TLabel
        Left = 6
        Top = 22
        Width = 64
        Height = 16
        Caption = '起始时间'
      end
      object Label2: TLabel
        Left = 6
        Top = 45
        Width = 64
        Height = 16
        Caption = '结束时间'
      end
    end
    object P2RG: TRadioGroup
      Left = 1
      Top = 1
      Width = 409
      Height = 71
      Align = alLeft
      BiDiMode = bdLeftToRight
      Caption = '选择领药单位'
      Color = clBtnFace
      Columns = 4
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ItemIndex = 0
      Items.Strings = (
        '所有单位'
        '门诊药局 '
        '病房药局'
        '其他科室')
      ParentBiDiMode = False
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      TabStop = True
      OnClick = P2RGClick
    end
    object DTP1: TDateTimePicker
      Left = 483
      Top = 19
      Width = 96
      Height = 24
      CalAlignment = dtaLeft
      Date = 36910.6402532407
      Time = 36910.6402532407
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
      OnChange = DTP1Change
    end
    object DTP2: TDateTimePicker
      Left = 483
      Top = 43
      Width = 96
      Height = 24
      CalAlignment = dtaLeft
      Date = 36910.6403116898
      Time = 36910.6403116898
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
      OnChange = DTP2Change
    end
    object RG: TRadioGroup
      Left = 582
      Top = 1
      Width = 200
      Height = 71
      Align = alRight
      BiDiMode = bdLeftToRight
      Caption = '选择'
      Color = clBtnFace
      Columns = 3
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ItemIndex = 0
      Items.Strings = (
        '全部'
        '出库'
        '返库')
      ParentBiDiMode = False
      ParentColor = False
      ParentFont = False
      TabOrder = 3
      TabStop = True
      OnClick = RGClick
    end
    object DBL: TDBLookupComboBox
      Left = 322
      Top = 27
      Width = 85
      Height = 28
      DataField = 'ks_name'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      KeyField = 'ks_id'
      ListField = 'ks_name'
      ListSource = DataSksid
      ParentFont = False
      TabOrder = 4
      Visible = False
      OnExit = DBLExit
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 73
    Width = 783
    Height = 212
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    BevelWidth = 3
    TabOrder = 1
    object Panel4: TPanel
      Left = 3
      Top = 3
      Width = 777
      Height = 47
      Align = alTop
      TabOrder = 2
      object GroupBox1: TGroupBox
        Left = 8
        Top = 1
        Width = 577
        Height = 41
        Caption = '药品选择'
        Font.Charset = GB2312_CHARSET
        Font.Color = clTeal
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Edit_ypsrm: TEdit
          Left = 96
          Top = 13
          Width = 121
          Height = 22
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnEnter = Edit_ypsrmEnter
          OnKeyPress = Edit_ypsrmKeyPress
        end
        object CheckBox_ypid: TCheckBox
          Left = 16
          Top = 16
          Width = 81
          Height = 17
          Caption = '选某品种'
          Font.Charset = GB2312_CHARSET
          Font.Color = clTeal
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnClick = CheckBox_ypidClick
        end
        object Edit1: TEdit
          Left = 218
          Top = 13
          Width = 73
          Height = 22
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
        end
        object Edit2: TEdit
          Left = 292
          Top = 13
          Width = 143
          Height = 22
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 3
        end
        object Edit3: TEdit
          Left = 436
          Top = 13
          Width = 100
          Height = 22
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 4
        end
        object Edit4: TEdit
          Left = 537
          Top = 13
          Width = 32
          Height = 22
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 5
        end
      end
    end
    object DBG1: TDBGrid
      Left = 3
      Top = 50
      Width = 777
      Height = 159
      Align = alClient
      DataSource = DataS1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -16
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = DBG1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'yp_id'
          Title.Alignment = taCenter
          Title.Caption = '药品序号'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yp_name'
          Title.Alignment = taCenter
          Title.Caption = '药品名称'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yp_spec'
          Title.Alignment = taCenter
          Title.Caption = '药品规格'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'yp_unit'
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'amou'
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'price'
          Title.Alignment = taCenter
          Title.Caption = '金额'
          Visible = True
        end>
    end
    object BitBtn1: TBitBtn
      Left = 600
      Top = 16
      Width = 75
      Height = 25
      Caption = '查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn1Click
    end
    object DBGrid1: TDBGrid
      Left = 320
      Top = 59
      Width = 416
      Height = 145
      Color = clAqua
      DataSource = DS_xyid_que
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Visible = False
      OnKeyPress = DBGrid1KeyPress
      Columns = <
        item
          Expanded = False
          FieldName = 'yp_id'
          Title.Alignment = taCenter
          Title.Caption = '药品编码'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yp_name'
          Title.Alignment = taCenter
          Title.Caption = '药品名称'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 169
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yp_spec'
          Title.Alignment = taCenter
          Title.Caption = '药品规格'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 113
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yp_unit'
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = '宋体'
          Title.Font.Style = []