English
MM.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：10k
源码类别：
企业管理
开发平台：
VFP
- 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
- *
