control_operatoru.pas

实现对手机用户及通话信息的管理。分为管理员和用户两部分功能。能进行查询、修改、添加、删除等。移动电话管理系统

unit Control_OperatorU;



interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//息
function AddOperator(Operator:TOperator):boolean;
//修改操作员信息
function EditOperator(Operator:TOperator):boolean;
//删除操作员信息
function DelOperator(id:string):boolean;
//得到操作员信息
function GetOperatorArray:TADOQuery;
//判断用户,如果没有查找到该用户，返回空值
function CheckOperator(OpID,OpPwd:string):TOperator;
//查找操作员by操作员id
function GetOperatorByOperatorID(OperatorID:string):TOperator;
//更改密码
function ChangePwd(newPwd:string;id:string):boolean;
implementation
function ChangePwd(newPwd:string;id:string):boolean;
var
  sql:string;
  begin
    sql:='update 操作员表 set 密码='+''''+newPwd+''''+
         ' where 操作员ID='+''''+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,密码,权限 from 操作员表'+
       ' where 操作员ID='+''''+OperatorID+'''';
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        Operator:=TOperator.Create;

        Operator.Operid:=ADOQuery.Fields[0].Value;

        Operator.pwd:=ADOQuery.Fields[1].Value;
        Operator.privilege:=ADOQuery.Fields[2].Value;

        result:=Operator;
      end;
  ADOQuery:=nil;
end;
function CheckOperator(OpID,OpPwd:string):TOperator;
var
  Operator:TOperator;
  sql:string;
  Adoq:TADOQuery;
begin
  sql:='select 权限 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.pwd:=OpPwd;
      Operator.privilege:=Adoq.Fields[0].Value;

      result:=Operator;
    end;
end;
function GetOperatorArray:TADOQuery;
var
  sql:string;
begin
  sql:='select操作员ID,密码,权限 from 操作员表';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelOperator(id:string):boolean;
var
  sql:string;
begin
  sql:='delete from 操作员表 where 操作员ID='+''''+id+'''';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditOperator(Operator:TOperator):boolean;
var
  sql:string;
begin
  sql:='update 操作员表 set 密码='+''''+Operator.pwd +''''+
       ',权限='+''''+Operator.privilege+''''+

       ' where 操作员ID='+Operator.Operid;
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddOperator(Operator:TOperator):boolean;
var
  sql:string;
begin
  sql:='insert into 操作员表(操作员ID,密码,权限)'+' values('+''''+Operator.Operid+''''+
       ','+''''+Operator.pwd+''''+','+''''+Operator.privilege+''''+ ')';
       result:=DAHelper.ExeSqlNoQuery(sql);
  //result:=sql;
end;

end.