www.pudn.com > jq_caiwu.ARJ > MM.PRG
HIDE POPUP pop1
HIDE MENU mainmenu
DEAC WINDOW win
SET SYSMENU OFF
ON KEY
SET COLOR TO W/N
CLOS DATABASES
CLEA
SET COLOR TO GR/N
@ 5, 0 SAY 'ＪＱ软件工作室'
@ 5, 67 SAY 'ＪＱ财务系统'
SET COLOR TO G/N
@ 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 COLOR TO B/GR
@ 14, 2 SAY ' InSert=增加一人:DeLete=删除一人:↑上一个:↓下一个:ESC=退出 : F5=修改密码 '
SET COLOR TO G/N
@ 12, 14 SAY '│'
@ 12, 42 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 COLOR TO
DO WHILE .T.
x = INKEY(0)
DO CASE
CASE x=-4
SET COLOR TO GR+/N
@ 8, 18 SAY ' '
@ 8, 18 SAY '请输入原来的密码:'
SET COLOR TO N/W
@ 10, 21 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
@ 10, 21 SAY pd1
ELSE
pd3 = LTRIM(TRIM(pd3))
IF pd=13
IF LEN(LTRIM(TRIM(pd3)))<>0
EXIT
ENDI
ENDI
ENDI
ENDD
SET COLOR TO
@ 10, 21 SAY ' '
@ 10, 21 SAY '********'
pd3 = VAL(pd3)
IF pd3<>mm
SET COLOR TO GR+/G
@ 3, 20 CLEAR TO 6, 60
@ 4, 28 SAY '对不起,您输入的密码不对.'
i = INKEY(0)
SET COLOR TO
@ 3, 20 CLEAR TO 6, 60
SET COLOR TO G/N
@ 8, 17 SAY ' 密 码 (数码字,最多8位)'
@ 10, 21 SAY ' '
SET COLOR TO
ELSE
SET COLOR TO RB+/N
@ 8, 18 SAY '请输入新的密码: '
SET COLOR TO N/W
@ 10, 21 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
@ 10, 21 SAY pd1
ELSE
pd3 = LTRIM(TRIM(pd3))
IF pd=13
IF LEN(LTRIM(TRIM(pd3)))<>0
EXIT
ENDI
ENDI
ENDI
ENDD
SET COLOR TO
@ 10, 21 SAY ' '
@ 10, 21 SAY pd1
pd3 = VAL(pd3)
a1 = pd3
?? CHR(7)
SET COLOR TO GR+/N
@ 8, 17 SAY '请再输一次新的密码: '
SET COLOR TO N/W
@ 10, 21 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
@ 10, 21 SAY pd1
ELSE
pd3 = LTRIM(TRIM(pd3))
IF pd=13
IF LEN(LTRIM(TRIM(pd3)))<>0
EXIT
ENDI
ENDI
ENDI
ENDD
SET COLOR TO
@ 10, 21 SAY ' '
@ 10, 21 SAY '********'
pd3 = VAL(pd3)
IF a1<>pd3
?? CHR(7)
SET COLOR TO GR+/G
@ 3, 20 CLEAR TO 6, 60
@ 4, 28 SAY '您两次输入的密码不一样'
@ 5, 28 SAY '修改无效......'
i = INKEY(0)
SET COLOR TO
@ 3, 20 CLEAR TO 6, 60
ELSE
REPL mm WITH pd3
ENDI
SET COLOR TO G/N
@ 8, 17 SAY ' 密 码 (数码字,最多8位)'
SET COLOR TO
@ 10, 21 SAY '********'
ENDI
CASE x=5
IF .NOT. BOF()
SKIP -1
@ 10, 4 SAY xm
@ 10, 21 SAY '********'
ELSE
SET COLOR TO BG+/B
@ 3, 20 CLEAR TO 6, 60
@ 4, 28 SAY '这是第一个 ... ...'
@ 5, 28 SAY '按任意键继续!'
?? CHR(7)
x = INKEY(0)
SET COLOR TO
@ 3, 20 CLEAR TO 6, 60
ENDI
CASE x=24
IF .NOT. EOF()
SKIP
@ 10, 4 SAY xm
@ 10, 21 SAY '********'
ELSE
SET COLOR TO BG+/B
@ 3, 20 CLEAR TO 6, 60
@ 4, 28 SAY '这是最后一个,'
@ 5, 28 SAY '按任意键继续......'
?? CHR(7)
x = INKEY(0)
SET COLOR TO
@ 3, 20 CLEAR TO 6, 60
ENDI
CASE x=22
DELE ALL FOR xm=' ' .AND. mm=0
PACK
APPE BLANK
DO WHILE LEN(LTRIM(TRIM(xm)))=0
@ 10, 2 SAY '' GET xm
READ
@ 10, 2 SAY ' '
@ 10, 4 SAY xm
ENDD
SET COLOR TO N/W
@ 10, 21 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
@ 10, 21 SAY pd1
ELSE
pd3 = LTRIM(TRIM(pd3))
IF pd=13
IF LEN(LTRIM(TRIM(pd3)))<>0
EXIT
ENDI
ENDI
ENDI
ENDD
SET COLOR 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 PICTURE 'x'
READ
IF pd='y' .OR. pd='Y'
DELE
PACK
@ 10, 4 SAY xm
@ 10, 21 SAY '********'
ENDI
@ 5, 26 SAY ' '
ELSE
?? CHR(7)
SET COLOR TO BG+/RB
@ 3, 20 CLEAR TO 6, 60
@ 4, 30 SAY '第一笔,请勿删除!'
@ 5, 30 SAY '按任意键继续......'
x = INKEY(0)
SET COLOR TO
@ 3, 20 CLEAR TO 6, 60
ENDI
CASE x=27
EXIT
OTHE
?? CHR(7)
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
*