PB编程札记(一)

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_paths_path = GetCurrentDirectory()SQLCA.DBMS = "ODBC"SQLCA.AutoCommit = FalseSQLCA.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 = FalseSQLCA.DBParm = ""connect;

??

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

disconnect;

?即可?~

?

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

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

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

?

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