.版本 2
.程序集 窗口程序集1
.程序集变量 语文, 双精度小数型
.程序集变量 数学, 双精度小数型
.程序集变量 外语, 双精度小数型
.程序集变量 总分, 双精度小数型, , "0"
.程序集变量 名次, 双精度小数型, , "0"
.程序集变量 记录, 整数型
.子程序 __启动窗口_创建完毕
.如果真 (取反 (文件是否存在 (取运行目录 () + “\数据库.edb”)))
创建数据库 ()
.如果真结束
打开 (取运行目录 () + “\数据库.edb”, “数据库”, , , , , )
.如果真 (取记录数 () = 0)
编辑框1.获取焦点 ()
返回 ()
.如果真结束
刷新列表 ()
.子程序 创建数据库
.局部变量 字段, 字段信息, , "4"
字段 [1].名称 = “姓名”
字段 [1].类型 = #文本型
字段 [1].最大文本长度 = 10
字段 [2].名称 = “语文成绩”
字段 [2].类型 = #文本型
字段 [2].最大文本长度 = 5
字段 [3].名称 = “数学成绩”
字段 [3].类型 = #文本型
字段 [3].最大文本长度 = 5
字段 [4].名称 = “外语成绩”
字段 [4].类型 = #文本型
字段 [4].最大文本长度 = 5
创建 (取运行目录 () + “\数据库.edb”, 字段)
……