社区
网络通信/分布式开发
帖子详情
在使用websnap技术时如何通过后端的数据库使用websnap提供的3个控件进行身份验证呢?
84175971
2003-12-11 01:37:20
在使用websnap技术时如何通过后端的数据库使用websnap提供的3个控件进行身份验证呢?
...全文
32
6
打赏
收藏
在使用websnap技术时如何通过后端的数据库使用websnap提供的3个控件进行身份验证呢?
在使用websnap技术时如何通过后端的数据库使用websnap提供的3个控件进行身份验证呢?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用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
技术
资料
6. **
数据库
集成**:Delphi的ADO(ActiveX Data Objects)组件可以直接在
Web
Snap
应用中
使用
,方便地连接和操作各种
数据库
,实现
Web
应用程序的数据访问功能。 **
Web
Snap
的工作流程** 1. **用户请求**:用户在浏览器...
Delphi
Web
Snap
中文手册
3. **事件驱动编程**:掌握如何处理服务器
控件
的事件,如点击按钮触发的动作,以及如何通过 JavaScript 在客户端
进行
交互,实现动态更新和验证。 4. **HTML 生成**:了解
Web
Snap
如何根据服务器
控件
的状态生成 ...
Web
Application开发利器-
Web
Snap
.rar
3. **数据绑定**:
Web
Snap
支持与
数据库
的直接绑定,可以轻松地将
Web
界面与
后端
数据库
连接,实现数据的实
时
更新和交互。 4. **AJAX支持**:通过集成AJAX(Asynchronous JavaScript and XML)
技术
,
Web
Snap
能够创建...
Delphi
Web
Snap
开发中文手册
手册将介绍如何
使用
内置工具和第三方工具对
Web
Snap
应用程序
进行
调试和性能分析。 9. **实例与最佳实践**:手册包含多个示例项目,演示了
Web
Snap
在实际场景中的应用,同
时
提供
了一些最佳实践,帮助开发者避免常见...
Web
Snap
中文手册
- **
Web
Snap
实例**:通过一系列步骤展示了如何
使用
Web
Snap
构建一个完整的
Web
应用程序,包括创建新项目、添加数据组件、实现用户界面等。 - **高级功能示例**:包括动态显示字段、错误报告、登录支持等高级功能的实现...
网络通信/分布式开发
1,594
社区成员
32,958
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章