control_operatoru.~pas

这是一个小区物业管理系统

unit Control_OperatorU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//对用户名和密码进行检查，判断此用户是否存在，如果存在返回操作员的ID
function CheckOperator(operator:Toperator):integer;
//添加用户
function AddNewOperator(operator:Toperator):boolean;
//查找用户名
function SearchOperator(operatorName:String):boolean;
//得到操作员集
function GetOperatorArray:TADOQuery;
//删除用户
function DelOperator(operatorID:integer):boolean;
//修改用户名和权限
function UpdateOperator(operator:Toperator):boolean;
//修改用户密码
function UpdatePWD(operator:Toperator):boolean;
implementation
function UpdatePWD(operator:Toperator):boolean;
var
  sql:string;
begin
  sql:='update 操作员 set 密码='+''''+operator.pwd+''''+
       ' where id='+inttostr(operator.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function UpdateOperator(operator:Toperator):boolean;
var
  sql:string;
begin
  sql:='update 操作员 set 用户名='+''''+operator.OperatorName+
        ''''+',用户级别='+''''+operator.OperatorLevel+''''+' where id='+inttostr(operator.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function DelOperator(operatorID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 操作员 where id='+inttostr(operatorID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function GetOperatorArray:TADOQuery;
var
  sql:string;
  query:TADOQuery;
begin
  sql:='select id,用户名,用户级别 from 操作员';
  query:=DAHelper.ExeSqlQuery(sql);
  result:=query;
end;
function SearchOperator(operatorName:String):boolean;
var
  sql:string;
  query:TADOQuery;
begin
  sql:='select count(*) from 操作员 where 用户名='+''''+operatorName+'''';
  query:=DAHelper.ExeSqlQuery(sql);
  if query.Fields[0].Value>0 then
    result:=true
  else
    result:=false;
  query:=nil;
end;
function AddNewOperator(operator:Toperator):boolean;
var
   sql:string;
begin
  sql:='insert into 操作员(用户名,密码,用户级别) values('+''''+Operator.OperatorName+
        ''''+','+''''+Operator.OperatorName+''''+
       ','+''''+Operator.OperatorLevel+''''+')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function CheckOperator(operator:Toperator):integer;
var
  sql:string;
  Query:TADOQuery;
begin
  sql:='select id from 操作员 where 用户名='+''''+operator.OperatorName+
       ''''+' and 密码='+''''+operator.pwd+'''';
  Query:=DAHelper.ExeSqlQuery(sql);
  if Query.Fields[0].IsNull  then
      result:=-1
  else
    result:=Query.Fields[0].Value;
  Query:=nil;
end;
end.