PB开发技巧代码集合

PB开发技巧代码集合：

00. 凡事预则立，不预则废。生于忧患，死于安乐。时间就是生命，1分钟可以做什么！

01. 获取窗口属性的方法：

dw_1.selectrow(0,false)//不选中任何行

ls_read = dw_1.Object.DataWindow.ReadOnly // 获取dw_1只读属性

ls_read = dw_1.Describe("DataWindow.ReadOnly") // 获取dw_1只读属性(同上) dw_1.Object.DataWindow.ReadOnly="no" // 取消dw_1只读属性

02. 程序中使用SQL语句：

基本格式如下：

Select name,salary,sex

Into :ls_name, ls_salary, ls_sex

From student

Where id = :li_id; //（注意逗号分隔，冒号变量，分号结束）

03. SQL基本语句：

1) 创建表：create table

Create Table Personal(

P_id varchar2(25) primary key not null,

P_name varchar2(25) not null, P_pwd varchar2(25) not null,

P_age varchar2(25) not null);

2) 删除表：drop table

Drop table personal;

3) 修改表：alter table

Alter table personal

Add notes varchar2(25);

4) 单行基本格式：

Select (Distinct/All) name, pwd , sex

From tabA a, tabB b

Where a.id = b.id

Group by name, pwd, sex

Having name

Order by a.id;

5) 嵌套查询：

例子1：查询张三所在部门所有人的信息。

Select id, name, dept_id, age, sex from personnel

Where dept_id = (Select dept_id from personnel where name = '张三');

04. 数据更新语句：

1) 插入语句：Insert

Insert [into] tab_name{ column_list} values(values_list)；

批量插入语句：

Insert into Employee

Select * from personnel Where personnel.dept_id = '01';

2) 更新语句：update

Update person

Set salary = salary + 200

Where p_post = '工程师';

3) 删除语句：delete

Delete From table_name

Where id = '002';

4) 提交/回滚语句：

①提交操作：Commit

用于完成DB的物理修改，即将所做的有关DB的操作提交给数据库。

COMMIT [ USING TransationObject ] ;

COMMIT USING SQLCA;

②回滚语句：RollBack

用于放弃自上一个Commit、Rollback或Connect操作之后的所有DB操作。

ROLLBACK USING SQLCA;

06. 数据库操作成功与否判断：

1) IF sqlca.sqlcode <> 0 Then

Messagebox("插入记录失败", '数据库错误代码：' + String(sqlca.SQLDBCode) + & '~r~n 数据库错误信息: ' + sqlca.sqlerrtext)

ROLLBACK;

ELSE

COMMIT;

Messagebox("提示信息", "新增记录成功!")

END IF

07. 数据库连接与中断：

1) 数据库连接语句：Connect

CONNECT 语句用于在程序中将指定的事务对象与DB连接。

CONNECT [ using TransactionObject ] ;

[Note]: 一般在应用对象的Open事件中编写定义事务对象并连接DB的脚本。

// 定义事务对象

SQLCA.DBMS = ODBC

SQLCA.AutoCommit = False

SQLCA.DBParm = ConnectString = ' DSN = mydb; UID = dba; PWD = sql'

// 连接数据库

Connect USING SQLCA;

IF SQLCA.SQLCode <> 0 THEN

Messagebox( '连接数据库失败', SQLCA.SQLErrText )

Halt

ELSE // 测试用

Messagebox('提示信息', '连接数据库成功!')

// …

// Open( w_login)

END IF

2) 数据库中断语句：DisConnect

DISCONNECT [ USING TransactionObject ];

TransactionObject是包含需要连接或中断连接的事务对象，当事务对象为SQLCA时，可省略USING子句。

08. 游标的使用：返回多个记录

1）SELECT语句只能用于返回值只有一条记录的检索。

当需要读取多条记录时，就需要使用游标进行操作。

2）游标的一般使用过程：

①用Declear语句声明游标。

②用Open语句打开游标。

③用Fetch语句读取一行数据。

④根据返回值处理数据。

⑤判断是否已经读完所有数据，未读完时重复执行(3)~(5)步。

⑥用Close语句关闭游标。1

3）Declare语句：

游标和变量一样，遵循先定义后使用的原则，用Delcare语句声明游标。

DECLARE CursorName CURSOR FOR SelectStatement

[Using TransactionObject]; 默认时使用SQLCA。

例子：

Declare get_person CURSOR FOR

SELECT id, name, salary FROM person Where dept_id in('01', '03', '05');

[Note]: a)不能在同一脚本中声明两个名称相同的游标。

b)可声明为Global、Shared、Instance变量，或者脚本代码中的局部变量。

4）OPEN语句：

打开已经声明的游标并执行相应的SELECT语句。

OPEN CursorName;

5）FETCH语句：

读取当前记录并把它保存到指定的变量中，格式：

FETCH CursorName INTO VariabledList;

FETCH get_personnel INTO :ls_id, :ls_name, :ls_salary;

[注] 每执行一次FETCH语句都从游标中读取一行记录，需要读取多行记录时要通过循环反复调用FETCH语句。执行FETCH语句后，应该检查事务对象的SQLCode属性，该属性的值为0时，成功地读取当前记录；为-1时，读取记录失败；为100时，读完记录。

6）CLOSE语句：

Close语句用于关闭已打开的游标，语法：

Close CursorName;

7）例子：使用游标

String ls_id, ls_name

Double ld_salary

Integer li_age, li_age_condition

// 声明游标

Declare get_personal Cursor POR

Select id, name, age, salary From Personal Where age<:li_age_condition Order by id desc;

// 打开游标

Open get_personnel;

// 读取第一行数据

Fetch get_personnel INTO :ls_id, :ls_name, :ls_age, :ls_salary;

Do while SQLCA.SQLCode = 0 // 处理数据（显示数据，测试用）

Messagebox(数据, 员工号：+ ls_id + |姓名：+ ls_name + |年龄：+ &

String(li_age) + |工资：+string(ld_salary, '###,###.00'));

// 读取下一行记录

Fetch get_personnel INTO :ls_id, :ls_name, :li_age, :ls_salary;

Loop

// 关闭游标

CLOSE get_personnel;