PB编程笔记(一)

    编写C/S架构的小程序，感觉使用PB（power builder）还是非常方便的。简单易用的界面、访问数据库的方便...

由于不常使用，每次开发的时候都需要查询大量的文档...有些常用的，感觉还是记录一下比较好~So, let's start...

 

1. 双击应用Application的齿轮图标，在open事件里面填写第一个要打开的窗口...因为要运行一个程序，总得有弹出窗口才行，否则程序没法运行...会报下面的错，意思很明了：需要在application级别的open事件里添加代码。

   

This application needs a script for its open event

 

    例如，我们的系统如果要从登录开始，那么第一个要弹出的是登录窗口，假如登录窗口叫w_login,那么open事件里面需加入下面简单的代码就可以了：

open(w_login)

 注：PB里，不区分大小写，结尾不需要加'；'，但是在写同数据库相关的语句时，需要加入'；',例如insert语句的结尾要加。

 

2. 连接数据库

    PB连接数据库使用SQLCA，用它来定义DBMS、DBParm等等一些信息，然后使用connect就可以连接数据库。例如下面就是连接access数据库的方法：

    关键字：PB连接access数据库

string s_path
s_path = GetCurrentDirectory()
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='driver=Microsoft Access Driver (*.mdb);DBQ=" + s_path + "\archive.mdb'"
CONNECT;

   关键字：PB连接oracle数据库

SQLCA.DBMS = O84 Oracle8/8i (8.x.4+) //驱动可更改
SQLCA.LogId = username//根据实际情况赋值
SQLCA.LogPass = password//根据实际情况赋值
SQLCA.ServerName = orcl  //根据实际情况赋值
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
connect;

  

 注：可以在关闭程序的时候释放数据库连接，在Application的close事件里添加：

disconnect;

 即可 ~

 

一般情况下，为了程序的健壮性，连接之后需要判断是否连接成功，可以参考下面语句：

IF SQLCA.SQLCode <> 0 THEN
   MessageBox("数据库连接失败","请与管理员联系。错误号:" + String(SQLCA.SQLCode) + "~r~n错误原因:" + SQLCA.SQLErrText)
   RETURN
else
   MessageBox("提示","数据库连接成功!")
end if

 简单的if else 语句即可搞定。

 

OK，如果连上了数据库那么就可以进行我们想进行的开发了~Hoho~