学生管理系统.doc

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

　　THISFORM.LABEL3.ENABLED=.F.
　　THISFORM.COMMAND1.ENABLED=.F.
　　THISFORM.COMMAND2.ENABLED=.F.
　　THISFORM.COMMAND3.ENABLED=.F.
　　THISFORM.COMMAND1.VISIBLE=.F.
　　THISFORM.COMMAND2.VISIBLE=.F.
　　THISFORM.COMMAND3.VISIBLE=.F.
　　THISFORM.COMMAND4.VISIBLE=.F.
　　表单执行时将其中2个Lable控件，2个Text控件，4个Command控件的状态设置为不可用，等待用户的操作。
　　在Commandgroup3控件中的5个按钮，提供给用户完成用户管理的过程。Command1控件的作用是添加新用户，为此在其中的Click行为中添加如下代码：
　　*将界面设置成为添加新用户
　　THISFORM.TEXT1.VALUE=""
　　THISFORM.TEXT2.VALUE=""
　　*设置按钮状态
　　THISFORM.COMMAND1.ENABLED=.T.
　　THISFORM.COMMAND1.VISIBLE=.T.
　　*设置标签状态
　　THISFORM.LABEL2.ENABLED=.T.
　　THISFORM.LABEL3.ENABLED=.T.
　　*设置文本框状况
　　THISFORM.TEXT1.ENABLED=.T.
　　THISFORM.TEXT2.ENABLED=.T.
　　*设Text1为输入框
　　THISFORM.TEXT1.SETFOCUS
　　在Commandgroup3控件的Command2的作用为查询功能，单击此按钮将表单中的Command控件设置为可用，并且允许用户输入用户名，在Commandgroup3控件的Command2的行为中添加代码如下：
　　*将表单设置成为查找界面
　　*将两个Lable控件状态设置成可用
　　THISFORM.LABEL1.ENABLED=.T.
　　THISFORM.LABEL2.ENABLED=.T.
　　*将Text1控件设置成可用
　　THISFORM.TEXT1.ENABLED=.T.
　　THISFORM.TEXT1.SETFOCUS
　　*将查找按钮设置成可用和可见
　　THISFORM.COMMAND2.VISIBLE=.T.
　　THISFORM.COMMAND2.ENABLED=.T.
　　*将两个Text控件的值设置为空值
　　THISFORM.TEXT1.VALUE=""
　　THISFORM.TEXT2.VALUE=""
　　Commandgroup3控件中的Command3的作用是将表单设置成修改界面，在该控件的Click行为中添些如下代码：
　　*将表单设置成修改界面
　　*将将两个Lable控件的状态设置成可用
　　THISFORM.TEXT1.ENABLED=.T.
　　THISFORM.TEXT2.ENABLED=.T.
　　*将Command3的状态设置成可见和可用
　　THISFORM.COMMAND3.VISIBLE=.T.
　　THISFORM.COMMAND3.ENABLED=.T.
　　Commandgroup3控件的Command4的作用是将表单设置成删除状态，即将表单中的Command4按钮设置成可见状态，在Commandgroup3中的Command4的Click行为中添加如下代码：
　　*将表单中的Command4的状态设置成可见
　　THISFORM.COMMAND4.VISIBLE=.T.
　　Commandgroup3中的Command5的作用是释放该表单，代码设计如下：
　　THISFORM.RELEASE
　　Commandgroup3中的5个按钮的功能就全部设计完毕了，下面设计表单中的4个Command控件的代码。
　　控件Command1中完成新用户的建立功能，将用户输入的用户信息保存到用户信息库中，再将表单设置成初始状态，在该控件的Click行为中设计代码如下：
　　*完成添加功能
　　USE USER.DBF
　　*插入新记录
　　APPEND BLANK
　　*将用户的输入信息保存到用户信息库中
　　REPLACE NAME WITH ALLTRIM(THISFORM.TEXT1.VALUE)
　　REPLACE PASSWORD WITH ALLTRIM(THISFORM.TEXT2.VALUE)
　　USE
　　*将表单设置成初始状态
　　THISFORM.TEXT1.VALUE=""
　　THISFORM.TEXT2.VALUE=""
　　THISFORM.TEXT1.ENABLED=.F.
　　THISFORM.TEXT2.ENABLED=.F.
　　THISFORM.COMMAND1.VISIBLE=.F.
　　THISFORM.LABEL2.ENABLED=.F.
　　THISFORM.LABEL3.ENABLED=.F.
　　控件Command2中完成查找功能，执行此表单时要求用户输入用户名，用鼠标单击此按钮后在用户信息库中查找与之相关的信息，如果找到相符的信息，将用户的信息显示在该表单中，如果没有找到用户输入的信息提示用户没有此人，最后将表单恢复到初始化状态，在该控件的Click行为中添加代码如下：
　　*查找功能
　　USE USER.DBF
　　*查找用户输入的信息
　　LOCATE FOR ALLTRIM(NAME)==ALLTRIM(THISFORM.TEXT1.VALUE)
　　IF FOUND()
　　	*如果找到在表单中显示
　　	THISFORM.TEXT1.VALUE=NAME
　　	THISFORM.TEXT2.VALUE=PASSWORD
　　ELSE
　　	*如果没有找到提示用户
　　	MESSAGEBOX("查无此用户！")
　　	THISFORM.TEXT1.VALUE=""
　　	THISFORM.TEXT2.VALUE=""
　　ENDIF
　　USE
　　*恢复表单的初始化状态
　　THISFORM.TEXT1.ENABLED=.F.
　　THISFORM.TEXT2.ENABLED=.F.
　　THISFORM.LABEL2.ENABLED=.F.
　　THISFORM.LABEL3.ENABLED=.F.
　　THISFORM.COMMAND2.VISIBLE=.F.
　　控件Command3的作用为修改用户信息，保存用户的信息后恢复表单的初始化状态，在该控件的Click行为中添加如下代码：
　　USE USER.DBF
　　*在用户信息库中查找用户输入的信息
　　TEMP1=ALLTRIM(THISFORM.TEXT1.VALUE)
　　TEMP2=ALLTRIM(THISFORM.TEXT2.VALUE)
　　LOCATE FOR ALLTRIM(NAME)==TEMP1.AND.ALLTRIM(PASSWORD)==TEMP2
　　*如果找到，保存修改的信息
　　IF FOUND()
　　	REPLACE NAME WITH ALLTRIM(THISFORM.TEXT1.VALUE)
　　	REPLACE PASSWORD WITH ALLTRIM(THISFORM.TEXT2.VALUE)
　　ENDIF
　　USE
　　*恢复表单的初始化设置
　　THISFORM.TEXT1.VALUE=""
　　THISFORM.TEXT2.VALUE=""
　　THISFORM.TEXT1.ENABLED=.F.
　　THISFORM.TEXT2.ENABLED=.F.
　　THISFORM.COMMAND3.VISIBLE=.F.
　　控件Command4的作用为删除指定的用户，在该控件的Click行为中添加如下代码：
　　*删除用户制定的用户
　　USE USER.DBF
　　LOCATE FOR ALLTRIM(NAME)==ALLTRIM(THISFORM.TEXT1.VALUE)
　　*如果找到制定的用户，将其删除
　　IF FOUND()
　　	DELETE 
　　	PACK
　　ENDIF
　　USE
　　*恢复表单的初始化状态
　　THISFORM.TEXT1.VALUE=""
　　THISFORM.TEXT2.VALUE=""
　　THISFORM.COMMAND4.VISIBLE=.F.

第5章 系统实现及程序调试结果
　　登陆信息界面如图5－1所示，该界面只允许用户登陆3次，如果用户登陆超过3次还没有输入正确的用户名和密码，系统将自动退出。

图5－1系统登陆界面
   主界面如图5－2所示，主界面包括日常管理，毕业管理，查询，用户管理，退出系统等5项功能。



图5－2系统主界面
　　添加新学生信息界面如图5－3所示，该界面能完成添加学生姓名，学号，民族，性别，出生日期等基本信息的功能。

图5－3添加新学生界面
   修改学生信息界面如图5－4所示，该界面可以完成修改，添加和删除学生基本信息的功能。


图5－4修改学生信息界面
　　查询学生信息界面如图5－5所示，在该界面里面输入学号，即可查询到学生的班级，家长姓名，联系电话等基本信息。

图5－5查询界面
   添加新用户界面如图5－6所示，该界面可以完成添加新用户和为新用户设定密码的功能。


图5－6添加新用户界面
   查找用户界面如图5－7所示，该界面的功能是为已经存在的用户找回丢失的密码。在该界面里面输入用户名，点击查找即可找到该用户名对应的密码。

图5－7查找用户界面
　　修改用户信息界面如图5－8所示，该界面能完成的功能是修改用户密码，在该界面里面输入用户名和新密码即可完成修改。

图5－8修改用户信息界面



      西南交通大学本科毕业设计（论文）                第40页