.版本 2 .支持库 mysql .程序集 窗口程序集1 .程序集变量 mysql句柄, 整数型 .程序集变量 输出内容, 文本型 .子程序 __启动窗口_创建完毕 mysql句柄 ＝ 连接MySql (“localhost”, “root”, “123456”, “dbdemo”, 3306) .如果 (mysql句柄 ＝ 0) 输出内容 ＝ “连接MySql命令” ＋ “执行失败，请检查服务器信息。” .否则 ' 首先告诉数据库管理系统（DBMS)程序使用GBK字符集，否则读取中文会出现乱码，增加中文记录失败。 执行SQL语句 (mysql句柄, “set names GBK”) .如果结束 输出内容 ＝ “mysql句柄: ” ＋ 到文本 (mysql句柄) ＋ #换行符 .子程序 _按钮1_被单击 .局部变量 sql语句, 文本型 .局部变量 记录集句柄, 整数型 .局部变量 记录集行数, 整数型 .局部变量 编号, 文本型 .局部变量 姓名, 文本型 .局部变量 年龄, 文本型 .局部变量 平均年龄, 文本型 .局部变量 统计记录数, 文本型 ' 检查SQL是否为空 .如果真 (编辑框SQL.内容 ＝ “”) 编辑框SQL.内容 ＝ “SELECT id,name,age FROM student” .如果真结束 ' 执行SQL语句 sql语句 ＝ 编辑框SQL.内容 执行SQL语句 (mysql句柄, sql语句) ' 处理结果集 记录集句柄 ＝ 取记录集 (mysql句柄) 编辑框输出结果.内容 ＝ “影响行数： ” ＋ 到文本 (取影响行数 (mysql句柄)) ' 本源码来自三叶资源网(www.sanye.cx)