| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432 | 
							- 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
 
 
  |