付上易语言源码:.版本 2.支持库 eDB.支持库 iext.程序集 窗口程序集_启动窗口.子程序 __启动窗口_创建完毕.如果 (数据库连接1.连接Access (“.\xazbltx\xazbltx.mdb”, “”) ＝ 真) 记录集1.置连接 (数据库连接1) 记录集1.打开 (“1”, #数据表名, ).否则 信息框 (“连接数据库失败”, 16, “出错”, ) 销毁 ().如果结束外部数据库1.打开MDB数据库 (“.\xazbltx\xazbltx.mdb”, , , , ).判断开始 (文件是否存在 (取运行目录 () ＋ “.\xazbltx\pz.ini”)) 当前表项名 ＝ 到整数 (读配置项 (取运行目录 () ＋ “.\xazbltx\pz.ini”, “配置文件”, “当前表项”, )).默认 当前表项名 ＝ 1.判断结束.子程序 _按钮1_被单击, , , 查询女.局部变量 n, 整数型.局部变量 期数, 文本型.局部变量 编号, 文本型.局部变量 姓名, 文本型.局部变量 电话, 文本型.局部变量 性别, 文本型' 查询jg表中的所有性别-女的信息并写入到超级列表框1中记录集1.打开 (“jg”, #数据表名, )记录集1.更新 ()超级列表框1.全部删除 ()记录集1.到首记录 ().计次循环首 (记录集1.记录数量, n) 记录集1.读文本 (“期数”, 期数) 记录集1.读文本 (“编号”, 编号) 记录集1.读文本 (“姓名”, 姓名) 记录集1.读文本 (“电话”, 电话) 记录集1.读文本 (“性别”, 性别) 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (n － 1, 0, 到文本 (期数)) 超级列表框1.置标题 (n － 1, 1, 到文本 (编号)) 超级列表框1.置标题 (n － 1, 2, 到文本 (姓名)) 超级列表框1.置标题 (n － 1, 3, 到文本 (电话)) 超级列表框1.置标题 (n － 1, 4, 到文本 (性别)) 超级列表框1.保证显示 (n － 1) 记录集1.到下一条 () ' 延迟 (50) ' 加个延迟是为了让你看到效果.计次循环尾 ()
