datamz.~dfm

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

      Size = 8
    end
    object XyDkOutQueryqr_man: TStringField
      FieldName = 'qr_man'
      FixedChar = True
      Size = 8
    end
    object XyDkOutQuerycorp_man: TStringField
      FieldName = 'corp_man'
      FixedChar = True
      Size = 8
    end
  end
  object XyZwOutQuery: TADOQuery
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'UserName'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = 'wh'
      end>
    SQL.Strings = (
      'select XyZwOut.my_id,'
      '       XyId.yp_name,'
      '       XyId.yp_spec,'
      '       XyId.yp_unit,'
      '       XyDkInId.yp_batch,'
      '       XyDkInId.sc_fact,'
      '       XyZwOut.ls_price,'
      '       XyZwOut.out_amou,'
      '       XyZwOut.out_date,'
      '       XyZwOut.cz_man, '
      '       XyZwOut.qr_man,'
      '       XyZwOut.corp_man'
      'from XyZwOut,XyId,XyDkInId'
      'where XyZwOut.in_id=XyDkInId.in_id and'
      '      XyId.yp_id=XyDkInId.yp_id and'
      '      XyZwOut.qr_man is null and'
      '      XyZwOut.cz_man<>:UserName')
    Left = 181
    Top = 208
  end
  object XyZwOutSource: TDataSource
    DataSet = XyZwOutQuery
    Left = 253
    Top = 208
  end
  object OutHzQuery: TADOStoredProc
    Connection = XyMzValiConnection
    ProcedureName = 'Wh_XyDkOutQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      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 = 13
    Top = 258
    object OutHzQueryypid: TSmallintField
      FieldName = 'ypid'
      ReadOnly = True
    end
    object OutHzQueryypname: TStringField
      FieldName = 'ypname'
      ReadOnly = True
      Size = 24
    end
    object OutHzQueryypspec: TStringField
      FieldName = 'ypspec'
      FixedChar = True
    end
    object OutHzQueryypunit: TStringField
      FieldName = 'ypunit'
      FixedChar = True
      Size = 4
    end
    object OutHzQueryinamou: TIntegerField
      FieldName = 'inamou'
      ReadOnly = True
    end
    object OutHzQueryinmoney: TBCDField
      FieldName = 'inmoney'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 32
      Size = 5
    end
  end
  object OutHzSource: TDataSource
    DataSet = OutHzQuery
    Left = 76
    Top = 258
  end
  object OutQuery: TADOQuery
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = OutHzSource
    Parameters = <
      item
        Name = 'YpId'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end
      item
        Name = 'SDate'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'Edate'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      'select XyDkOut.my_id,'
      '       out_date,'
      '       XyDkInId.yp_batch,'
      '       XyDkInid.sc_fact,'
      '       XyDkOut.ls_price,'
      '       XyDkOut.cz_man, '
      '       XyDkOut.qr_man,'
      '       out_amou,'
      '       corp_man '
      'from XyDkOut,XyDkInId,XyId '
      'where XyDkInId.yp_id=XyId.yp_id and'
      '      XyDkInId.in_id=XyDkOut.in_id and '
      '      XyDkInId.yp_id=:YpId and '
      '      XyDkOut.qr_man is not null and '
      '      XyDkOut.out_date>=:SDate and '
      '      XyDkOut.out_date<=:Edate ')
    Left = 134
    Top = 258
    object OutQuerymy_id: TAutoIncField
      FieldName = 'my_id'
      ReadOnly = True
    end
    object OutQueryout_date: TDateTimeField
      FieldName = 'out_date'
    end
    object OutQueryyp_batch: TStringField
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object OutQuerysc_fact: TStringField
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 36
    end
    object OutQueryls_price: TBCDField
      FieldName = 'ls_price'
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object OutQuerycz_man: TStringField
      FieldName = 'cz_man'
      FixedChar = True
      Size = 8
    end
    object OutQueryqr_man: TStringField
      FieldName = 'qr_man'
      FixedChar = True
      Size = 8
    end
    object OutQueryout_amou: TIntegerField
      FieldName = 'out_amou'
    end
    object OutQuerycorp_man: TStringField
      FieldName = 'corp_man'
      FixedChar = True
      Size = 8
    end
  end
  object OutSource: TDataSource
    DataSet = OutQuery
    Left = 183
    Top = 258
  end
  object YpSource2: TDataSource
    DataSet = YpQuery2
    Left = 476
    Top = 158
  end
  object YpQuery2: TADOStoredProc
    Connection = 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 = 420
    Top = 160
    object StringField7: 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 SmallintField2: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
  end
  object YpClassQuery1: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_class,'
      '       class_name'
      'from XyClass')
    Left = 246
    Top = 257
  end
  object YpClassSource1: TDataSource
    DataSet = YpClassQuery1
    Left = 322
    Top = 257
  end
  object YpClassaQuery1: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_classa,'
      '       classa_name'
      'from XyClassa')
    Left = 326
    Top = 205
  end
  object YpClassaSource1: TDataSource
    DataSet = YpClassaQuery1
    Left = 412
    Top = 207
  end
  object OutZwHz: TADOStoredProc
    Connection = XyMzValiConnection
    ProcedureName = 'Wh_XyZwOutQuery;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 = 7
    Top = 309
  end
  object OutZwHzSource: TDataSource
    DataSet = OutZwHz
    Left = 72
    Top = 309
  end
  object OutZwSource: TDataSource
    DataSet = OutZw
    Left = 182
    Top = 310
  end
  object OutZw: TADOQuery
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = OutZwHzSource
    Parameters = <
      item
        Name = 'YpId'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end
      item
        Name = 'SDate'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'Edate'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      'select XyZwOut.my_id,'
      '       out_date,'
      '       XyDkInId.yp_batch,'
      '       XyDkInid.sc_fact,'
      '       XyZwOut.ls_price,'
      '       XyZwOut.cz_man, '
      '       XyZwOut.qr_man,'
      '       out_amou,'
      '       corp_man '
      'from XyZwOut,XyDkInId,XyId '
      'where XyDkInId.yp_id=XyId.yp_id and'
      '      XyDkInId.in_id=XyZwOut.in_id and '
      '      XyDkInId.yp_id=:YpId and '
      '      XyZwOut.qr_man is not null and '
      '      XyZwOut.out_date>=:SDate and '
      '      XyZwOut.out_date<=:Edate ')
    Left = 131
    Top = 309
  end
  object YpQuery3: TADOStoredProc
    Connection = 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 = 244
    Top = 312
    object StringField10: TStringField
      DisplayWidth = 18
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object StringField11: TStringField
      DisplayWidth = 12
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object StringField12: TStringField
      DisplayWidth = 4
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object SmallintField3: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
  end
  object YpSource3: TDataSource
    DataSet = YpQuery3
    Left = 300
    Top = 310
  end
  object YpClassaQuery3: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_classa,'
      '       classa_name'
      'from XyClassa')
    Left = 370
    Top = 310
  end
  object YpClassaSource3: TDataSource
    DataSet = YpClassaQuery3
    Left = 452
    Top = 311
  end
  object YpClassQuery3: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_class,'
      '       class_name'
      'from XyClass')
    Left = 398
    Top = 265
  end
  object YpClassSource3: TDataSource
    DataSet = YpClassQuery3
    Left = 458
    Top = 249
  end
  object GzlSource: TDataSource
    DataSet = GzlProc
    Left = 331
    Top = 106
  end
  object ZyGzlProc: TADOStoredProc
    Connection = XyMzValiConnection
    ProcedureName = 'Wh_XyZyGzlQuery;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>
    Left = 387
    Top = 106
  end
  object ZyGzlSource: TDataSource
    DataSet = ZyGzlProc
    Left = 443
    Top = 106
  end
end