work_info_unit.pas

信息管理系统

unit work_info_unit;

interface
uses
  Windows,Messages,SysUtils,Variants,DBclient,Classes,Graphics,persondatamod_unit,DB;
type
   Twork_info=class(TObject)
   private
    Datamod:TPerson_datamod;
   public
   function  CheckRec(Id:string):Boolean;
   function  GetVehicleNo(Id:string):string;
   function  GetVehicleId(Id:string):string;
   function  GetDriverId(Id:string):string;
   function  GetPeople(Id:string):string;
   function  GetClient(Id:string):string;
   function  GetOrderNo(Id:string):string;
   function  GetBeginAdd(Id:string):string;
   function  GetEndAdd(Id:string):string;
   function  GetLongth(Id:string):string;
   function  GetMoney(Id:string):string;
   function  GetBeginTime(Id:string):string;
   function  GetRemark(Id:string):string;
   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 Twork_info.create ;
begin
Datamod:=TPerson_datamod.Create(nil);
end;

destructor Twork_info.Destroy ;
begin
 freeandnil(Datamod);
 inherited;
 end;
function Twork_info.CheckRec(Id:string):Boolean;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
  if Datamod.Person_adoq2.Eof then result:=false
  else result:=true;
 end;
 function Twork_info.GetVehicleNo(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('yundan_id').AsString;
 end;
 function Twork_info.GetDriverId(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('Driver_Id').AsString;
 end;
 function Twork_info.GetPeople (Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('People').AsString;
 end;

   function Twork_info.GetBeginTime(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('Begain_Time').AsString;
 end;

    function Twork_info.GetRemark(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('remark').AsString;
 end;
 function Twork_info.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 Twork_info.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 Twork_info.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 Twork_info.RecDel(Id:string);
begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('delete from  work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.ExecSQL;
 end;

   procedure Twork_info.FindRec(Id:string);
 begin
  Datamod.Person_adoq3.Close ;
  Datamod.Person_adoq3.SQL.Clear;
  Datamod.Person_adoq3.SQL.Add('select *  from  work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq3.Open;
 end;
  function  Twork_info.GetVehicleId(Id:string):string;
   begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('vehicle_id').AsString;
 end;
   function  Twork_info.GetClient(Id:string):string;
    begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('Client').AsString;
 end;
   function  Twork_info.GetBeginAdd(Id:string):string;
    begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('Gegain_Add').AsString;
 end;
   function  Twork_info.GetOrderNo(Id:string):string;
   begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('Order_No').AsString;
 end;
 function  Twork_info.GetEndAdd(Id:string):string;
   begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('End_Add').AsString;
 end;
 function  Twork_info.GetLongth(Id:string):string;
   begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('Longth').AsString;
 end;
 function  Twork_info.GetMoney(Id:string):string;
   begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_info where yundan_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('Money').AsString;
 end;
end.