易语言API操作Access数据库源码

系统结构:连接数据库,断开数据库连接,执行Sql语句,加入文本,取代码框文本,ZeroMemory,SQLExecDirect,SQLEndTran,SQLFetchScroll,SQLDisconnect,SQLDescribeCol,SQLFreeHandle,SQLGetDiagRec,SQLNumResultCols,SQLRowCount,SQLSetConnectAttr,SQLSetEnvAttr,SQLSetStmtAttr,SQLDriverConnect,SQLAllocHandle,SQLBindCol,SQLCloseCursor,GlobalAlloc,

======数据库
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 连接数据库
           |  |
           |  |------ 断开数据库连接
           |  |
           |  |------ 执行Sql语句
           |  |
           |  |
======main
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 加入文本
           |  |
           |  |------ 取代码框文本
           |  |
           |  |------ _按钮_连接_被单击
           |  |
           |  |------ _按钮_断开_被单击
           |  |
           |  |------ _按钮_执行_被单击
           |  |
           |  |------ ZeroMemory
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ _代码编辑框_Sql语句_按下某键
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SQLExecDirect
           |  |
           |  |---[dll]------   SQLEndTran
           |  |
           |  |---[dll]------   SQLFetchScroll
           |  |
           |  |---[dll]------   SQLDisconnect
           |  |
           |  |---[dll]------   SQLDescribeCol
           |  |
           |  |---[dll]------   SQLFreeHandle
           |  |
           |  |---[dll]------   SQLGetDiagRec
           |  |
           |  |---[dll]------   SQLNumResultCols
           |  |
           |  |---[dll]------   SQLRowCount
           |  |
           |  |---[dll]------   SQLSetConnectAttr
           |  |
           |  |---[dll]------   SQLSetEnvAttr
           |  |
           |  |---[dll]------   SQLSetStmtAttr
           |  |
           |  |---[dll]------   SQLDriverConnect
           |  |
           |  |---[dll]------   SQLAllocHandle
           |  |
           |  |---[dll]------   SQLBindCol
           |  |
           |  |---[dll]------   SQLCloseCursor
           |  |
           |  |---[dll]------   GlobalAlloc

调用的DLL命令:

.DLL命令 SQLExecDirect, 短整数型, "odbc32.dll", "SQLExecDirectA"
    .参数 a
    .参数 b, 文本型
    .参数 c

.DLL命令 SQLEndTran, 整数型, "odbc32.dll", "SQLEndTran"
    .参数 a
    .参数 b
    .参数 c

.DLL命令 SQLFetchScroll, 整数型, "odbc32.dll", "SQLFetchScroll"
    .参数 a
    .参数 b
    .参数 c

.DLL命令 SQLDisconnect, 整数型, "odbc32.dll", "SQLDisconnect"
    .参数 a

.DLL命令 SQLDescribeCol, 整数型, "odbc32.dll", "SQLDescribeColA"
    .参数 a
    .参数 b
    .参数 c, 文本型
    .参数 d
    .参数 e, , 传址
    .参数 f, , 传址
    .参数 g, , 传址
    .参数 h, , 传址
    .参数 i, , 传址

.DLL命令 SQLFreeHandle, 整数型, "odbc32.dll", "SQLFreeHandle"
    .参数 a
    .参数 b

.DLL命令 SQLGetDiagRec, 整数型, "odbc32.dll", "SQLGetDiagRecA"
    .参数 a
    .参数 b
    .参数 c
    .参数 d, 字节型, 数组
    .参数 e, , 传址
    .参数 f, 文本型, 传址
    .参数 g
    .参数 h, , 传址

.DLL命令 SQLNumResultCols, 整数型, "odbc32.dll", "SQLNumResultCols"
    .参数 a
    .参数 b, , 传址

.DLL命令 SQLRowCount, 整数型, "odbc32.dll", "SQLRowCount"
    .参数 a
    .参数 b, , 传址

.DLL命令 SQLSetConnectAttr, 整数型, "odbc32.dll", "SQLSetConnectAttrA"
    .参数 a
    .参数 b
    .参数 c
    .参数 d

.DLL命令 SQLSetEnvAttr, 短整数型, "odbc32.dll", "SQLSetEnvAttr"
    .参数 a
    .参数 b
    .参数 c
    .参数 d

.DLL命令 SQLSetStmtAttr, 整数型, "odbc32.dll", "SQLSetStmtAttrA"
    .参数 a
    .参数 b
    .参数 c
    .参数 d

.DLL命令 SQLDriverConnect, 整数型, "odbc32.dll", "SQLDriverConnectA"
    .参数 a
    .参数 b
    .参数 c, 文本型
    .参数 d
    .参数 e, 文本型
    .参数 f
    .参数 g, , 传址
    .参数 h

.DLL命令 SQLAllocHandle, 短整数型, "odbc32.dll", "SQLAllocHandle"
    .参数 a, 整数型
    .参数 b, 整数型
    .参数 c, 整数型, 传址

.DLL命令 SQLBindCol, 整数型, "odbc32.dll", "SQLBindCol"
    .参数 a
    .参数 b
    .参数 c
    .参数 d, 整数型
    .参数 e
    .参数 f, , 传址

.DLL命令 SQLCloseCursor, 整数型, "odbc32.dll", "SQLCloseCursor"
    .参数 a

.DLL命令 GlobalAlloc, 整数型, , "GlobalAlloc"
    .参数 a
    .参数 b