社区
网络通信/分布式开发
帖子详情
在使用websnap技术时如何通过后端的数据库使用websnap提供的3个控件进行身份验证呢?
84175971
2003-12-11 01:37:20
在使用websnap技术时如何通过后端的数据库使用websnap提供的3个控件进行身份验证呢?
...全文
27
6
打赏
收藏
在使用websnap技术时如何通过后端的数据库使用websnap提供的3个控件进行身份验证呢?
在使用websnap技术时如何通过后端的数据库使用websnap提供的3个控件进行身份验证呢?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zosky
2003-12-15
打赏
举报
回复
procedure Thome.WebUserListBeforeValidateUser(Strings: TStrings;
var UserID: Variant; var Handled: Boolean);
var UserItem:TWebUserItem;
k:integer;
begin
wdm.ADOSp.Close;
wdm.ADOSp.Parameters.Clear;
wdm.ADOSp.ProcedureName := 'userverify';
wdm.ADOSp.Parameters.CreateParameter('username', ftString, pdInput, 8, strings.Values['username']);
wdm.ADOSp.Parameters.CreateParameter('userpwd', ftString, pdInput, 10, strings.Values['password']);
wdm.ADOSp.OPEN;
k:=wdm.ADOSp.RecordCount;
{wdm.adq.sql.close;
wdm.adq.sql.clear;
wdm.adq.sql.add('select username,usercat,userpassword,City');
wdm.adq.sql.add(' from usertbl ');
wdm.adq.sql.add('where username='+#39+strings.Values['username']+#39);
wdm.adq.sql.add('and userpassword='+#39+strings.Values['password']+#39);
wdm.adq.sql.add('insert usertbl (userphone) valuse ('+#39+sqlstr+#39+')');
wdm.adq.sql.add(sqlstr);
wdm.adq.sql.add('insert usertbl (userphone) values ('+#39+sqlstr+#39+')');
wdm.ADQ.open; }
if k>0 then
begin
userid:=strings.Values['username'];
userItem:=webUserList.UserItems.add as TWebUserItem;
UserItem.UserName:=strings.Values['username'];
UserItem.Password:=strings.Values['password'];
UserItem.AccessRights:=wdm.ADOSp.FieldValues['usercat'];
Session.Values['name']:=wdm.ADOSp.FieldValues['username'];
Session.Values['city']:=wdm.ADOSp.FieldValues['City'];
handled:=true;
end
else handled:=false;
end;
hiflower
2003-12-15
打赏
举报
回复
如果不这样做,则要你自己来处理身份验证。
有几个事件的,如 BeforeValidateUserName,BeforeValidatePassword,OnLogin 等,自己查一下.
hiflower
2003-12-15
打赏
举报
回复
TWebUserList 中添加用户、口令、权限
84175971
2003-12-15
打赏
举报
回复
在远程数据库中有几百条这样的用户,难道要一条条读取然后在加入TWebUserList吗。
能否做道到某个人访问就加某个人,
还是有很多不解之处。
84175971
2003-12-14
打赏
举报
回复
up
84175971
2003-12-12
打赏
举报
回复
没有人知道吗?
delphi 7
web
snap
技术
资料
关于
web
snap
的一篇很好的
技术
资料,pdf格式
Web
Snap
使用
手册下载,
Web
Snap
开发者大全
本书将
Web
Snap
分成两部分
进行
了详实的讲解,一部分是概观篇,另一部分是应用篇,概观篇中涵盖了
Web
Snap
的设计概念及基本应用,应用篇则涵盖了进阶应用及设计
Web
Snap
元件,是delphi网络编程爱好者不可多得的说明书。
Web
Snap
中文手册
Web
Snap
技术
Web
Snap
给
Web
Broker 增加了另外的组件,向导和视图――使得更容易地建立
Web
服务器应用程序...
Web
Snap
对多个模块及服务器端的脚本的支持使 Delphi 开发者和
Web
设计者的团队更容易
进行
开发和维护。
Delphi
Web
Snap
中文手册
Delphi
Web
Snap
中文 手册
Delphi
Web
Snap
开发中文手册
Delphi
Web
Snap
开发中文手册PDF格式
网络通信/分布式开发
1,593
社区成员
32,964
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章