为了管理人员能对项目计划所安排的工时能有量化的查询,并根据人员每天的工作量进行新的项目任务安排编此程序:
项目计划表如下:
**考虑了连班,周末加班以及做任务处理的各时间段的固定时间安排。应用效果很好。提高了项目计划员的效率。
public gongsi,user_cl,shijian_renwu
gongsi=0
jhkssj=ttod(xm_kssj)
jhjssj=ttod(xm_jssj)
if jhkssj>jhjssj
messagebox(结束时间必须大于开始时间,请重新指定!)
return
endif
tianshu=jhjssj-jhkssj+1
if file('gs_')
delete file gs_
endifselect qmtc_xtgl
go top
count for 用户名称!="and.试验员=.t. to renshu
dimension user_cl(renshu)
go top
create table gs_biao free (日期 d(8))
select gs_biao
for i=0 to tianshu-1
append blank
replace 日期 with jhkssj+i
endfor
go top
select qmtc_xtgl
set filter to 用户名称!="and.试验员=.t.
go top
do while !eof()
user_cl=alltrim(用户名称)
alter table gs_ add (user_cl) n(6,2)
shijian_renwu=jhkssj
do while shijian_renwu<=jhjssj
select qmtc_syjh_d
set filter to
set filter to ttod(预计开始时间)<=shijian_预计结束时间)>=shijian_试验员=user_cl
go top
if !eof()
gongsi=0
if dow(shijian_renwu)=
set filter to ttod(预计开始时间)<=shijian_预计结束时间)>=shijian_试验员=user_周末加班=.t.
go top
endifdo while !eof()
if 周末加班=.t.
gongsi=gongsi+val(资源占用率)*实际工时/(ttod(预计结束时间)-ttod(预计开始时间)+1)
elsezhoumo=0
start_sj=ttod(预计结束时间)
end_sj=ttod(预计开始时间)
loop_sj=start_sj
do while loop_sj<=end_sj
if dow(loop_sj)=
zhoumo=zhoumo+1
endifloop_sj=loop_sj+1
enddogongsi=gongsi+val(资源占用率)*实际工时/(ttod(预计结束时间)-ttod(预计开始时间)+1-zhoumo)
endifif shijian_renwu=ttod(预计开始时间)
gongsi=gongsi+准备时长。
endifif shijian_renwu=ttod(预计结束时间)
gongsi=gongsi+试验后处理。
endifselect qmtc_syjh_d
skipenddo
select gs_biao
locate for 日期=shijian_renwu
replace &user_cl with gongsi
endifshijian_renwu=shijian_renwu+1
enddoselect qmtc_xtgl
skipenddo
select gs_biao
go top
gs_biao'
dynamicbackcolor","iif(dow(日期)=日期)=1,rgb(0,128,0),rgb(128,255,255))"column")
按时间顺序写景作文
按时间顺序写景作文范文。学校的花坛美级了。春天的脚步已临近。小草悄悄的探出了可爱的小脑袋,随着一阵阵温暖的春风舒服的伸了个懒腰,瞅着大地上的一切。春姑娘悄悄的走进校园,托起一个个可爱的小花苞。夏天的气息又留在了我们的校园里。使一朵朵花儿都开了,百花争艳,争先恐后的显示着自己纤细的腰枝。阳光撒在一朵不...
写景作文按时间顺序写景的作文
写景作文 按时间顺序写景的作文。篇一 小区的四季作文 小区的四季美极了。春天到了,许多花开了,有粉红的桃花,雪白的梨花,金色的迎春花 美丽极了!小区里的树都长出了嫩芽,它们给小区带来了勃勃生机。夏天到了,知了在树上拼命地叫着 太热了,太热了!青蛙蹲在荷叶这个大舞台上,准备开演唱会,荷叶圆圆的像大圆盘...
七年级上历史 按时间顺序
七年级上按时间顺序 第一单元。距今约一百七十万年 元谋人。距今约七十万年 二十万年 北京人距今约三万年 山顶洞人距今约七千年 河姆渡人距今约五六千年 半坡人。距今约四五千年 大汶口原始居民。距今约四五千年 炎帝和皇帝,是黄河流域著名的部落首领。公元前2070年 禹建立夏潮,这是我国世上第一个王朝,原...