发布时间 : 星期二 文章Visual FoxPro学生信息管理系统课程设计实验报告(完美版)更新完毕开始阅读07e66b5868eae009581b6bd97f1922791788be5b
=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. 维护界面
只有管理员才能进入此界面。
进入此界面后，选择组合框里的一项可以查询此项的数据，但不能修