企业管理

开发平台：
VFP

JQMENU.PRG：源码内容
							 PUBL m_cd, rq1, dbname, dbname1, dbname2
 CLEA ALL
 SET CENTURY ON
 SET MOUSE OFF
 SET TALK OFF
 SET SAFETY OFF
 SET SYSMENU OFF
 SET ESCAPE OFF
 m_cd = SYS(2003)
 FOR i = 400 TO 1800 STEP 100
      SET BELL TO i, 1
      ?? CHR(7)
 ENDF
 RUN fm
 SET COLOR TO BG/BG
 CLEA
 SET COLOR TO W/N
 @ 4, 7, 16, 76 BOX '          '
 SET COLOR TO W+/B
 @ 3, 5, 15, 75 BOX '         '
 @ 3, 5 TO 15, 75 DOUBLE
 @ 4, 8 SAY 'J Q 系 列 软 件 '
 SET COLOR TO W/N
 @ 6, 12, 13, 70 BOX '         '
 SET COLOR TO W+/G
 @ 5, 10, 12, 68 BOX '         '
 @ 5, 10 TO 12, 68
 SET COLOR TO W+/B
 @ 14, 27 SAY 'J Q 软 件 创 作 室      黄朝生'
 SET COLOR TO W/N
 @ 7, 16, 11, 64 BOX '          '
 SET COLOR TO GR+/R
 @ 6, 14, 10, 62 BOX '          '
 @ 7, 18 SAY '☆   ＪＱ００１   财 务 管 理 系 统   ☆ '
 @ 9, 32 SAY ' Ｖｅｒ  ２.５'
 @ 24, 0 SAY ''
 SET COLOR TO BG+/N
 @ 10, 24 CLEAR TO 16, 64
 SET COLOR TO BG+/B
 @ 8, 20 CLEAR TO 14, 60
 SET DELETED ON
 set path to &M_cd
 SET COLOR TO W/N,,
 USE dw
 rdwmc = mc
 rq1 = DATE()
 USE lll
 js = 1
 @ 11, 30 SAY '请输入密码:'
 @ 13, 30 SAY '请输入日期:'
 DO WHILE .T.
      czy = '        '
      @ 9, 30 SAY '请输入姓名:' GET czy
      READ
      LOCA ALL FOR czy$xm
      IF  .NOT. EOF()
           EXIT
      ENDI
      ?? CHR(7)
      js = js+1
      IF js=4
           QUIT
      ENDI
 ENDD
 a1 = 1
 DO WHILE .T.
      SET COLOR TO N/W
      @ 11, 42 SAY '        '
      js = 1
      pd1 = ''
      pd3 = ''
      DO WHILE js<9
           pd = INKEY(0)
           IF pd>47 .AND. pd<58
                pd1 = pd1+'*'
                pd = CHR(pd)
                pd3 = pd3+pd
                js = js+1
                @ 11, 42 SAY pd1
           ELSE
                pd3 = LTRIM(TRIM(pd3))
                IF pd=13
                     IF LEN(LTRIM(TRIM(pd3)))<>0
                          EXIT
                     ENDI
                ENDI
           ENDI
      ENDD
      SET COLOR TO
      @ 11, 42 SAY '        '
      @ 11, 42 SAY '********'
      pd3 = VAL(pd3)
      IF pd3=mm
           EXIT
      ENDI
      ?? CHR(7)
      a1 = a1+1
      IF a1=4
           QUIT
      ENDI
 ENDD
 @ 13, 42 SAY '' GET rq1
 READ
 pd1 = MONTH(rq1)
 ryf = pd1
 ryear = YEAR(rq1)
 cd1 = pd1
 pd2 = STR(pd1, 2, 0)
 pd2 = LTRIM(pd2)
 pd2 = 'm'+pd2
 cd = pd2
 xm = czy
 x = m_cd+''+STR(ryear, 4, 0)
 xx = x+'nul'
 IF  .NOT. FILE(xx)
      SET COLOR TO W+/B
      @ 5, 20 CLEAR TO 15, 60
      @ 8, 25 SAY '尚没有建立指定年份的帐,是否创建它?'
      @ 10, 35 SAY 'Y=是,其他=否 F'
      i = INKEY(0)
      IF i=89 .OR. i=121
           ! md &x
           ! cd &x
           RUN md m1
           RUN md m2
           RUN md m3
           RUN md m4
           RUN md m5
           RUN md m6
           RUN md m7
           RUN md m8
           RUN md m9
           RUN md m10
           RUN md m11
           RUN md m12
      ELSE
           QUIT
      ENDI
 ENDI
 ! cd &x
 ! cd &pd2 
 SET BORDER TO SINGLE
 ON KEY LABEL Escape do Rquit
 ON ERROR DO ERR_2 WITH PROGRAM(),LINENO(),ERROR(),MESSAGE(1),MESSAGE()
 STOR SPACE(11) TO dbname
 CLEA
 DO zcd
 SET COLOR OF SCHEME 2 TO W+/BG, N/W, N/W, B/W, B/BG, N/BG, GR+/W, N+/N, B/W, W/N
 DEFI MENU mainmenu
 DEFI PAD pad1 OF mainmenu PROMPT ' 系统维护 '
 DEFI PAD pad2 OF mainmenu PROMPT ' 凭证处理 '
 DEFI PAD pad3 OF mainmenu PROMPT ' 帐务处理 '
 DEFI PAD pad4 OF mainmenu PROMPT ' 系统报表 '
 DEFI PAD pad5 OF mainmenu PROMPT ' 其    它 '
 DEFI PAD pad6 OF mainmenu PROMPT ' 报表公式 '
 ON PAD pad1 OF mainmenu ACTIVATE POPUP pop1
 ON PAD pad2 OF mainmenu ACTIVATE POPUP pop2
 ON PAD pad3 OF mainmenu ACTIVATE POPUP pop3
 ON PAD pad4 OF mainmenu ACTIVATE POPUP pop4
 ON PAD pad5 OF mainmenu ACTIVATE POPUP pop5
 ON PAD pad6 OF mainmenu ACTIVATE POPUP pop6
 DEFI POPUP pop1 SHADOW MARGIN
 DEFI BAR 1 OF pop1 PROMPT '<1.科目管理 '
 DEFI BAR 2 OF pop1 PROMPT '<2.初 始 化 '
 DEFI BAR 3 OF pop1 PROMPT '<3.人员管理 '
 DEFI BAR 4 OF pop1 PROMPT '<4.备份数据 '
 DEFI BAR 5 OF pop1 PROMPT '<5.恢复数据 '
 DEFI BAR 6 OF pop1 PROMPT '<6.版本说明 '
 DEFI BAR 7 OF pop1 PROMPT '<7.退    出 '
 ON SELECTION BAR 1 OF pop1 DO kmgl          
 ON SELECTION BAR 2 OF pop1 DO csh           
 ON SELECTION BAR 3 OF pop1 DO mm            
 ON SELECTION BAR 4 OF pop1 DO bfsj          
 ON SELECTION BAR 5 OF pop1 DO hfsj          
 ON SELECTION BAR 6 OF pop1 DO bbsm          
 ON SELECTION BAR 7 OF pop1 do Rquit 
 DEFI POPUP pop2 SHADOW MARGIN
 DEFI BAR 1 OF pop2 PROMPT '<1.凭证输入 '
 DEFI BAR 2 OF pop2 PROMPT '<2.凭证修改 '
 DEFI BAR 3 OF pop2 PROMPT '<3.凭证审核 '
 DEFI BAR 4 OF pop2 PROMPT '<4.凭证查询 '
 DEFI BAR 5 OF pop2 PROMPT '<5.凭证入帐 '
 DEFI BAR 6 OF pop2 PROMPT '<6.凭证汇总 '
 DEFI BAR 7 OF pop2 PROMPT '<7.科目汇总 '
 DEFI BAR 8 OF pop2 PROMPT '<8.凭证打印 '
 ON SELECTION BAR 1 OF pop2 DO pzsr            
 ON SELECTION BAR 2 OF pop2 DO pzxg            
 ON SELECTION BAR 3 OF pop2 DO pzsh            
 ON SELECTION BAR 4 OF pop2 DO pzcx            
 ON SELECTION BAR 5 OF pop2 DO pzrz            
 ON SELECTION BAR 6 OF pop2 DO pzhz            
 ON SELECTION BAR 7 OF pop2 do pzhzb           
 ON SELECTION BAR 8 OF pop2 DO pzdy            
 DEFI POPUP pop3 SHADOW MARGIN
 DEFI BAR 1 OF pop3 PROMPT '<1.总帐余额表 '
 DEFI BAR 2 OF pop3 PROMPT '<2.明细帐查询 '
 DEFI BAR 3 OF pop3 PROMPT '<3.结转 费 用 '
 DEFI BAR 4 OF pop3 PROMPT '<4.结转 下 月 '
 DEFI BAR 5 OF pop3 PROMPT '<5.明细帐打印 '
 DEFI BAR 6 OF pop3 PROMPT '<6.浏览数据库 '
 DEFI BAR 7 OF pop3 PROMPT '<7.余额 查 询 '
 ON SELECTION BAR 1 OF pop3 DO zzye             
 ON SELECTION BAR 2 OF pop3 DO mxzye            
 ON SELECTION BAR 3 OF pop3 DO fyjz             
 ON SELECTION BAR 4 OF pop3 DO jzxy             
 ON SELECTION BAR 5 OF pop3 DO zbdy             
 ON SELECTION BAR 6 OF pop3 DO llsjk            
 ON SELECTION BAR 7 OF pop3 DO YECX             
 DEFI POPUP pop4 SHADOW MARGIN
 DEFI BAR 1 OF pop4 PROMPT '<1.系统报表生成 '
 DEFI BAR 2 OF pop4 PROMPT '<2.系统报表查询 '
 DEFI BAR 3 OF pop4 PROMPT '<3.系统报表打印 '
 DEFI BAR 4 OF pop4 PROMPT '<4.系统报表拷贝 '
 ON BAR 1 OF pop4 ACTIVATE POPUP pop4_1
 ON BAR 2 OF pop4 ACTIVATE POPUP pop4_2
 ON BAR 3 OF pop4 ACTIVATE POPUP pop4_3
 ON SELECTION BAR 4 OF pop4 do xtbbzc
 DEFI POPUP pop4_1 SHADOW MARGIN
 DEFI BAR 1 OF pop4_1 PROMPT '<1.资产负债表'
 DEFI BAR 2 OF pop4_1 PROMPT '<2.损  益  表'
 DEFI BAR 3 OF pop4_1 PROMPT '<3.补充明细表'
 DEFI BAR 4 OF pop4_1 PROMPT '<4.应交款项表'
 DEFI BAR 5 OF pop4_1 PROMPT '<5.增植税报表'
 DEFI BAR 6 OF pop4_1 PROMPT '<6.现金流量表'
 DEFI BAR 7 OF pop4_1 PROMPT '<7.现金表全年'
 DEFI POPUP pop4_2 SHADOW MARGIN
 ON SELECTION BAR 1 OF pop4_1 do fzb 
 ON SELECTION BAR 2 OF pop4_1 do syb
 ON SELECTION BAR 3 OF pop4_1 do bcmxb
 ON SELECTION BAR 4 OF pop4_1 do yjkb
 ON SELECTION BAR 5 OF pop4_1 do zzsb
 ON SELECTION BAR 6 OF pop4_1 do xjbsr
 ON SELECTION BAR 7 OF pop4_1 do bdbhz
 DEFI BAR 1 OF pop4_2 PROMPT '<1.资产负债表'
 DEFI BAR 2 OF pop4_2 PROMPT '<2.损  益  表'
 DEFI BAR 3 OF pop4_2 PROMPT '<3.补充明细表'
 DEFI BAR 4 OF pop4_2 PROMPT '<4.应交款项表'
 DEFI BAR 5 OF pop4_2 PROMPT '<5.增值税报表'
 DEFI BAR 6 OF pop4_2 PROMPT '<6.现金流量表'
 DEFI BAR 7 OF pop4_2 PROMPT '<7.现金表汇总'
 DEFI POPUP pop4_3 SHADOW MARGIN
 ON SELECTION BAR 1 OF pop4_2 do fzbcx
 ON SELECTION BAR 2 OF pop4_2 do sybcx 
 ON SELECTION BAR 3 OF pop4_2 do bcmxbcx
 ON SELECTION BAR 4 OF pop4_2 do yjkbcx
 ON SELECTION BAR 5 OF pop4_2 do zzsbcx
 ON SELECTION BAR 6 OF pop4_2 do xjbcx
 ON SELECTION BAR 7 OF pop4_2 do xjbhzcx
 DEFI BAR 1 OF pop4_3 PROMPT '<1.资产负债表'
 DEFI BAR 2 OF pop4_3 PROMPT '<2.损  益  表'
 DEFI BAR 3 OF pop4_3 PROMPT '<3.补充明细表'
 DEFI BAR 4 OF pop4_3 PROMPT '<4.应交款项表'
 DEFI BAR 5 OF pop4_3 PROMPT '<5.增值税报表'
 ON SELECTION BAR 1 OF pop4_3 do FZBdy
 ON SELECTION BAR 2 OF pop4_3 do sybdy
 ON SELECTION BAR 3 OF pop4_3 do bcmxbdy
 ON SELECTION BAR 4 OF pop4_3 do yjkbdy
 ON SELECTION BAR 5 OF pop4_3 do zzsbdy
 DEFI POPUP pop5 SHADOW MARGIN
 DEFI BAR 1 OF pop5 PROMPT '<1.改当前月份'
 DEFI BAR 2 OF pop5 PROMPT '<2.改单位名称'
 DEFI BAR 3 OF pop5 PROMPT '<3.环境 设 置'
 DEFI BAR 4 OF pop5 PROMPT '-'
 DEFI BAR 5 OF pop5 PROMPT '<4.WPS 文字编辑'
 DEFI BAR 6 OF pop5 PROMPT '<5.重新索引'
 DEFI BAR 7 OF pop5 PROMPT '-'
 DEFI BAR 8 OF pop5 PROMPT '<6.调用 DOS命令'
 ON SELECTION BAR 1 OF pop5 do gdcy
 ON SELECTION BAR 2 OF pop5 do dwmc
 ON SELECTION BAR 3 OF pop5 do seter
 ON SELECTION BAR 5 OF pop5 do jqwps
 ON SELECTION BAR 6 OF pop5 do jqindex
 ON SELECTION BAR 8 OF pop5 do dos
 DEFI POPUP pop6 SHADOW MARGIN
 DEFI BAR 1 OF pop6 PROMPT '<1.取数公式 '
 DEFI BAR 2 OF pop6 PROMPT '<2.运算公式 '
 ON BAR 1 OF pop6 ACTIVATE POPUP pop6_1
 ON BAR 2 OF pop6 ACTIVATE POPUP pop6_2
 DEFI POPUP pop6_1 SHADOW MARGIN
 DEFI BAR 1 OF pop6_1 PROMPT '<1.资产负债表'
 DEFI BAR 2 OF pop6_1 PROMPT '<2.损  益  表'
 DEFI BAR 3 OF pop6_1 PROMPT '<3.补充明细表'
 DEFI BAR 4 OF pop6_1 PROMPT '<4.应交款项表'
 DEFI BAR 5 OF pop6_1 PROMPT '<5.增植税报表'
 ON SELECTION BAR 1 OF pop6_1 do fzbgs 
 ON SELECTION BAR 2 OF pop6_1 do sybgs
 ON SELECTION BAR 3 OF pop6_1 do bcmxbgs
 ON SELECTION BAR 4 OF pop6_1 do yjkbgs
 ON SELECTION BAR 5 OF pop6_1 do zzsbgs
 DEFI POPUP pop6_2 SHADOW MARGIN
 DEFI BAR 1 OF pop6_2 PROMPT '<1.资产负债表'
 DEFI BAR 2 OF pop6_2 PROMPT '<2.损  益  表'
 DEFI BAR 3 OF pop6_2 PROMPT '<3.补充明细表'
 DEFI BAR 4 OF pop6_2 PROMPT '<4.应交款项表'
 DEFI BAR 5 OF pop6_2 PROMPT '<5.增植税报表'
 ON SELECTION BAR 1 OF pop6_2 do fzbjss 
 ON SELECTION BAR 2 OF pop6_2 do sybjss
 ON SELECTION BAR 3 OF pop6_2 do bcmxbjss
 ON SELECTION BAR 4 OF pop6_2 do yjkbjss
 ON SELECTION BAR 5 OF pop6_2 do zzsbjss
 ACTI MENU mainmenu
 DEAC WINDOW win
 SET CURSOR ON
 ON ERROR
 RETU
*
PROC rquit
 pd = 'N'
 SET COLOR TO W/N
 @ 12, 29, 14, 50 BOX '鞍鞍鞍鞍鞍鞍'
 @ 11, 27 TO 13, 48 DOUBLE COLOR W+/B 
 SET COLOR TO W+/B
 @ 12, 28, 12, 47 BOX '              '
 @ 12, 28 SAY '  真的退出吗(Y/N)?' COLOR W+/B 
 i = INKEY(0)
 IF i=89 .OR. i=121 .OR. i=13
      FOR i = 1800 TO 400 STEP -100
           SET BELL TO i, 1
           ?? CHR(7)
      ENDF
      QUIT
 ELSE
      SET COLOR TO W+/N
      @ 11, 27, 16, 50 BOX '鞍鞍鞍鞍鞍鞍'
 ENDI
 RETU
*
PROC zcd
 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
 SET CURSOR ON
 RETU
*
FUNC _zy
 rzy = ALLTRIM(zy)
 IF rzy='结转成本' .OR. rzy='结转利润' .OR. rzy='期初余额' .OR. rzy='期末及累计' .OR. rzy='本月合计'
      ?? CHR(7)
      WAIT WINDOW "摘要不能是'结转成本 结转利润 期初余额 期末及累计 本月合计'字样"
      f = .F.
 ELSE
      f = .T.
 ENDI
 RETU (f)
*

						