control_useru.pas

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

unit Control_UserU;
interface
uses DAHelper,ClassesU,ADODB,SysUtils;
function AddUser(User:TUser):boolean;
//修改操作员信息
function EditUser(User:TUser):boolean;
//删除操作员信息
function DelUser(pno:string):boolean;
//得到操作员信息
function GetUserArray:TADOQuery;
//判断用户,如果没有查找到该用户，返回空值

function GetUserBypno(pno:string):TUser;

implementation

function GetUserBypno(pno:string):TUser;
var
  sql:string;
  User:TUser;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  sql:='select 用户号码,姓名,类型,地址,开户时间,备注 from 用户信息'+
       ' where 用户号码='+''''+pno+'''';
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        User:=TUser.Create;
        User.p_no:=ADOQuery.Fields[0].Value;
        User.name:=ADOQuery.Fields[1].Value;
        User.leixing:=ADOQuery.Fields[2].Value;
        User.address:=ADOQuery.Fields[3].Value;
        User.beizhu:=ADOQuery.Fields[4].Value;
        result:=User;
      end;
  ADOQuery:=nil;
end;

function GetUserArray:TADOQuery;
var
  sql:string;
begin
  sql:='select 用户号码,姓名,类型,地址,开户时间,备注 from 用户信息';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelUser(pno:string):boolean;
var
  sql:string;
begin
  sql:='delete from 用户信息 where 用户号码='+''''+pno+'''';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditUser(User:TUser):boolean;
var
  sql:string;
begin
  sql:='update 用户信息 set 用户号码='+''''+User.p_no+''''+
       ',姓名='+''''+User.name+''''+
       ',类型='+''''+User.leixing+''''+
       ',地址='+''''+User.address+''''+
      ',开户时间='+''''+User.kaiku+''''+
       ',备注='+''''+User.beizhu+''''+
       ' where 用户号码='+User.p_no;
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddUser(User:TUser):boolean;
var
  sql:string;
begin
  sql:='insert into 用户信息(用户号码,姓名,类型,地址,开户时间,'+
       '备注)'+' values('+''''+User.p_no+''''+','+''''+User.name+''''+
       ','+''''+User.leixing+''''+','+''''+User.address+''''+
       ','+''''+User.kaiku+''''+ ','+''''+User.beizhu+''''+')';
 result:=DAHelper.ExeSqlNoQuery(sql);
//result:=sql;
end;
end.