www.pudn.com > jq_caiwu.ARJ > DOS.PRG

 HIDE POPUP pop5 
 ?? CHR(7)+CHR(7) 
 SET COLOR TO 
 @ 7, 30 CLEAR TO 11, 62 
 SET COLOR TO GR+/G 
 @ 6, 28 CLEAR TO 10, 58 
 x1 = 6 
 x2 = 10 
 y1 = 28 
 y2 = 58 
 DO box_1 
 SET COLOR TO G+/N 
 @ 4, 38 SAY ' 注    意 ' 
 SET COLOR TO GR+/G 
 pd = 'N' 
 @ 7, 34 SAY '运行DOS命令之后,一定要键' 
 @ 8, 30 SAY '入 EXIT ←┚返回JQ系统, 否则' 
 @ 9, 30 SAY '将有丢失数据的危险 ......  ' 
 i = INKEY(0) 
 IF i=27 
      SET COLOR TO W+/N 
      @ 3, 28, 11, 62 BOX '鞍鞍鞍鞍鞍鞍' 
      RETU 
 ENDI 
 SET COLOR TO 
 CLEA 
 x = '\cw\'+STR(ryear, 4, 0) 
 pd = SYS(5) 
 RUN foxswap \cw\dos 
 ! &pd 
 RUN cd\ 
 ! cd &x 
 ! cd &cd 
 CLOS DATABASES 
 SET COLOR TO W+/B 
 @ 0, 0, 23, 79 BOX '北北北北' 
 SET COLOR TO W+/N 
 @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍' 
 @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG  
 @ 24, 0 SAY ' JQ001财务管理系统(Ver2.5)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W  
 SET CLOCK TO 23, 69 
 ON KEY LABEL Escape do Rquit 
 RETU 
*