untdmasset.dfm

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

object DMasset: TDMasset
  OldCreateOrder = False
  Left = 195
  Top = 110
  Height = 591
  Width = 823
  object ADOAssetCategory: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from AssetCategory ORDER BY AssetCategory'
    Parameters = <>
    Left = 28
    Top = 115
    object ADOAssetCategoryAssetCategoryID: TAutoIncField
      FieldName = 'AssetCategoryID'
      ReadOnly = True
    end
    object ADOAssetCategoryAssetCategory: TWideStringField
      FieldName = 'AssetCategory'
      Size = 50
    end
    object ADOAssetCategoryTypeID: TIntegerField
      FieldName = 'TypeID'
    end
    object ADOAssetCategorytype: TStringField
      FieldKind = fkLookup
      FieldName = 'type'
      LookupDataSet = ADOType
      LookupKeyFields = 'typeid'
      LookupResultField = 'type'
      KeyFields = 'TypeID'
      Size = 25
      Lookup = True
    end
  end
  object DSAssetCategory: TDataSource
    DataSet = ADOAssetCategory
    Left = 96
    Top = 115
  end
  object ADOStatus: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from Status ORDER BY Status'
    Parameters = <>
    Left = 28
    Top = 166
  end
  object DSStatus: TDataSource
    DataSet = ADOStatus
    Left = 97
    Top = 166
  end
  object DSMake: TDataSource
    DataSet = ADOMake
    Left = 96
    Top = 224
  end
  object ADOEmployee: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from Employee ORDER BY FirstName'
    Parameters = <>
    Left = 28
    Top = 328
    object ADOEmployeeEmployeeID: TAutoIncField
      FieldName = 'EmployeeID'
      ReadOnly = True
    end
    object ADOEmployeeSocialSecurityNumber: TWideStringField
      FieldName = 'SocialSecurityNumber'
      Size = 30
    end
    object ADOEmployeeEmployeeNumber: TWideStringField
      FieldName = 'EmployeeNumber'
      Size = 30
    end
    object ADOEmployeeLastName: TWideStringField
      FieldName = 'LastName'
      Size = 50
    end
    object ADOEmployeeFirstName: TWideStringField
      FieldName = 'FirstName'
      Size = 50
    end
    object ADOEmployeeTitle: TWideStringField
      FieldName = 'Title'
      Size = 50
    end
    object ADOEmployeeEmailName: TWideStringField
      FieldName = 'EmailName'
      Size = 50
    end
    object ADOEmployeeExtension: TWideStringField
      FieldName = 'Extension'
      Size = 30
    end
    object ADOEmployeemobile: TWideStringField
      FieldName = 'mobile'
      Size = 30
    end
    object ADOEmployeeWorkPhone: TWideStringField
      FieldName = 'WorkPhone'
      Size = 30
    end
    object ADOEmployeeIM: TWideStringField
      FieldName = 'IM'
      Size = 30
    end
    object ADOEmployeeNotes: TMemoField
      FieldName = 'Notes'
      BlobType = ftMemo
    end
    object ADOEmployeeOfficeLocation: TWideStringField
      FieldName = 'OfficeLocation'
    end
    object ADOEmployeeDepartmentID: TIntegerField
      FieldName = 'DepartmentID'
    end
    object ADOEmployeeDepartmentName: TStringField
      FieldKind = fkLookup
      FieldName = 'DepartmentName'
      LookupDataSet = ADODepartment
      LookupKeyFields = 'DepartmentID'
      LookupResultField = 'DepartmentName'
      KeyFields = 'DepartmentID'
      Lookup = True
    end
    object ADOEmployeeempStatusID: TIntegerField
      FieldName = 'empStatusID'
    end
    object ADOEmployeeempStatus: TStringField
      FieldKind = fkLookup
      FieldName = 'empStatus'
      LookupDataSet = ADOempStatus
      LookupKeyFields = 'empStatusID'
      LookupResultField = 'empStatus'
      KeyFields = 'empStatusID'
      Size = 15
      Lookup = True
    end
    object ADOEmployeeCompany: TStringField
      FieldKind = fkLookup
      FieldName = 'Company'
      LookupDataSet = ADODepartment
      LookupKeyFields = 'DepartmentID'
      LookupResultField = 'Company'
      KeyFields = 'DepartmentID'
      Lookup = True
    end
  end
  object ADOVendor: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from Vendor ORDER BY VendorName'
    Parameters = <>
    Left = 260
    Top = 179
  end
  object ADOMaintenance: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from Maintenance ORDER BY MaintenanceDate'
    Parameters = <>
    Left = 260
    Top = 230
    object ADOMaintenanceMaintenanceID: TAutoIncField
      FieldName = 'MaintenanceID'
      ReadOnly = True
    end
    object ADOMaintenanceAssetID: TIntegerField
      FieldName = 'AssetID'
    end
    object ADOMaintenanceMaintenanceDate: TDateTimeField
      FieldName = 'MaintenanceDate'
    end
    object ADOMaintenancePartsID: TIntegerField
      FieldName = 'PartsID'
    end
    object ADOMaintenanceFaultCategoryID: TIntegerField
      FieldName = 'FaultCategoryID'
    end
    object ADOMaintenanceMaintenanceDescription: TWideStringField
      FieldName = 'MaintenanceDescription'
      Size = 255
    end
    object ADOMaintenanceMaintenancePerformedBy: TWideStringField
      FieldName = 'MaintenancePerformedBy'
      Size = 50
    end
    object ADOMaintenanceMaintenanceCost: TBCDField
      FieldName = 'MaintenanceCost'
      Precision = 19
    end
    object ADOMaintenanceVendorID: TIntegerField
      FieldName = 'VendorID'
    end
    object ADOMaintenanceAssetCategory: TStringField
      FieldKind = fkLookup
      FieldName = 'AssetCategory'
      LookupDataSet = ADOqueryAsset
      LookupKeyFields = 'AssetID'
      LookupResultField = 'AssetCategory'
      KeyFields = 'AssetID'
      Size = 30
      Lookup = True
    end
    object ADOMaintenancecode: TStringField
      FieldKind = fkLookup
      FieldName = 'code'
      LookupDataSet = ADOqueryAsset
      LookupKeyFields = 'AssetID'
      LookupResultField = 'code'
      KeyFields = 'AssetID'
      Size = 30
      Lookup = True
    end
    object ADOMaintenanceFaultCategoryname: TStringField
      FieldKind = fkLookup
      FieldName = 'FaultCategoryname'
      LookupDataSet = ADOFaultCategory
      LookupKeyFields = 'FaultCategoryID'
      LookupResultField = 'FaultCategoryName'
      KeyFields = 'FaultCategoryID'
      Size = 30
      Lookup = True
    end
    object ADOMaintenancePartsName: TStringField
      FieldKind = fkLookup
      FieldName = 'PartsName'
      LookupDataSet = ADOParts
      LookupKeyFields = 'PartsID'
      LookupResultField = 'PartsName'
      KeyFields = 'PartsID'
      Size = 30
      Lookup = True
    end
  end
  object ADOModelNumber: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 
      'SELECT M.*, T.type,T.typeid,  A.AssetCategory '#13#10'FROM ModelNumber' +
      ' AS M, Type AS T, AssetCategory AS A'#13#10'WHERE M.AssetCategoryID=A.' +
      'AssetCategoryID AND A.typeid=T.typeid'#13#10' ORDER BY ModelNumberName'
    Parameters = <>
    Left = 260
    Top = 120
    object ADOModelNumberModelNumberID: TAutoIncField
      FieldName = 'ModelNumberID'
      ReadOnly = True
    end
    object ADOModelNumberModelNumberName: TWideStringField
      FieldName = 'ModelNumberName'
      Size = 30
    end
    object ADOModelNumberMakeName: TStringField
      FieldKind = fkLookup
      FieldName = 'MakeName'
      LookupDataSet = ADOMake
      LookupKeyFields = 'MakeID'
      LookupResultField = 'MakeName'
      KeyFields = 'MakeID'
      Lookup = True
    end
    object ADOModelNumberMakeID: TIntegerField
      FieldName = 'MakeID'
    end
    object ADOModelNumberProcessor: TWideStringField
      FieldName = 'Processor'
    end
    object ADOModelNumberMainboard: TWideStringField
      FieldName = 'Mainboard'
    end
    object ADOModelNumberChip: TWideStringField
      FieldName = 'Chip'
    end
    object ADOModelNumberDisplay: TWideStringField
      FieldName = 'Display'
    end
    object ADOModelNumberSound: TWideStringField
      FieldName = 'Sound'
      Size = 50
    end
    object ADOModelNumberNetwork: TWideStringField
      FieldName = 'Network'
    end
    object ADOModelNumberDisk: TWideStringField
      FieldName = 'Disk'
      Size = 50
    end
    object ADOModelNumberCdrom: TWideStringField
      FieldName = 'Cdrom'
      Size = 50
    end
    object ADOModelNumbermemo: TWideStringField
      FieldName = 'memo'
      Size = 50
    end
    object ADOModelNumbermemory: TWideStringField
      FieldName = 'memory'
    end
    object ADOModelNumberAssetCategoryID: TIntegerField
      FieldName = 'AssetCategoryID'
    end
    object ADOModelNumbertype: TWideStringField
      FieldName = 'type'
      Size = 50
    end
    object ADOModelNumberAssetCategory: TWideStringField
      FieldName = 'AssetCategory'
      Size = 50
    end
    object ADOModelNumbertypeid: TAutoIncField
      FieldName = 'typeid'
      ReadOnly = True
    end
  end
  object ADODepreciation: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from Depreciation ORDER BY DepreciationDate'
    Parameters = <>
    Left = 268
    Top = 280
  end
  object DSDepartment: TDataSource
    DataSet = ADODepartment
    Left = 96
    Top = 280
  end
  object DSEmployee: TDataSource
    DataSet = ADOEmployee
    Left = 96
    Top = 328
  end
  object DSVendor: TDataSource
    DataSet = ADOVendor
    Left = 328
    Top = 179
  end
  object DSMaintenance: TDataSource
    DataSet = ADOMaintenance
    Left = 328
    Top = 230
  end
  object DSDepreciation: TDataSource
    DataSet = ADODepreciation
    Left = 328
    Top = 280
  end
  object ADOMake: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select  * from Make order by MakeName'
    Parameters = <>
    Left = 28
    Top = 224
    object ADOMakeMakeID: TAutoIncField
      FieldName = 'MakeID'
      ReadOnly = True
    end
    object ADOMakeMakeName: TWideStringField
      FieldName = 'MakeName'
      Size = 30
    end
  end
  object ADODepartment: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from Department ORDER BY DepartmentName'
    Parameters = <>
    Left = 28
    Top = 280
    object ADODepartmentDepartmentID: TAutoIncField
      FieldName = 'DepartmentID'
      ReadOnly = True
    end
    object ADODepartmentDepartmentName: TWideStringField
      FieldName = 'DepartmentName'
      Size = 50
    end
    object ADODepartmentCompanyID: TIntegerField
      FieldName = 'CompanyID'
    end
    object ADODepartmentCompany: TStringField
      FieldKind = fkLookup
      FieldName = 'Company'
      LookupDataSet = ADOCompany
      LookupKeyFields = 'CompanyID'
      LookupResultField = 'Company'
      KeyFields = 'CompanyID'
      Size = 25
      Lookup = True
    end
  end
  object ADOAsset: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 
      'select * from Asset ORDER BY DepartmentID,MakeID, ModelNumberID,' +
      'code, Employee'
    Parameters = <>
    Left = 160
    Top = 8