peocfunc.kb 的例行程序


ConfigureRemTrans

文件名

peocfunc.kb

语法

ConfigureRemTrans( VAL ParentWindow: Window ): BOOLEAN

参数

ParentWindow - 调用对话框的窗口句柄

返回

如果从对话框取消则返回 FALSE,如果选择确认所有提供的信息则返回 TRUE。

副作用

说明

取得站点表中的站点信息 - 包括站点号和站点标识。如果找到了站点号和站点标识,则设置全局变量 SITE_ID、SITE_NO 和 PSITE_NO。

调用的对话框窗体

cbuild.dfc[ remtrans_confignum ]

cbuild.dfc[ remtrans_config ]


GetOldPersonNameFmRec

文件名

peocfunc.kb

语法

GetOldPersonNameFmRec(VAL person: OldPeopleRecord ): STRING

参数

person - 一个旧人员记录的记录结构

返回

人员名称

副作用

说明

本函数接受人员记录,并提供人员的名称作为函数的结果。

调用的对话框窗体


GetPersonNameFmDB

文件名

peocfunc.kb

语法

GetPersonNameFmDB(REF people_id: INTEGER ): STRING

参数

people_id - 唯一标识人员的不透明标识

返回

人员名称

副作用

说明

本函数接受人员标识,并提供人员的名称作为函数的结果。

调用的对话框窗体


GetPersonNameFmRec

文件名

peocfunc.kb

语法

GetPersonNameFmRec(VAL person: PeopleRecord ): STRING

参数

person - 一个人员记录的记录结构

返回

人员名称

副作用

说明

本函数接受人员记录,并提供人员的名称作为函数的结果。

调用的对话框窗体


GetSitesInfo

文件名

peocfunc.kb

语法

GetSitesInfo(REF msgNumber: INTEGER): INTEGER

参数

msgNumber - 指示显示哪条错误消息的返回码

返回

成功则返回 1,取消进程则返回 -2

副作用

说明

取得站点表中的站点信息 - 包括站点号和站点标识。如果找到了站点号和站点标识,则设置全局变量 SITE_ID、SITE_NO 和 PSITE_NO。

调用的对话框窗体


SetButtons

文件名

peocfunc.kb

语法

SetButtons(VAL w: WINDOW)

参数

w - 调用对话框的窗口句柄

返回

副作用

说明

启用或禁用移植对话框上的按钮。

调用的对话框窗体


TransactionPrompt

文件名

peocfunc.kb

语法

TransactionPrompt(VAL w: WINDOW, REF tran: TransactionRecord ): BOOLEAN

参数

w - 调用对话框的窗口句柄

tran - 事务对话框的实例记录

返回

如果从对话框取消则返回 FALSE,如果选择确认所有提供的信息则返回 TRUE。

副作用

说明

本过程提示用户继续移植,并且在必要时更改事务大小。

调用的对话框窗体

cbuild.dfc[migtrans]