学生综测
管理系统 一. 需求分析
(一) 数据分析
1. 原始数据包括4个表:
(1) 会计一班综测成绩单
(2) 会计二班综测成绩单
(3) 会计三班综测成绩单
(4) 财务管理班综测成绩单
2.表内容:
字 段
字 段 名
类 型
宽 度
小数位
索 引
排 序
Nulls
1
学年学期
C
6
升序
否
2
C
6
否
3
班号
C
6
否
4
C
11
否
5
德育分
N
2
1
否
6
智育分
N
2
1
否
7
智育分
N
2
1
否
8
总分
N
2
1
否
9
名次
C
1
否
3.表单(封面):
要求:在用户名中输入
密码中输入数字"0"
点击"确认"按钮后进入主菜单
如果未输入密码时,显示
如果输入密码错误时,显示
4.菜单:
(1)数据浏览:例如点击"浏览"栏中的财管班综测,得:
(2)数据编辑:例如点击"编辑"按钮栏中的会计二班得:
(3)数据
查询:按照查询个人综测成绩
例如查询为20101000001的学生的综测得
如果学好不存在时,显示
5.退出:点击"退出"按钮时,显示
点击"是"则可以退出系统。
二.
程序设计主程序
set talk off
close all
do form fm
modify wind screen titl'地大经管学生综测管理系统'
clear
do cxcd.mpr
read event
quit
菜单部分
浏览子菜单代码:
会计一班综测
use kj1
brow
会计二班综测
use kj2
brow
会计三班综测
use kj3
brow
财管综测
use cg
brow
编辑子菜单代码:
编辑会计一班
use kj1
append
编辑会计二班
use kj2
append
编辑会计三班
use kj3
append
编辑财管班
use cg
append
查询子菜单代码:
会计一班
use kj1
do while .T.
accept "请输入要查询的学生(输入0结束查询):"to xh
if xh=='0'
exit
endif
locate for alltrim()==xh
if found()
disp for alltrim()==xh
else
wait "没有此!" window
endif
enddo
会计二班
use kj2
do while .T.
accept "请输入要查询的学生(输入0结束查询):"to xh
if xh=='0'
exit
endif
locate for alltrim()==xh
if found()
disp for alltrim()==xh
else
wait "没有此!" window
endif
enddo
会计三班
use kj3
do while .T.
accept "请输入要查询的学生(输入0结束查询):"to xh
if xh=='0'
exit
endif
locate for alltrim()==xh
if found()
disp for alltrim()==xh
else
wait "没有此!" window
endif
enddo
财管班
use cg
do while .T.
accept "请输入要查询的学生(输入0结束查询):"to xh
if xh=='0'
exit
endif
locate for alltrim()==xh
if found()
disp for alltrim()==xh
else
wait "没有此!" window
endif
Enddo
汇总查询
use hz
do while .T.
accept "请输入要查询的学生(输入0结束查询):"to xh
if xh=='0'
exit
endif
locate for alltrim()==xh
if found()
disp for alltrim()==xh
else
wait "没有此!" window
endif
Enddo
退出代码:
ask=messagebox("确实要退出系统吗",4+32+256,"学生综测管理系统")
if ask=6
close all
quit
else
endif
帮助子菜单代码:
版本信息
clear
use 版本
list
封面部分代码
数据环境中加入新口令表(xklb.dbf,存密码和)
Form1.intn中写:
Public errornumber,Ps
Errornumber=0
退出的click中写:
ask=messagebox("确定要退出系统吗?",4+32+256,"学生综测管理系统")
if ask=6
close all
quit
else
endif
确定的click中写:
use