datamz2.~dfm

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

object DataMzf2: TDataMzf2
  OldCreateOrder = False
  Left = 19
  Top = 4
  Height = 422
  Width = 637
  object ZjHzSource: TDataSource
    DataSet = ZjHzQuery
    Left = 72
    Top = 2
  end
  object ZjQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = ZjHzSource
    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 XyMzZjIn.my_id,'
      '       XyMzZjIn.ls_price,'
      '       in_amou,'
      '       in_date,'
      '       XyMzZjIn.in_man,'
      '       XyMzZjIn.qr_man'
      'from XyMzZjIn,XyDkInId,XyId '
      'where XyDkInId.yp_id=XyId.yp_id and'
      '      XyDkInId.in_id=XyMzZjIn.in_id and '
      '      XyDkInId.yp_id=:YpId and'
      '      XyMzZjIn.qr_man is not null and '
      '      XyMzZjIn.in_date>=:SDate and '
      '      XyMzZjIn.in_date<=:Edate'
      '')
    Left = 128
    Top = 2
    object ZjQuerymy_id: TAutoIncField
      FieldName = 'my_id'
      ReadOnly = True
    end
    object ZjQueryls_price: TBCDField
      DefaultExpression = '###########0.00###'
      FieldName = 'ls_price'
      Precision = 18
      Size = 5
    end
    object ZjQueryin_amou: TIntegerField
      FieldName = 'in_amou'
    end
    object ZjQueryin_date: TDateTimeField
      FieldName = 'in_date'
    end
    object ZjQueryin_man: TStringField
      FieldName = 'in_man'
      FixedChar = True
      Size = 8
    end
    object ZjQueryqr_man: TStringField
      FieldName = 'qr_man'
      FixedChar = True
      Size = 8
    end
  end
  object ZjSource: TDataSource
    DataSet = ZjQuery
    Left = 176
    Top = 2
  end
  object LossHzSource: TDataSource
    DataSet = LossHzQuery
    Left = 304
    Top = 2
  end
  object LossQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = LossHzSource
    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 XyMzLoss.my_id,'
      '       loss_date,'
      '       XyDkInId.yp_batch,'
      '       XyDkInid.sc_fact,'
      '       XyMzLoss.ls_price,'
      '       XyMzLoss.cz_man, '
      '       XyMzLoss.qr_man,'
      '       loss_amou,'
      '       loss_reas '
      'from XyMzLoss,XyDkInId,XyId '
      'where XyDkInId.yp_id=XyId.yp_id and'
      '      XyDkInId.in_id=XyMzLoss.in_id and '
      '      XyDkInId.yp_id=:YpId and '
      '      XyMzLoss.qr_man is not null and '
      '      XyMzLoss.loss_date>=:SDate and '
      '      XyMzLoss.loss_date<=:Edate ')
    Left = 368
    Top = 2
    object LossQuerymy_id: TAutoIncField
      FieldName = 'my_id'
      ReadOnly = True
    end
    object LossQueryloss_date: TDateTimeField
      FieldName = 'loss_date'
    end
    object LossQueryyp_batch: TStringField
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object LossQuerysc_fact: TStringField
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 36
    end
    object LossQueryls_price: TBCDField
      DefaultExpression = '###########0.00###'
      FieldName = 'ls_price'
      Precision = 18
      Size = 5
    end
    object LossQuerycz_man: TStringField
      FieldName = 'cz_man'
      FixedChar = True
      Size = 8
    end
    object LossQueryqr_man: TStringField
      FieldName = 'qr_man'
      FixedChar = True
      Size = 8
    end
    object LossQueryloss_amou: TIntegerField
      FieldName = 'loss_amou'
    end
    object LossQueryloss_reas: TStringField
      FieldName = 'loss_reas'
      FixedChar = True
      Size = 30
    end
  end
  object LossSource: TDataSource
    DataSet = LossQuery
    Left = 432
    Top = 2
  end
  object KsYsYpQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'YpId'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = 0
      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 = 36526d
      end>
    SQL.Strings = (
      'select px_id=MzYpSf.ys_id,'
      '       px_name=ys_name,'
      '       amou=sum(yp_amou)'
      'from MzYpSf,XyMzVali,YsId'
      'where MzYpSf.hj_id=XyMzVali.hj_id and '
      '      MzYpSf.ys_id*=YsId.ys_id and '
      '      yp_id=:YpId and  qr_date >=:SDate and '
      '      qr_date<=:Edate and XyMzVali.quit_hj_id=0'
      '      and XyMzVali.quit_iden=0'
      'group by MzYpSf.ys_id,ys_name'
      'order by sum(yp_amou) desc ')
    Left = 8
    Top = 49
  end
  object KsYsYpSource: TDataSource
    DataSet = KsYsYpQuery
    Left = 80
    Top = 49
  end
  object GzlSource: TDataSource
    DataSet = GzlProc
    Left = 200
    Top = 49
  end
  object PassCommand: TADOCommand
    Connection = DataMzf.XyMzValiConnection
    Parameters = <>
    Left = 264
    Top = 49
  end
  object ZjHzQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    ProcedureName = 'Wh_XyMzZjInHzQuery;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 = ftInteger
        Precision = 5
        Value = 0
      end
      item
        Name = '@MaxYpId'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 5
        Value = 0
      end>
    Left = 14
    Top = 2
    object ZjHzQueryypid: TSmallintField
      FieldName = 'ypid'
      ReadOnly = True
    end
    object ZjHzQueryypname: TStringField
      FieldName = 'ypname'
      ReadOnly = True
      Size = 24
    end
    object ZjHzQueryypspec: TStringField
      FieldName = 'ypspec'
      FixedChar = True
    end
    object ZjHzQueryypunit: TStringField
      FieldName = 'ypunit'
      FixedChar = True
      Size = 4
    end
    object ZjHzQueryinamou: TIntegerField
      FieldName = 'inamou'
      ReadOnly = True
    end
    object ZjHzQueryinmoney: TBCDField
      FieldName = 'inmoney'
      ReadOnly = True
      DisplayFormat = '###########0.00###'
      Precision = 32
      Size = 5
    end
  end
  object YpQuery: 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 = 8
    Top = 97
    object StringField1: TStringField
      DisplayWidth = 18
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object StringField2: TStringField
      DisplayWidth = 12
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object StringField3: TStringField
      DisplayWidth = 4
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object YpQueryyp_id: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
  end
  object YpSource: TDataSource
    DataSet = YpQuery
    Left = 64
    Top = 95
  end
  object YpClassQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_class,'
      '       class_name'
      'from XyClass')
    Left = 130
    Top = 95
  end
  object YpClassSource: TDataSource
    DataSet = YpClassQuery
    Left = 203
    Top = 95
  end
  object YpClassaQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_classa,'
      '       classa_name'
      'from XyClassa')
    Left = 270
    Top = 94
  end
  object YpClassaSource: TDataSource
    DataSet = YpClassaQuery
    Left = 356
    Top = 96
  end
  object LossHzQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    ProcedureName = 'Wh_XyMzLossQuery;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 = ftInteger
        Precision = 5
        Value = 0
      end
      item
        Name = '@MaxYpId'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 5
        Value = 0
      end>
    Left = 234
    Top = 2
    object LossHzQueryypid: TSmallintField
      FieldName = 'ypid'
      ReadOnly = True
    end
    object LossHzQueryypname: TStringField
      FieldName = 'ypname'
      ReadOnly = True
      Size = 24
    end
    object LossHzQueryypspec: TStringField
      FieldName = 'ypspec'
      FixedChar = True
    end