BillsEditor/DB/RecycleBinDM.dfm

object RecycleBinData: TRecycleBinData
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 867
  Top = 347
  Height = 236
  Width = 307
  object atRecycleBin: TADOTable
    TableName = 'RecycleBin'
    Left = 40
    Top = 24
  end
  object cdsRecycleBin: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRecycleBin'
    AfterScroll = cdsRecycleBinAfterScroll
    Left = 219
    Top = 24
    object cdsRecycleBinID: TIntegerField
      FieldName = 'ID'
    end
    object cdsRecycleBinName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object cdsRecycleBinCreateTime: TWideStringField
      FieldName = 'CreateTime'
    end
    object cdsRecycleBinFileName: TWideStringField
      FieldName = 'FileName'
      Size = 255
    end
  end
  object dspRecycleBin: TDataSetProvider
    DataSet = atRecycleBin
    UpdateMode = upWhereKeyOnly
    Left = 126
    Top = 24
  end
  object cdsBills: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    AfterScroll = cdsBillsAfterScroll
    Left = 35
    Top = 128
    Data = {
      6A0100009619E0BD01000000180000000D0000000000030000006A0102494404
      0001000000000008506172656E74494404000100000000000D4E657874536962
      6C696E674944040001000000000004436F646501004A00000001000557494454
      48020002006400044E616D6501004A000000010005574944544802000200C800
      05556E69747301004A0000000100055749445448020002006400085175616E74
      69747908000400000000000E44657369676E5175616E74697479080004000000
      00000F44657369676E5175616E7469747932080004000000000009556E697450
      726963650C0005000000020008444543494D414C530200020004000557494454
      480200020013000B44657369676E507269636508000400000000000A546F7461
      6C50726963650C0005000000020008444543494D414C53020002000400055749
      445448020002001300074D656D6F53747204004B000000010007535542545950
      4502004900050054657874000000}
    object cdsBillsID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBillsParentID: TIntegerField
      FieldName = 'ParentID'
    end
    object cdsBillsNextSiblingID: TIntegerField
      FieldName = 'NextSiblingID'
    end
    object cdsBillsCode: TWideStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsBillsName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsBillsUnits: TWideStringField
      FieldName = 'Units'
      Size = 50
    end
    object cdsBillsQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsBillsDesignQuantity: TFloatField
      FieldName = 'DesignQuantity'
    end
    object cdsBillsDesignQuantity2: TFloatField
      FieldName = 'DesignQuantity2'
    end
    object cdsBillsUnitPrice: TBCDField
      FieldName = 'UnitPrice'
      Precision = 19
    end
    object cdsBillsDesignPrice: TFloatField
      FieldName = 'DesignPrice'
    end
    object cdsBillsTotalPrice: TBCDField
      FieldName = 'TotalPrice'
      Precision = 19
    end
    object cdsBillsMemoStr: TMemoField
      FieldName = 'MemoStr'
      BlobType = ftMemo
    end
  end
  object cdsDrawingQuantity: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'Name'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Units'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'BillsID'
        DataType = ftInteger
      end
      item
        Name = 'DQuantity1'
        DataType = ftFloat
      end
      item
        Name = 'MemoContext'
        DataType = ftWideString
        Size = 50
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 128
    Top = 128
    Data = {
      900000009619E0BD0100000018000000050000000000030000009000044E616D
      6501004A000000010005574944544802000200640005556E69747301004A0000
      0001000557494454480200020028000742696C6C73494404000100000000000A
      445175616E746974793108000400000000000B4D656D6F436F6E746578740100
      4A00000001000557494454480200020064000000}
    object cdsDrawingQuantityName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object cdsDrawingQuantityUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsDrawingQuantityBillsID: TIntegerField
      FieldName = 'BillsID'
    end
    object cdsDrawingQuantityDQuantity1: TFloatField
      FieldName = 'DQuantity1'
    end
    object cdsDrawingQuantityMemoContext: TWideStringField
      FieldName = 'MemoContext'
      Size = 50
    end
  end
end