发布时间 : 星期六 文章基于 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