www.pudn.com > jq_caiwu.ARJ > 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)
*