untdmasset.~dfm

固定资产管理系统源码 资产管理 查询管理 报表管理 系统管理

    object ADOqueryMaintenanceEmployee: TWideStringField
      FieldName = 'Employee'
      Size = 50
    end
    object ADOqueryMaintenanceMakeID: TIntegerField
      FieldName = 'MakeID'
    end
    object ADOqueryMaintenanceMakeName: TWideStringField
      FieldName = 'MakeName'
      Size = 30
    end
    object ADOqueryMaintenanceModelNumberID: TIntegerField
      FieldName = 'ModelNumberID'
    end
    object ADOqueryMaintenanceModelNumberName: TWideStringField
      FieldName = 'ModelNumberName'
      Size = 30
    end
    object ADOqueryMaintenanceStatus: TWideStringField
      FieldName = 'Status'
    end
    object ADOqueryMaintenanceVendorName: TWideStringField
      FieldName = 'VendorName'
      Size = 50
    end
    object ADOqueryMaintenanceDepartmentName: TWideStringField
      FieldName = 'DepartmentName'
      Size = 50
    end
    object ADOqueryMaintenanceDateAcquired: TDateTimeField
      FieldName = 'DateAcquired'
    end
    object ADOqueryMaintenancePurchasePrice: TBCDField
      FieldName = 'PurchasePrice'
      Precision = 19
    end
    object ADOqueryMaintenanceSerialNumber: TWideStringField
      FieldName = 'SerialNumber'
      Size = 50
    end
    object ADOqueryMaintenanceBarcodeNumber: TWideStringField
      FieldName = 'BarcodeNumber'
      Size = 30
    end
    object ADOqueryMaintenanceplace: TWideStringField
      FieldName = 'place'
    end
    object ADOqueryMaintenanceconfigure: TWideStringField
      FieldName = 'configure'
      Size = 50
    end
    object ADOqueryMaintenancecode: TWideStringField
      FieldName = 'code'
    end
    object ADOqueryMaintenanceDepartmentID: TIntegerField
      FieldName = 'DepartmentID'
    end
    object ADOqueryMaintenancequeryMaintenanceAVendorID: TIntegerField
      FieldName = 'queryMaintenance.A.VendorID'
    end
    object ADOqueryMaintenanceStatusID: TIntegerField
      FieldName = 'StatusID'
    end
    object ADOqueryMaintenanceCompanyID: TAutoIncField
      FieldName = 'CompanyID'
      ReadOnly = True
    end
    object ADOqueryMaintenanceCompany: TWideStringField
      FieldName = 'Company'
      Size = 25
    end
    object ADOqueryMaintenanceMaintenanceID: TAutoIncField
      FieldName = 'MaintenanceID'
      ReadOnly = True
    end
    object ADOqueryMaintenancequeryMaintenanceMAssetID: TIntegerField
      FieldName = 'queryMaintenance.M.AssetID'
    end
    object ADOqueryMaintenanceMaintenanceDate: TDateTimeField
      FieldName = 'MaintenanceDate'
    end
    object ADOqueryMaintenancePartsID: TIntegerField
      FieldName = 'PartsID'
    end
    object ADOqueryMaintenanceFaultCategoryID: TIntegerField
      FieldName = 'FaultCategoryID'
    end
    object ADOqueryMaintenanceMaintenanceDescription: TWideStringField
      FieldName = 'MaintenanceDescription'
      Size = 255
    end
    object ADOqueryMaintenanceMaintenancePerformedBy: TWideStringField
      FieldName = 'MaintenancePerformedBy'
      Size = 50
    end
    object ADOqueryMaintenanceMaintenanceCost: TBCDField
      FieldName = 'MaintenanceCost'
      Precision = 19
    end
    object ADOqueryMaintenancequeryMaintenanceMVendorID: TIntegerField
      FieldName = 'queryMaintenance.M.VendorID'
    end
    object ADOqueryMaintenanceMVendorname: TWideStringField
      FieldName = 'MVendorname'
      Size = 50
    end
    object ADOqueryMaintenanceFaultCategoryname: TWideStringField
      FieldName = 'FaultCategoryname'
    end
    object ADOqueryMaintenancePartsname: TWideStringField
      FieldName = 'Partsname'
    end
  end
  object DSqueryMaintenance: TDataSource
    DataSet = ADOqueryMaintenance
    Left = 688
    Top = 280
  end
  object ADOMove: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    AfterPost = ADOMoveAfterPost
    CommandText = 'select * from Move '
    Parameters = <>
    Left = 268
    Top = 440
    object ADOMoveMoveID: TAutoIncField
      FieldName = 'MoveID'
      ReadOnly = True
    end
    object ADOMoveAssetID: TIntegerField
      FieldName = 'AssetID'
    end
    object ADOMoveNewDepartmentID: TIntegerField
      FieldName = 'NewDepartmentID'
    end
    object ADOMoveEmployee: TWideStringField
      FieldName = 'Employee'
      Size = 50
    end
    object ADOMoveStatusID: TIntegerField
      FieldName = 'StatusID'
    end
    object ADOMovereturnDate: TDateTimeField
      FieldName = 'returnDate'
    end
    object ADOMovenote: TWideStringField
      FieldName = 'note'
      Size = 50
    end
    object ADOMoveCompany: TStringField
      FieldKind = fkLookup
      FieldName = 'Company'
      LookupDataSet = ADODepartment
      LookupKeyFields = 'DepartmentID'
      LookupResultField = 'Company'
      KeyFields = 'NewDepartmentID'
      Size = 30
      Lookup = True
    end
    object ADOMoveDepartmentName: TStringField
      FieldKind = fkLookup
      FieldName = 'DepartmentName'
      LookupDataSet = ADODepartment
      LookupKeyFields = 'DepartmentID'
      LookupResultField = 'DepartmentName'
      KeyFields = 'NewDepartmentID'
      Size = 30
      Lookup = True
    end
    object ADOMoveAssetCategory: TStringField
      FieldKind = fkLookup
      FieldName = 'AssetCategory'
      LookupDataSet = ADOAsset
      LookupKeyFields = 'AssetID'
      LookupResultField = 'AssetCategory'
      KeyFields = 'AssetID'
      Size = 30
      Lookup = True
    end
    object ADOMoveMakename: TStringField
      FieldKind = fkLookup
      FieldName = 'Makename'
      LookupDataSet = ADOqueryAsset
      LookupKeyFields = 'AssetID'
      LookupResultField = 'MakeName'
      KeyFields = 'AssetID'
      Size = 30
      Lookup = True
    end
    object ADOMoveModelNumberName: TStringField
      FieldKind = fkLookup
      FieldName = 'ModelNumberName'
      LookupDataSet = ADOqueryAsset
      LookupKeyFields = 'AssetID'
      LookupResultField = 'ModelNumberName'
      KeyFields = 'AssetID'
      Size = 30
      Lookup = True
    end
    object ADOMoveCode: TStringField
      FieldKind = fkLookup
      FieldName = 'Code'
      LookupDataSet = ADOAsset
      LookupKeyFields = 'AssetID'
      LookupResultField = 'code'
      KeyFields = 'AssetID'
      Size = 30
      Lookup = True
    end
    object ADOMoveDateAcquired: TDateField
      FieldKind = fkLookup
      FieldName = 'DateAcquired'
      LookupDataSet = ADOAsset
      LookupKeyFields = 'AssetID'
      LookupResultField = 'DateAcquired'
      KeyFields = 'AssetID'
      Lookup = True
    end
    object ADOMoveAssetDescription: TStringField
      FieldKind = fkLookup
      FieldName = 'AssetDescription'
      LookupDataSet = ADOAsset
      LookupKeyFields = 'AssetID'
      LookupResultField = 'AssetDescription'
      KeyFields = 'AssetID'
      Size = 30
      Lookup = True
    end
    object ADOMoveoldDepartmentID: TIntegerField
      FieldName = 'oldDepartmentID'
    end
    object ADOMoveoldCompany: TStringField
      FieldKind = fkLookup
      FieldName = 'oldCompany'
      LookupDataSet = ADODepartment
      LookupKeyFields = 'DepartmentID'
      LookupResultField = 'Company'
      KeyFields = 'oldDepartmentID'
      Size = 30
      Lookup = True
    end
    object ADOMoveOldDepartmentName: TStringField
      FieldKind = fkLookup
      FieldName = 'OldDepartmentName'
      LookupDataSet = ADODepartment
      LookupKeyFields = 'DepartmentID'
      LookupResultField = 'DepartmentName'
      KeyFields = 'oldDepartmentID'
      Size = 30
      Lookup = True
    end
  end
  object ADOempStatus: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select empStatus, empStatusID from empStatus'
    Parameters = <>
    Left = 28
    Top = 488
  end
  object DSempStatus: TDataSource
    DataSet = ADOempStatus
    Left = 96
    Top = 480
  end
  object ADOCompany: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select CompanyID, Company from Company'
    Parameters = <>
    Left = 268
    Top = 488
  end
  object DSCompany: TDataSource
    DataSet = ADOCompany
    Left = 338
    Top = 488
  end
  object ADOqueryMove: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from queryMove'
    Parameters = <>
    Left = 608
    Top = 336
    object ADOqueryMoveMoveID: TAutoIncField
      FieldName = 'MoveID'
      ReadOnly = True
    end
    object ADOqueryMoveAssetID: TIntegerField
      FieldName = 'AssetID'
    end
    object ADOqueryMoveoldDepartmentID: TIntegerField
      FieldName = 'oldDepartmentID'
    end
    object ADOqueryMoveNewDepartmentID: TIntegerField
      FieldName = 'NewDepartmentID'
    end
    object ADOqueryMoveEmployee: TWideStringField
      FieldName = 'Employee'
      Size = 50
    end
    object ADOqueryMoveStatusID: TIntegerField
      FieldName = 'StatusID'
    end
    object ADOqueryMovereturnDate: TDateTimeField
      FieldName = 'returnDate'
    end
    object ADOqueryMovenote: TWideStringField
      FieldName = 'note'
      Size = 50
    end
    object ADOqueryMoveCompany: TWideStringField
      FieldName = 'Company'
      Size = 25
    end
    object ADOqueryMoveDepartmentName: TWideStringField
      FieldName = 'DepartmentName'
      Size = 50
    end
    object ADOqueryMovetype: TWideStringField
      FieldName = 'type'
      Size = 50
    end
    object ADOqueryMovecode: TWideStringField
      FieldName = 'code'
    end
    object ADOqueryMoveAssetCategory: TWideStringField
      FieldName = 'AssetCategory'
      Size = 50
    end
    object ADOqueryMoveMakeName: TWideStringField
      FieldName = 'MakeName'
      Size = 30
    end
    object ADOqueryMoveModelNumberName: TWideStringField
      FieldName = 'ModelNumberName'
      Size = 30
    end
    object ADOqueryMoveStatus: TWideStringField
      FieldName = 'Status'
    end
    object ADOqueryMovePurchasePrice: TBCDField
      FieldName = 'PurchasePrice'
      Precision = 19
    end
    object ADOqueryMoveoldDepartment: TWideStringField
      FieldName = 'oldDepartment'
      Size = 50
    end
    object ADOqueryMoveoldCompany: TStringField
      FieldKind = fkLookup
      FieldName = 'oldCompany'
      LookupDataSet = ADODepartment
      LookupKeyFields = 'DepartmentID'
      LookupResultField = 'Company'
      KeyFields = 'oldDepartmentID'
      Size = 30
      Lookup = True
    end
  end
  object DSqueryMove: TDataSource
    DataSet = ADOqueryMove
    Left = 696
    Top = 336
  end
  object ADOType: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from Type order by type'
    Parameters = <>
    Left = 408
    Top = 176
  end
  object ADOBarcodePD: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select *  from querypd'
    Parameters = <>
    Left = 408
    Top = 232
  end
  object DSType: TDataSource
    DataSet = ADOType
    Left = 472
    Top = 176
  end
  object DSBarcodePD: TDataSource
    DataSet = ADOBarcodePD
    Left = 480
    Top = 232
  end
  object DSMove: TDataSource
    DataSet = ADOMove
    Left = 328
    Top = 440
  end
  object ADOTemp: TADODataSet
    Connection = ADOConn
    Parameters = <>
    Left = 408
    Top = 288
  end
end