control_jobu.pas

这是一个毕业生就业管理系统

unit Control_jobU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//添加招聘信息
function AddJob(Job:TJob):boolean;
//修改招聘信息
function EditJob(Job:TJob):boolean;
//删除招聘信息
function DelJob(JobID:integer):boolean;
//得到招聘信息数据集
function GetJobArray:TADOQuery;
//得到招聘信息
function GetJob(OpID:integer):TJob;
implementation
function GetJob(OpID:integer):TJob;
var
  Job:TJob;
  sql:string;
  Adoquery:TADOQuery;
begin
  sql:='select id,单位ID,招聘时间,招聘人数,招聘职位,招聘地点,备注 from 招聘信息'+
       ' where ID='+inttostr(OpID);
  Adoquery:=DAHelper.ExeSqlQuery(sql);
  if Adoquery.RecordCount<1 then
    begin
      result:=nil;
    end
  else
    begin
      Job:=TJob.Create;
      Job.id:=ADOQuery.Fields[0].Value;
      Job.companyID:=ADOQuery.Fields[1].Value;
      Job.jobDate:=DateToStr(ADOQuery.Fields[2].Value);
      Job.jobNum:=ADOQuery.Fields[3].Value;
      Job.jobDuty:=ADOQuery.Fields[4].Value;
      Job.address:=ADOQuery.Fields[5].Value;
      Job.remark:=ADOQuery.Fields[6].Value;
      result:=Job;
    end;
end;
function GetJobArray:TADOQuery;
var
  sql:string;
begin
  sql:='select a.id,b.单位名称,a.招聘时间,a.招聘人数,a.招聘职位,a.招聘地点,a.备注'+
       ' from 招聘信息 a join 单位信息 b on a.单位ID=b.id';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelJob(JobID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 招聘信息 where id='+inttostr(JobID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditJob(Job:TJob):boolean;
var
  sql:string;
begin
  sql:='update 招聘信息 set 单位id='+inttostr(job.companyID)+
       ',招聘时间='+''''+job.jobDate+''''+
       ',招聘人数='+inttostr(job.jobNum)+
       ',招聘职位='+''''+Job.jobDuty+''''+
       ',招聘地点='+''''+Job.address+''''+
       ',备注='+''''+Job.remark+''''+
       ' where id='+inttostr(Job.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddJob(Job:TJob):boolean;
var
  sql:string;
begin
  sql:='insert into 招聘信息(单位id,招聘时间,招聘人数'+
       ',招聘职位,招聘地点,备注)'+' values('+inttostr(Job.companyID)+
       ','+''''+Job.jobDate+''''+
       ','+inttostr(job.jobNum)+
       ','+''''+Job.jobDuty+''''+
       ','+''''+Job.address+''''+
       ','+''''+Job.remark+''''+')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
end.