易语言edb数据库源码

.版本 2

子程序 _启动窗口_创建完毕
    ' 创建数据库连接
    数据库连接句柄 ＝ 连接MyDB
    ' 创建表
    执行SQL (数据库连接句柄, "CREATE TABLE IF NOT EXISTS 用户 (
        ID INT PRIMARY KEY AUTO_INCREMENT,
        用户名 VARCHAR(50),
        密码 VARCHAR(50)
    )")
    ' 插入数据
    执行SQL (数据库连接句柄, "INSERT INTO 用户 (用户名, 密码) VALUES ('张三', '123456')")
    ' 查询数据
    数据集句柄 ＝ 查询 (数据库连接句柄, "SELECT * FROM 用户")
    ' 显示查询结果
    显示数据集 (数据集句柄)
    ' 关闭数据库连接
    关闭 (数据库连接句柄)

子程序 连接MyDB
    返回 连接 ("MyDB.edb", "", "")

子程序 执行SQL (数据库连接句柄, SQL语句)
    执行命令 (数据库连接句柄, SQL语句)

子程序 查询 (数据库连接句柄, SQL语句)
    返回 查询命令 (数据库连接句柄, SQL语句)

子程序 显示数据集 (数据集句柄)
    读字段值 (数据集句柄, "ID", ID)
    读字段值 (数据集句柄, "用户名", 用户名)
    读字段值 (数据集句柄, "密码", 密码)
    输出调试文本 ("ID: " ＋ 转文本 (ID) ＋ ", 用户名: " ＋ 用户名 ＋ ", 密码: " ＋ 密码)
    下一条记录 (数据集句柄)