一、个人总结

     在自学考试最后的阶段是让我们用pb做一个小程序。当然，之前对pb只是有个简单的了解，但是真要是用它做个什么东西还真难。经过了几个星期的奋战，终于将毕业设计做完了。让我们怀着兴奋的心情，来回顾一下这段时间的学习，好好总结一下

    1、毕业设计的感受

      毕业论文的开始的时候，还是一头雾水，当确定了自己的题目，知道自己要干什么之后，就开始设计自己的功能模块，自己的数据库表，然后查阅各种关于Pb的书，网上找与之相关的各种资料，历经了各种困难，最后终于把它完成了，在这个过程中学到了很多。

    2、毕业设计的心得

      总之，学完了不仅仅就完了，学完之后首要任务就是总结，总结就是收获，我们不要只知道辛勤耕耘，不懂得自然收获。只有我们认真总结了，收获了，知识才能变为我们自己的，新的也就变成旧的了，这样学习才能达到事半功倍的效果，而且还不会丢知识。最后说一句，书山有路勤为径，学海无涯苦作舟。让我们活到老，学到老。

二、简单操作

     1、添加用户      

	//定义变量
	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("提示","添加成功！") 
	

      2、修改用户信息

        这里出现的冒号，是因为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("提示","修改成功!")

      3、删除用户信息

        这里用到的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

PowerBuilder总结——原来你是这么的简单

原文：http://blog.csdn.net/u010168160/article/details/44516521