汇编模块1.0源码

.版本 2

.程序集 数据库类, , 公开
.程序集变量 Conn, 对象
.程序集变量 Rs, 对象
.程序集变量 Errors, 文本型

.子程序 _初始化

API_CoInitialize (0)
Conn.创建 (“ADODB.Connection”, )
Rs.创建 (“ADODB.RecordSet”, )

.子程序 _销毁

Rs.方法 (“close”, )
Rs.清除 ()
Conn.方法 (“close”, )
Conn.清除 ()
API_CoUninitialize ()


.子程序 连接ACCESS, 逻辑型, 公开, 连接ACCESS数据库(成功返回真,失败返回假)
.参数 数据库文件, 文本型, , 要连接的MDB数据库文件
.参数 密码, 文本型, 可空, 本参数提供Access数据库的访问密码。可以为空，若为空，表示Access数据库没有密码。

Conn.方法 (“open”, “DBQ=” ＋ 数据库文件 ＋ “;Pwd=” ＋ 密码 ＋ “;DRIVER={Microsoft Access Driver (*.mdb)};”)
.如果真 (Conn.读数值属性 (“State”, ) ＞ 0)
    Errors ＝ “”
    返回 (真)
.如果真结束
Errors ＝ Conn.读文本属性 (“Errors”, )
返回 (假)


.子程序 Execute, 对象, 公开
.参数 CommandText, 文本型
.参数 RecordsAffected, 变体型, 参考 可空, 类型为“变体型”，需要提供变量以取回方法所返回的数据
.参数 Options, 整数型, 可空, 参数默认值为“-1”

.如果真 (是否为空 (Options))
    Options ＝ -1
.如果真结束
返回 (Conn.对象型方法 (“Execute”, CommandText, RecordsAffected, Options))

.子程序 查询, 逻辑型, 公开, 执行SQL语句(成功返回真,失败返回假)
.参数 SQL, 文本型, , 待执行的SQL语句
.局部变量 _局部变量1, 变体型
.局部变量 _局部变量2, 变体型

_局部变量1.赋值 (SQL, )
_局部变量2.赋值 (Conn, )
Rs.方法 (“open”, _局部变量1, _局部变量2, 1, 3)
.如果真 (Rs.读数值属性 (“State”, ) ＞ 0)
    返回 (真)
.如果真结束
返回 (假)


.子程序 移动, , 公开, Move 移动到指定的记录号
.参数 目标记录号, 整数型, , 本参数提供目标记录号值，该值从 0 开始。

Rs.方法 (“Move”, 目标记录号)

.子程序 移动到上一条, , 公开, MovePrevious 移动到上一条记录

Rs.方法 (“MovePrevious”, )

.子程序 移动到下一条, , 公开, MoveNext 移动到下一条记录

Rs.方法 (“MoveNext”, )

.子程序 移动到首记录, , 公开, MoveFirst 移动到第一条记录

Rs.方法 (“MoveFirst”, )

.子程序 移动到尾记录, , 公开, MoveLast 移动到最后一条记录

Rs.方法 (“MoveLast”, )

.子程序 更新, , 公开, UpDate 更新数据库的记录改动

Rs.方法 (“UpDate”, )

.子程序 关闭, , 公开, 关闭查询时打开的表

Rs.方法 (“Close”, )

.子程序 GetRows, 变体型, 公开
.参数 Rows, 整数型, 可空
.参数 Start, 整数型, 可空
.参数 Fields, 整数型, 可空

.如果真 (是否为空 (Rows))
    Rows ＝ -1
.如果真结束
返回 (Rs.通用方法 (“GetRows”, Rows, Start, Fields))

.子程序 断开, , 公开, 断开数据库连接

Rs.方法 (“Close”, )
Conn.方法 (“Close”, )

.子程序 添加, , 公开

Rs.方法 (“AddNew”, )

.子程序 尾记录后, 逻辑型, 公开, 移动到记录结尾

返回 (Rs.读逻辑属性 (“eof”, ))

.子程序 取记录数, 整数型, 公开, 取数据库中的记录总数

返回 (Rs.读数值属性 (“RecordCount”, ))

.子程序 取记录集对象, 对象

返回 (Rs)

.子程序 读文本, 文本型, 公开, 读取记录
.参数 字段名, 文本型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
返回 (_局部变量2.读文本属性 (“Value”, ))


.子程序 读整数, 整数型, 公开, 读取记录
.参数 字段名, 文本型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
返回 (_局部变量2.读数值属性 (“Value”, ))

.子程序 读双精度小数, 双精度小数型, 公开, 读取记录
.参数 字段名, 文本型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
返回 (_局部变量2.读数值属性 (“Value”, ))


.子程序 读逻辑值, 逻辑型, 公开, 读取记录
.参数 字段名, 文本型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
返回 (_局部变量2.读逻辑属性 (“Value”, ))

.子程序 读日期时间, 日期时间型, 公开, 读取记录
.参数 字段名, 文本型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
返回 (_局部变量2.读日期属性 (“Value”, ))

.子程序 读字节集, 字节集, 公开, 读取记录
.参数 字段名, 文本型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3 ＝ _局部变量2.读属性 (“Value”, )
返回 (_局部变量3.取字节集 ())

.子程序 读变体型, 变体型, 公开, 读取记录
.参数 字段名, 文本型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3 ＝ _局部变量2.读属性 (“Value”, )
返回 (_局部变量3)

.子程序 写文本, 逻辑型, 公开, 写入记录
.参数 字段名, 文本型
.参数 写入文本, 文本型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3.赋值 (写入文本, )
返回 (_局部变量2.写属性 (“Value”, _局部变量3))


.子程序 写整数, 逻辑型, 公开, 写入记录
.参数 字段名, 文本型
.参数 写入值, 整数型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3.赋值 (写入值, )
返回 (_局部变量2.写属性 (“Value”, _局部变量3))


.子程序 写小数, 逻辑型, 公开, 写入记录
.参数 字段名, 文本型
.参数 写入值, 小数型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3.赋值 (写入值, )
返回 (_局部变量2.写属性 (“Value”, _局部变量3))


.子程序 写日期时间, 逻辑型, 公开, 写入记录
.参数 字段名, 文本型
.参数 写入值, 日期时间型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3.赋值 (写入值, )
返回 (_局部变量2.写属性 (“Value”, _局部变量3))


.子程序 写字节集, 逻辑型, 公开, 写入记录
.参数 字段名, 文本型
.参数 写入值, 字节集
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3.赋值 (写入值, )
返回 (_局部变量2.写属性 (“Value”, _局部变量3))


.子程序 写变体型, 逻辑型, 公开, 写入记录
.参数 字段名, 文本型
.参数 写入值, 变体型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
返回 (_局部变量2.写属性 (“Value”, 写入值))


.子程序 取最后错误, 文本型, 公开, 当打开数据库失败后,可通过该命令取最后错误信息

返回 (Errors)

.子程序 写逻辑值, 逻辑型, 公开, 写入记录
.参数 字段名, 文本型
.参数 逻辑值, 逻辑型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3.赋值 (逻辑值, )
返回 (_局部变量2.写属性 (“Value”, _局部变量3))


.子程序 写长整数, 逻辑型, 公开, 写入记录
.参数 字段名, 文本型
.参数 写入值, 长整数型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3.赋值 (写入值, )
返回 (_局部变量2.写属性 (“Value”, _局部变量3))


.子程序 写双精度小数, 逻辑型, 公开, 写入记录
.参数 字段名, 文本型
.参数 写入值, 双精度小数型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3.赋值 (写入值, )
返回 (_局部变量2.写属性 (“Value”, _局部变量3))


.子程序 读长整数, 长整数型, 公开, 读取记录
.参数 字段名, 文本型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3 ＝ _局部变量2.读属性 (“Value”, )
返回 (取字节集数据 (_局部变量3.取字节集 (), #长整数型, ))


.子程序 读小数, 小数型, 公开, 读取记录
.参数 字段名, 文本型
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 变体型

_局部变量1 ＝ Rs.对象型方法 (“Fields”, )
_局部变量2 ＝ _局部变量1.读对象型属性 (“Item”, 字段名)
_局部变量3 ＝ _局部变量2.读属性 (“Value”, )
返回 (取字节集数据 (_局部变量3.取字节集 (), #小数型, ))