基于 Visual Foxpro 6.0的学生成绩管理系统

thisform.command3.enabled=.t. thisform.command5.enabled=.t. endif

thisform.refresh 最后一个 go bottom this.enabled=.t.

thisform.command1.enabled=.t. thisform.command2.enabled=.t. thisform.command3.enabled=.f. thisform.command5.enabled=.t. thisform.refresh 添加 append blank Thisform.refresh 删除

if messagebox('你确定删除该记录吗？',4+64+256,'提示')=6 delete pack Endif 退出

thisform.refresh

use c:\\vfp98\\学生信息管理系统\\成绩表.dbf shar

19

thisform.release 3.4.3成绩数据录入

Form1编写表单的Init时间代码

use c:\\vfp98\\学生成绩管理系统\\成绩表.dbf exclusive go top

thisform.txt学号.enabled=.t. thisform.txt姓名.enabled=.t. thisform.txt学期.enabled=.t. thisform.txt课程名称.enabled=.t. thisform.txt成绩.enabled=.t. 3.4.4成绩查询 查询命令 Thisform.refresh

a=Thisform.txt学号.value locate for a=alltrim(成绩表.学号) thisform.txt学号.enabled=.t. thisform.txt姓名.enabled=.t. thisform.txt学期.enabled=.t. thisform.txt课程名称.enabled=.t. thisform.txt成绩.enabled=.t. 3.4.5不同情况查询成绩

use c:\\vfp98\\学生成绩管理系统\\成绩表.dbf Locate

for alltrim(thisform.text1.value)==alltrim(

20

成绩表.学号) or

alltrim(thisform.text2.value)==alltrim(成绩表.姓名) if found()=.t. display else

thisform.refresh Endif

3.4.6不同情况查询基本情况 查询命令

use c:\\vfp98\\学生成绩管理系统\\基本情况.dbf locate

for

alltrim(thisform.text1.value)==alltrim(

基

本

alltrim(thisform.text2.value)==alltrim(基本情况.姓名) if found()=.t. display else

thisform.refresh Endif

3.5.7密码修改 确定按钮：

use c:\\vfp98\\学生成绩管理系统\\新口令表.dbf loca for 学号=alltrim(thisform.txt学号.value)

if alltrim(thisform.txt密码.value)==alltrim(新口令表.密码) if alltrim(thisform.text2.value)==alltrim(thisform.text3.value) replace 密码 with alltrim(thisform.text2.value)

21

情

况

.学

号

)

or

messagebox(\修改成功\else

messagebox(\两次输入密码不相同，请重新输入！\错误\ endif else

messagebox(\旧密码错误，请重新输入！\错误\endif

3.5输入/输出设计

3.5.1基本情况数据录入

3.5.2成绩数据录入

22