rctg_wdb.kb 的例行程序


GetNewNodeName

文件名

rctg_wdb.kb

语法

GetNewNodeName(VAL s:string): STRING IS

参数

w - 当前窗口

s - 字符串

返回

字符串

副作用

说明

这个例行程序为给定的更改类别返回一个新的类别代码。

调用的对话框窗体

rmod.dfc[addform]


InsertChangeCategoryRec

文件名

rctg_wdb.kb

语法

InsertChangeCategoryRec( VAL InTran: BOOLEAN, REF catRec: CATEGORY_REC ): INTEGER IS

参数

w - 当前窗口

InTran - 说明数据库是否已在事务中的布尔值

catRec - 类别记录

返回

整数

副作用

说明

这个例行程序插入新的更改类别记录。

调用的对话框窗体


R_FindNextCategoryName

文件名

rctg_wdb.kb

语法

R_FindNextCategoryName( REF current_category: STRING, REF current_description: STRING ) IS

参数

current_category - 更改类别代码

current_description - 更改类别说明

返回

副作用

如果发现类别代码不是唯一的,更新类别代码和说明。

说明

这个例行程序确定数据库中是否已经有这个类别代码。如果有,此例行程序在这个类别代码的前面添加文本“Copy [##] of”(## 表示数字值)。也在其说明前面添加同样的字符串。

调用的对话框窗体


R_InqNewNameEvent

文件名

rctg_wdb.kb

语法

R_InqNewNameEvent( REF BSR: R_CATEGORY_REC ) IS

参数

BSR - State record

返回

副作用

说明

这个例行程序允许用户为重复的类别输入新的类别代码。

调用的对话框窗体


UpdateChangeCategoryRec

文件名

rctg_wdb.kb

语法

UpdateChangeCategoryRec( VAL InTran: BOOLEAN, REF BeforeRec: CATEGORY_REC REF AfterRec: CATEGORY_REC): INTEGER IS

参数

InTran - 说明数据库是否已在事务中的布尔值

BeforeRec - 记录的开始实例数据

AfterRec - 修改后的记录

返回

整数

副作用

说明

这个例行程序更新给定的更改类别记录。

调用的对话框窗体