三、登录例子后期实践

      1、 创建应用对象

      （2）同以上方法一样， 新建Traget\Application应用程序库，点击Ok

得到下图后，填写库名testapplication和相应的路径，然后点击Finish完成。

      2、 创建第一个窗口（登录窗口）

      （2）按下图操作摆放相应控件

设置好之后，保存，输入窗体的名称frm_log，最终得到登录窗体的样子

      3、 创建数据窗口对象（该步可跳过

      （2）得到下图后，选择Sql select 数据源类型

      （3）然后得到下图，选择已经创建的表，然后点击open

      （4）然后按下图选中后，右击选择Select All

      （5）最后选择保存，命名为testdw.完成

      4、创建一个数据窗口控件（该步可跳过

      （2）这次选择Quick Select项

      （3）如下图，选择user_info,然后单击AddAll，然后单击OK

      （3）得到后边的窗体之后，直接点Next,然后Finish。完成后保存，命名为testdatawindow.

      5、 建立应用程序

得到下图，后选择open事件，编写代码

      （2）寻找需要编写的代码。选择菜单栏中的Tools\DataBasePainter,或者直接单击下图中的DataBase按钮                               

得到下图后，选择ODBC\Testdatabase,然后右击，选择Properties

得到下图，选择Preview选择框，单击Copy,然后Ok

最后再次打开open事件，将拷贝的代码粘贴到上面，并补充一些代码，最后代码如下

// Profile Testdatabase
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=testDataBase'"

//添加以下代码，注意分号是英文状态，否则报错
connect;
open(frm_log)

      （2）编写登录代码。在窗体上双击登录按钮，或直接选择下图中的itemchanged（此项在窗体最下方）

                                                
 然后选择登录按钮的单击事件

                                 
      （3）编写登录按钮的代码，如下

//登录
string userName,userPwd                       //声明用户名和密码变量

userName=trim(sle_name.text)                  //得到用户名
userPwd=trim(sle_pwd.text)                    //得到密码

if userName ="" then                          //判断用户名是否为空
	messagebox("提示","用户名不能为空")
else
	
	//判断该用户是否存在
	//sql语句进行查询
	SELECT name
	into :userName
	from "User_Info" 
	where "User_Info"."name"=:userName;
	
	//SQLCode=100证明没有找到记录，此用户不存在  
	if SQLCA.SQLCode=100 then  
		messagebox("提示","用户不存在")
	else
		//该用户存在查询密码是否正确
		
		SELECT name
		into :userName
		from "User_Info" 
		where "User_Info"."name"=:userName and "User_Info"."password"=:userPwd;
			
		if SQLCA.SQLCode=100 then  
			messagebox("提示","密码不正确")
		else
			messagebox("提示","登录成功")
		end if
	end if
end if

//关闭该窗体
close(parent)

      6、运行应用程序

          保存所有操作，然后按快捷键Ctrl+R。这里就不给大家展示效果图了，由于我们在数据表中存储的用户名和密码都是“1”，所以只有用户名和密码都为“1”才会会成功。

小编寄语：

         我们的这个简单的登录功能终于写完了，由于第一次使用PB，对其功能不太了解，所以操作步骤写的比较详细，但是本程序有一个缺点就是在第三步和第四步中，创建了数据窗口对象，到最后却没有用到（实际上这块儿也用不到），感觉有点多余，本来想去掉那部分，可是不知道数据窗口对象有没有发挥作用，所以就留下来了，希望在之后的学习过程中会对这部分有更深入的理解。

相关阅读：PowerBuilder完全实例

                  powerbuilder初试——揭开那层薄纱