利用用户身份确认的功能,以数据库的表格作为认证的数据来源,
以MTS为例:在MTS DATA MODULE中加入一个TADOQUERY对象,属性
如下:name:adoquery Connection:Adoconnection1
SQL:select count(*) from user where fname:=Username and
fpword:=Password 然后加入一个过程(mothod):CheckPassowrd
参数有:Username,Password.
procedure TMYmtsserver.CheckPassword(Username,Password:OleVariant)
begin
with adoquerydo
begin
parameters[0]:=Username;
parameters[1]:=Password;
active:=true;
end;
if adoquery.fields[0].asinteger<>1 then
raise Expection.Create('您输入的张好密码部队');
end;