文件名
语法
GetNewNodeName(VAL s:string): STRING IS
参数
w - 当前窗口
s - 字符串
返回
字符串
副作用
无
说明
这个例行程序为给定的更改类别返回一个新的类别代码。
调用的对话框窗体
rmod.dfc[addform]
文件名
语法
InsertChangeCategoryRec( VAL InTran: BOOLEAN, REF catRec: CATEGORY_REC ): INTEGER IS
参数
w - 当前窗口
InTran - 说明数据库是否已在事务中的布尔值
catRec - 类别记录
返回
整数
副作用
无
说明
这个例行程序插入新的更改类别记录。
调用的对话框窗体
无
文件名
语法
R_FindNextCategoryName( REF current_category: STRING, REF current_description: STRING ) IS
参数
current_category - 更改类别代码
current_description - 更改类别说明
返回
无
副作用
如果发现类别代码不是唯一的,更新类别代码和说明。
说明
这个例行程序确定数据库中是否已经有这个类别代码。如果有,此例行程序在这个类别代码的前面添加文本“Copy [##] of”(## 表示数字值)。也在其说明前面添加同样的字符串。
调用的对话框窗体
无
文件名
语法
R_InqNewNameEvent( REF BSR: R_CATEGORY_REC ) IS
参数
BSR - State record
返回
无
副作用
无
说明
这个例行程序允许用户为重复的类别输入新的类别代码。
调用的对话框窗体
无
文件名
语法
UpdateChangeCategoryRec( VAL InTran: BOOLEAN, REF BeforeRec: CATEGORY_REC REF AfterRec: CATEGORY_REC): INTEGER IS
参数
InTran - 说明数据库是否已在事务中的布尔值
BeforeRec - 记录的开始实例数据
AfterRec - 修改后的记录
返回
整数
副作用
无
说明
这个例行程序更新给定的更改类别记录。
调用的对话框窗体
无