control_jiaofei.pas

来自「实现对手机用户及通话信息的管理。分为管理员和用户两部分功能。能进行查询、修改、添」· PAS 代码 · 共 56 行

unit Control_Jiaofei;
interface
uses DAHelper,ClassesU,ADODB,SysUtils;
function Addcharge(charge:Tcharge):boolean;
//修改操作员信息
function Editcharge(charge:Tcharge):boolean;
//删除操作员信息
function Delcharge(id:integer):boolean;
//得到操作员信息
function GetchargeArray:TADOQuery;




implementation



function GetchargeArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,操作员ID,操作员姓名,密码,权限,isnull(备注,'''') 备注 from 操作员信息';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function Delcharge(id:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 操作员信息 where id='+inttostr(OperatorID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function Editcharge(charge:Tcharge):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 Addcharge(charge:Tcharge):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.