powerBuilder登录

前言

  上一篇已经介绍了如何利用PB建立数据库，接下来应用上篇建立的数据库做一个简单地登录实例。

登录

 1.先创建工作区和目标

2.建立应用程序库

3.建立window窗口

4.“画”窗体控件

建立登录窗体

5.连接数据库

将此代码复制到test应用程序的open事件中

// Profile Test
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=test'"

//连接数据库
connect;

//打开登录窗口
open(frm_login)

6.登录窗体中确定按钮中代码

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

取消按钮中代码

close(parent)

结语

  登录的示例基本上就算完成了，一开始觉得好难，真正实践时发现其实也没有特别难跟VB还是挺像的。