unit Control_experienceU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//添加教育經(jīng)歷
function AddExperience(Experience:TExperience):boolean;
//修改教育經(jīng)歷
function EditExperience(Experience:TExperience):boolean;
//刪除教育經(jīng)歷
function DelExperience(ExperienceID:integer):boolean;
//得到教育經(jīng)歷
function GetExperienceArray:TADOQuery;
//查找教育經(jīng)歷,如果沒(méi)有查找到該教育經(jīng)歷，返回空值
function GetExperience(OpID:integer):TExperience;
//根據(jù)學(xué)號(hào)查找教育經(jīng)歷
function GetExperienceByStdNO(StdNO:string):TADOQuery;
implementation
function GetExperienceByStdNO(StdNO:string):TADOQuery;
var
  sql:string;
begin
  sql:='select id,學(xué)生證號(hào),開(kāi)始日期,終止日期,學(xué)校名稱(chēng),isnull(職務(wù),'''') 職務(wù) from 教育經(jīng)歷';
  if StdNO<>'' then
    sql:=sql+' where 學(xué)生證號(hào)='+''''+StdNO+'''';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function GetExperience(OpID:integer):TExperience;
var
  Experience:TExperience;
  sql:string;
  Adoquery:TADOQuery;
begin
  sql:='select id,學(xué)生證號(hào),開(kāi)始日期,終止日期,學(xué)校名稱(chēng),isnull(職務(wù),'''') 職務(wù) from 教育經(jīng)歷'+
       ' where ID='+inttostr(OpID);
  Adoquery:=DAHelper.ExeSqlQuery(sql);
  if Adoquery.RecordCount<1 then
    begin
      result:=nil;
    end
  else
    begin
      Experience:=TExperience.Create;
      Experience.id:=ADOQuery.Fields[0].Value;
      Experience.stdNo:=ADOQuery.Fields[1].Value;
      Experience.beginDate:=DateToStr(ADOQuery.Fields[2].Value);
      Experience.endDate:=DateToStr(ADOQuery.Fields[3].Value);
      Experience.school:=ADOQuery.Fields[4].Value;
      Experience.duty:=ADOQuery.Fields[5].Value;
      result:=Experience;
    end;
end;
function GetExperienceArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,學(xué)生證號(hào),開(kāi)始日期,終止日期,學(xué)校名稱(chēng),isnull(職務(wù),'''') 職務(wù)  from 教育經(jīng)歷';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelExperience(ExperienceID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 教育經(jīng)歷 where id='+inttostr(ExperienceID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditExperience(Experience:TExperience):boolean;
var
  sql:string;
begin
  sql:='update 教育經(jīng)歷 set 學(xué)生證號(hào)='+''''+Experience.stdNo+''''+
       ',開(kāi)始日期='+''''+Experience.beginDate+''''+
       ',終止日期='+''''+Experience.endDate+''''+
       ',學(xué)校名稱(chēng)='+''''+Experience.school+''''+
       ',職務(wù)='+''''+Experience.duty+''''+
       ' where id='+inttostr(Experience.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddExperience(Experience:TExperience):boolean;
var
  sql:string;
begin
  sql:='insert into 教育經(jīng)歷(學(xué)生證號(hào),開(kāi)始日期,終止日期'+
       ',學(xué)校名稱(chēng),職務(wù))'+' values('+''''+Experience.stdNo+''''+
       ','+''''+Experience.beginDate+''''+
       ','+''''+Experience.endDate+''''+
       ','+''''+Experience.school+''''+
       ','+''''+Experience.duty+''''+')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
end.