driverdata_unit.pas

信息管理系统

unit driverdata_unit;

interface
uses
  Windows,Messages,SysUtils,Variants,DBclient,Classes,Graphics,persondatamod_unit,DB;
type
   Tdriverdata=class(TObject)
   private
    Datamod:TPerson_datamod;
   public
   function  CheckRec(Id:string):Boolean;
   function  GetArcId(Id:string):string;
   function  GetWorkerName(Id:string):string;
   function  GetSex(Id:string):string;
   function  GetBirth(Id:string):string;
   function  GetNativePlace(Id:string):string;
   function  GetIdCard(Id:string):string;
   function  GetDriverCardType(Id:string):string;
   function  GetDriverCardId(Id:string):string;
   function  GetWorkTime(Id:string):string;
   function  GetLastTime(Id:string):string;
   function  GetLinkPhone(Id:string):string;
   function  GetRemark(Id:string):string;
   function  GetAddress(Id:string):string;
   function  GetPhoto(Id:string):Tstream;
   function  GetDriverIDList1():TStrings;
   function  AllRec(SQL:string):OLEVariant;
   procedure WorkId1(Id:string;path1:string);
   procedure RecInsert(InsertSQl:string);
   procedure RecUpdate(UpdateSQl:string);
   procedure RecDel(Id:string);
   procedure FindRec(Id:string);
   constructor create;
   destructor Destroy;override;
  end;
implementation
constructor Tdriverdata.create ;
begin
Datamod:=TPerson_datamod.Create(nil);
end;

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

   function Tdriverdata.GetWorkerName(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('worker_name').AsString;
 end;


   function Tdriverdata.GetSex(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('sex').AsString;
 end;

   function Tdriverdata.GetBirth(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('birthday').AsString;
 end;

   function Tdriverdata.GetNativePlace(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('native_place').AsString;
 end;

   function Tdriverdata.GetIdCard(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('ID_CARD').AsString;
 end;

   function Tdriverdata.GetDriverCardType(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('DRIVER_CARD_TYPE').AsString;
 end;

   function Tdriverdata.GetDriverCardId(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('DRIVER_CARD_id').AsString;
 end;


   function Tdriverdata.GetWorkTime (Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('work_time').AsString;
 end;

   function Tdriverdata.GetLastTime(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('last_time').AsString;
 end;

   function Tdriverdata.GetLinkPhone(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('link_phone').AsString;
 end;

    function Tdriverdata.GetRemark(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('remark').AsString;
 end;

   function Tdriverdata.GetPhoto (Id:string):Tstream;

 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
  result:=Datamod.Person_adoq2.CreateBlobStream(Datamod.Person_adoq2.FieldbyName('photo'),bmRead);

 end;

   function Tdriverdata.GetAddress(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from driver_data where driver_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('address').AsString;
 end;

 { function Tbasedata.GetBlob():TField;
 begin
  Datamod.Person_adoq1.Close ;
  Datamod.Person_adoq1.SQL.Clear;
  Datamod.Person_adoq1.SQL.Add(' select WORKER_ID 员工编号,WORKER_NAME 员工姓名,SEX '
+'性别,ARCHIVES_ID 档案编号 ,SCHOOL_AGE 学历,PHOTO 个人照片,'
+'BIRTHDAY 出生日期,NATIVE_PLACE 籍贯,GRADUATE_SCH 毕业学校,'
+'POLITIC_STATUS 政治面貌,LINK_PHONE 联系电话,DEPARTMENT_NAME '
+'所在部门名称,MAJOR 专业,ADDRESS 住址,WORK_TIME 参加工作时间,'
+'COME_TIME 入本单位时间,REMARK 备注  '
+' FROM BASE_DATA ');
  Datamod.Person_adoq1.Open ;
 result:=Datamod.Person_adoq1.fieldbyname('个人照片');
 end;            }

  function Tdriverdata.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 Tdriverdata.WorkId1(Id:string;path1:string);
 var
 picture1:Tpicture;
 begin

  picture1:=tpicture.create;
  picture1.LoadFromFile(path1); 
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from driver_data ');
  Datamod.Person_adoq2.Open;
  Datamod.Person_adoq2.Insert;
  Datamod.Person_adoq2.fieldbyname('driver_id').AsString:=Id;
  Datamod.Person_adoq2.FieldByName('photo').Assign(picture1);
  Datamod.Person_adoq2.Post;
 end;


 procedure Tdriverdata.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 Tdriverdata.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 Tdriverdata.RecDel(Id:string);
begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('delete from  driver_DATA where driver_ID='''+Id+'''');
  Datamod.Person_adoq2.ExecSQL;
 end;

   procedure Tdriverdata.FindRec(Id:string);
 begin
  Datamod.Person_adoq3.Close ;
  Datamod.Person_adoq3.SQL.Clear;
  Datamod.Person_adoq3.SQL.Add('select *  from  driver_DATA where driver_ID='''+Id+'''');
  Datamod.Person_adoq3.Open;
 end;
function  Tdriverdata.GetDriverIDList1():TStrings;
var
  idrec:TStrings;
begin
  idrec:=TStringlist.Create ;
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select DRIVER_ID from DRIVER_DATA');
  Datamod.Person_adoq2.Open;
  while not Datamod.Person_adoq2.Eof  do
  begin
  idrec.Add(Datamod.Person_adoq2.fieldbyname('DRIVER_ID').AsString);
  Datamod.Person_adoq2.Next;
  end;
  result:=idrec;
end;


end.