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