行业应用

开发平台：
VFP

JQBB.PRG：源码内容
							*┌──────────────────────────────────┐
*│      Program: jqhzbb.PRG for foxpro 2.6                            │
*│     Function: jq001汇总报表系统主菜单    黄朝生编制                │
*└──────────────────────────────────┘
clea all
set mouse off
SET TALK   OFF
SET SAFETY OFF && 设记分牌为OFF
set sysmenu off
set escape off
set cent on 
*set clock to 23,69
*******************************************
set dele on
set path to jqbb
*do form jqbb
set color to w/0,,
use dw
Rdwmc=mc
bbh='19  年   月   日  (      )      '
set color to 3/3
clea
set color to w/n
@ 4,7,16,76 box'          '
set color to w+/1+
@ 3,5,15,75 box'         '
@ 3,5 to 15,75 double  
@ 4,8 say 'J Q 系 列 软 件 '
set colo to w/n
@ 6,12,13,70 box'         ' 
set color to w+/2+
@ 5,10,12,68 box'         ' 
@ 5,10 to 12,68 
set colo to w+/1
@ 14,27 say 'J Q 软 件 创 作 室      黄朝生' 
set colo to w/n
@ 7,16,11,64 box'          ' 
set color to 6+/r+
@ 6,14,10,62 box'          '
@ 7,18 say '☆   ＪＱ００１   汇 总 报 表 系 统   ☆ '
@ 9,32 say ' Ｖｅｒ  １.０'
@ 24 , 0 say ""
i=inkey(3)
*****************************全局变量
set colo to 3+/8 
@ 10,24 clea to 16,64
set colo to 3+/1
@ 8,20 clea to 14,60
publ rq1
RQ1=DATE()
use lll
js=1
@ 11,30 say '请输入密码:'
@ 13,30 say '请输入日期:'
do whil .t.
czy='        '
@ 9,30 say '请输入姓名:' get czy
read
loca all for czy $xm
if .not. eof()
exit
endif
?? chr(7)
js=js+1
if js=4
quit
endif
enddo
a1=1
do whil .t.
set colo to /w
@ 11,42 say '        '
js=1
pd1=''
pd3=''
do whil 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
   endif
  endif
  endif
enddo
set colo to
@ 11,42 say '        '
@ 11,42 say '********'
pd3=val(pd3)
if pd3=mm
exit
endif
?? chr(7)
a1=a1+1
if a1=4
quit
endif
enddo
@ 13,42 GET RQ1
READ
pd1=mont(rq1)
Ryf=pd1
Ryear=year(rq1)
cd1=pd1
pd2=str(pd1,2,0)
pd2=ltrim(pd2)
pd2='m'+pd2
cd=pd2
xm=czy
eras cdk.dbf
x='jqbb'+str(Ryear,4,0)
xx=x+'nul'
if !file(xx)
   set colo to w+/1
   @ 5,20 clea to 15,60
   @ 10,35 say 'Y=是,其他=否 F'
   @ 12,30 say '指定年份:'+str(Ryear)+' 年'
   @ 8,23 say '尚没有建立指定年份的报表,是否创建它?'
   i=inkey(0)
   if i=89.or.i=121
   ! md &x
   ! cd &x
   ! md m1
   ! md m2
   ! md m3
   ! md m4
   ! md m5
   ! md m6
   ! md m7
   ! md m8
   ! md m9
   ! md m10
   ! md m11
   ! md m12
   else
   quit
   endif
endif   
! cd &x
! cd &pd2 
*******************************************
set mouse off
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
* 修改 2号调色盘第 7个色彩对, 使热键颜色由+W/W 改为 GR+/W.
SET BORDER TO SINGLE && 指定外框为单线.
on key label Escape do Rquit
ON ERROR DO ERR_2 WITH PROGRAM(),LINENO(),ERROR(),MESSAGE(1),MESSAGE()
*ON ERROR DO ERR_PRO WITH LINENO(1),PROGRAM(),MESSAGE(),MESSAGE(1),ERROR(),;
                    WLAST(),WREAD(),WONTOP(),RDLEVEL()
PUBLIC DBNAME,DBNAME1,DBNAME2
STORE SPACE(11) TO DBNAME  && 设DBNAME 为11个空格
clea
set colo of scheme 3 to w+/1
@ 0,0,23,79 box '北北北北'
set colo of scheme 1 to w+/n
@ 1,1,22,78 box '鞍鞍鞍鞍鞍'
set clock to 23,69
@ 23,28 say "当前数据的月份:"+str(Ryear,4,0)+"年"+str(Ryf,2,0)+"月" colo 1+/3
@ 24,0 say ' JQ001汇总报表系统(Ver1.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' colo 4/w  
save screen to zpm
* 定义下拉式菜单:mainmenu
DEFINE MENU mainmenu
* 定义下拉式菜单各主选项
DEFINE PAD pad1 OF mainmenu PROMPT "系统维护"
DEFINE PAD pad2 OF mainmenu PROMPT "报表录入"
DEFINE PAD pad3 OF mainmenu PROMPT "报表汇总"
DEFINE PAD pad4 OF mainmenu PROMPT "报表打印"
DEFINE PAD pad5 OF mainmenu PROMPT "报表查询"
DEFINE PAD pad6 OF mainmenu PROMPT "其  它"
DEFINE PAD pad7 OF mainmenu PROMPT "公  式"
ON PAD pad1 OF mainmenu ACTIVATE POPUP pop1   && 选择1 相当于DO CASE
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
ON PAD pad7 OF mainmenu ACTIVATE POPUP pop7
* 定义下拉式菜单mainmenu的第一个子菜单:pop1
DEFINE POPUP pop1 MARGIN  shadow
DEFINE BAR  1 OF pop1 PROMPT "<1.系统报转入 "
DEFINE BAR  2 OF pop1 PROMPT "<2.下属表读入 "
DEFINE BAR  3 OF pop1 PROMPT "<3.汇总表转出 "
DEFINE BAR  4 OF pop1 PROMPT "<4.备份 数 据 "
DEFINE BAR  5 OF pop1 PROMPT "<5.恢复 数 据 " 
DEFINE BAR  6 OF pop1 PROMPT "<6.版本 说 明 "
DEFINE BAR  7 OF pop1 PROMPT "<7.退出JQ系统 "
* 定义子菜单pop1各选项的执行程序或命令.
ON SELECT BAR  1 OF pop1  DO xtbbzr          
ON SELECT BAR  2 OF pop1  DO xsbdr           
ON SELECT BAR  3 OF pop1  DO hzbzc         
ON SELECT BAR  4 OF pop1  DO bfsj          && 备份数据
ON SELECT BAR  5 OF pop1  DO hfsj          && 恢复数据
ON SELECT BAR  6 OF pop1  DO bbsm          && 版本说明
ON SELECT BAR  7 OF poP1  quit &&QUIT      && 退出
* 定义下拉式菜单mainmenu的第二个子菜单:pop2
DEFINE POPUP pop2 MARGIN shadow
DEFINE BAR 1 OF pop2 PROMPT "<1.资产负债表 "
DEFINE BAR 2 OF pop2 PROMPT "<2.损  益  表 "
DEFINE BAR 3 OF pop2 PROMPT "<3.补充明细表 "
DEFINE BAR 4 OF pop2 PROMPT "<4.应交款项表 "
DEFINE BAR 5 OF pop2 PROMPT "<5.增值税报表 "
DEFINE BAR 6 OF pop2 PROMPT "<6.利润明细表 "
DEFINE BAR 7 OF pop2 PROMPT "<7.现金流量表 "
* 定义pop2的程序项
define popup pop2_1 margin shadow
on bar 1 of pop2 activate popup pop2_1
sele 1
use hzdw
count all to a1
go top
for i=1 to a1 
define bar i of pop2_1 prompt hzdw
ss='fzbsr'+alltrim(str(i))
on selection bar i of pop2_1 do &ss
if !eof()
skip
endif
endfor
define popup pop2_2 margin shadow
on bar 2 of pop2 activate popup pop2_2
sele 1
use hzdw
count all to a1
go top
for i=1 to a1
define bar i of pop2_2 prompt hzdw
ss='sybsr'+alltrim(str(i))
on selection bar i of pop2_2 do &ss
if !eof()
skip
endif
endfor
    
define popup pop2_3 margin shadow
on bar 3 of pop2 activate popup pop2_3
sele 1
use hzdw
count all to a1
go top
for i=1 to a1
define bar i of pop2_3 prompt hzdw
ss='bcbsr'+alltrim(str(i))
on selection bar i of pop2_3 do &ss
if !eof()
skip
endif
endfor
define popup pop2_4 margin shadow
on bar 4 of pop2 activate popup pop2_4
sele 1
use hzdw
count all to a1
go top
for i=1 to a1
define bar i of pop2_4 prompt hzdw
ss='yjkbsr'+alltrim(str(i))
on selection bar i of pop2_4 do &ss
if !eof()
skip
endif
endfor
define popup pop2_5 margin shadow
on bar 5 of pop2 activate popup pop2_5
sele 1
use hzdw
count all to a1
go top
for i=1 to a1
define bar i of pop2_5 prompt hzdw
ss='zzsbsr'+alltrim(str(i))
on selection bar i of pop2_5 do &ss
if !eof()
skip
endif
endfor
define popup pop2_6 margin shadow
on bar 6 of pop2 activate popup pop2_6
sele 1
use hzdw
count all to a1
go top
for i=1 to a1
define bar i of pop2_6 prompt hzdw
ss='xsbsr'+alltrim(str(i))
on selection bar i of pop2_6 do &ss
if !eof()
skip
endif
endfor
define popup pop2_7 margin shadow
on bar 7 of pop2 activate popup pop2_7
sele 1
use hzdw
count all to a1
go top
for i=1 to a1
define bar i of pop2_7 prompt hzdw
*wj='bdb'+alltrim(str(i))
ss='bdbsr'+alltrim(str(i))
on selection bar i of pop2_7 do &ss
if !eof()
skip
endif
endfor
     * 定义下拉式菜单mainmenu的第三个子菜单:pop3
DEFINE POPUP pop3 MARGIN shadow
DEFINE BAR 1 OF pop3 PROMPT "<1.资产负债表 "
DEFINE BAR 2 OF pop3 PROMPT "<2.损  益  表 "
DEFINE BAR 3 OF pop3 PROMPT "<3.补充明细表 "
DEFINE BAR 4 OF pop3 PROMPT "<4.应交款项表 "
DEFINE BAR 5 OF pop3 PROMPT "<5.增值税报表 "
DEFINE BAR 6 OF pop3 PROMPT "<6.利润明细表 "
define bar 7 of pop3 prompt "<7.现金流量表 "
define popup pop3_2 margin shadow
ON bar 2 of pop3 activate popup pop3_2
*&&SELECT  BAR 2 OF pop3 DO sybhz
define bar 1 of pop3_2 prompt "快速汇总"
define bar 2 of pop3_2 prompt "一般汇总"
on select bar 1 of pop3_2 do sybhz1
on select bar 2 of pop3_2 do sybhz2
define popup pop3_3 margin shadow
ON bar 3 of pop3 activate popup pop3_3                        
*&&SELECT  BAR 2 OF pop3 DO sybhz                             
define bar 1 of pop3_3 prompt "快速汇总"                      
define bar 2 of pop3_3 prompt "一般汇总"                      
on select bar 1 of pop3_3 do bcbhz1                           
on select bar 2 of pop3_3 do bcbhz2                           
    
on select bar 1 of pop3 do fzbhz
*ON SELECT  BAR 3 OF pop3 DO bcbhz          
ON SELECT  BAR 4 OF pop3 DO yjkbhz           
ON SELECT  BAR 5 OF pop3 DO zzsbhz           
ON SELECT  BAR 6 OF POP3 DO xsmxbHZ
ON SELECT  BAR 7 OF pop3 DO BDBHZ
*定义下拉式菜单mainmenu的第四个子菜单:pop4
DEFINE POPUP pop4 MARGIN shadow 
DEFINE BAR 1 OF pop4 PROMPT "<1.打印汇总资产负债表"
DEFINE BAR 2 OF pop4 PROMPT "<2.打印汇总损  益  表"
DEFINE BAR 3 OF pop4 PROMPT "<3.打印汇总补充明细表"
define bar 4 of pop4 prompt "<4.打印汇总应交款项表"
define bar 5 of pop4 prompt "<5.打印汇总增值税报表"
define bar 6 of pop4 prompt "<6.打印汇总利润明细表"
define bar 7 of pop4 prompt "<7.打印汇总现金流量表"
on selection bar 1 of pop4 do fzbhzdy 
on selection bar 2 of pop4 do sybhzdy
on selection bar 3 of pop4 do bcbhzdy
on selection bar 4 of pop4 do yjkbhzdy
on selection bar 5 of pop4 do zzsbhzdy
on selection bar 6 of pop4 do xsbhzdy
on selection bar 7 of pop4 do bdbhzdy
* 定义下拉式菜单mainmenu的第五个子菜单:pop5
DEFINE POPUP pop5 MARGIN shadow 
DEFINE BAR 1  OF pop5 PROMPT "<1.资产负债表 "
DEFINE BAR 2  OF pop5 PROMPT "<2.损  益  表 "
DEFINE BAR 3  OF pop5 PROMPT "<3.补充明细表 "
DEFINE BAR 4  OF pop5 PROMPT "<4.应交款项表 "
DEFINE BAR 5  OF pop5 PROMPT "<5.增值税报表 "
DEFINE BAR 6  OF pop5 PROMPT "<6.利润明细表 "
DEFINE BAR 7  OF pop5 PROMPT "<7.现金流量表 "
ON SELECT BAR  1 OF pop5 DO fzbhzcx
ON SELECT BAR  2 OF pop5 DO sybhzcx
ON SELECT BAR  3 OF pop5 DO bcbhzcx
ON SELECT BAR  4 OF pop5 DO yjkbhzcx
on select bar  5 of pop5 do zzsbhzcx
ON SELECT BAR  6 OF pop5 DO xsbhzcx
on select bar  7 of pop5 do llbhzcx
* 定义下拉式菜单mainmenu的第六个子菜单:pop6
DEFINE POPUP pop6 MARGIN shadow 
DEFINE BAR 1  OF pop6 PROMPT "<1.改当前月份"
DEFINE BAR 2  OF pop6 PROMPT "<2.改单位名称"
DEFINE BAR 3  OF pop6 PROMPT "<3.人员(密码)管理"
define bar 4  of pop6 prompt "<4.汇总单位管理"
DEFINE BAR 5  OF pop6 PROMPT "<4.WPS 文字编辑"
DEFINE BAR 6  OF pop6 PROMPT "<5.计算本月累计"
DEFINE BAR 7  OF pop6 PROMPT "<6.调用 DOS命令"
ON SELECT BAR  1 OF POP6 do gdcy
ON SELECT BAR  2 OF POP6 do dwmc
ON SELECT BAR  3 OF POP6 DO mm
on select bar  4 of pop6 do hzdwgl
ON SELECT BAR  5 OF POP6 do Jqwps
ON SELECT BAR  7 OF POP6 do dos
define popup pop6_6 margin shadow
ON bar 6 of pop6 activate popup pop6_6                        
define bar 1 of pop6_6 prompt "损  益  表"                      
define bar 2 of pop6_6 prompt "补充明细表"                      
on select bar 1 of pop6_6 do sybljjs                           
on select bar 2 of pop6_6 do bcbljjs                           
************************************
**
define popup pop7 margin shadow
DEFINE BAR 1 of POP7 PROMPT "<1.资产负债表"
DEFINE BAR 2 OF POP7 PROMPT "<2.损  益  表"
DEFINE BAR 3 OF POP7 PROMPT "<3.补充明细表"
DEFINE BAR 4 OF POP7 PROMPT "<4.应交款项表"
DEFINE BAR 5 OF POP7 PROMPT "<5.增植税报表"
DEFINE BAR 6 OF POP7 PROMPT "<6.销售明细表"
DEFINE BAR 7 OF POP7 PROMPT "<7.现金流量表"
on selection bar 1 of pop7 do fzbjss 
on selection bar 2 of pop7 do sybjss
on selection bar 3 of pop7 do bcmxbjss
on selection bar 4 of pop7 do yjkbjss
on selection bar 5 of pop7 do zzsbjss
on selection bar 6 of pop7 do xsmxbjss
on selection bar 7 of pop7 do xjbjss
*************************************************
* 启动下拉式菜单mainmenu
ACTIVATE MENU MAINMENU
DEACTIVATE WINDOW win
SET CURSOR ON
ON ERROR
RETURN
procedure Rquit
pd='N'
set colo to w/n
*@ 20,57,22,78 box '鞍鞍鞍鞍鞍'
@ 19,55 to 21,76 double  colo w+/1
@ 20,56 say '                    '  colo w+/1
@ 20,56 say '  真的退出吗(Y/N)?'    colo w+/1
i=inkey(0)
if i=89 .or. i=121 .or. i=13
quit
else
set colo to w+/n 
@ 19,55,22,78 box '鞍鞍鞍鞍鞍'
endif
retu
procedure Rqabstejd
dd=1
if dd=0
   do fzbsr1
   do fzbsr2
   do fzbsr3
   do fzbsr4
   do fzbsr5
   do fzbsr6
   do fzbsr7
   do fzbsr8
   do fzbsr9
   do fzbsr10
   do fzbsr11
   do fzbsr12
   do sybsr1
   do sybsr2
   do sybsr3
   do sybsr4
   do sybsr5
   do sybsr6
   do sybsr7
   do sybsr8
   do sybsr9
   do sybsr10
   do sybsr11
   do sybsr12
   do bcbsr1
   do bcbsr2
   do bcbsr3
   do bcbsr4
   do bcbsr5
   do bcbsr6
   do bcbsr7
   do bcbsr8
   do bcbsr9
   do bcbsr10
   do bcbsr11
   do bcbsr12
   do yjkbsr1
   do yjkbsr2
   do yjkbsr3
   do yjkbsr4
   do yjkbsr5
   do yjkbsr6
   do yjkbsr7
   do yjkbsr8
   do yjkbsr9
   do yjkbsr10
   do yjkbsr11
   do yjkbsr12
   do zzsbsr1
   do zzsbsr2
   do zzsbsr3
   do zzsbsr4
   do zzsbsr5
   do zzsbsr6
   do zzsbsr7
   do zzsbsr8
   do zzsbsr9
   do zzsbsr10
   do zzsbsr11
   do zzsbsr12
   do bdbsr1
   do bdbsr2
   do bdbsr3
   do bdbsr4
   do bdbsr5
   do bdbsr6
   do bdbsr7
   do bdbsr8
   do bdbsr9
   do bdbsr10
   do bdbsr11
   do bdbsr12
   do xsbsr1
   do xsbsr2
   do xsbsr3
   do xsbsr4
   do xsbsr5
   do xsbsr6
   do xsbsr7
   do xsbsr8
   do xsbsr9
   do xsbsr10
   do xsbsr11
   do xsbsr12
endif
retu

						