学生学习成绩管理系统

E ＝ 取文本右边 (超级列表框1.取标题 (表项信息.行, 3), 取文本长度 (超级列表框1.取标题 (表项信息.行, 3)) － 6)
打开 (取运行目录 () ＋ “\” ＋ 载入年级 ＋ “数据库\” ＋ 载入年级 ＋ “学生信息.edb”, , , , , 密码, )
.计次循环首 (取记录数 (), A)
跳到 (A)
.如果真 (M ＝ 6)
.如果真 (读 (1) ＝ B 且 读 (2) ＝ C 且 读 (3) ＝ D 且 读 (4) ＝ 载入年级 且 读 (5) ＝ E 且 读 (8) ＝ 超级列表框1.取标题 (表项信息.行, 6))
精确值 ＝ 精确值 ＋ 1
.如果真 (精确值 ＝ 13)
信息框 (“该学生学科：” ＋ 超级列表框1.取标题 (表项信息.行, 6) ＋ “ 已满12次考试记录！将不可添加！”, 0, )
编辑框2.内容 ＝ “”
.如果真结束

.如果真结束

.如果真结束

.计次循环尾 ()