untdmasset.pas

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

unit UntDMAsset;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDMasset = class(TDataModule)
    ADOAssetCategory: TADODataSet;
    DSAssetCategory: TDataSource;
    ADOStatus: TADODataSet;
    DSStatus: TDataSource;
    DSMake: TDataSource;
    ADOEmployee: TADODataSet;
    ADOEmployeeEmployeeID: TAutoIncField;
    ADOEmployeeSocialSecurityNumber: TWideStringField;
    ADOEmployeeEmployeeNumber: TWideStringField;
    ADOEmployeeLastName: TWideStringField;
    ADOEmployeeFirstName: TWideStringField;
    ADOEmployeeTitle: TWideStringField;
    ADOEmployeeEmailName: TWideStringField;
    ADOEmployeeExtension: TWideStringField;
    ADOEmployeemobile: TWideStringField;
    ADOEmployeeWorkPhone: TWideStringField;
    ADOEmployeeIM: TWideStringField;
    ADOEmployeeNotes: TMemoField;
    ADOEmployeeOfficeLocation: TWideStringField;
    ADOEmployeeDepartmentID: TIntegerField;
    ADOEmployeeDepartmentName: TStringField;
    ADOEmployeeempStatusID: TIntegerField;
    ADOEmployeeempStatus: TStringField;
    ADOEmployeeCompany: TStringField;
    ADOVendor: TADODataSet;
    ADOMaintenance: TADODataSet;
    ADOModelNumber: TADODataSet;
    ADOModelNumberModelNumberID: TAutoIncField;
    ADOModelNumberModelNumberName: TWideStringField;
    ADOModelNumberMakeName: TStringField;
    ADOModelNumberMakeID: TIntegerField;
    ADOModelNumberProcessor: TWideStringField;
    ADOModelNumberMainboard: TWideStringField;
    ADOModelNumberChip: TWideStringField;
    ADOModelNumberDisplay: TWideStringField;
    ADOModelNumberSound: TWideStringField;
    ADOModelNumberNetwork: TWideStringField;
    ADOModelNumberDisk: TWideStringField;
    ADOModelNumberCdrom: TWideStringField;
    ADOModelNumbermemo: TWideStringField;
    ADOModelNumbermemory: TWideStringField;
    ADODepreciation: TADODataSet;
    DSDepartment: TDataSource;
    DSEmployee: TDataSource;
    DSVendor: TDataSource;
    DSMaintenance: TDataSource;
    DSDepreciation: TDataSource;
    ADOMake: TADODataSet;
    ADOMakeMakeID: TAutoIncField;
    ADOMakeMakeName: TWideStringField;
    ADODepartment: TADODataSet;
    ADODepartmentDepartmentID: TAutoIncField;
    ADODepartmentDepartmentName: TWideStringField;
    ADODepartmentCompanyID: TIntegerField;
    ADODepartmentCompany: TStringField;
    ADOAsset: TADODataSet;
    DSAsset: TDataSource;
    ADOConn: TADOConnection;
    ADOqueryAsset: TADODataSet;
    ADOqueryEmployee: TADODataSet;
    DSqueryEmployee: TDataSource;
    ADOqueryModelNumber: TADODataSet;
    DSqueryModelNumber: TDataSource;
    ADOTables: TADODataSet;
    DSTables: TDataSource;
    ADOFields: TADODataSet;
    ADOFieldsFieldID: TAutoIncField;
    ADOFieldsFieldName: TWideStringField;
    ADOFieldsHint: TWideStringField;
    ADOFieldsTablesID: TIntegerField;
    ADOFieldsTablesName: TStringField;
    ADOFieldsHintTB: TStringField;
    DSFields: TDataSource;
    ADOParts: TADODataSet;
    DSParts: TDataSource;
    ADOFaultCategory: TADODataSet;
    DSFaultCategory: TDataSource;
    ADOqueryMaintenance: TADODataSet;
    DSqueryMaintenance: TDataSource;
    ADOMove: TADODataSet;
    ADOempStatus: TADODataSet;
    DSempStatus: TDataSource;
    ADOCompany: TADODataSet;
    DSCompany: TDataSource;
    ADOqueryMove: TADODataSet;
    DSqueryMove: TDataSource;
    ADOType: TADODataSet;
    ADOBarcodePD: TADODataSet;
    DSType: TDataSource;
    DSBarcodePD: TDataSource;
    ADOModelNumberAssetCategoryID: TIntegerField;
    ADOAssetCategoryAssetCategoryID: TAutoIncField;
    ADOAssetCategoryAssetCategory: TWideStringField;
    ADOAssetCategoryTypeID: TIntegerField;
    ADOAssetCategorytype: TStringField;
    ADOModelNumbertype: TWideStringField;
    ADOModelNumberAssetCategory: TWideStringField;
    ADOModelNumbertypeid: TAutoIncField;
    ADOAssetAssetID: TAutoIncField;
    ADOAssetAssetDescription: TWideStringField;
    ADOAssetcode: TWideStringField;
    ADOAssetEmployee: TWideStringField;
    ADOAssetStatusID: TIntegerField;
    ADOAssetDepartmentID: TIntegerField;
    ADOAssetVendorID: TIntegerField;
    ADOAssetMakeID: TIntegerField;
    ADOAssetconfigure: TWideStringField;
    ADOAssetModelNumberID: TIntegerField;
    ADOAssetSerialNumber: TWideStringField;
    ADOAssetBarcodeNumber: TWideStringField;
    ADOAssetDateAcquired: TDateTimeField;
    ADOAssetDateSold: TDateTimeField;
    ADOAssetPurchasePrice: TBCDField;
    ADOAssetDepreciationMethod: TWideStringField;
    ADOAssetDepreciableLife: TFloatField;
    ADOAssetSalvageValue: TBCDField;
    ADOAssetCurrentValue: TBCDField;
    ADOAssetComments: TMemoField;
    ADOAssetDescription: TWideStringField;
    ADOAssetplace: TWideStringField;
    ADOAssetMaintDate: TDateTimeField;
    ADOAssetDeparthentName: TStringField;
    ADOAssetCompany: TStringField;
    ADOAssetMakeName: TStringField;
    ADOAssetModeNumberName: TStringField;
    ADOAssetAssetCategory: TStringField;
    ADOAssetStatus: TStringField;
    ADOAssetVendorName: TStringField;
    ADOqueryAssetAssetID: TAutoIncField;
    ADOqueryAssettype: TWideStringField;
    ADOqueryAssetAssetCategory: TWideStringField;
    ADOqueryAssetAssetDescription: TWideStringField;
    ADOqueryAssetEmployee: TWideStringField;
    ADOqueryAssetMakeID: TIntegerField;
    ADOqueryAssetMakeName: TWideStringField;
    ADOqueryAssetModelNumberName: TWideStringField;
    ADOqueryAssetStatus: TWideStringField;
    ADOqueryAssetVendorName: TWideStringField;
    ADOqueryAssetDepartmentName: TWideStringField;
    ADOqueryAssetDateAcquired: TDateTimeField;
    ADOqueryAssetPurchasePrice: TBCDField;
    ADOqueryAssetSerialNumber: TWideStringField;
    ADOqueryAssetBarcodeNumber: TWideStringField;
    ADOqueryAssetplace: TWideStringField;
    ADOqueryAssetconfigure: TWideStringField;
    ADOqueryAssetcode: TWideStringField;
    ADOqueryAssetDepartmentID: TIntegerField;
    ADOqueryAssetVendorID: TIntegerField;
    ADOqueryAssetStatusID: TIntegerField;
    ADOqueryAssetCompanyID: TAutoIncField;
    ADOqueryAssetCompany: TWideStringField;
    ADOMoveMoveID: TAutoIncField;
    ADOMoveAssetID: TIntegerField;
    ADOMoveNewDepartmentID: TIntegerField;
    ADOMoveEmployee: TWideStringField;
    ADOMoveStatusID: TIntegerField;
    ADOMovereturnDate: TDateTimeField;
    ADOMovenote: TWideStringField;
    ADOMoveCompany: TStringField;
    ADOMoveDepartmentName: TStringField;
    ADOMoveAssetCategory: TStringField;
    ADOMoveMakename: TStringField;
    ADOMoveModelNumberName: TStringField;
    ADOMoveCode: TStringField;
    ADOMoveDateAcquired: TDateField;
    ADOMoveAssetDescription: TStringField;
    DSMove: TDataSource;
    ADOqueryMoveMoveID: TAutoIncField;
    ADOqueryMoveAssetID: TIntegerField;
    ADOqueryMoveoldDepartmentID: TIntegerField;
    ADOqueryMoveNewDepartmentID: TIntegerField;
    ADOqueryMoveEmployee: TWideStringField;
    ADOqueryMoveStatusID: TIntegerField;
    ADOqueryMovereturnDate: TDateTimeField;
    ADOqueryMovenote: TWideStringField;
    ADOqueryMoveCompany: TWideStringField;
    ADOqueryMoveDepartmentName: TWideStringField;
    ADOqueryMovetype: TWideStringField;
    ADOqueryMovecode: TWideStringField;
    ADOqueryMoveAssetCategory: TWideStringField;
    ADOqueryMoveMakeName: TWideStringField;
    ADOqueryMoveModelNumberName: TWideStringField;
    ADOqueryMoveStatus: TWideStringField;
    ADOqueryMovePurchasePrice: TBCDField;
    ADOqueryMoveoldDepartment: TWideStringField;
    ADOqueryMoveoldCompany: TStringField;
    ADOMoveoldDepartmentID: TIntegerField;
    ADOMoveoldCompany: TStringField;
    ADOMoveOldDepartmentName: TStringField;
    ADOMaintenanceMaintenanceID: TAutoIncField;
    ADOMaintenanceAssetID: TIntegerField;
    ADOMaintenanceMaintenanceDate: TDateTimeField;
    ADOMaintenancePartsID: TIntegerField;
    ADOMaintenanceFaultCategoryID: TIntegerField;
    ADOMaintenanceMaintenanceDescription: TWideStringField;
    ADOMaintenanceMaintenancePerformedBy: TWideStringField;
    ADOMaintenanceMaintenanceCost: TBCDField;
    ADOMaintenanceVendorID: TIntegerField;
    ADOMaintenanceAssetCategory: TStringField;
    ADOMaintenancecode: TStringField;
    ADOMaintenanceFaultCategoryname: TStringField;
    ADOMaintenancePartsName: TStringField;
    ADOqueryMaintenancetype: TWideStringField;
    ADOqueryMaintenanceTypeid: TIntegerField;
    ADOqueryMaintenanceAssetCategory: TWideStringField;
    ADOqueryMaintenanceAssetCategoryID: TIntegerField;
    ADOqueryMaintenanceAssetDescription: TWideStringField;
    ADOqueryMaintenanceEmployee: TWideStringField;
    ADOqueryMaintenanceMakeID: TIntegerField;
    ADOqueryMaintenanceMakeName: TWideStringField;
    ADOqueryMaintenanceModelNumberID: TIntegerField;
    ADOqueryMaintenanceModelNumberName: TWideStringField;
    ADOqueryMaintenanceStatus: TWideStringField;
    ADOqueryMaintenanceVendorName: TWideStringField;
    ADOqueryMaintenanceDepartmentName: TWideStringField;
    ADOqueryMaintenanceDateAcquired: TDateTimeField;
    ADOqueryMaintenancePurchasePrice: TBCDField;
    ADOqueryMaintenanceSerialNumber: TWideStringField;
    ADOqueryMaintenanceBarcodeNumber: TWideStringField;
    ADOqueryMaintenanceplace: TWideStringField;
    ADOqueryMaintenanceconfigure: TWideStringField;
    ADOqueryMaintenancecode: TWideStringField;
    ADOqueryMaintenanceDepartmentID: TIntegerField;
    ADOqueryMaintenancequeryMaintenanceAVendorID: TIntegerField;
    ADOqueryMaintenanceStatusID: TIntegerField;
    ADOqueryMaintenanceCompanyID: TAutoIncField;
    ADOqueryMaintenanceCompany: TWideStringField;
    ADOqueryMaintenanceMaintenanceID: TAutoIncField;
    ADOqueryMaintenancequeryMaintenanceMAssetID: TIntegerField;
    ADOqueryMaintenanceMaintenanceDate: TDateTimeField;
    ADOqueryMaintenancePartsID: TIntegerField;
    ADOqueryMaintenanceFaultCategoryID: TIntegerField;
    ADOqueryMaintenanceMaintenanceDescription: TWideStringField;
    ADOqueryMaintenanceMaintenancePerformedBy: TWideStringField;
    ADOqueryMaintenanceMaintenanceCost: TBCDField;
    ADOqueryMaintenancequeryMaintenanceMVendorID: TIntegerField;
    ADOqueryMaintenanceMVendorname: TWideStringField;
    ADOqueryMaintenanceFaultCategoryname: TWideStringField;
    ADOqueryMaintenancePartsname: TWideStringField;
    ADOTemp: TADODataSet;
    DSTemp: TDataSource;
    procedure ADOMoveAfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMasset: TDMasset;

implementation
uses selffunc;
{$R *.dfm}

procedure TDMasset.ADOMoveAfterPost(DataSet: TDataSet);
var
  sql:string;
begin//处理部门
  sql:='select * from Asset where  AssetID= ';
  sql:=sql+ADOMove.FieldByName('Assetid').AsString;
  myquery(sql,ADOAsset);
  ADOAsset.Insert;
  ADOAsset.FieldByName('DepartmentID').AsInteger:=ADOMove.FieldByName('DepartmentID').Asinteger;
  ADOAsset.FieldByName('Employee').AsString:=ADOMove.FieldByName('Employee').AsString;
  ADOAsset.Post;
end;

end.