按时间汇总项目计划的人员工时.docx

按时间汇总项目计划的人员工时 为了管理人员能对项目计划所安排的工时能有量化的查询，并根据人员每天的工作量进行新的项目任务安排编此程序：项目计划表如下：代码考虑了连班，周末加班以及做任务处理的各时间段的固定时间安排。应用效果很好。提高了项目计划员的效率。*Public GONGSI,USER_CL,SHIJIAN_RENWUGONGSI=0JHKSSJ=Ttod(XM_KSSJ)JHJSSJ=Ttod(XM_JSSJ)IF jhkssjjhjssjMESSAGEBOX(结束时间必须大于开始时间，请重新指定！)RETURNENDIF tianshu=JHJSSJ-JHKSSJ+1If File(GS_BIAO.dbf) Thisform.PAGEframe1.PAGE5.GRID1.RecordSource=delete file GS_BIAO.dbfEndifSelect QMTC_XTGLGo TopCount For 用户名称!=.And.试验员=.T. To RENSHUDimension USER_CL(RENSHU)Go TopCreate TABLE gs_biao FREE (日期 D(8)Select gs_biaoFor i=0 To tianshu-1Append BlankReplace 日期 With JHKSSJ+iEndforGo TopSelect QMTC_XTGLSet Filter To 用户名称!=.And.试验员=.T.Go TopDo While !Eof()USER_CL=Alltrim(用户名称)Alter Table gs_biao.Dbf Add (USER_CL) N(6,2)SHIJIAN_RENWU=JHKSSJDo While SHIJIAN_RENWU=JHJSSJ Select QMTC_SYJH_DSet Filter ToSet Filter To Ttod(预计开始时间)=SHIJIAN_RENWU.And.试验员=USER_CLGo TopIf !Eof() GONGSI=0 IF DOW(SHIJIAN_RENWU)=1.OR.DOW(SHIJIAN_RENWU)=7 Set Filter To Ttod(预计开始时间)=SHIJIAN_RENWU.And.试验员=USER_CL.AND.周末加班=.T. GO TOP ENDIF Do While !Eof()If 周末加班=.T.GONGSI=GONGSI+Val(资源占用率)*实际工时/(Ttod(预计结束时间)-Ttod(预计开始时间)+1)ElseZHOUMO=0START_SJ=Ttod(预计结束时间)END_SJ=Ttod(预计开始时间)LOOP_SJ=START_SJDo While LOOP_SJ=END_SJIf Dow(LOOP_SJ)=1.Or.Dow(LOOP_SJ)=7ZHOUMO=ZHOUMO+1EndifLOOP_SJ=LOOP_SJ+1EnddoGONGSI=GONGSI+Val(资源占用率)*实际工时/(Ttod(预计结束时间)-Ttod(预计开始时间)+1-ZHOUMO)EndifIf SHIJIAN_RENWU=Ttod(预计开始时间)GONGSI=GONGSI+准备时长EndifIf SHIJIAN_RENWU=Ttod(预计结束时间)GONGSI=GONGSI+试验后处理EndifSelect QMTC_SYJH_DSkipEnddoSelect gs_biaoLocate For 日期=SHIJIAN_RENWUReplace &USER_CL With GONGSIEndifSHIJIAN_RENWU=SHIJIAN_RENWU+1EnddoSelect QMTC_XTGLSkipEnddoSELECT GS_BIAOGO TOPThisform.PAGEframe1.PAGE5.GRID1.RecordSource=GS_BIAOTHISFORM.PAGEframe1.PAGE5.Grid1.Visible=.T.Thisform.PAGEframe1.PAGE5.GRID1.DeleteMark=.F.Thisform.PAGEframe1.PAGE5.GRID1.AutoFit Thisform.PAGEframe1.PAGE5.GRID1.ReadOnly=.T.Thisform.PAGEframe1.PAGE5.GRID1.FontSize =11THISFORM.pageframe1.p