rrul_db.kb 的例行程序


R_ActionRecordDatabase

文件名

rrul_db.kb

语法

R_ActionRecordDatabase(VAL InTran: Boolean,VAL this_Action: R_ACTIONS_REC, VAL old_Action: R_ACTIONS_REC) IS

参数

InTran - 确定是否在事务处理中

this_Action - 当前操作记录

old_Action - 数据库并行的旧记录

返回

副作用

说明

此修改处理规则操作的添加、修改及删除。

调用的对话框窗体


R_FindRuleInList

文件名

rrul_db.kb

语法

R_FindRuleInList(VAL ID: INTEGER, VAL RuleList: LIST OF R_RULES_REC): R_RULES_REC IS

参数

ID - 要查找的规则记录标识

RuleList - 要搜索的规则记录列表

返回

R_RULES_REC

副作用

说明

此例行程序获取与指定标识匹配的规则记录。

调用的对话框窗体


R_Insert_table_CHANGE_TEXT

文件名

rrul_db.kb

语法

R_Insert_table_CHANGE_TEXT( VAL current_text: R_CHANGE_TEXT_REC ): INTEGER

参数

current_text - 要插入的文本。

返回

整数

副作用

说明

此例行程序将文本插入表 CHANGE_TEXT 中。

调用的对话框窗体


R_LoadActionsForRule

文件名

rrul_db.kb

语法

R_LoadActionsForRule: INTEGER IS

参数

返回

副作用

说明

“仅”当相应的高速缓存规则还“没有”装入规则操作时,此例行程序装入当前规则的操作。如果装入了规则操作,则这些操作将装入 CSTACK 及规则高速缓存栈 R_G_SRule.ARules。

调用的对话框窗体


R_LoadGeneralRules

文件名

rrul_db.kb

语法

R_LoadGeneralRules( VAL org_id: STRING ): INTEGER IS

参数

org_id - 当前组织

返回

整数

副作用

说明

若给定一个组织标识,则此函数会将一般规则装入高速缓冲存储器。

调用的对话框窗体


R_LoadRuleByID

文件名

rrul_db.kb

语法

R_LoadRuleByID(REF this_Rule: R_RULES_REC): INTEGER IS

参数

this_Rule - 当前规则记录

返回

整数

副作用

说明

此例行程序装入与给定标识匹配的规则。

调用的对话框窗体


R_LoadRules

文件名

rrul_db.kb

语法

R_LoadRules(VAL Rule_SQL_String: STRING): INTEGER IS

参数

Rule_SQL_String - 要执行规则检索的 SQL 字符串

返回

整数

副作用

说明

此例行程序装入与给定准则匹配的规则。

调用的对话框窗体


R_PopulateWWRuleMCLB

文件名

rrul_db.kb

语法

R_PopulateWWRuleMCLB( VAL w: WINDOW, VAL desination_MCLB: STRING) IS

参数

w -

destinationMCLB -

返回

副作用

说明

创建“处理规则”对话框时,此例行程序选择要显示的规则。请注意,由于特定原因,要按以下次序装入规则。该次序与将要实施的次序相同:首先,按特权次序实施“一般”规则。其次,按特权次序实施具体“类别”规则。

调用的对话框窗体


R_RuleRecordDatabase

文件名

rrul_db.kb

语法

R_RuleRecordDatabase(VAL InTran: BOOLEAN): INTEGER IS

参数

InTran - 确定是否在事务处理中

返回

整数

副作用

说明

此例行程序处理规则记录的添加、修改及删除。

调用的对话框窗体