untdmasset.~dfm

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

    Left = 160
    Top = 8
    object ADOAssetAssetID: TAutoIncField
      FieldName = 'AssetID'
      ReadOnly = True
    end
    object ADOAssetAssetDescription: TWideStringField
      FieldName = 'AssetDescription'
      Size = 30
    end
    object ADOAssetcode: TWideStringField
      FieldName = 'code'
    end
    object ADOAssetEmployee: TWideStringField
      FieldName = 'Employee'
      Size = 50
    end
    object ADOAssetStatusID: TIntegerField
      FieldName = 'StatusID'
    end
    object ADOAssetDepartmentID: TIntegerField
      FieldName = 'DepartmentID'
    end
    object ADOAssetVendorID: TIntegerField
      FieldName = 'VendorID'
    end
    object ADOAssetMakeID: TIntegerField
      FieldName = 'MakeID'
    end
    object ADOAssetconfigure: TWideStringField
      FieldName = 'configure'
      Size = 50
    end
    object ADOAssetModelNumberID: TIntegerField
      FieldName = 'ModelNumberID'
    end
    object ADOAssetSerialNumber: TWideStringField
      FieldName = 'SerialNumber'
      Size = 50
    end
    object ADOAssetBarcodeNumber: TWideStringField
      FieldName = 'BarcodeNumber'
      Size = 30
    end
    object ADOAssetDateAcquired: TDateTimeField
      FieldName = 'DateAcquired'
    end
    object ADOAssetDateSold: TDateTimeField
      FieldName = 'DateSold'
    end
    object ADOAssetPurchasePrice: TBCDField
      FieldName = 'PurchasePrice'
      Precision = 19
    end
    object ADOAssetDepreciationMethod: TWideStringField
      FieldName = 'DepreciationMethod'
      Size = 50
    end
    object ADOAssetDepreciableLife: TFloatField
      FieldName = 'DepreciableLife'
    end
    object ADOAssetSalvageValue: TBCDField
      FieldName = 'SalvageValue'
      Precision = 19
    end
    object ADOAssetCurrentValue: TBCDField
      FieldName = 'CurrentValue'
      Precision = 19
    end
    object ADOAssetComments: TMemoField
      FieldName = 'Comments'
      BlobType = ftMemo
    end
    object ADOAssetDescription: TWideStringField
      FieldName = 'Description'
      Size = 255
    end
    object ADOAssetplace: TWideStringField
      FieldName = 'place'
    end
    object ADOAssetMaintDate: TDateTimeField
      FieldName = 'MaintDate'
    end
    object ADOAssetDeparthentName: TStringField
      FieldKind = fkLookup
      FieldName = 'DeparthentName'
      LookupDataSet = ADODepartment
      LookupKeyFields = 'DepartmentID'
      LookupResultField = 'DepartmentName'
      KeyFields = 'DepartmentID'
      Size = 50
      Lookup = True
    end
    object ADOAssetCompany: TStringField
      FieldKind = fkLookup
      FieldName = 'Company'
      LookupDataSet = ADODepartment
      LookupKeyFields = 'DepartmentID'
      LookupResultField = 'Company'
      KeyFields = 'DepartmentID'
      Size = 50
      Lookup = True
    end
    object ADOAssetMakeName: TStringField
      FieldKind = fkLookup
      FieldName = 'MakeName'
      LookupDataSet = ADOMake
      LookupKeyFields = 'MakeID'
      LookupResultField = 'MakeName'
      KeyFields = 'MakeID'
      Size = 25
      Lookup = True
    end
    object ADOAssetModeNumberName: TStringField
      FieldKind = fkLookup
      FieldName = 'ModeNumberName'
      LookupDataSet = ADOModelNumber
      LookupKeyFields = 'ModelNumberID'
      LookupResultField = 'ModelNumberName'
      KeyFields = 'ModelNumberID'
      Size = 30
      Lookup = True
    end
    object ADOAssetAssetCategory: TStringField
      FieldKind = fkLookup
      FieldName = 'AssetCategory'
      LookupDataSet = ADOModelNumber
      LookupKeyFields = 'ModelNumberID'
      LookupResultField = 'AssetCategory'
      KeyFields = 'ModelNumberID'
      Size = 50
      Lookup = True
    end
    object ADOAssetStatus: TStringField
      FieldKind = fkLookup
      FieldName = 'Status'
      LookupDataSet = ADOStatus
      LookupKeyFields = 'StatusID'
      LookupResultField = 'Status'
      KeyFields = 'StatusID'
      Size = 25
      Lookup = True
    end
    object ADOAssetVendorName: TStringField
      FieldKind = fkLookup
      FieldName = 'VendorName'
      LookupDataSet = ADOVendor
      LookupKeyFields = 'VendorID'
      LookupResultField = 'VendorName'
      KeyFields = 'VendorID'
      Size = 30
      Lookup = True
    end
  end
  object DSAsset: TDataSource
    DataSet = ADOAsset
    Left = 208
    Top = 8
  end
  object ADOConn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=db\pc' +
      '.mdb;Mode=Share Deny None;Extended Properties="";Persist Securit' +
      'y Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Pat' +
      'h="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet ' +
      'OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=' +
      '2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Pa' +
      'ssword="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encry' +
      'pt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;J' +
      'et OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=Fals' +
      'e'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 8
  end
  object ADOqueryAsset: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'SELECT * FROM queryAsset WHERE 2>1 '
    Parameters = <>
    Left = 608
    Top = 115
    object ADOqueryAssetAssetID: TAutoIncField
      FieldName = 'AssetID'
      ReadOnly = True
    end
    object ADOqueryAssettype: TWideStringField
      FieldName = 'type'
      Size = 50
    end
    object ADOqueryAssetAssetCategory: TWideStringField
      FieldName = 'AssetCategory'
      Size = 50
    end
    object ADOqueryAssetAssetDescription: TWideStringField
      FieldName = 'AssetDescription'
      Size = 30
    end
    object ADOqueryAssetEmployee: TWideStringField
      FieldName = 'Employee'
      Size = 50
    end
    object ADOqueryAssetMakeID: TIntegerField
      FieldName = 'MakeID'
    end
    object ADOqueryAssetMakeName: TWideStringField
      FieldName = 'MakeName'
      Size = 30
    end
    object ADOqueryAssetModelNumberName: TWideStringField
      FieldName = 'ModelNumberName'
      Size = 30
    end
    object ADOqueryAssetStatus: TWideStringField
      FieldName = 'Status'
    end
    object ADOqueryAssetVendorName: TWideStringField
      FieldName = 'VendorName'
      Size = 50
    end
    object ADOqueryAssetDepartmentName: TWideStringField
      FieldName = 'DepartmentName'
      Size = 50
    end
    object ADOqueryAssetDateAcquired: TDateTimeField
      FieldName = 'DateAcquired'
    end
    object ADOqueryAssetPurchasePrice: TBCDField
      FieldName = 'PurchasePrice'
      Precision = 19
    end
    object ADOqueryAssetSerialNumber: TWideStringField
      FieldName = 'SerialNumber'
      Size = 50
    end
    object ADOqueryAssetBarcodeNumber: TWideStringField
      FieldName = 'BarcodeNumber'
      Size = 30
    end
    object ADOqueryAssetplace: TWideStringField
      FieldName = 'place'
    end
    object ADOqueryAssetconfigure: TWideStringField
      FieldName = 'configure'
      Size = 50
    end
    object ADOqueryAssetcode: TWideStringField
      FieldName = 'code'
    end
    object ADOqueryAssetDepartmentID: TIntegerField
      FieldName = 'DepartmentID'
    end
    object ADOqueryAssetVendorID: TIntegerField
      FieldName = 'VendorID'
    end
    object ADOqueryAssetStatusID: TIntegerField
      FieldName = 'StatusID'
    end
    object ADOqueryAssetCompanyID: TAutoIncField
      FieldName = 'CompanyID'
      ReadOnly = True
    end
    object ADOqueryAssetCompany: TWideStringField
      FieldName = 'Company'
      Size = 25
    end
  end
  object ADOqueryEmployee: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from queryEmployee order by FirstName'
    Parameters = <>
    Left = 608
    Top = 166
  end
  object DSqueryEmployee: TDataSource
    DataSet = ADOqueryEmployee
    Left = 688
    Top = 166
  end
  object ADOqueryModelNumber: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from queryModelNumber order by ModelNumberName'
    Parameters = <>
    Left = 608
    Top = 224
  end
  object DSqueryModelNumber: TDataSource
    DataSet = ADOqueryModelNumber
    Left = 688
    Top = 224
  end
  object ADOTables: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from Tables order by TablesName'
    Parameters = <>
    Left = 268
    Top = 328
  end
  object DSTables: TDataSource
    DataSet = ADOTables
    Left = 328
    Top = 328
  end
  object ADOFields: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from Fields order by FieldName'
    Parameters = <>
    Left = 20
    Top = 376
    object ADOFieldsFieldID: TAutoIncField
      FieldName = 'FieldID'
      ReadOnly = True
    end
    object ADOFieldsFieldName: TWideStringField
      FieldName = 'FieldName'
    end
    object ADOFieldsHint: TWideStringField
      FieldName = 'Hint'
      Size = 50
    end
    object ADOFieldsTablesID: TIntegerField
      FieldName = 'TablesID'
    end
    object ADOFieldsTablesName: TStringField
      FieldKind = fkLookup
      FieldName = 'TablesName'
      LookupDataSet = ADOTables
      LookupKeyFields = 'TablesID'
      LookupResultField = 'TablesName'
      KeyFields = 'TablesID'
      Lookup = True
    end
    object ADOFieldsHintTB: TStringField
      FieldKind = fkLookup
      FieldName = 'HintTB'
      LookupDataSet = ADOTables
      LookupKeyFields = 'TablesID'
      LookupResultField = 'Hint'
      KeyFields = 'TablesID'
      Lookup = True
    end
  end
  object DSFields: TDataSource
    DataSet = ADOFields
    Left = 96
    Top = 384
  end
  object ADOParts: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from Parts order by PartsName'
    Parameters = <>
    Left = 28
    Top = 432
  end
  object DSParts: TDataSource
    DataSet = ADOParts
    Left = 96
    Top = 432
  end
  object ADOFaultCategory: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from FaultCategory'
    Parameters = <>
    Left = 268
    Top = 384
  end
  object DSFaultCategory: TDataSource
    DataSet = ADOFaultCategory
    Left = 328
    Top = 384
  end
  object ADOqueryMaintenance: TADODataSet
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from queryMaintenance'
    Parameters = <>
    Left = 608
    Top = 280
    object ADOqueryMaintenancetype: TWideStringField
      FieldName = 'type'
      Size = 50
    end
    object ADOqueryMaintenanceTypeid: TIntegerField
      FieldName = 'Typeid'
    end
    object ADOqueryMaintenanceAssetCategory: TWideStringField
      FieldName = 'AssetCategory'
      Size = 50
    end
    object ADOqueryMaintenanceAssetCategoryID: TIntegerField
      FieldName = 'AssetCategoryID'
    end
    object ADOqueryMaintenanceAssetDescription: TWideStringField
      FieldName = 'AssetDescription'
      Size = 30
    end