genrec.kb 的例行程序


AddField

文件名

genrec.kb

语法

AddField(VR: VRType, FieldName: STRING, DBFieldType: STRING, DefaultVal: STRING);

参数

VR - 存储值的变体记录

Fieldname - 要添加的字段名称

DBFieldType - 字段类型

DefaultVal - 要存储在字段中的缺省值

返回

整数 - 如果字段被成功添加到 VR,则该值为 1。

副作用

无。说明:无。

说明

调用的对话框窗体


AddTableFields

文件名

genrec.kb

语法

AddTableFields(VR: VRType, TBName: STRING)

参数

VR - 变体记录

TBName - 要引入的表

返回

Integer - 如果所有列引入成功,则该值为 1。

副作用

无。总体改变:无。

说明

此函数将在运行时引入一个表并设置一个类似该表的类属记录。

调用的对话框窗体


ConvertRecordsToStringList

文件名

genrec.kb

语法

ConvertRecordsToStringList(VR: VRType, Condition: STRING, numColumns: INTEGER, reclist: LIST OF STRING

参数

VR - 灵活记录

Condition - 要使用的条件

numColumns - 表中的列数

reclist - 新的字符串列表

返回

整数

副作用

无。总体改变:无。

说明

从数据库表读取多个记录并将值存储在 VR 中。然后该函数将这些记录转换为一个字符串列表。

调用的对话框窗体


GetFieldAsDate

文件名

genrec.kb

语法

GetFieldAsDate(VR: VRType, FieldName: STRING)

参数

VR - 灵活记录

FieldName - 要获取的字段名

返回

日期

副作用

无。总体改变:无。

说明

在类属记录中获取字段。

调用的对话框窗体


GetFieldAsInt

文件名

genrec.kb

语法

GetFieldAsInt(VR: VRType, FieldName: STRING)

参数

VR - 灵活记录

FieldName - 要获取的字段名

返回

整数

副作用

无。总体改变:无。

说明

在“类属记录”中获取字段。

调用的对话框窗体


GetFieldAsString

文件名

genrec.kb

语法

GetFieldAsString(VR: VRType, FieldName: STRING)

参数

VR - 灵活记录

FieldName - 要获取的字段名

返回

字符串

副作用

无。总体改变:无。

说明

在“类属记录”中获取字段。

调用的对话框窗体


GetFieldAsTime

文件名

genrec.kb

语法

GetFieldAsTime(VR: VRType, FieldName: STRING)

参数

VR - 灵活记录

FieldName - 要获取的字段名

返回

时间

副作用

无。总体改变:无。

说明

在“类属记录”中获取字段。

调用的对话框窗体


GetFieldNames

文件名

genrec.kb

语法

GetFieldNames(VR: VRType)

参数

VR - 灵活记录

返回

一系列字符串

副作用

无。总体改变:无。

说明

返回一个“类属记录”中所有字段的列表。

调用的对话框窗体


GetFieldVal

文件名

genrec.kb

语法

GetFieldVal(VR: VRType, FieldName: STRING)

参数

VR - 灵活记录

FieldName - 要获取的字段名

返回

字符串

副作用

无。总体改变:无。

说明

在类属记录中获取字段。

调用的对话框窗体


GetMetaField

文件名

genrec.kb

语法

GetMetaField(VR: VRType, FieldName: STRING, MetaData, Data: LIST OF STRING)

参数

VR - 灵活记录

FieldName - 要获取的字段名

MetaData - 属性名称列表

Data - 属性值列表

返回

整数

副作用

无。总体改变:无。

说明

基于 MetaData 值更新 VR 中的值。

调用的对话框窗体


InsertToTable

文件名

genrec.kb

语法

InsertToTable(VR: VRType)

参数

VR - 灵活记录

返回

整数

副作用

无。总体改变:无。

说明

基于 VR 中的值在数据库表中插入一行。

调用的对话框窗体


ReadFromDatabaseTable

文件名

genrec.kb

语法

ReadFromDatabaseTable(VR: VRType, Condition: STRING)

参数

VR - 灵活记录

Condition - 要使用的条件

返回

整数

副作用

无。总体改变:无。

说明

从数据库表中读取一个记录并将值存储在 VR 中。

调用的对话框窗体


SetFieldVal

文件名

genrec.kb

语法

SetFieldVal(VR: VRType, FieldName, NewVal: STRING)

参数

VR - 灵活记录

FieldName - 要设置的字段名

NewVal - 要设置的值

返回

整数

副作用

无。总体改变:无。

说明

在类属记录中设置字段。

调用的对话框窗体


SetMetaField

文件名

genrec.kb

语法

SetMetaField(VR: VRType, FieldName: STRING, MetaData, Data: LIST OF STRING)

参数

VR - 灵活记录

FieldName - 要获取的字段名

MetaData - 属性名称列表

Data - 属性值列表

返回

整数

副作用

无。总体改变:无。

说明

从一个字段向元数据数据列表添加条目。

调用的对话框窗体


UpdateFromWindow

文件名

genrec.kb

语法

UpdateFromWindow(whdl: WINDOW, VR: VRType)

参数

whdl - 从其进行更新的窗口

VR - 灵活记录

返回

整数

副作用

无。总体改变:无。

说明

基于窗口控制值更新类属记录。

调用的对话框窗体


UpdateToTable

文件名

genrec.kb

语法

UpdateToTable(VR: VRType, Condition: STRING)

参数

VR - 灵活记录

Condition - 要使用的条件

返回

整数

副作用

无。总体改变:无。

说明

基于 VR 中的值更新数据库表中的行。

调用的对话框窗体


UpdateToWindow

文件名

genrec.kb

语法

UpdateToWindow(whdl: WINDOW, VR: VRType)

参数

whdl - 从其进行更新的窗口

VR - 灵活记录

返回

整数

副作用

无。总体改变:无。

说明

基于类属记录更新窗口。

调用的对话框窗体


WriteToDatabaseTable

文件名

genrec.kb

语法

WriteToDatabaseTable(VR: VRType, Condition: STRING)

参数

VR - 灵活记录

Condition - 要使用的条件

返回

整数

副作用

无。总体改变:无。

说明

基于 VR 中的值插入/更新数据库表中的行。

调用的对话框窗体

genrec.dfc[genrec]