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

 USE csh 
 IF rzbz=1 
      ?? CHR(7)+CHR(7) 
      SET COLOR TO 
      @ 7, 30 CLEAR TO 11, 62 
      SET COLOR TO RB+/BG 
      @ 6, 28 CLEAR TO 10, 58 
      x1 = 6 
      x2 = 10 
      y1 = 28 
      y2 = 58 
      DO box-1 
      SET COLOR TO GR+/N 
      @ 4, 38 SAY ' 警    告 ' 
      SET COLOR TO GR+/BG 
      pd = 'N' 
      @ 7, 34 SAY '初始化将破坏你原有的全部' 
      @ 8, 30 SAY '数据. 是否继续执行初始化 ?' 
      @ 9, 34 SAY 'Y=是,其他=否 N' 
      i = INKEY(0) 
      IF i<>89 .AND. i<>121 
           SET COLOR TO W+/N 
           @ 4, 28, 11, 64 BOX '鞍鞍鞍鞍鞍鞍' 
           RETU 
      ENDI 
      ?? CHR(7) 
      SET COLOR TO W+/BG 
      @ 9, 32 SAY '下定决心要初始化吗(Y/N)' 
      i = INKEY(0) 
      IF i<>89 .AND. i<>121 
           SET COLOR TO W+/N 
           @ 4, 28, 11, 64 BOX '鞍鞍鞍鞍鞍鞍' 
           RETU 
      ENDI 
      REPL rzbz WITH 0 ALL 
      USE zzk 
      ZAP 
      USE pzk 
      ZAP 
      USE mxk 
      ZAP 
      USE 
 ENDI 
 HIDE POPUP pop1 
 HIDE MENU mainmenu 
 DEAC WINDOW win 
 SET SYSMENU OFF 
 SET COLOR TO W/N 
 ON KEY 
 CLOS DATABASES 
 CLEA 
 DO WHILE .T. 
      pd = 1 
      SET COLOR TO N/W 
      CLEA 
      SET COLOR TO 
      @ 8, 22 CLEAR TO 16, 60 
      SET COLOR TO N/BG 
      @ 7, 20 CLEAR TO 15, 58 
      SET COLOR TO W+/BG 
      x1 = 7 
      x2 = 15 
      y1 = 22 
      y2 = 56 
      DO box_1 
      SET COLOR TO GR+/W 
      @ 1, 2 SAY 'ＪＱ软件工作室' 
      @ 1, 67 SAY 'JQ财务系统' 
      @ 20, 27 SAY 'ＪＱ 软 件 工 作 室  黄朝生' 
      @ 22, 31 SAY '一九九八年三月十七日' 
      SET COLOR TO BG+/N 
      @ 4, 30 SAY '  初  始  化  ' 
      SET COLOR TO W/B, W+/R 
      @ 8, 28 PROMPT '返                  回' 
      @ 9, 28 PROMPT '初   始   化   修   改' 
      @ 10, 28 PROMPT '查  看  总  帐  余  额' 
      @ 11, 28 PROMPT '明  细  帐 余 额 打 印' 
      @ 12, 28 PROMPT '修    改    数      量' 
      @ 13, 28 PROMPT '初   始   化   入   帐' 
      @ 14, 28 PROMPT '模    拟    记      帐' 
      MENU TO pd 
      DO CASE 
           CASE pd=1 
                SET COLOR TO 
                CLOS ALL 
                EXIT 
           CASE pd=2 
                DO cshxg 
           CASE pd=3 
                DO cshjs 
                DO cshzzye 
                SET COLOR TO N/W 
           CASE pd=4 
                DO cshmxdy.prg 
           CASE pd=5 
                DO cshslxg 
           CASE pd=6 
                esc = 12 
                DO cshrz 
                IF esc=27 
                     CLOS ALL 
                     EXIT 
                ENDI 
           CASE pd=7 
                DO cshmnjz 
      ENDC 
 ENDD 
 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  
 ON KEY LABEL Escape do Rquit 
 SET CLOCK TO 23, 69 
 RETU 
*