易语言闪电ADODB操作类模块源码

系统结构:创建Access数据库,初始化多线程COM库,销毁多线程COM库,Get_catalog,Get_connetion,连接,连接Access数据库,连接SqlServer数据库,断开,新建数据表,新建数据表_SQL方式,执行SQL,是否已连接,开始事务,提交事务,回滚事务,打开,关闭,是否已打开,记录数量,添加记录,删除记录,读字段名记录,读字段序号记录,写字段名记录,写字段序号记录,跳到记录,下一条,上一条,到首记录,到尾记录,首记录前,尾记录后,更新,撤销,批量更新,批量撤销,CoInitialize,CoUninitialize,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 创建Access数据库
           |  |
           |  |------ 初始化多线程COM库
           |  |
           |  |------ 销毁多线程COM库
           |  |
           |  |
======ADODB数据库类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ Get_catalog
           |  |
           |  |------ Get_connetion
           |  |
           |  |------ 连接
           |  |
           |  |------ 连接Access数据库
           |  |
           |  |------ 连接SqlServer数据库
           |  |
           |  |------ 断开
           |  |
           |  |------ 新建数据表
           |  |
           |  |------ 新建数据表_SQL方式
           |  |
           |  |------ 执行SQL
           |  |
           |  |------ 是否已连接
           |  |
           |  |------ 开始事务
           |  |
           |  |------ 提交事务
           |  |
           |  |------ 回滚事务
           |  |
           |  |
======ADODB记录集类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 打开
           |  |
           |  |------ 关闭
           |  |
           |  |------ 是否已打开
           |  |
           |  |------ 记录数量
           |  |
           |  |------ 添加记录
           |  |
           |  |------ 删除记录
           |  |
           |  |------ 读字段名记录
           |  |
           |  |------ 读字段序号记录
           |  |
           |  |------ 写字段名记录
           |  |
           |  |------ 写字段序号记录
           |  |
           |  |------ 跳到记录
           |  |
           |  |------ 下一条
           |  |
           |  |------ 上一条
           |  |
           |  |------ 到首记录
           |  |
           |  |------ 到尾记录
           |  |
           |  |------ 首记录前
           |  |
           |  |------ 尾记录后
           |  |
           |  |------ 更新
           |  |
           |  |------ 撤销
           |  |
           |  |------ 批量更新
           |  |
           |  |------ 批量撤销
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   CoUninitialize

调用的DLL命令:

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

.DLL命令 CoUninitialize, , "Ole32.dll", "CoUninitialize"