ERP-EIP-OA-Portal

Development Platform:

VFP

DOS.PRG：Code Content

							 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 cwdos
 ! &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
*

						