基于VFP的学生综合素质管理系统的设计

5．2登记学生基本信息模块的设计与实现

1、程序流程图：

2、界面如下图：

界面包括的控件有标签、文本框、组合框、命令按钮。功能是提示用户输入学生的详细信息和备份已经输入的学生信息。

3、实现过程：

第一步将所需的控件放到表单的相应位置；方法：首先在“表单控件”工具栏先选中所需的控件图件，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到表单上，此时，在属性窗口里显示了该控件对象的所有属性、事件。如下图为表单的属性设置窗口：

第二步双击相应的控件，在控件的相应过程中编写程序，如“民族组合框”的Gotfocus或Init过程如下:

其中 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()。

 

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167