首先新建一个表单 ， 属性设置如表5所示：表5 main主表单的属性设置属性值Caption教师工资管理系统AutoCenter.T.-真Pictured:teacherphotomain.jpgnamemainShowWindow2-作为顶层表单WindowState0-普通（二）、教师信息模块设计本模块包含的功能有：操作人员能够实现教师基 。

20、本信息录入与浏览、教师记录增加、删除与修改等基本操作 ， 能够根据设定的查询条件查询教师记录、显示查询结果 。
因本模块要实现的功能比较多 ， 一个表单不可能容纳下所有控件 ， 所以本系统在这里使用了页框来实现 。
新建表单tinformation ， 存储为“e:gzglformbiaodan.scx” 。
直接拉伸表单至合适大小向表单中加入基本控件 ， 如图13所示 。
图13 表单基本控件本表单需要对数据库中的表进行操作 ， 因此必须将该表加入到表单的数据环境中 。
在表单中单击鼠标右键 ， 选择“数据环境” ， 在弹出的对话框中 ， 将数据库表biaoban.dbf添加到数据环境设计器中 。
（1）、“浏览”首先 ， 将表单数据环境中表“gzlr” 。

21、的字段添加到表单中（注意 ， 此时添加到表单中的字段必须与页框处于同一个层次）；然后 ， 向子页面1中添加如图14所示控件 ， 其属性设置见表6 。
图14 “浏览”子页面由于在Visual FoxPro 中使用类可以大大节省开发时间 ， 简化系统的设计工作 ， 并方便系统的维护和修改；在表单设计中可以直接添加 ， 大大提高编程的工作郊率 。
因此 ， 在子页面的设计过程中使用了“类”导航条 ， 如图15所示 ， 该导航条包含4个基本功能：单击导航条上的相应按钮时 ， 在本页面中的记录自动执行相应操作 ， 从而实现浏览记录的功能 。
图15 导航条l “上一个”按钮：使记录后退一个；l “第一个”按钮：使记录后退至表首；l “下一个”按钮：使记录前 。

22、进一个；l “最后一个”按钮：使记录前进至表尾 。
导航条的设计过程如下：1、理器中首先选择“类”选项卡 ， 然后单击“新建”按钮 ， 出现一个新建类对话框如图16所示 。
图16 “新建类”对话框在“类名”框中键入fy ， “派生于”框中选择“CommandGroup（按钮级）” ， “存储于”框中填入存储路径“e:gzglformfy.vcx” 。
单击“确定”按钮进入设计窗口 。
在属性窗口中修改Buttoncount（按钮数目）属性 ， 使其值为4 ， 这时出现4个按钮 ， 将其拖动到适当位置 ， 并根据需要修改每个按钮的Caption属性 ， 如图17所示 。
（2）在每个按钮上双击 ， 弹出“代码编辑窗口” ， 在“代码编辑窗口”中填写相应事件 。

23、代码 ， 即可完成导航条的设计 。
在按钮上一个的Click事件中输入如下代码：skip-1*记录后退一个if bof()* 如已为第一个记录messagebox(已是第一个记录48信息窗口)当已为第一个记录时,显示提示信息记录前进一个 ， 使之仍显示第一个记录* 根据状况设置各按钮的可用状态thisform.refresh功能：向前翻页 。
在按钮第一个的Click事件中输入如下代码：goto top* 到第一个记录* 根据状况设置各按钮的可用状态thisfrom.refesh功能:向前翻页.在按钮第一个的Click事件中输入如下代码：skep* 记录前进一个if eof()* 如已为最后一个记录messa 。

24、gebox(已是最后一条记录48信息窗口 ， )skep-1* 记录后退出一个 ， 使之仍显示最后一个记录根据状况设置各按钮的可用状态thisform.refresh功能：向后翻页在按钮最后一个的Click事件中输入如下代码：goto bottom* 到最后一个记录* 根据状况设置各按钮的可用状态thisfrom.refresh功能：翻页至最后一个记录 。
至此为止 ， 一个具有翻页功能的fy子类就创建出来了 。
图17 导航条设计窗口（3）上面为“导航条”的设计过程 ， 下边继续完善子页面1的功能：为保证表中的数据不被误操作修改 ， 必须将页面中的各文本框的“Enabled”属性设为“.F.” 。
按钮“取消操作”的 “E 。

25、nabled”属性初始值设为“.F.” 。
双击“增加记录”、“修改记录”、“删除记录”、“取消操作”按钮 ， 为各个操作按钮添加Click事件响应代码 ， 使各个操作按钮完成的如下功能：l “增加记录”按钮：添加一个新的员工的信息到数据库中 。
l “修改记录”按钮：修改一个员工的信息并更新到数据库中 。
l “删除记录”按钮：从数据库中删除一个员工的信息 。
l “取消操作”按钮：取消前面所作的操作 。
、（2）、页面的设计本子页面中使用了tableupdate()和tablerevert()函数 ， 这两个函数要求先用函数cursorsetprop()启用记录或表缓冲 ， 否则将会产生错误 。

稿源：(未知)

【傻大方】网址：/a/2021/0621/0022536815.html

标题：山丹|山丹培黎学校教师工资管系统( 四 )