用foxpro或vb编写一个小程序

Question

试用FoxPRO或VB编写程序，把扣款单按表1所示格式建立到磁盘中的扣款文件GZKK.DBF中（库结构见表2），要求如下：
（1）程序运行是输入一个人员代码后，如果主文件中已存有该人员数据，应自动在屏幕上显示出该人员的姓名，以便操作人员检查输入的人员代码是否正确。如代码输入正确，就可继续数据扣款项目。
（2）若主文件中没有此人代码，则显示“并无此人”，继续输入数据。
表1扣款单
人员代码 姓名 部门代码 扣电费 病事假扣款
1003 刘一波 01 20.00 12.00
1008 赵子英 02 20.00 60.00

表2 扣款文件GZKK的库结构
数据项 人员代码 扣电费 病事假扣款
字段名 DM DF BSJ
字段类型 C N N
字段长度 4 7.2 7.2

Answer 1

*
* VF写的，权当你的【姓名】字段名是【xm】字符型
* 你的第2条要求：继续输入数据，是继续输入代码还是新增？我按新增加给你处理
*

use GZKK
do while .t.
accept'输入新加的人员代码(输入EXIT退出)：' to mdm
if upper(m.mdm)='EXIT'
exit
endif
locate for dm=m.mdm
if !found()
wait'查无此人.把代码【'+m.mdm+'】最为新记录添加到表中吗？' to yn
if yn$'Nn'
loop
endif
accept'输入人员名称：' to mxm
append blank
replace dm with m.mdm,xm with m.mxm
endif
disp
input'输入扣电费：' to mdf
input'输入病事假：' to mbsj
replace df with m.mdf,bsj with m.mbsj
enddo

参考资料：调试通过

Answer 2

你要应用程序还是要工程文件？你VFP是什么版本？