| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251 | 
							- object rmGcl_XmjBillsData: TrmGcl_XmjBillsData
 
-   OldCreateOrder = False
 
-   Left = 795
 
-   Top = 218
 
-   Height = 150
 
-   Width = 215
 
-   object cdsGcl: TClientDataSet
 
-     Active = True
 
-     Aggregates = <>
 
-     FieldDefs = <
 
-       item
 
-         Name = 'IndexCode'
 
-         DataType = ftString
 
-         Size = 50
 
-       end
 
-       item
 
-         Name = 'IndexID'
 
-         DataType = ftInteger
 
-       end
 
-       item
 
-         Name = 'B_Code'
 
-         DataType = ftString
 
-         Size = 50
 
-       end
 
-       item
 
-         Name = 'Name'
 
-         DataType = ftWideString
 
-         Size = 200
 
-       end
 
-       item
 
-         Name = 'Code'
 
-         DataType = ftString
 
-         Size = 50
 
-       end
 
-       item
 
-         Name = 'Peg'
 
-         DataType = ftWideString
 
-         Size = 50
 
-       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
 
-       item
 
-         Name = 'Price'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'Quantity'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'TotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'DealQuantity'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'DealTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'DifferQuantity'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'DifferTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'Units'
 
-         DataType = ftWideString
 
-         Size = 20
 
-       end
 
-       item
 
-         Name = 'NewPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'Position'
 
-         DataType = ftWideString
 
-         Size = 255
 
-       end
 
-       item
 
-         Name = 'OrgQuantity'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'OrgTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'MisQuantity'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'MisTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'OthQuantity'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'OthTotalPrice'
 
-         DataType = ftFloat
 
-       end>
 
-     IndexDefs = <>
 
-     Params = <>
 
-     StoreDefs = True
 
-     Left = 56
 
-     Top = 48
 
-     Data = {
 
-       9C0200009619E0BD01000000180000001B0000000000030000009C0209496E64
 
-       6578436F6465010049000000010005574944544802000200320007496E646578
 
-       4944040001000000000006425F436F6465010049000000010005574944544802
 
-       0002003200044E616D6502004A00000001000557494454480200020090010443
 
-       6F646501004900000001000557494454480200020032000350656701004A0000
 
-       0001000557494454480200020064000A4E616D6544616E57656902004A000000
 
-       0100055749445448020002009001094E616D6546656E427502004A0000000100
 
-       0557494454480200020090010C4E616D6546656E5869616E6702004A00000001
 
-       00055749445448020002009001084E616D65556E697402004A00000001000557
 
-       494454480200020090010B44726177696E67436F646501004A00000001000557
 
-       494454480200020064000550726963650800040000000000085175616E746974
 
-       7908000400000000000A546F74616C507269636508000400000000000C446561
 
-       6C5175616E7469747908000400000000000E4465616C546F74616C5072696365
 
-       08000400000000000E4469666665725175616E74697479080004000000000010
 
-       446966666572546F74616C5072696365080004000000000005556E6974730100
 
-       4A0000000100055749445448020002002800084E657750726963650800040000
 
-       00000008506F736974696F6E02004A000000010005574944544802000200FE01
 
-       0B4F72675175616E7469747908000400000000000D4F7267546F74616C507269
 
-       636508000400000000000B4D69735175616E7469747908000400000000000D4D
 
-       6973546F74616C507269636508000400000000000B4F74685175616E74697479
 
-       08000400000000000D4F7468546F74616C507269636508000400000000000000}
 
-     object cdsGclIndexCode: TStringField
 
-       FieldName = 'IndexCode'
 
-       Size = 50
 
-     end
 
-     object cdsGclIndexID: TIntegerField
 
-       FieldName = 'IndexID'
 
-     end
 
-     object cdsGclB_Code: TStringField
 
-       FieldName = 'B_Code'
 
-       Size = 50
 
-     end
 
-     object cdsGclName: TWideStringField
 
-       FieldName = 'Name'
 
-       Size = 200
 
-     end
 
-     object cdsGclCode: TStringField
 
-       FieldName = 'Code'
 
-       Size = 50
 
-     end
 
-     object cdsGclPeg: TWideStringField
 
-       FieldName = 'Peg'
 
-       Size = 50
 
-     end
 
-     object cdsGclNameDanWei: TWideStringField
 
-       FieldName = 'NameDanWei'
 
-       Size = 200
 
-     end
 
-     object cdsGclNameFenBu: TWideStringField
 
-       FieldName = 'NameFenBu'
 
-       Size = 200
 
-     end
 
-     object cdsGclNameFenXiang: TWideStringField
 
-       FieldName = 'NameFenXiang'
 
-       Size = 200
 
-     end
 
-     object cdsGclNameUnit: TWideStringField
 
-       FieldName = 'NameUnit'
 
-       Size = 200
 
-     end
 
-     object cdsGclDrawingCode: TWideStringField
 
-       FieldName = 'DrawingCode'
 
-       Size = 50
 
-     end
 
-     object cdsGclPrice: TFloatField
 
-       FieldName = 'Price'
 
-     end
 
-     object cdsGclQuantity: TFloatField
 
-       FieldName = 'Quantity'
 
-     end
 
-     object cdsGclTotalPrice: TFloatField
 
-       FieldName = 'TotalPrice'
 
-     end
 
-     object cdsGclDealQuantity: TFloatField
 
-       FieldName = 'DealQuantity'
 
-     end
 
-     object cdsGclDealTotalPrice: TFloatField
 
-       FieldName = 'DealTotalPrice'
 
-     end
 
-     object cdsGclDifferQuantity: TFloatField
 
-       FieldName = 'DifferQuantity'
 
-     end
 
-     object cdsGclDifferTotalPrice: TFloatField
 
-       FieldName = 'DifferTotalPrice'
 
-     end
 
-     object cdsGclUnits: TWideStringField
 
-       FieldName = 'Units'
 
-     end
 
-     object cdsGclNewPrice: TFloatField
 
-       FieldName = 'NewPrice'
 
-     end
 
-     object cdsGclPosition: TWideStringField
 
-       FieldName = 'Position'
 
-       Size = 255
 
-     end
 
-     object cdsGclOrgQuantity: TFloatField
 
-       FieldName = 'OrgQuantity'
 
-     end
 
-     object cdsGclOrgTotalPrice: TFloatField
 
-       FieldName = 'OrgTotalPrice'
 
-     end
 
-     object cdsGclMisQuantity: TFloatField
 
-       FieldName = 'MisQuantity'
 
-     end
 
-     object cdsGclMisTotalPrice: TFloatField
 
-       FieldName = 'MisTotalPrice'
 
-     end
 
-     object cdsGclOthQuantity: TFloatField
 
-       FieldName = 'OthQuantity'
 
-     end
 
-     object cdsGclOthTotalPrice: TFloatField
 
-       FieldName = 'OthTotalPrice'
 
-     end
 
-   end
 
- end
 
 
  |