?? control_experienceu.pas.~1~
字號:
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)歷,如果沒有查找到該教育經(jīng)歷,返回空值
function GetExperience(OpID:integer):TExperience;
//根據(jù)學號查找教育經(jīng)歷
function GetExperienceByStdNO(StdNO:string):TADOQuery;
implementation
function GetExperienceByStdNO(StdNO:string):TADOQuery;
var
sql:string;
begin
sql:='select id,學生證號,開始日期,終止日期,學校名稱,isnull(職務(wù),'''') 職務(wù) from 教育經(jīng)歷';
if StdNO<>'' then
sql:=sql+' where 學生證號='+''''+StdNO+'''';
result:=DAHelper.ExeSqlQuery(sql);
end;
function GetExperience(OpID:integer):TExperience;
var
Experience:TExperience;
sql:string;
Adoquery:TADOQuery;
begin
sql:='select id,學生證號,開始日期,終止日期,學校名稱,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,學生證號,開始日期,終止日期,學校名稱,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 學生證號='+''''+Experience.stdNo+''''+
',開始日期='+''''+Experience.beginDate+''''+
',終止日期='+''''+Experience.endDate+''''+
',學校名稱='+''''+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)歷(學生證號,開始日期,終止日期'+
',學校名稱,職務(wù))'+' values('+''''+Experience.stdNo+''''+
','+''''+Experience.beginDate+''''+
','+''''+Experience.endDate+''''+
','+''''+Experience.school+''''+
','+''''+Experience.duty+''''+')';
result:=DAHelper.ExeSqlNoQuery(sql);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -