vehicledata_unit.pas

信息管理系统

unit vehicledata_unit;

interface
uses
  Windows,Messages,SysUtils,Variants,DBclient,Classes,Graphics,persondatamod_unit,DB;
type
   Tvehicledata=class(TObject)
   private
    Datamod:TPerson_datamod;
   public
   function  CheckRec(Id:string):Boolean;
   function  GetArcId(Id:string):string;
   function  GetVehicleId(Id:string):string;
   function  GetVehicleType(Id:string):string;
   function  GetPower(Id:string):string;
   function  GetWorkId(Id:string):string;
   function  GetDeadDay(Id:string):string;
   function  GetBuyDay(Id:string):string;
   function  GetUseDay(Id:string):string;
   function  GetRemark(Id:string):string;
   function  GetVehicleNOList1():TStrings;
   function  AllRec(SQL:string):OLEVariant;
   procedure RecInsert(InsertSQl:string);
   procedure RecUpdate(UpdateSQl:string);
   procedure RecDel(Id:string);
   procedure FindRec(Id:string);
   constructor create;
   destructor Destroy;override;
  end;
implementation
constructor Tvehicledata.create ;
begin
Datamod:=TPerson_datamod.Create(nil);
end;

destructor Tvehicledata.Destroy ;
begin
 freeandnil(Datamod);
 inherited;
 end;
function Tvehicledata.CheckRec(Id:string):Boolean;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq2.Open ;
  if Datamod.Person_adoq2.Eof then result:=false
  else result:=true;
 end;
 function Tvehicledata.GetArcId(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('archives_id').AsString;
 end;
 function Tvehicledata.GetBuyDay(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('buyday').AsString;
 end;
 function Tvehicledata.GetUseday (Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('useday').AsString;
 end;

   function Tvehicledata.GetDeadDay(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('deadday').AsString;
 end;

    function Tvehicledata.GetRemark(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('remark').AsString;
 end;
 function Tvehicledata.AllRec(SQL:string):OLEVariant;
begin
  Datamod.Person_adoq1.Close ;
  Datamod.Person_adoq1.SQL.Clear;
  Datamod.Person_adoq1.SQL.Add(SQL);
  Datamod.Person_adoq1.Open ;
  result:=Datamod.Person_dsp1.Data;
end;
procedure Tvehicledata.RecInsert(InsertSQL:string);
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(InsertSQL);
  Datamod.Person_adoq2.ExecSQL;
 end;

  procedure Tvehicledata.RecUpdate(UpdateSQL:string);
begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(UpdateSQL);
  Datamod.Person_adoq2.ExecSQL;
end;

  procedure Tvehicledata.RecDel(Id:string);
begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('delete from  vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq2.ExecSQL;
 end;

   procedure Tvehicledata.FindRec(Id:string);
 begin
  Datamod.Person_adoq3.Close ;
  Datamod.Person_adoq3.SQL.Clear;
  Datamod.Person_adoq3.SQL.Add('select *  from  vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq3.Open;
 end;
  function  Tvehicledata.GetVehicleId(Id:string):string;
   begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('vehicle_id').AsString;
 end;
   function  Tvehicledata.GetVehicleType(Id:string):string;
    begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('vehicle_type').AsString;
 end;
   function  Tvehicledata.GetPower(Id:string):string;
    begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('power').AsString;
 end;
   function  Tvehicledata.GetWorkId(Id:string):string;
   begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from vehicle_data where vehicle_no='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('work_id').AsString;
 end;
function  Tvehicledata.GetVehicleNOList1():TStrings;
var
  idrec:TStrings;
begin
  idrec:=TStringlist.Create ;
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select VEHICLE_NO from VEHICLE_DATA');
  Datamod.Person_adoq2.Open;
  while not Datamod.Person_adoq2.Eof  do
  begin
  idrec.Add(Datamod.Person_adoq2.fieldbyname('VEHICLE_NO').AsString);
  Datamod.Person_adoq2.Next;
  end;
  result:=idrec;
end;
end.