我们可以很清楚的看到职工的基本信息，职工号，岗位，姓名，性别，工龄，工资等级，这些基本信息对于工资的定位和发放有很好的帮助

那怎么实现职工信息的浏览呢，我们看到右边有5个按钮，这些按钮就是控制浏览职工信息的指挥棒，我们先看以下“首行”里面的代码

go top

This.enabled=.f.

ThisForm.Command2.enabled=.f.

ThisForm.Command3.enabled=.t.

ThisForm.Command4.enabled=.t.

thisform.refresh

在这些代码中 go top 是控制信息到第一个记录，enabled是控制按钮是否可用，refresh是刷新表单，让跳转的记录信息能更新到当前表单中

按钮“上一条”的代码如下

skip -1

if bof()

messagebox("已是首记录！",48,"信息窗口")

ThisForm.Command1.enabled=.f.

This.enabled=.f.

else

ThisForm.Command3.enabled=.t.

ThisForm.Command4.enabled=.t.

endif

thisform.refresh

代码skip -1的意思是向上翻转记录，bof（）意思是是否到记录的首个

下一条的代码：

skip

thisform.refresh

thisform.command1.enabled=.t.

thisform.command2.enabled=.t.

if eof()

messagebox("已是尾记录！",48,"信息窗口")

ThisForm.Command1.enabled=.t.

Thisform.command2.enabled=.t.

This.enabled=.f.

ThisForm.Command4.enabled=.f.

Endif

功能和上面的按钮类似，eof（）判断是否到达记录的末尾

最后一个是末行的按钮，代码：

go bottom  

This.enabled=.f.

ThisForm.Command2.enabled=.T.

ThisForm.Command3.enabled=.f.

ThisForm.Command4.enabled=.f.

thisform.refresh

代码go bttom是把记录跳转到最后一条

到此，员工信息的浏览已经完成，我们可以对员工的信息一条一条的浏览，这样看来可能复杂些，下面我们用简单的方法，来查看所有员工的信息。同样是建立一个表单，不同的是，这次我们在表单中加入了一个表格，让所有员工的信息都在表格中显示出来。