control_employu.pas

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

unit Control_employU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//添加就业记录
function AddEmploy(Employ:TEmploy):boolean;
//修改就业记录
function EditEmploy(Employ:TEmploy):boolean;
//删除就业记录
function DelEmploy(EmployID:integer):boolean;
//得到就业记录
function GetEmployArray:TADOQuery;
//查找就业记录,如果没有查找到该就业记录，返回空值
function GetEmploy(OpID:integer):TEmploy;
//根据学号查找学生就业记录
function GetEmployByStdNO(StdNO:string):TADOQuery;
implementation
function GetEmployByStdNO(StdNO:string):TADOQuery;
var
  sql:string;
begin
  sql:='select a.id,b.姓名,c.单位名称,a.职位,a.时间,a.学生证号 from 就业记录 a '+
       ' join 学生信息 b on a.学生证号=b.学生证号 join 单位信息 c '+
       ' on c.id=a.单位id' ;
  if StdNO<>'' then
    sql:=sql+' where a.学生证号='+''''+StdNO+'''';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function GetEmploy(OpID:integer):TEmploy;
var
  Employ:TEmploy;
  sql:string;
  Adoquery:TADOQuery;
begin
 { sql:='select a.id,b.姓名,c.单位名称,a.职位,a.时间 from 就业记录 a '+
       ' join 学生信息 b on a.学生证号=b.学生证号 join 单位信息 c '+
       ' on c.id=a.单位id and a.id='+inttostr(OpID);
  Adoquery:=DAHelper.ExeSqlQuery(sql);
  if Adoquery.RecordCount<1 then
    begin
      result:=nil;
    end
  else
    begin
      Employ:=TEmploy.Create;
      Employ.id:=ADOQuery.Fields[0].Value;
      Employ.stdNo:=ADOQuery.Fields[1].Value;
      Employ.companyID:=ADOQuery.Fields[2].Value;
      Employ.duty:=ADOQuery.Fields[3].Value;
      Employ.date:=DateToStr(ADOQuery.Fields[4].Value);
      result:=Employ;
    end;  }
end;
function GetEmployArray:TADOQuery;
var
  sql:string;
begin
  sql:='select a.id,b.姓名,c.单位名称,a.职位,a.时间,a.学生证号 from 就业记录 a '+
       ' join 学生信息 b on a.学生证号=b.学生证号 join 单位信息 c '+
       ' on c.id=a.单位id' ;
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelEmploy(EmployID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 就业记录 where id='+inttostr(EmployID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditEmploy(Employ:TEmploy):boolean;
var
  sql:string;
begin
  sql:='update 就业记录 set 学生证号='+''''+Employ.stdNo+''''+
       ',单位id='+inttostr(Employ.companyID)+
       ',职位='+''''+Employ.duty +''''+
       ',时间='+''''+Employ.date+''''+
       ' where id='+inttostr(Employ.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddEmploy(Employ:TEmploy):boolean;
var
  sql:string;
begin
  sql:='insert into 就业记录(学生证号,单位id,职位'+
       ',时间)'+' values('+''''+Employ.stdNo+''''+
       ','+inttostr(Employ.companyID)+
       ','+''''+Employ.duty+''''+
       ','+''''+Employ.date+''''+')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

end.