易语言ADO数据库对象模块源码

系统结构:list,取错误内容,取对象,内部_更新连接错误内容,连接MSSql,连接MDB,关闭库,执行_附加文本,执行_附加字节集,查询,开启事务,回滚事务,提交事务,设置记录集,关闭记录集,重新查询,是否为错误,取记录数,取结果字段数,是否在尾记录后,是否在首记录前,到下一条,到上一条,到记录首,到记录尾,到指定记录,到指定页号,取当前页号,取页数,设置页大小,取页大小,读_文本,读_数值,读_逻辑,读_日期,读_字节集,读_变体型,读_从字段号_文本,读_从字段号_数值,读_从字段号_逻辑,读_从字段号_日期,读_从字段号_字节集,读_从字段号_变体型,取对象,CreateObject,CreateADOLinkObject,取对象属性列表,

======ec
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ list
           |  |
           |  |
======ADO数据库
           |  |
           |  |------ 取错误内容
           |  |
           |  |------ 取对象
           |  |
           |  |------ 内部_更新连接错误内容
           |  |
           |  |------ 连接MSSql
           |  |
           |  |------ 连接MDB
           |  |
           |  |------ 关闭库
           |  |
           |  |------ 执行_附加文本
           |  |
           |  |------ 执行_附加字节集
           |  |
           |  |------ 查询
           |  |
           |  |------ 开启事务
           |  |
           |  |------ 回滚事务
           |  |
           |  |------ 提交事务
           |  |
           |  |
======SQL记录集
           |  |
           |  |------ 设置记录集
           |  |
           |  |------ 关闭记录集
           |  |
           |  |------ 重新查询
           |  |
           |  |------ 是否为错误
           |  |
           |  |------ 取记录数
           |  |
           |  |------ 取结果字段数
           |  |
           |  |------ 是否在尾记录后
           |  |
           |  |------ 是否在首记录前
           |  |
           |  |------ 到下一条
           |  |
           |  |------ 到上一条
           |  |
           |  |------ 到记录首
           |  |
           |  |------ 到记录尾
           |  |
           |  |------ 到指定记录
           |  |
           |  |------ 到指定页号
           |  |
           |  |------ 取当前页号
           |  |
           |  |------ 取页数
           |  |
           |  |------ 设置页大小
           |  |
           |  |------ 取页大小
           |  |
           |  |------ 读_文本
           |  |
           |  |------ 读_数值
           |  |
           |  |------ 读_逻辑
           |  |
           |  |------ 读_日期
           |  |
           |  |------ 读_字节集
           |  |
           |  |------ 读_变体型
           |  |
           |  |------ 读_从字段号_文本
           |  |
           |  |------ 读_从字段号_数值
           |  |
           |  |------ 读_从字段号_逻辑
           |  |
           |  |------ 读_从字段号_日期
           |  |
           |  |------ 读_从字段号_字节集
           |  |
           |  |------ 读_从字段号_变体型
           |  |
           |  |------ 取对象
           |  |
           |  |
======help
           |  |
           |  |------ CreateObject
           |  |
           |  |------ CreateADOLinkObject
           |  |
           |  |------ 取对象属性列表
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _CoInitialize
           |  |
           |  |---[dll]------   _DeleteCriticalSection
           |  |
           |  |---[dll]------   _EnterCriticalSection
           |  |
           |  |---[dll]------   _InitializeCriticalSection
           |  |
           |  |---[dll]------   _LeaveCriticalSection

调用的DLL命令:

.DLL命令 _CoInitialize, , "ole32.dll", "CoInitialize"
    .参数 pvReserved, 整数型

.DLL命令 _DeleteCriticalSection, , , "DeleteCriticalSection"
    .参数 lpCriticalSection, CRITICAL_SECTION

.DLL命令 _EnterCriticalSection, , , "EnterCriticalSection"
    .参数 lpCriticalSection, CRITICAL_SECTION

.DLL命令 _InitializeCriticalSection, , , "InitializeCriticalSection"
    .参数 lpCriticalSection, CRITICAL_SECTION

.DLL命令 _LeaveCriticalSection, , , "LeaveCriticalSection"
    .参数 lpCriticalSection, CRITICAL_SECTION