行业应用

开发平台：
VFP

MM.PRG：源码内容
							*负债表汇总输入
*define WINDOW   output FROM 0,0 TO 25,79 
*ACTIVATE WINDOW output
hide popup pop6
hide popup pop2_1
hide menu mainmenu
set clock to 0,69 
deactivate window win
on key 
set sysmenu off
set colo to w/n
clea
set colo to 6/
@ 5,0 say '广西盐业公司'
@ 5,67 say 'ＪＱ财务系统'
set colo to 2/
@ 2,25 say '  人   员   管   理    '
@ 7,0 say '┏━━━━━━┯━━━━━━━━━━━━━┯━━━━━━━━┯━━━━━━━━┓'
@ 8,0 say '┃'
@ 8,3 say ' 姓     名'
@ 8,14 SAY '│'
@ 8,17 say '  密 码 (数码字,最多8位)'
@ 8,42 say '│'
@ 8,60 say'│'
@ 8,78 say '┃'
@ 9,0 say '┠──────┼─────────────┼────────┼────────┨'
@ 10,0 say '┃'
@ 10,14 SAY '│'
@ 10,42 say '│'
@ 10,60 say'│'
@ 10,78 say '┃'
*
@ 11,0 say '┠──────┼─────────────┼────────┼────────┨'
@ 12,0 say '┃'
set colo to 1/6
@ 14,2 say '  InSert=增加一人:DeLete=删除一人:↑上一个:↓下一个:ESC=退出 : F5=修改密码  '
set colo to 2/
@ 12,14 say '│'
@ 12,42 say '│'
*@ 12,44 say '   余      额  '
@ 12,60 say'│'
@ 12,78 say '┃'
*
@ 13,0 say '┗━━━━━━┷━━━━━━━━━━━━━┷━━━━━━━━┷━━━━━━━━┛'
@ 16,26 SAY '欢迎使用JQ财务系统!'
@18,20 SAY '在使用过程中,如有任何查询或建议,'
@ 20,12 SAY '请打电话:(0771)5627468.JQ软件创作室对您表示诚挚的谢意!'
clos all
***********
USE lll
***********
set colo to
do whil .t.
x=inkey(0)
do case
  **修改密码
  case x=-4
  set colo to 6+
@ 8,18 say '                        '  
@ 8,18 say '请输入原来的密码:'
set colo to /w
@ 10,21 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
   @10,21 say pd1 
   else
     pd3=ltrim(trim(pd3))
  if pd=13 
    if len(ltrim(trim(pd3)))<>0  
   exit
   endif
  endif
  endif
enddo
set colo to
@ 10,21 say '        '
@ 10,21 say '********'
pd3=val(pd3)
if pd3<>mm
  set colo to 6+/2
 @ 3,20 clea to 6,60
 @ 4,28 say '对不起,您输入的密码不对.'
  i=inkey(0)
set colo to
 @ 3,20 clea to 6,60
set colo to 2
 @ 8,17 say ' 密  码 (数码字,最多8位)'
 @10,21 say '        '
 set colo to
else
set colo to 5+
@ 8,18 say '请输入新的密码:     '
set colo to /w
@ 10,21 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
   @10,21 say pd1 
   else
     pd3=ltrim(trim(pd3))
  if pd=13 
    if len(ltrim(trim(pd3)))<>0  
   exit
   endif
  endif
  endif
enddo
set colo to
@ 10,21 say '        '
@ 10,21 say pd1
pd3=val(pd3)
a1=pd3
?? chr(7)
set colo to 6+
@ 8,17 say '请再输一次新的密码:   '
set colo to /w
@ 10,21 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
   @10,21 say pd1 
   else
     pd3=ltrim(trim(pd3))
  if pd=13 
    if len(ltrim(trim(pd3)))<>0  
   exit
   endif
  endif
  endif
enddo
set colo to
@ 10,21 say '        '
@ 10,21 say '********'
pd3=val(pd3)
if a1<>pd3
?? chr(7)
set colo to 6+/2
@ 3,20 clea to 6,60
@ 4,28 say '您两次输入的密码不一样'
@ 5,28 say '修改无效......'
i=inkey(0)
set colo to
@ 3,20 clea to 6,60
else
repl mm with pd3
endif
set colo to 2
@ 8,17 say '  密  码 (数码字,最多8位)'
set colo to
@ 10,21 say '********'
endif  
case x=5
  if .not. bof()
  skip -1
   @ 10,4 say xm
   @ 10,21 say '********'
  else
 set colo to 3+/1
 @ 3,20 clea to 6,60
  @ 4,28 say '这是第一个 ... ...'
  @ 5,28 say '按任意键继续!'
  ?? chr(7)
  x=inkey(0)
   set colo to
  @ 3,20 clea to 6,60
    endif
case x=24
   if .not. eof()
    skip 
     @ 10,4 say xm
     @ 10,21 say '********'
   else
  set colo to 3+/1
  @ 3,20 clea to 6,60
  @ 4,28 say '这是最后一个,'
  @ 5,28 say '按任意键继续......'
   ?? chr(7)
   x=inkey(0)
   set colo to
    @ 3,20 clea to 6,60
    endif
case x=22
dele all for xm='       ' .and. mm=0
pack
appe blank
do whil len(ltrim(trim(xm)))=0
@ 10,2 SAY '' get xm
read
@ 10,2 say '         '
@ 10,4 say xm
enddo
set colo to /w
@ 10,21 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
   @10,21 say pd1 
   else
     pd3=ltrim(trim(pd3))
  if pd=13 
    if len(ltrim(trim(pd3)))<>0  
   exit
   endif
  endif
  endif
enddo
set colo to
@ 10,21 say '        '
@ 10,21 say '********'
pd3=val(pd3)
repl mm with pd3
case x=7
   if .not. bof() 
     pd='N'
    @ 5,26 say '真的删除吗?' get pd pict'x'
    read
    if pd='y' .or. pd='Y'
    dele
    pack
    @ 10,4 say xm
    @ 10,21 say '********' 
    endif
    @ 5,26 say '                      '
   else
    ?? chr(7)
   set colo to 3+/5
    @ 3,20 clea to 6,60
    @ 4,30 say '第一笔,请勿删除!'
    @ 5,30 say '按任意键继续......'
    x=inkey(0)
    set colo to w/n 
    @ 3,20 clea to 6,60
endif  
   case x=27
   exit
othe
?? chr(7)
endcase
enddo
clos data
set colo to w+/1
*set colo of scheme 3 to w+/1
@ 0,0,23,79 box '北北北北' colo scheme 3
set colo to w+/n
@ 1,1,22,78 box '鞍鞍鞍鞍鞍' colo scheme 1
@ 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  
set clock to 23,69
on key label Escape do Rquit
retu

						