kq.prg

来自「智能化考勤系统,请大家多多指教...我是菜鸟.以会更加努力学习」· PRG 代码 · 共 29 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: KQ.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SDATE = DATE(2000,4,1)
 NDAY = 32 - DAY(SDATE + 31)
 CLOSE DATABASES ALL
 SET TALK OFF
 SET SAFETY OFF
 CTABLE = 'db' + LEFT(DTOS(SDATE),6)
  CREATE TABLE &ctable(rq c(8),kh c(4),sj c(4))
  SELE &ctable
 FOR I = 0 TO NDAY - 1
    FOR J = 1 TO 10
       CKH = STRTRAN(STR(J,4),' ','0')
       CRQ = DTOS(SDATE + I)
        CRESJ('07')
        CRESJ('22')
    ENDFOR 
 ENDFOR 

PROCEDURE cresj
 LPARAMETER CSJ
 CSJ = CSJ + STRTRAN(STR(MOD(INT(RAND() * 100),60),2),' ','0')
  INSERT INTO &ctable (kh,rq,sj) VALUES (ckh,crq,csj)
ENDPROC
*------*