datamz1.~dfm

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

object DataMzf1: TDataMzf1
  OldCreateOrder = False
  Left = 6
  Top = 144
  Height = 450
  Width = 614
  object MxzSource: TDataSource
    DataSet = MxzQuery
    Left = 96
    Top = 16
  end
  object MxzQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = XySource
    ProcedureName = 'Wh_MxzQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@Edate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = 'YpId'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end>
    Left = 37
    Top = 16
    object MxzQuerymyid: TIntegerField
      FieldName = 'myid'
      ReadOnly = True
    end
    object MxzQueryinid: TIntegerField
      FieldName = 'inid'
    end
    object MxzQuerymark: TStringField
      FieldName = 'mark'
      ReadOnly = True
      Size = 24
    end
    object MxzQueryrzamou: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'rzamou'
      ReadOnly = True
    end
    object MxzQueryrzprice: TBCDField
      Alignment = taLeftJustify
      FieldName = 'rzprice'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object MxzQueryrzmoney: TBCDField
      Alignment = taLeftJustify
      FieldName = 'rzmoney'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object MxzQueryoutamou: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'outamou'
      ReadOnly = True
    end
    object MxzQueryoutprice: TBCDField
      Alignment = taLeftJustify
      FieldName = 'outprice'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object MxzQueryoutmoney: TBCDField
      Alignment = taLeftJustify
      FieldName = 'outmoney'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object MxzQueryjcamou: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'jcamou'
    end
    object MxzQueryjcprice: TBCDField
      Alignment = taLeftJustify
      FieldName = 'jcprice'
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object MxzQueryjcmoney: TBCDField
      Alignment = taLeftJustify
      FieldName = 'jcmoney'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 32
      Size = 5
    end
    object MxzQueryjcdate: TDateTimeField
      Alignment = taRightJustify
      FieldName = 'jcdate'
      ReadOnly = True
    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 = 16
        Value = '0'
      end>
    Left = 156
    Top = 16
    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 = 216
    Top = 14
  end
  object XyQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select YpId=yp_id,'
      '       yp_name,'
      '       yp_spec,'
      '       yp_unit'
      'from XyId'
      'where zj_iden=0')
    Left = 270
    Top = 17
  end
  object XySource: TDataSource
    DataSet = XyQuery
    Left = 322
    Top = 17
  end
  object YpQuery1: 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 = 20
    Top = 64
    object StringField4: TStringField
      DisplayWidth = 18
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object StringField5: TStringField
      DisplayWidth = 12
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object StringField6: TStringField
      DisplayWidth = 4
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object SmallintField1: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
  end
  object YpSource1: TDataSource
    DataSet = YpQuery1
    Left = 84
    Top = 62
  end
  object KcQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = XySource
    ProcedureName = 'Wh_ZrKcQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@kc_iden'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end>
    Left = 149
    Top = 64
    object KcQueryin_id: TAutoIncField
      FieldName = 'in_id'
      ReadOnly = True
    end
    object KcQueryyp_id: TIntegerField
      FieldName = 'yp_id'
      ReadOnly = True
    end
    object KcQueryyp_name: TStringField
      FieldName = 'yp_name'
      ReadOnly = True
      Size = 24
    end
    object KcQueryyp_spec: TStringField
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object KcQueryyp_unit: TStringField
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object KcQueryyp_batch: TStringField
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object KcQuerysc_fact: TStringField
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 36
    end
    object KcQueryyp_amou: TIntegerField
      FieldName = 'yp_amou'
    end
    object KcQueryls_price: TBCDField
      Alignment = taLeftJustify
      FieldName = 'ls_price'
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object KcQueryje: TBCDField
      Alignment = taLeftJustify
      FieldName = 'je'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 32
      Size = 5
    end
  end
  object KcSource: TDataSource
    DataSet = KcQuery
    Left = 216
    Top = 64
  end
end