object rmHaBaiCustomizedData: TrmHaBaiCustomizedData OldCreateOrder = False Left = 723 Top = 455 Height = 154 Width = 339 object cdsCustom2: TClientDataSet Active = True Aggregates = <> Params = <> Left = 32 Top = 48 Data = { E20000009619E0BD010000001800000009000000000003000000E20007436861 707465720400010000000000044E616D6501004A000000010005574944544802 000200C8000A546F74616C507269636508000400000000000B43546F74616C50 7269636508000400000000000B47546F74616C50726963650800040000000000 13456E64476174686572546F74616C5072696365080004000000000013507265 476174686572546F74616C507269636508000400000000001343757247617468 6572546F74616C507269636508000400000000000750657263656E7408000400 000000000000} object cdsCustom2Chapter: TIntegerField FieldName = 'Chapter' end object cdsCustom2Name: TWideStringField FieldName = 'Name' Size = 100 end object cdsCustom2TotalPrice: TFloatField FieldName = 'TotalPrice' end object cdsCustom2CTotalPrice: TFloatField FieldName = 'CTotalPrice' end object cdsCustom2GTotalPrice: TFloatField FieldName = 'GTotalPrice' end object cdsCustom2EndGatherTotalPrice: TFloatField FieldName = 'EndGatherTotalPrice' end object cdsCustom2PreGatherTotalPrice: TFloatField FieldName = 'PreGatherTotalPrice' end object cdsCustom2CurGatherTotalPrice: TFloatField FieldName = 'CurGatherTotalPrice' end object cdsCustom2Percent: TFloatField FieldName = 'Percent' end end object cdsCustom3: TClientDataSet Active = True Aggregates = <> IndexFieldNames = 'ChapterID;InnerPartID;IndexCode' Params = <> Left = 104 Top = 48 Data = { 900100009619E0BD010000001800000010000000000003000000900109436861 70746572494404000100000000000B496E6E6572506172744944040001000000 000009496E646578436F64650100490000000100055749445448020002003200 06425F436F646501004A0000000100055749445448020002006400044E616D65 02004A000000010005574944544802000200900105556E69747301004A000000 0100055749445448020002002800055072696365080004000000000008517561 6E7469747908000400000000000A546F74616C50726963650800040000000000 115072654761746865725175616E746974790800040000000000135072654761 74686572546F74616C5072696365080004000000000011456E64476174686572 5175616E74697479080004000000000013456E64476174686572546F74616C50 726963650800040000000000114375724761746865725175616E746974790800 04000000000013437572476174686572546F74616C5072696365080004000000 00000750657263656E7408000400000000000000} object cdsCustom3ChapterID: TIntegerField FieldName = 'ChapterID' end object cdsCustom3InnerPartID: TIntegerField FieldName = 'InnerPartID' end object cdsCustom3IndexCode: TStringField FieldName = 'IndexCode' Size = 50 end object cdsCustom3B_Code: TWideStringField FieldName = 'B_Code' Size = 50 end object cdsCustom3Name: TWideStringField FieldName = 'Name' Size = 200 end object cdsCustom3Units: TWideStringField FieldName = 'Units' end object cdsCustom3Price: TFloatField FieldName = 'Price' end object cdsCustom3Quantity: TFloatField FieldName = 'Quantity' end object cdsCustom3TotalPrice: TFloatField FieldName = 'TotalPrice' end object cdsCustom3PreGatherQuantity: TFloatField FieldName = 'PreGatherQuantity' end object cdsCustom3PreGatherTotalPrice: TFloatField FieldName = 'PreGatherTotalPrice' end object cdsCustom3EndGatherQuantity: TFloatField FieldName = 'EndGatherQuantity' end object cdsCustom3EndGatherTotalPrice: TFloatField FieldName = 'EndGatherTotalPrice' end object cdsCustom3CurGatherQuantity: TFloatField FieldName = 'CurGatherQuantity' end object cdsCustom3CurGatherTotalPrice: TFloatField FieldName = 'CurGatherTotalPrice' end object cdsCustom3Percent: TFloatField FieldName = 'Percent' end end object cdsCustom14: TClientDataSet Active = True Aggregates = <> IndexFieldNames = 'IndexCode' Params = <> Left = 176 Top = 48 Data = { DC0000009619E0BD010000001800000008000000000003000000DC0009496E64 6578436F646501004A000000010005574944544802000200640006425F436F64 6501004A0000000100055749445448020002006400044E616D6502004A000000 010005574944544802000200900105556E69747301004A000000010005574944 54480200020028000550726963650800040000000000085175616E7469747908 000400000000000A546F74616C507269636508000400000000000F4365727469 666963617465436F646501004A00000001000557494454480200020064000000} object cdsCustom14IndexCode: TWideStringField FieldName = 'IndexCode' Size = 50 end object cdsCustom14B_Code: TWideStringField FieldName = 'B_Code' Size = 50 end object cdsCustom14Name: TWideStringField FieldName = 'Name' Size = 200 end object cdsCustom14Units: TWideStringField FieldName = 'Units' end object cdsCustom14Price: TFloatField FieldName = 'Price' end object cdsCustom14Quantity: TFloatField FieldName = 'Quantity' end object cdsCustom14TotalPrice: TFloatField FieldName = 'TotalPrice' end object cdsCustom14CertificateCode: TWideStringField FieldName = 'CertificateCode' Size = 50 end end object cdsCustomProj: TClientDataSet Active = True Aggregates = <> FieldDefs = < item Name = 'ProjectID' DataType = ftInteger end item Name = 'ProjectName' DataType = ftWideString Size = 200 end item Name = 'ChapterID' DataType = ftInteger end item Name = 'InnerPartID' DataType = ftInteger end item Name = 'IndexCode' DataType = ftWideString Size = 50 end item Name = 'B_Code' DataType = ftWideString Size = 50 end item Name = 'Name' DataType = ftWideString Size = 200 end item Name = 'Units' DataType = ftWideString Size = 20 end item Name = 'Price' DataType = ftFloat end item Name = 'Quantity' DataType = ftFloat end item Name = 'TotalPrice' DataType = ftFloat end item Name = 'CurGatherQuantity' DataType = ftFloat end item Name = 'CurGatherTotalPrice' DataType = ftFloat end item Name = 'EndGatherQuantity' DataType = ftFloat end item Name = 'EndGatherTotalPrice' DataType = ftFloat end item Name = 'P_CurGatherQuantity' DataType = ftFloat end item Name = 'P_CurGatherTotalPrice' DataType = ftFloat end item Name = 'P_EndGatherQuantity' DataType = ftFloat end item Name = 'P_EndGatherTotalPrice' DataType = ftFloat end item Name = 'CurPercent' DataType = ftFloat end item Name = 'EndPercent' DataType = ftFloat end> IndexDefs = < item Name = 'DEFAULT_ORDER' end item Name = 'CHANGEINDEX' end> IndexFieldNames = 'ProjectID;ChapterID;InnerPartID;IndexCode' Params = <> StoreDefs = True Left = 264 Top = 48 Data = { 2C0200009619E0BD0100000018000000150000000000030000002C020950726F 6A656374494404000100000000000B50726F6A6563744E616D6502004A000000 0100055749445448020002009001094368617074657249440400010000000000 0B496E6E6572506172744944040001000000000009496E646578436F64650100 4A000000010005574944544802000200640006425F436F646501004A00000001 00055749445448020002006400044E616D6502004A0000000100055749445448 02000200900105556E69747301004A0000000100055749445448020002002800 0550726963650800040000000000085175616E7469747908000400000000000A 546F74616C50726963650800040000000000114375724761746865725175616E 74697479080004000000000013437572476174686572546F74616C5072696365 080004000000000011456E644761746865725175616E74697479080004000000 000013456E64476174686572546F74616C507269636508000400000000001350 5F4375724761746865725175616E74697479080004000000000015505F437572 476174686572546F74616C5072696365080004000000000013505F456E644761 746865725175616E74697479080004000000000015505F456E64476174686572 546F74616C507269636508000400000000000A43757250657263656E74080004 00000000000A456E6450657263656E74080004000000000001000D4445464155 4C545F4F524445520200820000000000} object cdsCustomProjProjectID: TIntegerField FieldName = 'ProjectID' end object cdsCustomProjProjectName: TWideStringField FieldName = 'ProjectName' Size = 200 end object cdsCustomProjChapterID: TIntegerField FieldName = 'ChapterID' end object cdsCustomProjInnerPartID: TIntegerField FieldName = 'InnerPartID' end object cdsCustomProjIndexCode: TWideStringField FieldName = 'IndexCode' Size = 50 end object cdsCustomProjB_Code: TWideStringField FieldName = 'B_Code' Size = 50 end object cdsCustomProjName: TWideStringField FieldName = 'Name' Size = 200 end object cdsCustomProjUnits: TWideStringField FieldName = 'Units' end object cdsCustomProjPrice: TFloatField FieldName = 'Price' end object cdsCustomProjQuantity: TFloatField FieldName = 'Quantity' end object cdsCustomProjTotalPrice: TFloatField FieldName = 'TotalPrice' end object cdsCustomProjCurGatherQuantity: TFloatField FieldName = 'CurGatherQuantity' end object cdsCustomProjCurGatherTotalPrice: TFloatField FieldName = 'CurGatherTotalPrice' end object cdsCustomProjEndGatherQuantity: TFloatField FieldName = 'EndGatherQuantity' end object cdsCustomProjEndGatherTotalPrice: TFloatField FieldName = 'EndGatherTotalPrice' end object cdsCustomProjP_CurGatherQuantity: TFloatField FieldName = 'P_CurGatherQuantity' end object cdsCustomProjP_CurGatherTotalPrice: TFloatField FieldName = 'P_CurGatherTotalPrice' end object cdsCustomProjP_EndGatherQuantity: TFloatField FieldName = 'P_EndGatherQuantity' end object cdsCustomProjP_EndGatherTotalPrice: TFloatField FieldName = 'P_EndGatherTotalPrice' end object cdsCustomProjCurPercent: TFloatField FieldName = 'CurPercent' end object cdsCustomProjEndPercent: TFloatField FieldName = 'EndPercent' end end end