123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471 |
- object BillsGatherData: TBillsGatherData
- OldCreateOrder = False
- Left = 571
- Top = 314
- Height = 207
- Width = 215
- object cdsBillsGather: TClientDataSet
- Active = True
- Aggregates = <>
- FieldDefs = <
- item
- Name = 'B_Code'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'IndexCode'
- DataType = ftString
- 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 = 'NewPrice'
- DataType = ftFloat
- end
- item
- Name = 'DealQuantity'
- DataType = ftFloat
- end
- item
- Name = 'DealTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'Quantity'
- DataType = ftFloat
- end
- item
- Name = 'TotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'CurDealQuantity'
- DataType = ftFloat
- end
- item
- Name = 'CurDealTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'CurQcQuantity'
- DataType = ftFloat
- end
- item
- Name = 'CurQcTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'CurPcQuantity'
- DataType = ftFloat
- end
- item
- Name = 'CurPcTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'CurGatherQuantity'
- DataType = ftFloat
- end
- item
- Name = 'CurGatherTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'AddDealQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddDealTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'AddQcQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddQcTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'AddPcQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddPcTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'AddGatherQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddGatherTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'EndDealQuantity'
- DataType = ftFloat
- end
- item
- Name = 'EndDealTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'EndQcQuantity'
- DataType = ftFloat
- end
- item
- Name = 'EndQcTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'EndPcQuantity'
- DataType = ftFloat
- end
- item
- Name = 'EndPcTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'EndGatherQuantity'
- DataType = ftFloat
- end
- item
- Name = 'EndGatherTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'BGLQuantity'
- DataType = ftFloat
- end
- item
- Name = 'BGLTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'Deal_BGLQuantity'
- DataType = ftFloat
- end
- item
- Name = 'Deal_BGLTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'CompletionRate'
- DataType = ftFloat
- end>
- IndexDefs = <>
- Params = <>
- StoreDefs = True
- AfterScroll = cdsBillsGatherAfterScroll
- Left = 64
- Top = 16
- Data = {
- B60300009619E0BD010000001800000027000000000003000000B60306425F43
- 6F6465010049000000010005574944544802000200320009496E646578436F64
- 650100490000000100055749445448020002003200044E616D6502004A000000
- 010005574944544802000200900105556E69747301004A000000010005574944
- 54480200020028000550726963650800040000000000084E6577507269636508
- 000400000000000C4465616C5175616E7469747908000400000000000E446561
- 6C546F74616C50726963650800040000000000085175616E7469747908000400
- 000000000A546F74616C507269636508000400000000000F4375724465616C51
- 75616E746974790800040000000000114375724465616C546F74616C50726963
- 6508000400000000000D43757251635175616E7469747908000400000000000F
- 4375725163546F74616C507269636508000400000000000D4375725063517561
- 6E7469747908000400000000000F4375725063546F74616C5072696365080004
- 0000000000114375724761746865725175616E74697479080004000000000013
- 437572476174686572546F74616C507269636508000400000000000F41646444
- 65616C5175616E746974790800040000000000114164644465616C546F74616C
- 507269636508000400000000000D41646451635175616E746974790800040000
- 0000000F4164645163546F74616C507269636508000400000000000D41646450
- 635175616E7469747908000400000000000F4164645063546F74616C50726963
- 650800040000000000114164644761746865725175616E746974790800040000
- 00000013416464476174686572546F74616C507269636508000400000000000F
- 456E644465616C5175616E74697479080004000000000011456E644465616C54
- 6F74616C507269636508000400000000000D456E6451635175616E7469747908
- 000400000000000F456E645163546F74616C507269636508000400000000000D
- 456E6450635175616E7469747908000400000000000F456E645063546F74616C
- 5072696365080004000000000011456E644761746865725175616E7469747908
- 0004000000000013456E64476174686572546F74616C50726963650800040000
- 0000000B42474C5175616E7469747908000400000000000D42474C546F74616C
- 50726963650800040000000000104465616C5F42474C5175616E746974790800
- 040000000000124465616C5F42474C546F74616C507269636508000400000000
- 000E436F6D706C6574696F6E5261746508000400000000000000}
- object cdsBillsGatherB_Code: TStringField
- FieldName = 'B_Code'
- Size = 50
- end
- object cdsBillsGatherIndexCode: TStringField
- DisplayWidth = 50
- FieldName = 'IndexCode'
- Size = 50
- end
- object cdsBillsGatherName: TWideStringField
- FieldName = 'Name'
- Size = 200
- end
- object cdsBillsGatherUnits: TWideStringField
- FieldName = 'Units'
- end
- object cdsBillsGatherPrice: TFloatField
- FieldName = 'Price'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherNewPrice: TFloatField
- FieldName = 'NewPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherDealQuantity: TFloatField
- FieldName = 'DealQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherDealTotalPrice: TFloatField
- FieldName = 'DealTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherQuantity: TFloatField
- FieldName = 'Quantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherTotalPrice: TFloatField
- FieldName = 'TotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherCurDealQuantity: TFloatField
- FieldName = 'CurDealQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherCurDealTotalPrice: TFloatField
- FieldName = 'CurDealTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherCurQcQuantity: TFloatField
- FieldName = 'CurQcQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherCurQcTotalPrice: TFloatField
- FieldName = 'CurQcTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherCurPcQuantity: TFloatField
- FieldName = 'CurPcQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherCurPcTotalPrice: TFloatField
- FieldName = 'CurPcTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherCurGatherQuantity: TFloatField
- FieldName = 'CurGatherQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherCurGatherTotalPrice: TFloatField
- FieldName = 'CurGatherTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherAddDealQuantity: TFloatField
- FieldName = 'AddDealQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherAddDealTotalPrice: TFloatField
- FieldName = 'AddDealTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherAddQcQuantity: TFloatField
- FieldName = 'AddQcQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherAddQcTotalPrice: TFloatField
- FieldName = 'AddQcTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherAddPcQuantity: TFloatField
- FieldName = 'AddPcQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherAddPcTotalPrice: TFloatField
- FieldName = 'AddPcTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherAddGatherQuantity: TFloatField
- FieldName = 'AddGatherQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherAddGatherTotalPrice: TFloatField
- FieldName = 'AddGatherTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherEndDealQuantity: TFloatField
- FieldName = 'EndDealQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherEndDealTotalPrice: TFloatField
- FieldName = 'EndDealTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherEndQcQuantity: TFloatField
- FieldName = 'EndQcQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherEndQcTotalPrice: TFloatField
- FieldName = 'EndQcTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherEndPcQuantity: TFloatField
- FieldName = 'EndPcQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherEndPcTotalPrice: TFloatField
- FieldName = 'EndPcTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherEndGatherQuantity: TFloatField
- FieldName = 'EndGatherQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherEndGatherTotalPrice: TFloatField
- FieldName = 'EndGatherTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherBGLQuantity: TFloatField
- FieldName = 'BGLQuantity'
- end
- object cdsBillsGatherBGLTotalPrice: TFloatField
- FieldName = 'BGLTotalPrice'
- end
- object cdsBillsGatherDeal_BGLQuantity: TFloatField
- FieldName = 'Deal_BGLQuantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherDeal_BGLTotalPrice: TFloatField
- FieldName = 'Deal_BGLTotalPrice'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsBillsGatherCompletionRate: TFloatField
- FieldName = 'CompletionRate'
- end
- end
- object cdsRelaXmj: TClientDataSet
- Active = True
- Aggregates = <>
- FieldDefs = <
- item
- Name = 'Code'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'Peg'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'Name'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'Units'
- DataType = ftWideString
- Size = 20
- end
- item
- Name = 'Quantity'
- DataType = ftFloat
- end
- item
- Name = 'NameDanWei'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'NameFenBu'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'NameFenXiang'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'NameUnit'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'DrawingCode'
- DataType = ftWideString
- Size = 50
- end>
- IndexDefs = <>
- Params = <>
- StoreDefs = True
- Left = 64
- Top = 88
- Data = {
- 2A0100009619E0BD01000000180000000A0000000000030000002A0104436F64
- 6501004900000001000557494454480200020032000350656702004A00000001
- 00055749445448020002009001044E616D6502004A0000000100055749445448
- 02000200900105556E69747301004A0000000100055749445448020002002800
- 085175616E7469747908000400000000000A4E616D6544616E57656902004A00
- 00000100055749445448020002009001094E616D6546656E427502004A000000
- 01000557494454480200020090010C4E616D6546656E5869616E6702004A0000
- 000100055749445448020002009001084E616D65556E697402004A0000000100
- 0557494454480200020090010B44726177696E67436F646501004A0000000100
- 0557494454480200020064000000}
- object cdsRelaXmjCode: TStringField
- FieldName = 'Code'
- Size = 50
- end
- object cdsRelaXmjPeg: TWideStringField
- FieldName = 'Peg'
- Size = 200
- end
- object cdsRelaXmjName: TWideStringField
- FieldName = 'Name'
- Size = 200
- end
- object cdsRelaXmjUnits: TWideStringField
- FieldName = 'Units'
- end
- object cdsRelaXmjQuantity: TFloatField
- FieldName = 'Quantity'
- OnGetText = cdsBillsGatherQuantityGetText
- end
- object cdsRelaXmjNameDanWei: TWideStringField
- FieldName = 'NameDanWei'
- Size = 200
- end
- object cdsRelaXmjNameFenBu: TWideStringField
- FieldName = 'NameFenBu'
- Size = 200
- end
- object cdsRelaXmjNameFenXiang: TWideStringField
- FieldName = 'NameFenXiang'
- Size = 200
- end
- object cdsRelaXmjNameUnit: TWideStringField
- FieldName = 'NameUnit'
- Size = 200
- end
- object cdsRelaXmjDrawingCode: TWideStringField
- FieldName = 'DrawingCode'
- Size = 50
- end
- end
- end
|