表单功能：
　自动计算员工的工作量（g)、计划完成率（d)，在屏幕上显示承担的工作和参与的工作；在表72.dbf中查找到该员工的记录，在text4 中显示出勤率，在text5中显示加班时间数，并将text1~text5中的值存入kh.dbf表中。

数据环境：
na.dbf
name(c)

tx.dbf
no1(序号)、工作内容、name（责任人）、name2（参与人）、完成情况

72.dbf
name（姓名）、data（完成率）、add(加班时间）、出勤率

kh.dbf
姓名、工作量、完成量、完成率、加班时间、出勤率

[此贴子已经被作者于2006-1-5 11:29:12编辑过]

KU9zVjvM.gif (14.34 KB)

图片附件: 游客没有浏览图片的权限，请 登录 或 注册

其中"计算"的click程序如下:
clear
close data
store 0 to b,d,e,f,h,g,b1,b2
store 1 to a
c=thisform.combo1.value
thisform.text1.value=c
use tx
count all for c$name and 完成情况="完成" to e
count all for c$name2 and 完成情况="完成" to f
b=e+f
count all for c$name or c$name2 to a
count all for c$name and 完成情况="取消" to h
g=a-h
d=b/g
thisform.text2.value=g
thisform.text3.value=d
list all 工作内容,完成情况 for c$name or c$name2 to prom

use 72
locate for name=c
b1=出勤率
b2=add
thisform.text4.value=b2
thisform.text5.value=b1

use kh
locate for 姓名=c
if found()
replace 工作量 with a,完成量 with b,完成率 with d,加班时间 with b2,出勤率 with b1
else
insert into kp(姓名,工作量,完成量,完成率,加班时间,出勤率) value(c,a,b,d,b2,b1)
endif


刚作好的时候运行是没问题的,运行后KH.dbf表中的数据是所选人员的考核结果,
但过了一段时间后运行,就问题来了:
错误提示: "文件在使用!"
"挂起"后看到指针停在
"use tx"

此程序是一位临时用临时学的初学者所编,请各位大虾指点指点!!!