学生管理系统.doc

管理信息系统(MIS—Management Information System)是以众多学科如：统计学、系统理论、计算机科学和管理科学为依托

　　Command1控件完成的功能将表单中的用户输入信息作为一条新记录保存到学生学生学籍信息库中，在该控件的Click行为中添加代码如下：
　　*追加一条新记录
　　APPEND BLANK
　　*将表单中输入的信息保存到学籍信息库中
　　REPLACE 姓名  WITH THISFORM.TEXT1.VALUE
　　REPLACE 性别  WITH THISFORM.COMBO1.VALUE
　　REPLACE 民族  WITH THISFORM.COMBO2.VALUE
　　REPLACE 出生日期 WITH THISFORM.TEXT2.VALUE
　　REPLACE 班级 WITH THISFORM.TEXT3.VALUE
　　REPLACE 学号 WITH THISFORM.TEXT4.VALUE
　　REPLACE 政治面貌 WITH THISFORM.COMBO3.VALUE
　　REPLACE 家长姓名 WITH THISFORM.TEXT5.VALUE
　　REPLACE 联系电话 WITH THISFORM.TEXT6.VALUE
　　REPLACE 个人简介  WITH THISFORM.EDIT1.VALUE
　　REPLACE 家庭地址 WITH THISFORM.TEXT7.VALUE
　　
　　Command2控件的作用将表单中显示的学生信息变为可用状态，供用户修改，为此在该控件的Click行为中添加如下代码：
　　THISFORM.TEXT1.ENABLED=.T.
　　THISFORM.COMBO1.ENABLED=.T.
　　THISFORM.COMBO2.ENABLED=.T.
　　THISFORM.TEXT2.ENABLED=.T.
　　THISFORM.TEXT3.ENABLED=.T.
　　THISFORM.TEXT4.ENABLED=.T.
　　THISFORM.TEXT5.ENABLED=.T.
　　THISFORM.TEXT6.ENABLED=.T.
　　THISFORM.TEXT7.ENABLED=.T.
　　THISFORM.EDIT1.ENABLED=.T.
　　
　　Command3控件的作用为删除查找到的记录，在该控件的Click行为中添加如下代码：
　　*删除查找到的记录
　　DELETE 
　　PACK
　　Command4控件的作用将修改的结果保存到信息库中，要配合Command2控件使用，在该控件的Click行为中添加如下代码：
　　*保存修改的结果
　　REPLACE 姓名  WITH THISFORM.TEXT1.VALUE
　　REPLACE 性别  WITH THISFORM.COMBO1.VALUE
　　REPLACE 民族  WITH THISFORM.COMBO2.VALUE
　　REPLACE 出生日期 WITH THISFORM.TEXT2.VALUE
　　REPLACE 班级 WITH THISFORM.TEXT3.VALUE
　　REPLACE 学号 WITH THISFORM.TEXT4.VALUE
　　REPLACE 政治面貌 WITH THISFORM.COMBO3.VALUE
　　REPLACE 家长姓名 WITH THISFORM.TEXT5.VALUE
　　REPLACE 联系电话 WITH THISFORM.TEXT6.VALUE
　　REPLACE 个人简介  WITH THISFORM.EDIT1.VALUE
　　REPLACE 家庭地址 WITH THISFORM.TEXT7.VALUE
　　
　　Command5控件的作用是返回Rchcz控件的代码设计，在其Click行为中添加如下代码：
　　*返回上一级表单
　　THISFORM.RELEASE
4.5毕业管理模块
　　学生完成一定年限的学习或者升入高一级的学校时称该生毕业，毕业管理就是对这部分学生的管理，通用的方法是将毕业的学生从学籍信息库中删除，本系统设计的是以班级为单位进行删除。
　　在“学籍管理”项目中添加一个新的表单，命名为“BY”并将Caption属性设置为“毕业生管理”，然后添加一系列控件，1个Commandgroup控件用来分隔表单显示区域；2个Lable控件显示提示信息；1个Text控件接受用户的输入；2个Command控件完成控制功能。这些控件的重要属性设置如表4-5所示。
　　表4-5毕业管理模块控件属性设置
编号
名称
类型
属性名称
属性值
1
Commandgroup1
Commandgroup
Buttoncount
0
2
Lable1
Lable
Caption
毕业管理
3
Lable2
Lable
Caption
班级
4
Text1
Text
Caption

5
Command
Command
Caption
毕业
6
Command
Command
Caption
返回
   设计完成的界面如图4-5所示。
　　

图4-5毕业管理设计界面

　　在该表单中的Command1控件的Click行为中添加如下代码，用来将制定班级的学生纪录从学籍信息库中删除。
　　*收集用户的输入班级名称
　　TEMP=ALLTRIM(THISFORM.TEXT1.VALUE)
　　USE STUDENT.DBF
　　*删除制定班级的记录
　　DELETE FOR ALLTRIM(班级)==TEMP ALL
　　PACK
　　MESSAGEBOX("处理完毕！")
　　USE
　　在Command2控件中添加如下代码，以便用户返回到主界面
　　*返回到主界面
　　THISFORM.RELEASE
4.6设计查询模块
　　在“学籍管理”项目中添加一个新的表单，命名为“Chx”将Caption属性设置为“查询窗口”，添加3个Commandgroup控件分隔表单显示区域；2个Command控件执行查询功能和返回功能；12个Lable控件显示姓名等提示信息；7个Text控件，显示查询的性命的信息；3个Combo控件显示民族等学籍信息；2个Edit控件显示个人简介信息；1个Line控件，美化界面。上述控件的主要属性设置如表4-6所示
　　表4-6查询设计界面控件属性设置
编号
名称
类型
属性名称
属性值
1
Commandgroup1
Commandgroup
Buttoncount
0
2
Commandgroup2
Commandgroup
Buttoncount
0
3
Commandgroup3
Commandgroup
Buttoncount
0
4
Label1
Label
Caption
记录查询窗口
5
Label2
Label
Caption
姓名
6
Label3
Label
Caption
性别
7
Label4
Label
Caption
民族
8
Label5
Label
Caption
出生日期
9
Label6
Label
Caption
班机
10
Label7
Label
Caption
学号
11
Label8
Label
Caption
政治面貌
12
Label9
Label
Caption
家长姓名
13
Label10
Label
Caption
联系电话
14
Label11
Label
Caption
家庭地址
15
Lable12
Lable
Caption
个人简介
16
Text1
Text


17
Text2
Text


18
Text3
Text


19
Text4
Text


20
Text5
Text


21
Text6
Text


22
Text7
Text


23
Combo1
Combo
Rowsourcetype
Rowsource
1-值
男，女
24
Combo2
Combo
Rowsourcetype
Rowsource
1-值
汉族，其他
25
Combo3
Combo
Rowsourcetype
Rowsource
1-值
团员，其他
26
Command1
Command
Caption
添加
27
Command2
Command
Caption
修改
28
Command3
Command
Caption
删除
29
Command4
Command
Caption
确定
30
Command5
Command
Caption
返回






设计完成的界面如图4-6所示
图4-6查询界面设计

　　该表单为查询表单，不允许用户在此对学籍信息进行修改，所以将表单上的控件都要设置成不可用，在表单Init行为中设计如下代码，完成上述功能。
　　*初始化查询界面，将所有控件的值设置为空，状态为不可用
　　THISFORM.TEXT1.VALUE=""
　　THISFORM.TEXT1.ENABLED=.F.
　　THISFORM.TEXT2.VALUE=""
　　THISFORM.TEXT2.ENABLED=.F.
　　THISFORM.TEXT3.VALUE=""
　　THISFORM.TEXT3.ENABLED=.F.
　　THISFORM.TEXT4.VALUE=""
　　THISFORM.TEXT4.ENABLED=.F.
　　THISFORM.TEXT5.VALUE=""
　　THISFORM.TEXT5.ENABLED=.F.
　　THISFORM.TEXT6.VALUE=""
　　THISFORM.TEXT6.ENABLED=.F.
　　THISFORM.TEXT7.VALUE=""
　　THISFORM.TEXT7.ENABLED=.F.
　　THISFORM.COMBO1.VALUE=""
　　THISFORM.COMBO1.ENABLED=.F.
　　THISFORM.COMBO2.VALUE=""
　　THISFORM.COMBO2.ENABLED=.F.
　　THISFORM.COMBO3.VALUE=""
　　THISFORM.COMBO3.ENABLED=.F.
　　THISFORM.EDIT1.VALUE=""
　　THISFORM.EDIT1.ENABLED=.F.
　　在该表单释放时要关闭所有的信息库，所以在表单的Release行为中添加如下代码：
    *关闭所有信息库
　　CLOSE ALL
　　下面设计查询功能，表单执行时用户首先输入所要查询学生的学号，系统将更据此学号进行查询，并将查询结果显示在表单中。在Command1控件的Click行为中添加如下代码：
　　*检查是否输入了学号
　　IF EMPTY(ALLTRIM(THISFORM.TEXT8.VALUE))
　　	MESSAGEBOX("请输入学生学号！")
　　	THISFORM.TEXT8.SETFOCUS
　　ELSE
　　	*正确输入了学号，打开信息库进行查询
　　	USE STUDENT.DBF
　　	LOCATE FOR ALLTRIM(学号)==ALLTRIM(THISFORM.TEXT8.VALUE)
　　	*找到所要查询的学生，在表单中显示
　　	IF FOUND()
　　		THISFORM.TEXT1.VALUE=姓名
　　		THISFORM.TEXT2.VALUE=出生日期
　　		THISFORM.TEXT3.VALUE=班级
　　		THISFORM.TEXT4.VALUE=学号
　　		THISFORM.TEXT5.VALUE=家长姓名
　　		THISFORM.TEXT6.VALUE=联系电话
　　		THISFORM.TEXT7.VALUE=家庭地址
　　		THISFORM.COMBO1.VALUE=性别
　　		THISFORM.COMBO2.VALUE=民族
　　		THISFORM.COMBO3.VALUE=政治面貌
　　		THISFORM.EDIT1.VALUE=个人简介
　　	ELSE
　　		*没有查找到该生
　　		MESSAGEBOX("查无此人！")
　　	ENDIF
　　ENDIF
　　在Command2控件的Click行为中添加如下代码，用来释放表单。
　　*释放表单
　　THISFORM.RELEASE
4.7用户管理模块
　　系统的使用者是有限制，只有允许的用户才能进入使用，浏览信息库中的内容，在该系统中设计用户管理模块，用来对系统的使用者进行管理，确保系统的安全性。
　　为“学籍管理”项目添加一个新表单，命名为“Yhgl”设置Caption属性为“用户管理”添加3个Commandgroup控件分隔表单显示区域；3个Lable控件显示提示信息；2个Text控件接受用户的输入；4个Command控件完成控制功能。控制属性设置如表4-7所示。
　　表4-7用户管理设计界面控件属性设置
编号
名称
类型
属性名称
属性值
1
Commandgroup1
Commandgroup
Buttoncount
0
2
Commandgroup2
Commandgroup
Buttoncount
0
3
Commandgroup3
Commandgroup
Buttoncount
5
4
Command1
Command
Caption
确定
5
Command2
Command
Caption
查找
6
Command3
Command
Caption
确定
7
Command4
Command
Caption
确定
8
Lable1
Lable
Caption
用户管理窗口
9
Lable2
Lable
Caption
用户名
10
Lable3
Lable
Caption
密码
11
Text1
Text


12
Text2
Text


　　在上表中Commandgroup控件的Buttoncount属性为5，包括5个按钮。在该控件上用鼠标右键单击，执行菜单中的“编辑”命令，设置这5个按钮的属性如表4-8所示
　　表4-8用户管理设计界面控件属性设置
编号
名称
类型
属性名称
属性值
1
Command1
Command
Caption
增加新用户
2
Command2
Command
Caption
查找
3
Command3
Command
Caption
修改
4
Command4
Command
Caption
删除
5
Command5
Command
Caption
返回
　　
　　设置完成的界面如图4-7所示

图4-7  用户管理设置界面

　　用户管理模块能够对所有的使用者进行管理，如增加新用户。在执行该表单时，将部分控件的状态设置为不可用，为此在表单的Click行为中添加如下代码：
　　*对系统进行初始化，将所有控件的状态设置为不可用
　　THISFORM.TEXT1.ENABLED=.F.
　　THISFORM.TEXT2.ENABLED=.F.
　　THISFORM.LABEL2.ENABLED=.F.