pb中用户管理的添加、保存代码怎么写
2个回答
展开全部
简单来说就是用户名、密码两个文本框和确定按钮,里面获取输入信息,检查数据库有没有重复的,利用sql语句进行保存
不过里面涉及防注入、密码强度控制、代码健壮性等等细节
建议你去华软论坛等pb讨论网站下载现成的程序学习,或者买书,书上对这个基本东西都有很好的代码示例
我做的其中一个例子如下:
ls_dm = dw_dm.getitemstring(ll_row,'dm')
ls_mc = dw_dm.getitemstring(ll_row,'mc')
ls_kl = dw_dm.getitemstring(ll_row,'kl')
ldt_t = datetime(today())
if isnull(ls_dm) then ls_dm = ''
if isnull(ls_mc) then ls_mc = ''
if isnull(ls_kl) then ls_kl = ''
if is_state = 'add' then
delete cm_yhzd where yhdm = :ls_dm;
insert cm_yhzd(yhdm,yhmc,yhkldlsj) values(:ls_dm,:ls_mc,:ls_kl:ldt_t);
if sqlca.sqlnrows <= 0 then
messagebox("系统信息",'更新数据时出错!~r~n' + sqlca.sqlerrtext)
rollback;
return
end if
commit;//提交数据库
不过里面涉及防注入、密码强度控制、代码健壮性等等细节
建议你去华软论坛等pb讨论网站下载现成的程序学习,或者买书,书上对这个基本东西都有很好的代码示例
我做的其中一个例子如下:
ls_dm = dw_dm.getitemstring(ll_row,'dm')
ls_mc = dw_dm.getitemstring(ll_row,'mc')
ls_kl = dw_dm.getitemstring(ll_row,'kl')
ldt_t = datetime(today())
if isnull(ls_dm) then ls_dm = ''
if isnull(ls_mc) then ls_mc = ''
if isnull(ls_kl) then ls_kl = ''
if is_state = 'add' then
delete cm_yhzd where yhdm = :ls_dm;
insert cm_yhzd(yhdm,yhmc,yhkldlsj) values(:ls_dm,:ls_mc,:ls_kl:ldt_t);
if sqlca.sqlnrows <= 0 then
messagebox("系统信息",'更新数据时出错!~r~n' + sqlca.sqlerrtext)
rollback;
return
end if
commit;//提交数据库
展开全部
一般教程都建议你用数据窗口dw 来进行数据的管理.这是推荐手段。还有一种就是直接写sql语句管理数据.先说第一种。添加(可以设计成按钮,点击按钮时触发clicked事件):
dw_1.insert(0)//在数据行末尾插入一个空行。然后你直接可以再dw_1数据窗口上写数据.
if dw_1.update() =1 then//保存成功
commit;//提交数据
else
rollback;//不接受提交,进行回滚操作
end if
②第二种用sql语句编写代码:insert ino表名(里面放着你要存放哪些字段,用逗号隔开字段) values(写对应的数据要跟前面对应,也用逗号隔开);//最后别忘了分号
保存:可以使insert也可以是 update(更新数据)
还有疑问可以追问
dw_1.insert(0)//在数据行末尾插入一个空行。然后你直接可以再dw_1数据窗口上写数据.
if dw_1.update() =1 then//保存成功
commit;//提交数据
else
rollback;//不接受提交,进行回滚操作
end if
②第二种用sql语句编写代码:insert ino表名(里面放着你要存放哪些字段,用逗号隔开字段) values(写对应的数据要跟前面对应,也用逗号隔开);//最后别忘了分号
保存:可以使insert也可以是 update(更新数据)
还有疑问可以追问
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询