xjk set filter to xjk.班级名称=thisformbo1.value go top thisform.refresh optiongroup1.option1-click: rthisformbo1.enable=.t. thisform.text1.enable=.t. thisformmand1.enable=.t. thisform.text1.enable="" select xjk set filter to xjk.班级名称=thisformbo1.value go top thisform.refresh optiongroup1.option2-click: thisformbo1.enabled=.f. thisform.text1.enabled=.t. thisformmand1.enabled=.t. select xjk 查无此人!',0+64)
set filter to xjk.<>"" go top thisform.refresh (5) “学籍管理”表单:
代码: 数据管理-上一个-click:select xjk skip -1 if bof() go top endif thisform.refresh 下一个-click:select xjk skip if bof() go bottom endif thisform.refresh
第一个-click:select xjk go top thisform.refresh 末一个-click:select xjk go bottom thisform.refresh 请选择班级-click:select xjk set filter to xjk.班级名称=thisformbo1.value go top thisform.refresh -gotfocus:thisform.refresh 添加记录-click:select xjk go bottom if len(alltrim(编号))<>0 append blank replace 性别 with '男' replace 民族 with '汉' replace 政治面貌 with '团员' replace 班级名称 with thisformbo5.value endif thisform.refresh 删除记录-click:select xjk sc=messagebox('是否删除当前记录?' ,4+32+256,'提示信息') if sc=6 delete
skip if bof() go top endif endif form-destory:select xjk use xjk exclusive pack form-activate:thisformbo1.value=bj.班级名称 select xjk set filter to xjk.班级名称=thisformbo5.value go top thisform.refresh
(6)
“打印”表单:
代码: 确定:do case
case thisform.optiongroup1. value=1 report form 个人简历报表 environment to printer thisform. refresh case thisform.optiongroup1. value=2 report form 个人简历报表 environment preview
thisform. release endcase (7) “班级基本信息”表单:
代码: 添加记录:select bj append blank repl 学制 with '4' thisform.refresh
form-destory: select bj go top do while .not.eof() bj.
备注='
毕业' delete claaaname=bj.班级名称 select xjb replace all 备注 with '毕业'; for xjb.班级名称=classname; .and. len(alltrim(xjb.备注))=0 select bybj append blank replace bybj.班级名称 with bj.班级名称 replace bybj.系别 with bj.系别 replace bybj.入学年度 with bj.入学年度 replace bybj.学制 with bj.学制 replace bybj.备注 with bj.备注 endif select bj skip enddo select bj use bj excl pack (8) “奖学金数据管理”表单:
代码: form-activate:hisformbo1.value=bj.班级名称 select jxj combo1-click:select jxj go top thisform.refresh
四
报表
报表根据需要,共建立了 3 和报表,分别是:个人简历表、奖学金发放
表、学籍报表。
截图如下:
(1) “个人简历”报表:
(2) 奖学金发放表:
(3) 学籍报表
五 心得体会
学籍
管理系统是一个简单实用的系统。
课程设计开始之前,我还认为这 是一项艰巨的任务,因为它包含了太多的信息。在我详细了解了图书馆的相关书 籍后,我终于知道该如何下手了。前期的制作过程充实而顺利。 后来反复遇到了几个问题,如系统提示“索引编号不唯一” “找不到目标 文件” 等…心里非常着急, 又因为最近感冒的原因, 没得到充分休息, 病情加重, 我感到很沮丧,然而,与同学们交流后,发现大家遇到了相同的问题,最终,我 们齐心合力,找到了症结所在,解决了
问题。 星期四下午,因为 U 盘坏了,我只能悲剧的决定重做整个系统。最终在奋 斗了两个通宵后,完成了系统。 现在想来,我对这其中所遇到的问题充满了感激。它使我对 vf 的操作更 加熟练,也为我明年的
计算机二级考试奠下了基础。另外,深深地感谢指导老师 耐心的指导,使我了解了自身的问题,帮助我完成了系统的制作。