T
thlt
Unregistered / Unconfirmed
GUEST, unregistred user!
我在学习反编译VFP程序时遇到一句乱码,是关于UPDATE语句的。
哪位VFP老手帮忙看一下,下面???处是什么?
UPDATE ON XXDM FROM SCHOOL ???EClause[C3] XXMC ???EClause[D1] SCHOOL.XXMC , XZ ;
???EClause[D1] SCHOOL.XZ
-------------------------- 全文如下:
LCMSG = ' 正在置换学校名称性质... '
WAIT WINDOW AT SROWS() / 2 + 1 , (SCOLS() - LEN(LCMSG)) / 2 - 15 NOCLEAR NOWAIT LCMSG
SELECT 1
USE ./xxjzgtj/teacher
GO TOP
RYBH0 = RYBH
do
WHILE .NOT. EOF()
IF RYBH > RYBH0
RYBH0 = RYBH
ENDIF
SKIP
ENDDO
RYBH0 = ALLTRIM(RYBH0)
SELECT 2
USE ./xxjzgtj/school
INDEX ON XXDM TO ./xxjzgtj/code0
SELECT 1
INDEX ON XXDM TO ./xxjzgtj/code
I = 1
do
WHILE I < VAL(RYBH0) + 1
II = STR(I / VAL(RYBH0) * 100,3) + '%'
lcMsg = " 正在置换学校名称性质[&ii.]... "
WAIT WINDOW AT SROWS() / 2 + 1 , (SCOLS() - LEN(LCMSG)) / 2 - 15 NOCLEAR NOWAIT LCMSG
SET FILTER TO RYBH = RIGHT('000' - ALLTRIM(STR(I)),3)
UPDATE ON XXDM FROM SCHOOL ???EClause[C3] XXMC ???EClause[D1] SCHOOL.XXMC , XZ ;
???EClause[D1] SCHOOL.XZ
I = I + 1
ENDDO
WAIT CLEAR
= MESSAGEBOX(' 已将全部教职工代码库按学校代码库进行名称性质置换! ','提示信息')
CLOSE ALL
THISFORM.RELEASE
---------------------- 这里先谢过了!我剩余的分不多,请见谅!
哪位VFP老手帮忙看一下,下面???处是什么?
UPDATE ON XXDM FROM SCHOOL ???EClause[C3] XXMC ???EClause[D1] SCHOOL.XXMC , XZ ;
???EClause[D1] SCHOOL.XZ
-------------------------- 全文如下:
LCMSG = ' 正在置换学校名称性质... '
WAIT WINDOW AT SROWS() / 2 + 1 , (SCOLS() - LEN(LCMSG)) / 2 - 15 NOCLEAR NOWAIT LCMSG
SELECT 1
USE ./xxjzgtj/teacher
GO TOP
RYBH0 = RYBH
do
WHILE .NOT. EOF()
IF RYBH > RYBH0
RYBH0 = RYBH
ENDIF
SKIP
ENDDO
RYBH0 = ALLTRIM(RYBH0)
SELECT 2
USE ./xxjzgtj/school
INDEX ON XXDM TO ./xxjzgtj/code0
SELECT 1
INDEX ON XXDM TO ./xxjzgtj/code
I = 1
do
WHILE I < VAL(RYBH0) + 1
II = STR(I / VAL(RYBH0) * 100,3) + '%'
lcMsg = " 正在置换学校名称性质[&ii.]... "
WAIT WINDOW AT SROWS() / 2 + 1 , (SCOLS() - LEN(LCMSG)) / 2 - 15 NOCLEAR NOWAIT LCMSG
SET FILTER TO RYBH = RIGHT('000' - ALLTRIM(STR(I)),3)
UPDATE ON XXDM FROM SCHOOL ???EClause[C3] XXMC ???EClause[D1] SCHOOL.XXMC , XZ ;
???EClause[D1] SCHOOL.XZ
I = I + 1
ENDDO
WAIT CLEAR
= MESSAGEBOX(' 已将全部教职工代码库按学校代码库进行名称性质置换! ','提示信息')
CLOSE ALL
THISFORM.RELEASE
---------------------- 这里先谢过了!我剩余的分不多,请见谅!