PB 常用脚本.doc

PB常用脚本:应用对象初始化，写在应用对象的open事件中：SQLCA.DBMS = ODBCSQLCA.DBMS = ODBC /指定默认事务对象使用的数据库连接方式为ODBC数据源 SQLCA.AutoCommit = False /设置数据库自动提交状态为Flase SQLCA.DBParm = ConnectString=DSN=my_db；uid=dba；pwd=sql /配置数据库的连接环境，如数据源、用户名、密码等 CONNECT ; /连接数据库IF SQLCA.SQLcode 0 then /保存成功commit; /提交elsemessagebox(,无法对数据保存!)rollback; /返回end ifdw_1.setfocus()退出按钮：close(parent)/关闭当前对象的父对象（窗口）第一行按钮：dw_1.scrolltorow(1) /滚动到dw_1的第一行dw_1.setfocus()最后一行按钮：integer l_totall_total=dw_1.rowcount()dw_1.scrolltorow(l_total)/滚动到dw_1的第l_total行dw_1.setfocus()公用f_delete函数：int ss=current_dw.getrow()current_dw.deleterow(s)current_dw.update()current_dw.retrieve()current_dw.setfocus()写在应用对象的close事件中：DISCONNECT ; /判断断开数据库的情况IF SQLCA.SQLcode0 then /判断上个操作是否正常运行messagebox(“ 数据库断开失败! ”,SQLCA.SQLErrText, stopSign!,OK!)End If“查询所有”按钮脚本：dw_student.retrieve(1)“按姓名查询”按钮脚本：string ls_old_sql,ls_new_sqlstring ls_snamels_sname=sle_sname.text/将静态文本框内容赋给ls_snamels_sname=%+trim(upper(ls_sname)+%/转换内容成大写并去掉两边空格，加上SQL需要的匹配符和单引号ls_old_sql=dw_student.getsqlselect()/获得当前窗口的SQL语句ls_new_sql=ls_old_sql+where stu_name like +ls_sname /产生新的SQL语句形成模糊查询，条件变成where goodid liake %字符串%dw_student.setsqlselect(ls_new_sql)/设置成将查询的SQL语句dw_student.retrieve() /查询dw_student.setsqlselect(ls_old_sql) /恢复成旧的SQL“按学号查询”按钮脚本：string ls_old_sql,ls_new_sqlstring ls_snamels_sname=sle_sname.textls_sname=%+trim(upper(ls_sname)+%ls_old_sql=dw_student.getsqlselect()ls_new_sql=ls_old_sql+where stu_name like +ls_sname dw_student.setsqlselect(ls_new_sql)dw_student.retrieve() dw_student.setsqlselect(ls_old_sql)常用语句说明：1、数据库相关程序初始化代码/ Profile sample1SQLCA.DBMS = ODBCSQLCA.AutoCommit = FalseSQLCA.DBParm = ConnectString=DSN=sample1;UID=wgj;PWD=wgj2、在每个要进行数据操作的窗口中初始化代码：connect;DataWindow.settransobject(sqlca)DataWindow.retrieve(1)其中DataWindow为所用的数据窗口3、打开窗口：open(window)，其中window为要打开的窗口名称4、关闭窗口：close(window)，注意关闭事件触发空间所在的窗口可以用close(parent)5、为数据窗口设置过滤条件：dw_login.setfilter(querytj)6、过滤数据窗口的数据：filter(DataWindow)DataWindow.retrieve(1)7、使某一控件获得焦点：setfocus(Control)8、发送屏幕消息：messagebox(title, content, yes, no)messagebox(title, content, question!,yesno!)，弹出“是”，“否”对话框，点“是”返回1，“否”返回09、取数据窗口的数据行数：DataWindow.rowcount()10、数据窗口取值：DataWindow.object.datarowid,colid11、删除数据窗口中的某一行数据：deleterow(DataWindow,rowid)12、判断修改数据是否成功：update(DataWindos,true,false)返回1表示成功，否则不成功13、提交数据：DataWindos.resetupdate()commit;14、设置数据窗口中的数据： dw_1.object.dataii,3=ddlb_1.text dw_1.object.dataii,4=integer(sle_4.text)注意当数据库中的数据不为字符串型时要先转换类型后才能赋给数据窗口的相应字段，如第二句。15、滚动数据窗口的数据：DataWindow.scrollne