powerBuilder登录

偏执的太偏执、 2022-06-13 00:43 627阅读 0赞

# 前言 #

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

# 登录 #

1.先创建工作区和目标

![Center][]

![Center 1][]

2.建立应用程序库

![Center 2][]

3.建立window窗口

![Center 3][]

4.“画”窗体控件

![Center 4][]

建立登录窗体

![Center 5][]

5.连接数据库

![Center 6][]

![Center 7][]

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

![Center 8][]

// 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还是挺像的。

[Center]: /images/20220613/9739a3a82bdb4e64bbcd8b117ae08d5a.png
[Center 1]: /images/20220613/fad07000616a47c786e7d083747a39b2.png
[Center 2]: /images/20220613/34c52a907aa542d4a4acac5c46e459fa.png
[Center 3]: /images/20220613/a35de65e29504847b50219c738ab1f6c.png
[Center 4]: /images/20220613/64e4a7b39df9475ca0e750fc9323a30f.png
[Center 5]: /images/20220613/439c11d7f26a4fca879f46948345e24a.png
[Center 6]: /images/20220613/4ddaaeca6c284b328ad430c46b442fc9.png
[Center 7]: /images/20220613/88602f3c02e04c32b3d81e01bef66b49.png
[Center 8]: /images/20220613/b54bbadd742d4a848204639743a7bfce.png