VF学生综合素质管理系统 第5页
其中 if this.listcount>=1
for i=1 to this.listcount
this.removelistitem(i)
endfor
endif程序段的作用是判断组合框中是否有列表项；for i=1 to this.listcount
this.removelistitem(i)
endfor的作用是将现有的列表框全部移除；涉及组合框的两个重要属性：listcount统计组合框的成员个数；removelistitem(i)移除组合框的第i个成员；
do while .not. eof()
this.additem(民族)
skip
enddo程序段的作用是将民族库(mzk.dbf)中的所有记录添加到组合框中，使用的一个重要属性是additem(字符串)。
按钮的作用是进行字典文护，如果在录入的过程中遇到一个少数民族在组合框中没有，我们便可以点按此按钮进行民族库的文护，如图
可以增加民族也可修改民族等。
此按钮的click过程如下：
如“添加入库并继续录入”按钮的click过程如下
if len(thisform.text1.value)<>0 .and. len(thisform.text2.value)<>0
use 学生基本情况表.dbf
locate for 学号=thisform.text1.value
if eof()
append blank
repl 学号 with thisform.text1.value
repl 姓名 with thisform.text2.value
repl 性别 with alltrim(thisform.combo2.value)
repl 民族 with alltrim(thisform.combo1.value)
repl 专业 with alltrim(thisform.combo3.value)
repl 系别 with alltrim(thisform.combo4.value)
use
thisform.text1.value=""
thisform.text2.value=""
thisform.combo1.value=""
thisform.combo2.value=""
thisform.combo3.value=""
thisform.combo4.value=""
messagebox("已入库，点<确定>继续录入学生基本情况！","继续录入")
thisform.text1.setfocus
else
messagebox("该学号已经存在，请检查学号！","提示")
endif
else
messagebox("学号/姓名不能为空！","确认窗口")
endif
首先判断学号栏与姓名栏是否为空，如果不为空，则到库中寻找有没有该学号的学生，如果没有，则新增记录，如有则提示用户该学生已存在，如果学号/姓名栏为空，则提示用户学号/姓名不能为空。
其中判断学号栏与姓名栏是否为空，用的是函数len()，寻找某学号的学生，用的是locate for语句。提示信息用的是函数messagebox()。
如“添加入库后返回”按钮的click过程如下
如“备份”按钮的click过程如下：
copy to "备份\ "+"学生基本情况表"+dtoc(date(),1)+".dbf"作用是拷贝一份放在过程备份目录下并取名为：学生基本情况表+yyyymmdd.dbf, thisform.label30.caption="备份完毕！"的作用是提示备份完毕。
5．3登记学生学科成绩模块的设计与实现
1、程序流程图：
2、界面如下图：
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
VF学生综合素质管理系统 第5页下载如图片无法显示或论文不完整，请联系qq752018766
