知识大全在PB中实现数据录入维持序号连续性的简单实现[2]

Posted 2022-07-13 事件

篇首语：大道之行，天下为公。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在PB中实现数据录入维持序号连续性的简单实现[2]相关的知识，希望对你有一定的参考价值。

在PB中实现数据录入维持序号连续性的简单实现[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 在Application画板中在应用对象的Open事件中输入如下代码

　　// Profile project

　　SQLCA DBMS = OR ORACLE

　　SQLCA LogPass = password

　　SQLCA ServerName = gxmis

　　SQLCA LogId = projectdba

　　SQLCA AutoCommit = False

　　SQLCA DBParm =

　　//以上为连接数据库的配置由用户根据具体设置

　　connect using sqlca;

　　open（w_autoserial） //打开w_autoserial窗口

　　 窗口w_autoserial中的Open事件中输入如下代码

　　dw_ settransobject（sqlca）

　　dw_ retrieve（）

　　 为窗口w_autoserial中的数据窗口dw_ 声明一个用户事件ue_reassign_serial

　　用户事件ue_reassign_serial的说明

　　Event Name ue_reassign_serial

　　Event ID

　　Return （none）

　　Argument serial_position long Value

　　其中参数serial_position接收数据窗口对象dw_employee中序号字段在Selection List的位置本例中序号字段位置为

　　事件脚本如下

　　long i

　　this setredraw（false）

　　for i= to this rowcount（）

　　this object Data[i serial_position]=i //重置序号

　　this setredraw（True）

　　 编写窗口w_autoserial中的Command Button控件脚本

　　 cb_insert按钮的clicked事件代码

　　long ll_curr ll_newcur

　　ll_curr=dw_ getrow（）

　　ll_newcur=dw_ insertrow（ll_curr）

　　//调用序号维护事件为序号字段在Selection List中的位置

　　dw_ event trigger ue_reassign_serial（）

　　dw_ setfocus（）

　　dw_ setcolumn（ name ）

　　dw_ scrolltorow（ll_newcur）

　　 cb_add按钮的clicked事件代码

　　long ll_curr ll_newcur

　　ll_newcur=dw_ insertrow（）

　　dw_ event trigger ue_reassign_serial（）

　　dw_ setfocus（）

　　dw_ setcolumn（ name ）

　　dw_ scrolltorow（ll_newcur）

　　 cb_delete按钮的clicked事件代码

　　if messagebox（删除请求肯定要删除该人员？ stopsign! yesno! ）= then

　　dw_ deleterow（）

　　dw_ event trigger ue_reassign_serial（）

　　end if

　　 cb_save按钮的clicked事件代码

　　if dw_ update（）= then

　　mit;

　　else

　　rollback;

　　end if

　　本例在Powerbuild 数据库oracle 上测试通过对于序号上千的表本方法也能应付自如如果程序中序号不为关键字或为一些简单表格可在DataWindow中增加计算字段来实现以上功能计算字段表达式为getrow（）

编辑推荐

ASP NET开发培训视频教程

Microsoft NET框架程序设计视频教程

cha138/Article/program/PB/201311/24613

知识大全 在PB中实现数据录入维持序号连续性的简单实现[2]

知识大全在PB中实现数据录入维持序号连续性的简单实现[2]