在自学考试最后的阶段是让我们用pb做一个小程序。当然,之前对pb只是有个简单的了解,但是真要是用它做个什么东西还真难。经过了几个星期的奋战,终于将毕业设计做完了。让我们怀着兴奋的心情,来回顾一下这段时间的学习,好好总结一下
毕业论文的开始的时候,还是一头雾水,当确定了自己的题目,知道自己要干什么之后,就开始设计自己的功能模块,自己的数据库表,然后查阅各种关于Pb的书,网上找与之相关的各种资料,历经了各种困难,最后终于把它完成了,在这个过程中学到了很多。
总之,学完了不仅仅就完了,学完之后首要任务就是总结,总结就是收获,我们不要只知道辛勤耕耘,不懂得自然收获。只有我们认真总结了,收获了,知识才能变为我们自己的,新的也就变成旧的了,这样学习才能达到事半功倍的效果,而且还不会丢知识。最后说一句,书山有路勤为径,学海无涯苦作舟。让我们活到老,学到老。
//定义变量 int addlevel str_user user //定义了一个结构,就是我们平时说的实体 //判断是否为空 if isnull(parent) then messagebox("提示","信息填写不完整!") return end if //将权限,转换为可存储信息 if trim(ddlb_level.text)="管理员" then addlevel=0 elseif trim(ddlb_level.text)="一般用户" then addlevel=1; else messagebox("提示","请选择用户权限级别!") end if //给变量赋值 user.yhm=trim(sle_name.text) user.mm=trim(sle_pwd.text) user.qx=addlevel user.zsxm=trim(sle_truename.text) //添加一条新的信息 INSERT INTO user_info(username,userpwd,userlevel,truename) values (:user.yhm,:user.mm,:user.qx,:user.zsxm); messagebox("提示","添加成功!")
这里出现的冒号,是因为pb语法要求sql语句中的变量都要加上冒号
//定义变量 int addlevel str_user user <span style="font-family: Arial, Helvetica, sans-serif;">//定义了一个结构,就是我们平时说的实体</span> //判断是否为空 if isnull(parent) then messagebox("提示","信息填写不完整!") return end if //将权限,转换为可存储信息 if trim(ddlb_level.text)="管理员" then addlevel=0 elseif trim(ddlb_level.text)="一般用户" then addlevel=1; else messagebox("提示","请选择用户权限级别!") end if //给变量赋值 user.yhm=trim(sle_name.text) user.mm=trim(sle_pwd.text) user.qx=addlevel user.zsxm=trim(sle_truename.text) //保存修改的信息 update user_info set userpwd=:user.mm,userlevel=:user.qx,truename=:user.zsxm where UserName=:user.yhm; messagebox("提示","修改成功!")
这里用到的userId是一个全局变量,如果这个用户登录了,他就不能将这个用户删除(也就是用户不能删除自己)
str_user user <span style="font-family: Arial, Helvetica, sans-serif;">//定义了一个结构,就是我们平时说的实体</span> user.yhm=trim(sle_name.text) //判断是否是当前用户 if user.yhm=userId then messagebox("警告","该用户正在使用,不能删除!") else //删除所选用户 delete from user_info where "UserName"=:user.yhm; messagebox("提示","删除成功") close(parent) //关闭窗体 end if