control_companyu.pas

毕业生就业系统

unit Control_companyU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//添加单位信息
function AddCompany(Company:TCompany):boolean;
//修改单位信息
function EditCompany(Company:TCompany):boolean;
//删除单位信息
function DelCompany(id:integer):boolean;
//得到单位信息
function GetCompanyArray:TADOQuery;
//查找单位信息by单位ID
function GetCompanyByID(CompanyID:integer):TCompany;
//查找单位信息by单位名(模糊查询)返回TADOQuery类型
function GetCompanyQueryByCompany(company:string):TADOQuery;
//查找单位信息by单位名称
function GetCompanyByName(CompanyName:string):TCompany;
implementation

function GetCompanyByName(companyName:string):TCompany;
var
  sql:string;
  Company:TCompany;
  ADOQuery:TADOQuery;
begin
sql:='select id,单位名称,单位性质,'+
       'isnull(单位地址,'''') 单位地址,'+
       'isnull(单位联系人,'''') 单位联系人,'+
       'isnull(单位联系方式,'''') 单位联系方式,'+
       'isnull(备注,'''') 备注 from 单位信息'+
       ' where 单位名称 = '+''''+companyName+'''';
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        Company:=TCompany.Create;
        Company.id:=ADOQuery.Fields[0].Value;
        Company.company:=ADOQuery.Fields[1].Value;
        Company.companyType:=ADOQuery.Fields[2].Value;
        Company.address:=ADOQuery.Fields[3].Value;
        Company.linkman:=ADOQuery.Fields[4].Value;
        Company.linkManner:=ADOQuery.Fields[5].Value;
        result:=Company;
      end;
  ADOQuery:=nil;
end;
function GetCompanyQueryByCompany(Company:string):TADOQuery;
var
  sql:string;
begin
sql:='select id,单位名称,单位性质,'+
       'isnull(单位地址,'''') 单位地址,'+
       'isnull(单位联系人,'''') 单位联系人,'+
       'isnull(单位联系方式,'''') 单位联系方式,'+
       'isnull(备注,'''') 备注 from 单位信息'+
       ' where 单位名称 like '+''''+'%'+company+'%'+'''';
  result:=DAHelper.ExeSqlQuery(sql);
end;

function GetCompanyByID(CompanyID:integer):TCompany;
var
  sql:string;
  Company:TCompany;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
 sql:='select id,单位名称,单位性质,'+
       'isnull(单位地址,'''') 单位地址,'+
       'isnull(单位联系人,'''') 单位联系人,'+
       'isnull(单位联系方式,'''') 单位联系方式,'+
       'isnull(备注,'''') 备注 from 单位信息'+
       ' where id='+inttostr(CompanyID);
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        Company:=TCompany.Create;
        Company.id:=ADOQuery.Fields[0].Value;
        Company.company:=ADOQuery.Fields[1].Value;
        Company.companyType:=ADOQuery.Fields[2].Value;
        Company.address:=ADOQuery.Fields[3].Value;
        Company.linkman:=ADOQuery.Fields[4].Value;
        Company.linkManner:=ADOQuery.Fields[5].Value;
        result:=Company;
      end;
  ADOQuery:=nil;
end;
function GetCompanyArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,单位名称,单位性质,'+
       'isnull(单位地址,'''') 单位地址,'+
       'isnull(单位联系人,'''') 单位联系人,'+
       'isnull(单位联系方式,'''') 单位联系方式,'+
       'isnull(备注,'''') 备注 from 单位信息';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelCompany(id:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 单位信息 where id='+inttostr(id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditCompany(Company:TCompany):boolean;
var
  sql:string;
begin
  sql:='update 单位信息 set 单位名称='+''''+Company.company+''''+
       ',单位性质='+''''+Company.companyType +''''+
       ',单位地址='+''''+Company.address +''''+
       ',单位联系人='+''''+Company.linkman+''''+
       ',单位联系方式='+''''+Company.linkManner+''''+
       ',备注='+''''+Company.remark+''''+
       ' where id='+inttostr(Company.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddCompany(Company:TCompany):boolean;
var
  sql:string;
begin
  sql:='insert into 单位信息(单位名称,单位性质,单位地址,'+
       '单位联系人,单位联系方式,'+
       '备注)'+' values('+''''+Company.company+''''+
       ','+''''+Company.companyType+''''+
       ','+''''+Company.address+''''+
       ','+''''+Company.linkman+''''+
       ','+''''+Company.linkManner+''''+
       ','+''''+Company.remark+''''+ ')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

end.
end.