zyinquerym.~dfm

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

          TabOrder = 3
          OnKeyPress = Edit1KeyPress
        end
        object Edit5: TSpinEdit
          Left = 354
          Top = 1
          Width = 30
          Height = 22
          AutoSize = False
          MaxValue = 0
          MinValue = 0
          TabOrder = 4
          Value = 0
          Visible = False
        end
      end
    end
    object ToolBar4: TToolBar
      Left = 378
      Top = 2
      Width = 244
      Height = 25
      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 = 107
        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 = YpClassSource
          TabOrder = 0
        end
      end
    end
  end
  object Panel12: TPanel
    Left = 139
    Top = 55
    Width = 292
    Height = 103
    TabOrder = 1
    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
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object ListBox2: TDBLookupListBox
      Left = 2
      Top = 17
      Width = 288
      Height = 84
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      KeyField = 'yp_id'
      ListField = 'yp_name;yp_spec;yp_unit'
      ListSource = YpSource2
      ParentFont = False
      TabOrder = 0
      OnKeyPress = ListBox2KeyPress
    end
  end
  object ImageList1: TImageList
    Left = 472
    Top = 64
    Bitmap = {
      494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000F75E0000F75E0000F75E0000
      F75E0000F75E0000F75E0000F75E0000F75E0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F75EEF3DEF3DEF3DEF3DEF3DEF3D
      EF3DEF3DEF3D0000000000000000F75E00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000F75EEF3DEF3DEF3DEF3DEF3D
      EF3DEF3D0000E07F007CE07F00000000F75E0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F75E0000F75E0000F75EEF3DEF3D
      EF3D0000E07F007CE07F007CE07F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000F75E0000F75E0000F75E0000
      00000000007CE07F007CE07F007C0000F75E0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F75E0000F75E0000F75E00000000
      000000000000007CE07F007CE07F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000F75E0000F75E000000000000
      007C000000000000007CE07F00000000F75E0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F75E0000F75E00000000007C0000
      0000007C00000000000000000000F75E00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000F75E0000000000000000007C
      00000000007C000000000000F75E0000F75E0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F75E00000000E07F000000000000
      007C0000000000000000F75E0000F75E00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000E07FE07FE07F00000000
      0000007C00000000F75E0000F75E0000F75E231DBC2B2927A427B729BC29B929
      B4222D2E3328AF27AC191217252C250000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F75E0000E07FE07F0000E07F0000
      000000000000F75E0000F75E0000F75E00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000880000000000F75E00000000E07FE07FE07F
      00000000F75E0000F75E0000F75E0000F75EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F75E0000F75E0000E07FE07F0000
      0000F75E0000F75E0000F75E0000F75E0000F75EFF7FF75EFF7FF75EEF3DEF3D
      EF3D0000E07F007CE07F007CE07F0000FF7FFF7FF75EEF3DEF3DEF3DEF3DEF3D
      EF3DEF3D0000E07F007CE07F0000FF7FF75EF75EEF3DEF3DEF3DEF3DEF3DEF3D
      EF3DEF3DEF3D000000000000FF7FF75EFF7F0000F75E0000F75E000000000000
      F75E0000F75E0000F75E0000F75E0000F75EF75EFF7FF75EFF7F0000007CFF7F
      FF7F007CFF7FFF7F00000000FF7FF75EFF7FFF7FF75EFF7FF75EFF7F0000FF7F
      007CFF7FFF7F0000007CE07F0000FF7FF75EF75EFF7FF75EFF7FF75EFF7F0000
      FF7FFF7F0000007CE07F007CE07F0000FF7F424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFE0FF0000FFFFAAAA0000E0FFE0FF
      0005F7BDFFFFF7BD8002F7BDFFFFF7BD5001E0FFE0FF0000AA00F7BD00000000
      5581FFFFF7BDFFFFAAC2FFFFF7BDFFFF5365E0FF0000FFFFADAAFFFFF7BD0000
      46D5F7BDFFFFF7BD832AF7BDFFFFF7BD01550000FFFFF7BD80AAF7BDFFFFF7BD
      4155000000000000A2AA6E200000000000000000000000000000000000000000
      000000000000}
  end
  object YpQuery2: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_YpQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@YpCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = ''
      end>
    Left = 184
    Top = 304
    object StringField4: TStringField
      DisplayWidth = 18
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object StringField8: TStringField
      DisplayWidth = 12
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object StringField9: TStringField
      DisplayWidth = 4
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object SmallintField1: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
  end
  object YpSource2: TDataSource
    DataSet = YpQuery2
    Left = 240
    Top = 302
  end
  object YpClassQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_class,'
      '       class_name'
      'from XyClass')
    Left = 312
    Top = 300
  end
  object YpClassSource: TDataSource
    DataSet = YpClassQuery
    Left = 384
    Top = 299
  end
  object YpClassaQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_classa,'
      '       classa_name'
      'from XyClassa')
    Left = 24
    Top = 300
  end
  object YpClassaSource: TDataSource
    DataSet = YpClassaQuery
    Left = 104
    Top = 299
  end
  object XyMzInHzQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_XyZyInHz;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@Sdate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@Edate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@MinYpClass'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MaxYpClass'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MinYpClassa'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MaxYpClassa'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MinYpId'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MaxYpId'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end>
    Left = 46
    Top = 232
    object XyMzInHzQueryypid: TSmallintField
      FieldName = 'ypid'
      ReadOnly = True
    end
    object XyMzInHzQueryypname: TStringField
      FieldName = 'ypname'
      ReadOnly = True
      Size = 24
    end
    object XyMzInHzQueryypspec: TStringField
      FieldName = 'ypspec'
      FixedChar = True
    end
    object XyMzInHzQueryypunit: TStringField
      FieldName = 'ypunit'
      FixedChar = True
      Size = 4
    end
    object XyMzInHzQueryinamou: TIntegerField
      FieldName = 'inamou'
      ReadOnly = True
    end
    object XyMzInHzQueryinmoney: TBCDField
      FieldName = 'inmoney'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 32
      Size = 5
    end
  end
  object XyMzInHzSource: TDataSource
    DataSet = XyMzInHzQuery
    Left = 128
    Top = 232
  end
  object XyMzInQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = XyMzInHzSource
    Parameters = <
      item
        Name = 'YpId'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end
      item
        Name = 'SDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'Edate'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      'select XyZyIn.my_id,'
      '       yp_batch,'
      '       sc_fact,'
      '       XyZyIn.ls_price,'
      '       in_amou,'
      '       XyZyIn.in_date,'
      '       XyZyIn.qr_date,'
      '       XyZyIn.in_man,'
      '       XyZyIn.qr_man,'
      '       XyZyIn.out_man'
      'from XyZyIn,XyDkInId,XyId '
      'where XyDkInId.yp_id=XyId.yp_id and'
      '      XyDkInId.in_id=XyZyIn.in_id and '
      '      XyDkInId.yp_id=:YpId and'
      '      XyZyIn.qr_man is not null and '
      '      XyZyIn.qr_date>=:SDate and '
      '      XyZyIn.qr_date<=:Edate')
    Left = 208
    Top = 232
    object XyMzInQuerymy_id: TAutoIncField
      FieldName = 'my_id'
      ReadOnly = True
    end
    object XyMzInQueryyp_batch: TStringField
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object XyMzInQuerysc_fact: TStringField
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 36
    end
    object XyMzInQueryls_price: TBCDField
      FieldName = 'ls_price'
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object XyMzInQueryin_amou: TIntegerField
      FieldName = 'in_amou'
    end
    object XyMzInQueryin_date: TDateTimeField
      FieldName = 'in_date'
    end
    object XyMzInQueryqr_date: TDateTimeField
      FieldName = 'qr_date'
    end
    object XyMzInQueryin_man: TStringField
      FieldName = 'in_man'
      FixedChar = True
      Size = 8
    end
    object XyMzInQueryqr_man: TStringField
      FieldName = 'qr_man'
      FixedChar = True
      Size = 8
    end
    object XyMzInQueryout_man: TStringField
      FieldName = 'out_man'
      FixedChar = True
      Size = 8
    end
  end
  object XyMzInSource: TDataSource
    DataSet = XyMzInQuery
    Left = 277
    Top = 232
  end
end