object rmHaBaiCustomizedData: TrmHaBaiCustomizedData OldCreateOrder = False Left = 723 Top = 455 Height = 222 Width = 337 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 item Name = 'SerialNo' DataType = ftInteger end> IndexDefs = <> IndexFieldNames = 'ProjectID;ChapterID;InnerPartID;IndexCode' Params = <> StoreDefs = True Left = 264 Top = 48 Data = { 270200009619E0BD01000000180000001600000000000300000027020950726F 6A656374494404000100000000000B50726F6A6563744E616D6502004A000000 0100055749445448020002009001094368617074657249440400010000000000 0B496E6E6572506172744944040001000000000009496E646578436F64650100 4A000000010005574944544802000200640006425F436F646501004A00000001 00055749445448020002006400044E616D6502004A0000000100055749445448 02000200900105556E69747301004A0000000100055749445448020002002800 0550726963650800040000000000085175616E7469747908000400000000000A 546F74616C50726963650800040000000000114375724761746865725175616E 74697479080004000000000013437572476174686572546F74616C5072696365 080004000000000011456E644761746865725175616E74697479080004000000 000013456E64476174686572546F74616C507269636508000400000000001350 5F4375724761746865725175616E74697479080004000000000015505F437572 476174686572546F74616C5072696365080004000000000013505F456E644761 746865725175616E74697479080004000000000015505F456E64476174686572 546F74616C507269636508000400000000000A43757250657263656E74080004 00000000000A456E6450657263656E7408000400000000000853657269616C4E 6F04000100000000000000} 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 object cdsCustomProjSerialNo: TIntegerField FieldName = 'SerialNo' end end object cdsCustomCS_1: TClientDataSet Active = True Aggregates = <> Params = <> Left = 32 Top = 120 Data = { 900000009619E0BD01000000180000000400000000000300000090000B50756C 735061794E616D6502004A00000001000557494454480200020090011150756C 73506179546F74616C507269636508000400000000000C4D696E75735061794E 616D6502004A0000000100055749445448020002009001124D696E7573506179 546F74616C507269636508000400000000000000} object cdsCustomCS_1PulsPayName: TWideStringField FieldName = 'PulsPayName' Size = 200 end object cdsCustomCS_1PulsPayTotalPrice: TFloatField FieldName = 'PulsPayTotalPrice' end object cdsCustomCS_1MinusPayName: TWideStringField FieldName = 'MinusPayName' Size = 200 end object cdsCustomCS_1MinusPayTotalPrice: TFloatField FieldName = 'MinusPayTotalPrice' end end object cdsCustomCS_2: TClientDataSet Active = True Aggregates = <> FieldDefs = < item Name = 'DealTotalPrice' DataType = ftFloat end item Name = 'EndCompleteTotalPrice' DataType = ftFloat end item Name = 'PreCompleteTotalPrice' DataType = ftFloat end item Name = 'CurPayTotalPrice' DataType = ftFloat end> IndexDefs = <> Params = <> StoreDefs = True Left = 120 Top = 120 Data = { 860000009619E0BD01000000180000000400000000000300000086000E446561 6C546F74616C5072696365080004000000000015456E64436F6D706C65746554 6F74616C5072696365080004000000000015507265436F6D706C657465546F74 616C5072696365080004000000000010437572506179546F74616C5072696365 08000400000000000000} object cdsCustomCS_2DealTotalPrice: TFloatField FieldName = 'DealTotalPrice' end object cdsCustomCS_2EndCompleteTotalPrice: TFloatField FieldName = 'EndCompleteTotalPrice' end object cdsCustomCS_2PreCompleteTotalPrice: TFloatField FieldName = 'PreCompleteTotalPrice' end object cdsCustomCS_2CurPayTotalPrice: TFloatField FieldName = 'CurPayTotalPrice' end end end