control_operatoru.pas

包括学生的教育经历

unit Control_OperatorU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//添加操作员信息
function AddOperator(Operator:TOperator):boolean;
//修改操作员信息
function EditOperator(Operator:TOperator):boolean;
//删除操作员信息
function DelOperator(OperatorID:integer):boolean;
//得到操作员信息
function GetOperatorArray:TADOQuery;
//判断用户,如果没有查找到该用户，返回空值
function CheckOperator(OpID,OpPwd:string):TOperator;
//查找操作员by操作员id
function GetOperatorByOperatorID(OperatorID:string):TOperator;
//更改密码
function ChangePwd(newPwd:string;id:integer):boolean;
implementation
function ChangePwd(newPwd:string;id:integer):boolean;
var
  sql:string;
  begin
    sql:='update 操作员信息 set 密码='+''''+newPwd+''''+
         ' where id='+inttostr(id);
    result:=DAHelper.ExeSqlNoQuery(sql);
  end;
function GetOperatorByOperatorID(OperatorID:string):TOperator;
var
  sql:string;
  Operator:TOperator;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  sql:='select id,操作员ID,操作员姓名,密码,权限,isnull(备注,'''') 备注 from 操作员信息'+
       ' where 操作员ID='+''''+OperatorID+'''';
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        Operator:=TOperator.Create;
        Operator.id:=ADOQuery.Fields[0].Value;
        Operator.Operid:=ADOQuery.Fields[1].Value;
        Operator.OperName:=ADOQuery.Fields[2].Value;
        Operator.pwd:=ADOQuery.Fields[3].Value;
        Operator.privilege:=ADOQuery.Fields[4].Value;
        Operator.remark:=ADOQuery.Fields[5].Value;
        result:=Operator;
      end;
  ADOQuery:=nil;
end;
function CheckOperator(OpID,OpPwd:string):TOperator;
var
  Operator:TOperator;
  sql:string;
  Adoq:TADOQuery;
begin
  sql:='select 操作员姓名,权限,isnull(备注,''''),id from 操作员信息'+
       ' where 操作员ID='+''''+OpID+''''+' and '+
       ' 密码='+''''+OpPwd+'''';
  Adoq:=DAHelper.ExeSqlQuery(sql);
  if Adoq.RecordCount<1 then
    begin
      result:=nil;
    end
  else
    begin
      Operator:=TOperator.Create;
      Operator.Operid:=OpID;
      Operator.OperName:=Adoq.Fields[0].Value;
      Operator.pwd:=OpPwd;
      Operator.privilege:=Adoq.Fields[1].Value;
      Operator.remark:=Adoq.Fields[2].Value;
      Operator.id:=Adoq.Fields[3].Value;
      result:=Operator;
    end;
end;
function GetOperatorArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,操作员ID,操作员姓名,密码,权限,isnull(备注,'''') 备注 from 操作员信息';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelOperator(OperatorID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 操作员信息 where id='+inttostr(OperatorID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditOperator(Operator:TOperator):boolean;
var
  sql:string;
begin
  sql:='update 操作员信息 set 操作员ID='+''''+Operator.Operid+''''+
       ',操作员姓名='+''''+Operator.OperName  +''''+
       ',密码='+''''+Operator.pwd +''''+
       ',权限='+''''+Operator.privilege+''''+
       ',备注='+''''+Operator.remark+''''+
       ' where id='+inttostr(Operator.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddOperator(Operator:TOperator):boolean;
var
  sql:string;
begin
  sql:='insert into 操作员信息(操作员ID,操作员姓名,密码,权限,'+
       '备注)'+' values('+''''+Operator.Operid+''''+','+''''+Operator.OperName+''''+
       ','+''''+Operator.pwd+''''+','+''''+Operator.privilege+''''+
       ','+''''+Operator.remark+''''+ ')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

end.