企业管理

开发平台：
VFP

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
*

						