datamz1.~dfm

来自「本文重点研究的是医院西药药房管理系统」· ~DFM 代码 · 共 399 行

object DataMzf1: TDataMzf1
  OldCreateOrder = False
  Left = 4
  Top = 132
  Height = 215
  Width = 638
  object XyKcWhSource: TDataSource
    DataSet = XyKcWhQuery
    Left = 98
    Top = 16
  end
  object RecipeXmSource: TDataSource
    DataSet = RecipeXmQuery
    Left = 112
    Top = 72
  end
  object RecipeQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = RecipeXmSource
    Parameters = <
      item
        Name = 'hj_id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select my_id,'
      '       XyId.yp_name,'
      '       XyId.yp_spec,'
      '       XyId.yp_unit,'
      '       yp_batch,'
      '       sc_fact,'
      '       qr_date,'
      '       ls_price,'
      '       yp_amou'
      'from XyMzVali,XyId'
      'where XyMzVali.yp_id=XyId.yp_id and'
      '      hj_id=:hj_id')
    Left = 192
    Top = 72
    object RecipeQuerymy_id: TAutoIncField
      FieldName = 'my_id'
      ReadOnly = True
    end
    object RecipeQueryyp_name: TStringField
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object RecipeQueryyp_spec: TStringField
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object RecipeQueryyp_unit: TStringField
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object RecipeQueryyp_batch: TStringField
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object RecipeQuerysc_fact: TStringField
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 10
    end
    object RecipeQueryqr_date: TDateTimeField
      FieldName = 'qr_date'
    end
    object RecipeQueryls_price: TBCDField
      FieldName = 'ls_price'
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object RecipeQueryyp_amou: TIntegerField
      FieldName = 'yp_amou'
    end
  end
  object RecipeSource: TDataSource
    DataSet = RecipeQuery
    Left = 264
    Top = 72
  end
  object RecipeHzSource: TDataSource
    DataSet = RecipeHzQuery
    Left = 432
    Top = 72
  end
  object XyKcWhQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_XyMzKcWhQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@mzdayiden'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end>
    Left = 22
    Top = 16
    object XyKcWhQueryin_id: TIntegerField
      FieldName = 'in_id'
    end
    object XyKcWhQueryyp_id: TSmallintField
      FieldName = 'yp_id'
    end
    object XyKcWhQueryyp_name: TStringField
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object XyKcWhQueryyp_spec: TStringField
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object XyKcWhQueryyp_unit: TStringField
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object XyKcWhQueryyp_batch: TStringField
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object XyKcWhQuerysc_fact: TStringField
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 36
    end
    object XyKcWhQuerymz_amou: TIntegerField
      FieldName = 'mz_amou'
    end
    object XyKcWhQueryls_price: TBCDField
      FieldName = 'ls_price'
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object XyKcWhQueryday_iden: TBooleanField
      FieldName = 'day_iden'
    end
    object XyKcWhQueryfirstday_iden: TBooleanField
      FieldName = 'firstday_iden'
    end
    object XyKcWhQuerymz_tank: TIntegerField
      FieldName = 'mz_tank'
    end
  end
  object RecipeXmQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_XyMzRecipe;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@QuitIden'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        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 = '@HjId'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 0
      end>
    Left = 29
    Top = 72
    object RecipeXmQueryhzname: TStringField
      FieldName = 'hzname'
      ReadOnly = True
      Size = 8
    end
    object RecipeXmQueryhj_id: TIntegerField
      FieldName = 'hj_id'
    end
    object RecipeXmQuerysr_man: TStringField
      FieldName = 'sr_man'
      ReadOnly = True
      Size = 8
    end
    object RecipeXmQueryysmoney: TBCDField
      FieldName = 'ysmoney'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 38
      Size = 2
    end
    object RecipeXmQueryva_man: TStringField
      FieldName = 'va_man'
      FixedChar = True
      Size = 8
    end
    object RecipeXmQueryva_iden: TWordField
      FieldName = 'va_iden'
    end
  end
  object RecipeHzQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_XyMzRecipeHz;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@QuitIden'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@ZjIden'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        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>
    Left = 349
    Top = 72
    object RecipeHzQueryyp_id: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
    object RecipeHzQueryyp_name: TStringField
      FieldName = 'yp_name'
      ReadOnly = True
      Size = 24
    end
    object RecipeHzQueryyp_spec: TStringField
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object RecipeHzQueryyp_unit: TStringField
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object RecipeHzQuerymoney: TBCDField
      FieldName = 'money'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 32
      Size = 5
    end
    object RecipeHzQueryamou: TIntegerField
      FieldName = 'amou'
      ReadOnly = True
    end
  end
  object RecipeYpQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = RecipeHzSource
    Parameters = <
      item
        Name = 'hj_id'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end>
    SQL.Strings = (
      'select my_id,'
      '       yp_batch,'
      '       sc_fact,'
      '       qr_date,'
      '       ls_price,'
      '       yp_amou,'
      '       hj_id,'
      '       qr_man'
      'from XyMzVali'
      'where yp_id=:hj_id')
    Left = 182
    Top = 22
    object RecipeYpQuerymy_id: TAutoIncField
      FieldName = 'my_id'
      ReadOnly = True
    end
    object RecipeYpQueryyp_batch: TStringField
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object RecipeYpQuerysc_fact: TStringField
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 10
    end
    object RecipeYpQueryqr_date: TDateTimeField
      FieldName = 'qr_date'
    end
    object RecipeYpQueryls_price: TBCDField
      FieldName = 'ls_price'
      Precision = 18
      Size = 5
    end
    object RecipeYpQueryyp_amou: TIntegerField
      FieldName = 'yp_amou'
    end
    object RecipeYpQueryhj_id: TIntegerField
      FieldName = 'hj_id'
    end
    object RecipeYpQueryqr_man: TStringField
      FieldName = 'qr_man'
      FixedChar = True
      Size = 8
    end
  end
  object RecipeYpSource: TDataSource
    DataSet = RecipeYpQuery
    Left = 264
    Top = 22
  end
end