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

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

在此代码中定义了公共变量guest，是为了判断用户类型以确定进入系统界面后“维护”键是否可用。 “重写”键command2.click事件： thisform.combo1.value=\thisform.text1.value=\thisform.text1.setfocus

“退出”键command3.click事件： thisform.release 2. 系统界面

当使用者是普通用户时，系统界面中的“维护”键是不可用的。

当管理员登陆时则可以使用“维护”键。

“维护”键可否使用是通过form.activate来实现的： if guest=1

thisform.Command2.enabled=.t. else

thisform.Command2.enabled=.f. endif

“查询”、“维护”、“统计”、“退出”键的click代码分别为： do form chaxun.scx do form weihu.scx do form statistic.scx thisform.release do form logo 3. 查询界面

用户可以在此查询学生信息、课程信息和成绩信息。

查询学生信息时“确定”键的代码是：

thisform.pageframe1.page1.grid1.recordsource=\XH=alltrim(thisform.pageframe1.page1.text1.value) thisform.pageframe1.page1.grid1.recordsource=\student.学号, student.姓名, student.性别, student.民族, student.出生日期, student.专业, student.籍贯 from student where alltrim(学号)==XH or alltrim(姓名)==XH into cursor temp\thisform.pageframe1.page1.text1.value=\查询课程信息时的代码为：

kcmc=alltrim(thisform.pageframe1.page2.text1.value) thisform.pageframe1.page2.grid1.recordsource=\course.课程编号, course.课程名称, course.学分, course.任课老师 from course where alltrim(课程名称)=kcmc or alltrim(课程编

号)=kcmc into cursor temp\

thisform.pageframe1.page2.text1.value=\查询成绩信息时的代码为：

xh=alltrim(thisform.pageframe1.page3.text1.value) thisform.pageframe1.page3.grid1.recordsource=\student.学号,student.姓名,course.课程名称,score.成绩 from student,course,score where alltrim(score.学号)==xh and alltrim(student.学号)==alltrim(score.学号) and alltrim(course.课程编号)==alltrim(score.课程编号) into cursor temp\thisform.pageframe1.page3.text1.value=\4. 维护界面

只有管理员才能进入此界面。

进入此界面后，选择组合框里的一项可以查询此项的数据，但不能修