BillsEditor/DB/StdBillsLibDM.dfm

object DMStdBillsLib: TDMStdBillsLib
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 447
  Top = 238
  Height = 432
  Width = 906
  object acnBillsLib: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 32
  end
  object atBillsLib: TADOTable
    Connection = acnBillsLib
    CursorType = ctStatic
    TableName = 'BillsTree'
    Left = 112
    Top = 32
  end
  object dspBillsLib: TDataSetProvider
    DataSet = atBillsLib
    Left = 112
    Top = 79
  end
  object cdsBillsLib: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ParentID'
        DataType = ftInteger
      end
      item
        Name = 'NextID'
        DataType = ftInteger
      end
      item
        Name = 'Code'
        DataType = ftWideString
        Size = 16
      end
      item
        Name = 'B_Code'
        DataType = ftWideString
        Size = 16
      end
      item
        Name = 'Name'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'Unit'
        DataType = ftWideString
        Size = 12
      end
      item
        Name = 'StaticID'
        DataType = ftInteger
      end
      item
        Name = 'Expr'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'note'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'fee'
        DataType = ftWideString
        Size = 50
      end>
    IndexDefs = <>
    Params = <>
    ProviderName = 'dspBillsLib'
    StoreDefs = True
    AfterOpen = cdsBillsLibAfterOpen
    AfterClose = cdsBillsLibAfterClose
    Left = 112
    Top = 126
    object cdsBillsLibID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBillsLibParentID: TIntegerField
      FieldName = 'ParentID'
    end
    object cdsBillsLibNextID: TIntegerField
      FieldName = 'NextID'
    end
    object cdsBillsLibCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'Code'
      Size = 50
    end
    object cdsBillsLibB_Code: TWideStringField
      FieldName = 'B_Code'
      Size = 16
    end
    object cdsBillsLibName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsBillsLibUnit: TWideStringField
      FieldName = 'Unit'
      Size = 12
    end
    object cdsBillsLibStaticID: TIntegerField
      FieldName = 'StaticID'
    end
    object cdsBillsLibExpr: TWideStringField
      FieldName = 'Expr'
      Size = 50
    end
  end
  object cdsBillsLibView: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterInsert = cdsBillsLibViewAfterInsert
    AfterPost = cdsBillsLibViewAfterPost
    Left = 110
    Top = 181
    object cdsBillsLibViewID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBillsLibViewParentID: TIntegerField
      FieldName = 'ParentID'
    end
    object cdsBillsLibViewNextID: TIntegerField
      FieldName = 'NextID'
    end
    object cdsBillsLibViewCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'Code'
      OnChange = cdsBillsLibViewCodeChange
      Size = 50
    end
    object cdsBillsLibViewB_Code: TWideStringField
      FieldName = 'B_Code'
      OnChange = cdsBillsLibViewCodeChange
      Size = 16
    end
    object cdsBillsLibViewName: TWideStringField
      FieldName = 'Name'
      OnChange = cdsBillsLibViewCodeChange
      Size = 100
    end
    object cdsBillsLibViewUnit: TWideStringField
      FieldName = 'Unit'
      OnChange = cdsBillsLibViewCodeChange
      Size = 12
    end
    object cdsBillsLibViewStaticID: TIntegerField
      FieldName = 'StaticID'
    end
    object cdsBillsLibViewExpr: TWideStringField
      FieldName = 'Expr'
      Size = 50
    end
  end
  object atDrawingQuantity: TADOTable
    Connection = acnBillsLib
    CursorType = ctStatic
    TableName = 'DrawingQuantity'
    Left = 259
    Top = 27
  end
  object dspDrawingQuantity: TDataSetProvider
    DataSet = atDrawingQuantity
    Left = 259
    Top = 74
  end
  object cdsDrawingQuantity: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspDrawingQuantity'
    AfterOpen = cdsDrawingQuantityAfterOpen
    Left = 260
    Top = 121
    object cdsDrawingQuantityID: TIntegerField
      FieldName = 'ID'
    end
    object cdsDrawingQuantityName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsDrawingQuantityUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsDrawingQuantityDesignQuantity: TFloatField
      FieldName = 'DesignQuantity'
    end
    object cdsDrawingQuantityDesignQuantity2: TFloatField
      FieldName = 'DesignQuantity2'
    end
    object cdsDrawingQuantityMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 100
    end
    object cdsDrawingQuantityBillsID: TIntegerField
      FieldName = 'BillsID'
    end
  end
  object dspCustomStep: TDataSetProvider
    DataSet = atCustomStep
    Left = 418
    Top = 127
  end
  object cdsCustomStep: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCustomStep'
    Left = 419
    Top = 179
    object cdsCustomStepID: TIntegerField
      FieldName = 'ID'
    end
    object cdsCustomStepFmtName: TWideStringField
      FieldName = 'FmtName'
      Size = 100
    end
    object cdsCustomStepStartValue: TFloatField
      FieldName = 'StartValue'
    end
    object cdsCustomStepStepValue: TFloatField
      FieldName = 'StepValue'
    end
    object cdsCustomStepBillsCode: TWideStringField
      FieldName = 'BillsCode'
      Size = 50
    end
    object cdsCustomStepIsCode: TBooleanField
      FieldName = 'IsCode'
    end
    object cdsCustomStepDisName: TWideStringField
      FieldName = 'DisName'
      Size = 100
    end
    object cdsCustomStepUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsCustomStepOldValue: TFloatField
      FieldName = 'OldValue'
    end
    object cdsCustomStepStartCodeID: TIntegerField
      FieldName = 'StartCodeID'
    end
    object cdsCustomStepFmtName2: TWideStringField
      FieldName = 'FmtName2'
      Size = 100
    end
    object cdsCustomStepSubArea: TBooleanField
      FieldName = 'SubArea'
    end
  end
  object atCustomStep: TADOTable
    Connection = acCustomStep
    CursorType = ctStatic
    TableName = 'CustomStep'
    Left = 417
    Top = 76
  end
  object cdsDrawQView: TClientDataSet
    Aggregates = <>
    Params = <>
    OnNewRecord = cdsDrawQViewNewRecord
    Left = 253
    Top = 180
    object cdsDrawQViewID: TIntegerField
      FieldName = 'ID'
    end
    object cdsDrawQViewName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsDrawQViewUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsDrawQViewDesignQuantity: TFloatField
      FieldName = 'DesignQuantity'
    end
    object cdsDrawQViewDesignQuantity2: TFloatField
      FieldName = 'DesignQuantity2'
    end
    object cdsDrawQViewMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 100
    end
    object cdsDrawQViewBillsID: TIntegerField
      FieldName = 'BillsID'
    end
  end
  object dsBillsDQ: TDataSource
    DataSet = cdsBillsLibView
    Left = 179
    Top = 180
  end
  object cdsStaticID: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 111
    Top = 236
    object cdsStaticIDID: TIntegerField
      FieldName = 'ID'
    end
    object cdsStaticIDName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsStaticIDStaticID: TIntegerField
      FieldName = 'StaticID'
    end
  end
  object cdsDQSetRange: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 255
    Top = 231
    object cdsDQSetRangeID: TIntegerField
      FieldName = 'ID'
    end
    object cdsDQSetRangeName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsDQSetRangeUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsDQSetRangeDesignQuantity: TFloatField
      FieldName = 'DesignQuantity'
    end
    object cdsDQSetRangeDesignQuantity2: TFloatField
      FieldName = 'DesignQuantity2'
    end
    object cdsDQSetRangeMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 100
    end
    object cdsDQSetRangeBillsID: TIntegerField
      FieldName = 'BillsID'
    end
  end
  object cdsCustomStepView: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'FmtName'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'StartValue'
        DataType = ftFloat
      end
      item
        Name = 'StepValue'
        DataType = ftFloat
      end
      item
        Name = 'BillsCode'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'IsCode'
        DataType = ftBoolean
      end
      item
        Name = 'DisName'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'Units'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'CustomValue'
        DataType = ftFloat
      end
      item
        Name = 'OldValue'
        DataType = ftFloat
      end
      item
        Name = 'StartCodeID'
        DataType = ftInteger
      end
      item
        Name = 'CustomBillsCode'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'FmtName2'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'SubArea'
        DataType = ftBoolean
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    BeforeInsert = cdsCustomStepViewBeforeInsert
    AfterPost = cdsCustomStepViewAfterPost
    BeforeDelete = cdsCustomStepViewBeforeDelete
    Left = 421
    Top = 226
    Data = {
      480100009619E0BD01000000180000000D000000000003000000480107466D74
      4E616D6501004A000000010005574944544802000200C8000A53746172745661
      6C75650800040000000000095374657056616C75650800040000000000094269
      6C6C73436F646501004A0000000100055749445448020002006400064973436F
      64650200030000000000074469734E616D6501004A0000000100055749445448
      02000200C80005556E69747301004A0000000100055749445448020002002800
      0B437573746F6D56616C75650800040000000000084F6C6456616C7565080004
      00000000000B5374617274436F6465494404000100000000000F437573746F6D
      42696C6C73436F646501004A000000010005574944544802000200280008466D
      744E616D653201004A000000010005574944544802000200C800075375624172
      656102000300000000000000}
    object cdsCustomStepViewFmtName: TWideStringField
      FieldName = 'FmtName'
      Size = 100
    end
    object cdsCustomStepViewStartValue: TFloatField
      FieldName = 'StartValue'
    end
    object cdsCustomStepViewStepValue: TFloatField
      FieldName = 'StepValue'
    end
    object cdsCustomStepViewBillsCode: TWideStringField
      FieldName = 'BillsCode'
      Size = 50
    end
    object cdsCustomStepViewIsCode: TBooleanField
      FieldName = 'IsCode'
    end
    object cdsCustomStepViewDisName: TWideStringField
      FieldName = 'DisName'
      Size = 100
    end
    object cdsCustomStepViewUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsCustomStepViewCustomValue: TFloatField
      FieldName = 'CustomValue'
      OnChange = cdsCustomStepViewCustomValueChange
    end
    object cdsCustomStepViewOldValue: TFloatField
      FieldName = 'OldValue'
    end
    object cdsCustomStepViewStartCodeID: TIntegerField
      FieldName = 'StartCodeID'
    end
    object cdsCustomStepViewCustomBillsCode: TWideStringField
      FieldName = 'CustomBillsCode'
    end
    object cdsCustomStepViewFmtName2: TWideStringField
      FieldName = 'FmtName2'
      Size = 100
    end
    object cdsCustomStepViewSubArea: TBooleanField
      FieldName = 'SubArea'
    end
  end
  object atBillsQty: TADOTable
    Connection = acnBillsQty
    TableName = 'BillsTree'
    Left = 624
    Top = 27
  end
  object dspBillsQty: TDataSetProvider
    DataSet = atBillsQty
    Left = 624
    Top = 71
  end
  object cdsBillsQty: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBillsQty'
    AfterOpen = cdsBillsQtyAfterOpen
    Left = 624
    Top = 116
    object cdsBillsQtyID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBillsQtyParentID: TIntegerField
      FieldName = 'ParentID'
    end
    object cdsBillsQtyNextID: TIntegerField
      FieldName = 'NextID'
    end
    object cdsBillsQtyCode: TWideStringField
      FieldName = 'Code'
      Size = 16
    end
    object cdsBillsQtyB_Code: TWideStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsBillsQtyName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsBillsQtyUnit: TWideStringField
      FieldName = 'Unit'
      Size = 12
    end
    object cdsBillsQtyStaticID: TIntegerField
      FieldName = 'StaticID'
    end
    object cdsBillsQtyExpr: TWideStringField
      FieldName = 'Expr'
      Size = 50
    end
  end
  object cdsBillsQtyView: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterInsert = cdsBillsQtyViewAfterInsert
    AfterPost = cdsBillsQtyViewAfterPost
    Left = 624
    Top = 163
    object cdsBillsQtyViewID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBillsQtyViewParentID: TIntegerField
      FieldName = 'ParentID'
    end
    object cdsBillsQtyViewNextID: TIntegerField
      FieldName = 'NextID'
    end
    object cdsBillsQtyViewCode: TWideStringField
      FieldName = 'Code'
      OnChange = cdsBillsLibViewCodeChange
      Size = 16
    end
    object cdsBillsQtyViewB_Code: TWideStringField
      FieldName = 'B_Code'
      OnChange = cdsBillsLibViewCodeChange
      Size = 50
    end
    object cdsBillsQtyViewName: TWideStringField
      FieldName = 'Name'
      OnChange = cdsBillsLibViewCodeChange
      Size = 100
    end
    object cdsBillsQtyViewUnit: TWideStringField
      FieldName = 'Unit'
      OnChange = cdsBillsLibViewCodeChange
      Size = 12
    end
    object cdsBillsQtyViewStaticID: TIntegerField
      FieldName = 'StaticID'
    end
    object cdsBillsQtyViewExpr: TWideStringField
      FieldName = 'Expr'
      Size = 50
    end
  end
  object acnBillsQty: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 568
    Top = 27
  end
  object acCustomStep: TADOConnection
    LoginPrompt = False
    Left = 418
    Top = 27
  end
  object atBQDrawingQty: TADOTable
    Connection = acnBillsQty
    TableName = 'DrawingQuantity'
    Left = 783
    Top = 24
  end
  object dspBQDrawingQty: TDataSetProvider
    DataSet = atBQDrawingQty
    UpdateMode = upWhereKeyOnly
    Left = 783
    Top = 69
  end
  object cdsBQDrawingQty: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBQDrawingQty'
    AfterOpen = cdsBQDrawingQtyAfterOpen
    Left = 786
    Top = 112
    object cdsBQDrawingQtyID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBQDrawingQtyName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsBQDrawingQtyUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsBQDrawingQtyDesignQuantity: TFloatField
      FieldName = 'DesignQuantity'
    end
    object cdsBQDrawingQtyDesignQuantity2: TFloatField
      FieldName = 'DesignQuantity2'
    end
    object cdsBQDrawingQtyMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 100
    end
    object cdsBQDrawingQtyBillsID: TIntegerField
      FieldName = 'BillsID'
    end
  end
  object cdsBQDrawingQtyView: TClientDataSet
    Aggregates = <>
    Params = <>
    OnNewRecord = cdsBQDrawingQtyViewNewRecord
    Left = 788
    Top = 161
    object cdsBQDrawingQtyViewID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBQDrawingQtyViewName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsBQDrawingQtyViewUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsBQDrawingQtyViewDesignQuantity: TFloatField
      FieldName = 'DesignQuantity'
    end
    object cdsBQDrawingQtyViewDesignQuantity2: TFloatField
      FieldName = 'DesignQuantity2'
    end
    object cdsBQDrawingQtyViewMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 100
    end
    object cdsBQDrawingQtyViewBillsID: TIntegerField
      FieldName = 'BillsID'
    end
  end
  object dsBillsQty: TDataSource
    DataSet = cdsBillsQtyView
    Left = 703
    Top = 161
  end
  object cdsFastSearch: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 112
    Top = 296
    object cdsFastSearchID: TIntegerField
      FieldName = 'ID'
    end
    object cdsFastSearchParentID: TIntegerField
      FieldName = 'ParentID'
    end
    object cdsFastSearchNextID: TIntegerField
      FieldName = 'NextID'
    end
    object cdsFastSearchCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'Code'
      Size = 50
    end
    object cdsFastSearchB_Code: TWideStringField
      FieldName = 'B_Code'
      Size = 16
    end
    object cdsFastSearchName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsFastSearchUnit: TWideStringField
      FieldName = 'Unit'
      Size = 12
    end
    object cdsFastSearchStaticID: TIntegerField
      FieldName = 'StaticID'
    end
    object cdsFastSearchExpr: TWideStringField
      FieldName = 'Expr'
      Size = 50
    end
  end
  object cdsBQFastSearch: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 624
    Top = 224
    object cdsBQFastSearchID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBQFastSearchParentID: TIntegerField
      FieldName = 'ParentID'
    end
    object cdsBQFastSearchNextID: TIntegerField
      FieldName = 'NextID'
    end
    object cdsBQFastSearchCode: TWideStringField
      FieldName = 'Code'
      Size = 16
    end
    object cdsBQFastSearchB_Code: TWideStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsBQFastSearchName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsBQFastSearchUnit: TWideStringField
      FieldName = 'Unit'
      Size = 12
    end
    object cdsBQFastSearchStaticID: TIntegerField
      FieldName = 'StaticID'
    end
    object cdsBQFastSearchExpr: TWideStringField
      FieldName = 'Expr'
      Size = 50
    end
  end
end