PB开发技巧代码集合.docx

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 tableCreate 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) 删除语句：deleteDelete 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