SmartCost/ImportAndExport/WCostPriceSaverUnit.dfm

object WCostPriceSaver: TWCostPriceSaver
  OldCreateOrder = False
  Left = 275
  Top = 137
  Height = 259
  Width = 285
  object atCLComput: TADOTable
    Connection = acDJFile
    TableName = 'CLComput'
    Left = 40
    Top = 72
    object atCLComputFID: TIntegerField
      FieldName = 'FID'
    end
    object atCLComputCode: TSmallintField
      FieldName = 'Code'
    end
    object atCLComputWhere: TWideStringField
      FieldName = 'Where'
      Size = 24
    end
    object atCLComputGYValue: TFloatField
      FieldName = 'GYValue'
    end
    object atCLComputMZValue: TFloatField
      FieldName = 'MZValue'
    end
    object atCLComputYFValue: TBCDField
      FieldName = 'YFValue'
      Precision = 19
    end
    object atCLComputYJYF: TFloatField
      FieldName = 'YJYF'
    end
    object atCLComputZXCount: TFloatField
      FieldName = 'ZXCount'
    end
    object atCLComputZXRate: TFloatField
      FieldName = 'ZXRate'
    end
    object atCLComputSHRate: TFloatField
      FieldName = 'SHRate'
    end
    object atCLComputSHValue: TFloatField
      FieldName = 'SHValue'
    end
    object atCLComputBGRate: TFloatField
      FieldName = 'BGRate'
    end
    object atCLComputBGValue: TFloatField
      FieldName = 'BGValue'
    end
    object atCLComputHSValue: TFloatField
      FieldName = 'HSValue'
    end
  end
  object atCLYF_List: TADOTable
    Connection = acDJFile
    IndexFieldNames = 'FID;Code'
    MasterFields = 'FID;Code'
    MasterSource = dsCLComput
    TableName = 'CLYF_List'
    Left = 128
    Top = 72
    object atCLYF_ListFID: TIntegerField
      FieldName = 'FID'
    end
    object atCLYF_ListCode: TSmallintField
      FieldName = 'Code'
    end
    object atCLYF_ListWhere: TWideStringField
      FieldName = 'Where'
      Size = 24
    end
    object atCLYF_ListToolNo: TSmallintField
      FieldName = 'ToolNo'
    end
    object atCLYF_ListCount: TIntegerField
      FieldName = 'Count'
    end
    object atCLYF_ListSLRate: TFloatField
      FieldName = 'SLRate'
    end
    object atCLYF_ListkmValue: TFloatField
      FieldName = 'kmValue'
    end
    object atCLYF_Listt_kmDJ: TFloatField
      FieldName = 't_kmDJ'
    end
    object atCLYF_ListYFValue: TFloatField
      FieldName = 'YFValue'
    end
    object atCLYF_ListZXDJ: TFloatField
      FieldName = 'ZXDJ'
    end
    object atCLYF_ListZXCount: TFloatField
      FieldName = 'ZXCount'
    end
    object atCLYF_ListQTDJ: TFloatField
      FieldName = 'QTDJ'
    end
    object atCLYF_ListAddRate: TFloatField
      FieldName = 'AddRate'
    end
    object atCLYF_ListFmlNote: TWideStringField
      FieldName = 'FmlNote'
      Size = 50
    end
  end
  object atCLYJ_List: TADOTable
    Connection = acDJFile
    IndexFieldNames = 'FID;Code'
    MasterFields = 'FID;Code'
    MasterSource = dsCLComput
    TableName = 'CLYJ_List'
    Left = 208
    Top = 72
    object atCLYJ_ListFID: TIntegerField
      FieldName = 'FID'
    end
    object atCLYJ_ListCode: TSmallintField
      FieldName = 'Code'
    end
    object atCLYJ_ListWhere: TWideStringField
      FieldName = 'Where'
      Size = 24
    end
    object atCLYJ_ListSLRate: TFloatField
      FieldName = 'SLRate'
    end
    object atCLYJ_ListDJValue: TFloatField
      FieldName = 'DJValue'
    end
    object atCLYJ_ListFmlNote: TWideStringField
      FieldName = 'FmlNote'
      Size = 40
    end
    object atCLYJ_ListXCValue: TBCDField
      FieldName = 'XCValue'
      Precision = 19
    end
    object atCLYJ_ListGYValue: TBCDField
      FieldName = 'GYValue'
      Precision = 19
    end
  end
  object dsCLComput: TDataSource
    DataSet = atCLComput
    Left = 40
    Top = 120
  end
  object acDJFile: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 24
  end
  object atFileName: TADOTable
    Connection = acDJFile
    TableName = 'FileName'
    Left = 128
    Top = 24
    object atFileNameFID: TAutoIncField
      FieldName = 'FID'
      ReadOnly = True
    end
    object atFileNameFType: TSmallintField
      FieldName = 'FType'
    end
    object atFileNameName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object atFileNameUserName: TWideStringField
      FieldName = 'UserName'
      Size = 10
    end
    object atFileNameNote: TMemoField
      FieldName = 'Note'
      BlobType = ftMemo
    end
  end
  object xmlDoc: TXMLDocument
    Active = True
    Left = 40
    Top = 177
    DOMVendorDesc = 'MSXML'
  end
end