recipeypquerym.dfm

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

      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD007B7B7B007B7B7B007B7B
      7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000
      00000000000000000000BDBDBD00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000BDBDBD007B7B7B007B7B
      7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B000000000000FFFF000000
      FF0000FFFF000000000000000000BDBDBD000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD0000000000BDBDBD000000
      0000BDBDBD007B7B7B007B7B7B007B7B7B000000000000FFFF000000FF0000FF
      FF000000FF0000FFFF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000BDBDBD0000000000BDBD
      BD0000000000BDBDBD000000000000000000000000000000FF0000FFFF000000
      FF0000FFFF000000FF0000000000BDBDBD000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD0000000000BDBDBD000000
      0000BDBDBD0000000000000000000000000000000000000000000000FF0000FF
      FF000000FF0000FFFF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000BDBDBD0000000000BDBD
      BD000000000000000000000000000000FF000000000000000000000000000000
      FF0000FFFF000000000000000000BDBDBD000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD0000000000BDBDBD000000
      0000000000000000FF0000000000000000000000FF0000000000000000000000
      00000000000000000000BDBDBD00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000BDBDBD00000000000000
      000000000000000000000000FF0000000000000000000000FF00000000000000
      000000000000BDBDBD0000000000BDBDBD000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD00000000000000000000FF
      FF000000000000000000000000000000FF000000000000000000000000000000
      0000BDBDBD0000000000BDBDBD00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000FFFF0000FF
      FF0000FFFF000000000000000000000000000000FF000000000000000000BDBD
      BD0000000000BDBDBD0000000000BDBDBD00184A3900E7EF52004ACE4A0021EF
      4A00BD6B5200E76B5200CE6B5200A5AD42006B8C5A009C0852007BEF4A00636B
      310094C6290029085A0029080000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD000000000000FFFF0000FF
      FF000000000000FFFF0000000000000000000000000000000000BDBDBD000000
      0000BDBDBD0000000000BDBDBD00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000422100000000000000000000BDBDBD00000000000000
      000000FFFF0000FFFF0000FFFF000000000000000000BDBDBD0000000000BDBD
      BD0000000000BDBDBD0000000000BDBDBD00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD0000000000BDBDBD000000
      000000FFFF0000FFFF000000000000000000BDBDBD0000000000BDBDBD000000
      0000BDBDBD0000000000BDBDBD0000000000BDBDBD00FFFFFF00BDBDBD00FFFF
      FF00BDBDBD007B7B7B007B7B7B007B7B7B000000000000FFFF000000FF0000FF
      FF000000FF0000FFFF0000000000FFFFFF00FFFFFF00BDBDBD007B7B7B007B7B
      7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B000000000000FFFF000000
      FF0000FFFF0000000000FFFFFF00BDBDBD00BDBDBD007B7B7B007B7B7B007B7B
      7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000
      000000000000FFFFFF00BDBDBD00FFFFFF0000000000BDBDBD0000000000BDBD
      BD00000000000000000000000000BDBDBD0000000000BDBDBD0000000000BDBD
      BD0000000000BDBDBD0000000000BDBDBD00BDBDBD00FFFFFF00BDBDBD00FFFF
      FF00000000000000FF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF000000
      000000000000FFFFFF00BDBDBD00FFFFFF00FFFFFF00BDBDBD00FFFFFF00BDBD
      BD00FFFFFF0000000000FFFFFF000000FF00FFFFFF00FFFFFF00000000000000
      FF0000FFFF0000000000FFFFFF00BDBDBD00BDBDBD00FFFFFF00BDBDBD00FFFF
      FF00BDBDBD00FFFFFF0000000000FFFFFF00FFFFFF00000000000000FF0000FF
      FF000000FF0000FFFF0000000000FFFFFF00424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFE0FF0000FFFFAAAA0000E0FFE0FF
      0005F7BDFFFFF7BD8002F7BDFFFFF7BD5001E0FFE0FF0000AA00F7BD00000000
      5581FFFFF7BDFFFFAAC2FFFFF7BDFFFF5365E0FF0000FFFFADAAFFFFF7BD0000
      46D5F7BDFFFFF7BD832AF7BDFFFFF7BD01550000FFFFF7BD80AAF7BDFFFFF7BD
      4155000000000000A2AA6E200000000000000000000000000000000000000000
      000000000000}
  end
  object YpClassQuery1: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_class,'
      '       class_name'
      'from XyClass')
    Left = 176
    Top = 308
  end
  object YpClassSource1: TDataSource
    DataSet = YpClassQuery1
    Left = 256
    Top = 307
  end
  object YpClassaQuery1: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_classa,'
      '       classa_name'
      'from XyClassa')
    Left = 336
    Top = 308
  end
  object YpClassaSource1: TDataSource
    DataSet = YpClassaQuery1
    Left = 416
    Top = 307
  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 = 160
    Top = 256
    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 = 232
    Top = 254
  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
      item
        Name = '@MinYpId'
        DataType = ftInteger
        Value = 0
      end
      item
        Name = '@MaxYpId'
        DataType = ftInteger
        Value = 0
      end>
    Left = 309
    Top = 255
    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 RecipeHzSource: TDataSource
    DataSet = RecipeHzQuery
    Left = 392
    Top = 255
  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,'
      '       XyMzVali.hj_id,'
      '       XyMzVali.qr_man,'
      '       ys_name'
      'from XyMzVali,MzYpSf,YsId'
      'where XyMzVali.hj_id=MzYpSf.hj_id and'
      '      MzYpSf.ys_id=YsId.ys_id and'
      '      yp_id=:hj_id')
    Left = 480
    Top = 253
    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'
      DisplayFormat = '###########0.00###'
      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
    object RecipeYpQueryys_name: TStringField
      FieldName = 'ys_name'
      FixedChar = True
      Size = 8
    end
  end
  object RecipeYpSource: TDataSource
    DataSet = RecipeYpQuery
    Left = 562
    Top = 253
  end
end