Visual FoxPro学生信息管理系统课程设计实验报告(完美版)

passwordm.dbf。

student..dbf记录的是学生的个人信息，如：学号、姓名、性别、民族、出生日期、所在专业、籍贯。

Course.dbf记录的是有关课程的信息，如：课程编号、课程名称、学分、任课老师。

Score.dbf记录的是每个同学不同科目的考试成绩，有以下这些内容：课程编号、课程名称、学号、成绩。

Password.dbf记录系统普通用户的用户名和密码。

Passwordm.dbf记录系统管理员的用户名和密码。

(2) 应用程序设计

由于本系统是多用户登陆，当是管理员登陆时此系统的所有功能都可能用，当是普通用户登陆时此系统时将无法使用系统的维护功能。下面就各个表单功能和使用作如下简述： 1. 用户登录

先选择用户类型：普通用户、管理员，输入密码，按确定键进入（按重写键重新填写；按退出键退出系统）。主要代码如下： optiongroup1.click事件： do case

case this.value=0

thisform.combo1.rowsource=\ case this.value=1

thisform.combo1.rowsource=\用户名\ case this.value=2

thisform.combo1.rowsource=\管理员\endcase

“确定”键command1.click事件： public guest private Password1 do case

case thisform.optiongroup1.value=1

select password

password1=alltrim(thisform.text1.value) locate

for

alltrim(

用

名)==alltrim(thisform.combo1.value)

if found() and password1==alltrim(密码) guest=2

thisform.release do form main.scx else

=messagebox(\用户名或密码错误,请重新输入!\ thisform.text1.setfocus endif

case thisform.optiongroup1.value=2 select passwordm

password1=alltrim(thisform.text1.value) locate

for

alltrim(

管

员)==alltrim(thisform.combo1.value)

if found() and password1==alltrim(密码) guest=1

thisform.release do form main.scx else

户

理