查看: 1944|回复: 5

学位数据处理常用dbf替换命令

[复制链接]

已抛锚 成长值: 1035

beingVIP会员 发表于 2011-9-27 10:00:41 | 显示全部楼层 |阅读模式
购买主题 本主题需向作者支付 30 块医元 才能浏览

打赏列表共打赏了0次

cry
还木有人打赏~

已抛锚 成长值: 1035

 楼主| beingVIP会员 发表于 2011-9-27 10:25:16 | 显示全部楼层

学位数据处理常用dbf替换命令

sele 1
use dm
index on xh tag xh
sele 2
use mb
index on xh tag xh
set rela to xh into a
repl all b.lwlxm with a.lwlxm for b.xh=a.xh

已抛锚 成长值: 1035

 楼主| beingVIP会员 发表于 2013-3-19 15:08:47 | 显示全部楼层

学位数据处理常用dbf替换命令

repl all zzmmm with '13'
MODIFY STRUCTURE
repl all ZYDM with '100701' for zymc='护理学'
MODIFY STRUCTURE
repl all ZYDM with '100701' for zymc='护理学'
repl all ZYDM with '100201' for zymc='预防医学'
repl all ZYDM with '071502' for zymc='应用心理学'
repl all ZYDM with '100304' for zymc='医学检验'
repl all ZYDM with '100401' for zymc='口腔医学'
repl all ZYDM with '100801' for zymc='药学'
repl all ZYDM with '100301' for zymc='临床医学'
brow
MODIFY STRUCTURE
repl all XXXSM with '02' for xxxs='业余'
brow
MODIFY STRUCTURE
repl all HXWRQ with '20121226'
repl all ZJLXM with "01"
repl all XWSYDWM with '10366'
MODIFY STRUCTURE
repl all ZXXM with '张学军'
MODIFY STRUCTURE
repl all ZP with allt(sfzh)+'.jpg'
brow
MODIFY STRUCTURE
repl all XZXM with '张学军'
MODIFY STRUCTURE
repl all PYDWM with '10366'

已抛锚 成长值: 1035

 楼主| beingVIP会员 发表于 2013-6-4 15:25:59 | 显示全部楼层

学位数据处理常用dbf替换命令

repl all xwlb with '医学'
repl all xwlb with '理学' for xz='4'
repl all xwlb with '工学' for xz='4' and zymc='生物医学工程'
repl all xwlb with '法学' for xz='4' and zymc='法学'

已抛锚 成长值: 1035

 楼主| beingVIP会员 发表于 2015-7-28 18:05:26 | 显示全部楼层

学位数据处理常用dbf替换命令

COPY TO c:\users\administrator\desktop\13.xls TYPE XL5
COPY TO c:\users\administrator\desktop\14.xls TYPE XL5
COPY TO "d:\工作文件\11-12\11122\学籍\2012届毕业班\2012学位报送\12届毕业生学位授予名单.xls" TYPE XL5
COPY TO  q FOR sfzh='340211198012081018'
APPEND FROM  q

BROWSE
APPEND FROM w

BROWSE
APPEND FROM w
BROWSE
APPEND FROM w
BROWSE
APPEND FROM w
BROWSE
APPEND FROM 1
APPEND FROM 2
BROWSE
APPEND FROM 3
BROWSE
APPEND FROM 1
APPEND FROM 2
APPEND FROM 3
BROWSE
MODIFY STRUCTURE
BROWSE
MODIFY STRUCTURE
BROWSE
APPEND FROM 4
BROWSE
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 68,68
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 69,71
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 69,69
REPORT FORM d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\学位证明书打印\xwzmsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 39,39
REPORT FORM d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\学位证明书打印\xwzmsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 40,44
REPORT FORM d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\学位证明书打印\xwzmsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 46,46
REPORT FORM d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\学位证明书打印\xwzmsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 45,45
DELETE ALL
[acl
PACK

BROWSE
MODIFY STRUCTURE
REPLACE ALL ZXXM WITH '曹云霞'
BROWSE
REPLACE ALL xbm WITH ALLTRIM(xbm)
REPLACE ALL zzmm WITH ALLTRIM(zzmm)
REPLACE ALL zzmmm WITH ALLTRIM(zzmmm)
REPLACE ALL xwsydwm WITH ALLTRIM(xwsydwm)
REPLACE ALL pydwm WITH ALLTRIM(pydwm)
MODIFY STRUCTURE
REPLACE ALL pydwm WITH ALLTRIM(pydwm)
BROWSE
REPLACE ALL xwlbm WITH ALLTRIM(xwlbm)
DELETE ALL

PACK

APPEND FROM 1
BROWSE
MODIFY STRUCTURE
COPY TO c:\users\administrator\desktop\1.xls TYPE XL5
DELETE ALL

PACK
app
REPLACE ALL hxwrq WITH ALLTRIM(hxwrq)
REPLACE ALL byny WITH ALLTRIM(byny)
REPLACE ALL wyksny WITH ALLTRIM(wyksny)
REPLACE ALL rxny WITH ALLTRIM(rxny)
REPLACE ALL zydm WITH ALLTRIM(zydm)
REPLACE ALL xz WITH ALLTRIM(xz)
REPLACE ALL xwlbm WITH ALLTRIM(xwlbm)
MODIFY STRUCTURE
REPLACE ALL xwlbm WITH ALLTRIM(xwlbm)
BROWSE
REPLACE ALL zp WITH ALLTRIM(zp)+'.jpg'
REPLACE ALL zp WITH ALLT(zp)+'.jpg'
REPLACE ALL zp WITH ALLT(sfzh)+'.jpg'
REPLACE ALL zp WITH ALLT(zjhm)+'.jpg'
MODIFY STRUCTURE
REPLACE ALL zp WITH ALLT(zjhm)+'.jpg'
BROWSE
REPLACE ALL xh WITH ALLTRIM(xh)
APPEND FROM 1
BROWSE
REPLACE ALL xwzsbh WITH 'Z103663201420'+ RIGHT('0000'+ALLTRIM(STR(RECNO())),4)
REPLACE ALL xwzsbh WITH '103663201420'+ RIGHT('0000'+ALLTRIM(STR(RECNO())),4)
sort on zymc,zyfx,xh to 3
sort on zymc,xh to 3
DELETE ALL
PACK

APPEND FROM 3
BROWSE
sort on zymc,xh to 1
sort on zymc,xh to 11
DELETE ALL
PACK

APPEND FROM 11
BROWSE
REPLACE ALL hxwrq WITH '20141226'
REPLACE ALL SUBSTR(xwzsbh,6,1) WITH '4'
sort on zymc,xh to 3
sort on zymc,xm to 3
REPLACE ALL xwzsbh WITH '103664201420'+ RIGHT('0000'+ALLTRIM(STR(RECNO())),4)
DELETE ALL
PACK
APPEND FROM 3
BROWSE
sort on zymc,xh to 3
REPLACE ALL csrq
REPLACE ALL csrq WITH SUBSTR(sfzh,7,8)
REPLACE ALL csrq WITH SUBSTR(zjhm,7,8)
COPY TO c:\users\administrator\desktop\14学位.xls TYPE XL5
COPY TO l FOR xm='刘芳侠'
APPEND FROM l
BROWSE
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 72,72
COPY TO h FOR hbs='h'
COPY TO h FOR hbs='H'
COPY TO Y FOR XM='杨绽青'
COPY TO l FOR xm='李亚奎'
APPEND FROM l

BROWSE
MODIFY STRUCTURE
BROWSE
MODIFY STRUCTURE
BROWSE
sort on zymc,xm to 3
REPLACE ALL xwzsbh WITH '103664201421'+ RIGHT('0000'+ALLTRIM(STR(RECNO())),4)
sort on zymc,xh to 3
sort on zymc,xh to 33
COPY TO b FOR bz='2007本硕连读硕士阶段'
REPORT FORM "d:\工作文件\11-12\11122\学籍\2012届毕业班\2012证书打印\学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 55,55
REPORT FORM "d:\工作文件\11-12\11122\学籍\2012届毕业班\2012证书打印\毕业证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 55,55
COPY To
COPY TO w FOR xm='王良华'
APPEND FROM w
BROWSE
APPEND FROM l
BROWSE
COPY TO x
COPY TO x FOR xm='肖俏'
APPEND FROM  x
BROWSE
APPEND FROM  x
COPY TO l FOR xm='刘星'
PACK
APPEND FROM l
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 73,75
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 73,73
REPORT FORM d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\学位证明书打印\xwzmsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 47,48
REPORT FORM "d:\工作文件\11-12\11122\学籍\2012届毕业班\2012证书打印\毕业证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 55,55
REPORT FORM "d:\工作文件\08-09\08092\学籍\2009届毕业生\证书打印\09毕业证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 574,574
REPORT FORM "d:\工作文件\14-15\14151\2015年第一次学位报送(20150130已报送)\学位证书打印2014\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 7,8
REPORT FORM "d:\工作文件\14-15\14151\2015年第一次学位报送(20150130已报送)\学位证书打印2014\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 1,1
REPORT FORM "d:\工作文件\14-15\14151\2015年第一次学位报送(20150130已报送)\学位证书打印2014\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 7,8
MODIFY STRUCTURE
sele 1
use dm
index on xh tag xh
sele 2
use mb
index on xh tag xh
set rela to xh into a
repl all b.xz with 'x' for a.xh=b.xh
COPY TO xzxk FOR xz='x'
PACK
MODIFY STRUCTURE
COPY TO "d:\工作文件\重修\2014-2015-2\重修证打印\xx.xls" TYPE XL5
REPORT FORM "d:\工作文件\重修\2014-2015-2\重修证打印\xwzmsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 1,1
REPORT FORM "d:\工作文件\重修\2014-2015-2\重修证打印\xwzmsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 2,2
REPORT FORM "d:\工作文件\重修\2014-2015-2\重修证打印\xwzmsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 3,65534
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 76,76
REPLACE ALL  zymc WITH ALLTRIM(zymc)
REPLACE ALL  xzbdm WITH ALLTRIM(xzbdm)
REPLACE ALL  xbbdm WITH ALLTRIM(xbbdm)
MODIFY STRUCTURE
REPLACE ALL  xbbdm WITH ALLTRIM(xbbdm)
BROWSE
COPY TO d:\22.dbf
COPY TO l FOR xz='4'
DELETE ALL FOR SUBSTR(csrq,1,4)='2004'
DELETE ALL FOR SUBS(rxrq,1,4)='2004'
DELETE ALL FOR SUBS(rxrq,1,4)='2005'
COPY TO lll FOR SUBS(rxrq,1,4)='2004'
COPY TO c:\users\administrator\desktop\xl_2009_10\111.xls TYPE XL5
COPY TO 4 FOR xz='4' OR xz =' '
COPY TO 4 FOR xz =' '
COPY TO 5 FOR xz =' '
COPY TO 5 FOR xz ='4'
COPY TO "d:\工作文件\13-14\13142\学籍\2014毕业班\14.xls" TYPE XL5
COPY TO c FOR xm='常晶晶'
APPEND FROM c

BROWSE
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 77,77
DELETE ALL
PACK
BROWSE
COPY TO y FOR xm='杨洋'
APPEND FROM y
BROWSE
REPORT FORM c:\users\administrator\desktop\学位证书\xwzsdy.frx NOEJECT NOCONSOLE TO PRINTER
MODIFY STRUCTURE
COPY TO 62 FOR yy>=62 AND zyk>=72 AND zf>=140
COPY TO 62 FOR yy>=61 AND zyk>=72 AND zf>=140
COPY TO 61 FOR yy>=61 AND zyk>=72 AND zf>=140
COPY TO 63 FOR yy>=63 AND zyk>=72 AND zf>=140
COPY TO w FOR xm='汪伟'
APPEND FROM w
BROWSE
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 78,78
COPY TO s FOR xm='孙陈国'
APPEND FROM s
BROWSE
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 79,79
REPORT FORM "d:\工作文件\14-15\14152\成教学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 1,1
REPORT FORM "d:\工作文件\14-15\14152\成教学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 2,2
REPORT FORM "d:\工作文件\14-15\14152\成教学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 1,1
REPORT FORM "d:\工作文件\14-15\14152\成教学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 2,100
REPORT FORM "d:\工作文件\14-15\14152\成教学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 101,200
REPORT FORM "d:\工作文件\14-15\14152\成教学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 201,500
REPORT FORM "d:\工作文件\14-15\14152\成教学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 496,500
REPORT FORM "d:\工作文件\14-15\14152\成教学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 501,600
COPY TO c:\users\administrator\desktop\bs.xls TYPE XL5
REPORT FORM "d:\工作文件\14-15\14152\成教学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 601,65534
APPEND FROM y
BROWSE
APPEND FROM y
REPORT FORM d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\学位证明书打印\xwzmsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 49,49
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 80,80
COPY TO c:\users\administrator\desktop\15届毕业生信息.xls TYPE XL5
COPY TO c:\users\administrator\desktop\2015届本硕连读预计毕业生信息.xls TYPE XL5
COPY TO c:\users\administrator\desktop\10本硕本科阶段毕业生信息.xls TYPE XL5
COPY TO c:\users\administrator\desktop\10本硕本科阶段毕业生信息2.xls TYPE XL5
COPY TO c:\users\administrator\desktop\qx.xls TYPE XL5
APPEND FROM 2
APPEND FROM 3
BROWSE
APPEND FROM 3
BROWSE
SORT TO 2 ON
COPY TO c:\users\administrator\desktop\2015毕业班\15毕业信息初稿20150526.xls TYPE XL5
DELETE ALL
PACK
APPEND FROM 1
BROWSE
COPY TO c:\users\administrator\desktop\2015毕业班\15毕业信息初稿20150526.xls TYPE XL5
DELETE ALL
PACK
APPEND FROM 22
BROWSE
COPY TO l FOR zymc='临床医学' AND xz='4'
DELETE ALL FOR zymc='临床医学' AND xz='4'
PACK
DELETE ALL FOR ksh='11340881151043'
PACK
BROWSE
COPY TO 10bs FOR bz<>''
COPY TO 10bs FOR bz<>' '
COPY TO c:\users\administrator\desktop\2015毕业班\10bs.xls TYPE XL5
REPLACE ALL xz='5'
REPLACE xz='5'
REPLACE all xz WITH '5'
BROWSE
REPORT FORM "d:\工作文件\14-15\14152\成教学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 76,78
REPORT FORM "d:\工作文件\14-15\14152\成教学位证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 28,41
COPY 头
COPY TO 08bs FOR cc='研究生'
COPY TO 08bs FOR cc='硕士研究生'
COPY TO c:\users\administrator\desktop\2015毕业班\08bs.xls TYPE XL5
MODIFY STRUCTURE
REPLACE ALL xh WITH ALLTRIM(xh)
BROWSE
MODIFY STRUCTURE
REPLACE ALL xh WITH ALLTRIM(xh)
MODIFY STRUCTURE
USE 1
SELECT 1
USE c:\users\administrator\desktop\dm.dbf

SET RELATION TO xh INTO dm
USE c:\users\administrator\desktop\dm.dbf
INDEX on xh TAG xh
SET RELATION TO xh INTO a
SELECT 2
USE mb
INDEX on xh TAG xh
SET RELATION TO xh INTO a
REPLACE ALL b.jn WITH a.jn FOR b.xh=a.xh
COPY TO k FOR jn=' '
COPY TO k FOR jn=''
COPY TO k FOR jn is null
COPY TO k FOR jn=' '
COPY TO c:\users\administrator\desktop\zp.xls TYPE XL5
COPY TO c:\users\administrator\desktop\2015届毕业班实习成绩处理.xls TYPE XL5
MODIFY STRUCTURE
REPLACE ALL xkkh WITH '(2014-2015-2)-30000002-00000000-'
BROWSE
sele 1
use dm

sele 1
use dm
index on ksh tag ksh
sele 2% {/ ~! @+ y' @1 u- S
use mb3 m8 B) [3 W( @% _9 I) y
index on ksh tag ksh
set rela to ksh into a
repl all b.zymc with a.zymc for b.ksh=a.ksh) Z(
MODIFY STRUCTURE
sele 1
use dm
REPLACE ALL xh WITH ALLTRIM(xh)
sele 1
use dm
index on xh tag xh
sele 2
use mb
index on xh tag xh
set rela to xh into a
repl all b.erji with a.erji for b.xh=a.xh
repl all b.siji with a.siji for b.xh=a.xh
repl all b.liuji with a.liuji for b.xh=a.xh
COPY TO sijierji FOR erji<'60'
COPY TO sijierji FOR erji<'60' OR siji<'400'
COPY TO liuji FOR liuji<'400' AND cc='硕士'
COPY TO c:\users\administrator\desktop\2015毕业班\六级未过400名单.xls TYPE XL5
COPY TO c:\users\administrator\desktop\2015毕业班\四级二级未过名单.xls TYPE XL5
COPY TO "d:\工作文件\14-15\14152\成教学位证书打印\2014年成人教育学位.xls" TYPE XL5
COPY TO c:\users\administrator\desktop\毕业班名单.xls TYPE XL5
COPY TO c:\users\administrator\desktop\预审.xls TYPE XL5
REPLACE ALL xz WITH '5' FOR xz='7'
COPY TO bs FOR bz='10'
COPY TO bs FOR bz='10本硕'
COPY TO bs FOR bz='本硕'
COPY TO bs FOR bz='2010本硕本科阶'
sort on ksh to 1
REPLACE ALL byrq WITH '20150701'
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\毕业证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 1,1
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\毕业证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\毕业证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 2,100
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\毕业证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 101,458
repl all xwlb with '理学' for zymc='生物技术'
repl all xwlb with '法学' for zymc='法学'
repl all xwlb with '理学' for zymc='卫生检验'
repl all xwlb with '理学' for zyfx='药品监督与管理'
repl all xwlb with '理学' for zyfx='药品营销'
repl all xwlb with '理学' for zymc='中药学'
repl all xwlb with '医学' for xwlb=' '
repl all xwlb with '管理学' for zyfx='劳动与社会保障'
repl all xwlb with '管理学' for zymc='劳动与社会保障'
repl all zymc2 WITH ALLTRIM(zymc)+"(ALLTRIM(zyfx))"
repl all zymc2 WITH ALLTRIM(zymc)+"("+ALLTRIM(zyfx)+"+"
repl all zymc2 WITH ALLTRIM(zymc)+"("+ALLTRIM(zyfx)+")"
repl all zymc2 WITH ALLTRIM(zymc)+"("+ALLTRIM(zyfx)+")" FOR zyfx<>' '
repl all zymc2 WITH ' ' FOR zyfx=' '
repl all xwlb with '理学' for zymc='食品质量与安全'
repl all xwlb with '工学' for zymc='生物医学工程'
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\毕业证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 671,1000
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\毕业证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 1001,1500
COPY TO fxz FOR zyfx<>' '
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\毕业证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 1501,65534
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\08本硕毕业证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 459,670
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\专升本毕业证书打印2014\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 353,353
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\专升本毕业证书打印2014\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 354,380
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\专升本毕业证书打印2014\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 356,380
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\毕业证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 1748,1748
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\毕业证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 353,353
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\毕业证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 380,380
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\08本硕专业学位证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 481,670
MODIFY STRUCTURE
REPLACE ALL xh WITH ALLTRIM(xh)
sele 1
use dm
index on xh tag xh
sele 2
use mb
index on xh tag xh
set rela to xh into a
repl all b.jd with a.jd for b.xh=a.xh
BROWSE
COPY TO 2 FOR jd<>' '
COPY TO 2 FOR jd<>''
COPY TO 2 FOR jd<> ' '
COPY TO c:\users\administrator\desktop\222.xls TYPE XL5
COPY TO 2 FOR jd<'2'
c
REPLACE ALL  jd WITH ALLTRIM(jd)
COPY TO 2 FOR jd<>' '
COPY TO 2 FOR jd<>' ' OR siji<'400'
COPY TO 2 FOR jd<>' ' OR siji<'400' OR erji<'60'
COPY TO c:\users\administrator\desktop\绩点2.0和四六级计算机二级名单.xls TYPE XL5
REPLACE ALL zyfx WITH '医疗保险' FOR zymc='劳动与社会保障'
REPLACE ALL zymc2 WITH ALLTRIM(zymc)+ALLTRIM(zyfx) FOR zymc='劳动与社会保障'
REPLACE ALL zymc2 WITH ALLTRIM(zymc)+ALLTRIM(zyfx) FOR zyfx<>' '
REPLACE ALL zymc2 WITH ALLTRIM(zymc) FOR zyfx=' '
REPLACE ALL zymc2 WITH ALLTRIM(zymc)+'('+ALLTRIM(zyfx)+')' FOR zyfx<>' '
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\方向证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 439,458
COPY TO fxz FOR zyfx<>' '
REPLACE ALL zyfxzh WITH 'FX103662015'+ RIGHT('0564'+ALLTRIM(STR(RECNO())),4) for zymc='劳动与社会保障'
SORT TO 2 ON zyfxzh
COPY TO c:\users\administrator\desktop\2015毕业班\2222.xls TYPE XL5
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\方向证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 439,458
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\方向证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 439,439
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\学位证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 252,252
COPY TO c:\users\administrator\desktop\2015毕业班\2015届毕业班证书发放表.xls TYPE XL5
APPEND FROM p
BROWSE
REPLACE ALL bjyjl WITh
REPLACE ALL bjyjl WITH '毕业'
APPEND FROM p
REPLACE ALL xzm WITH '曹云霞'
sele 1
use dm
index on xh tag xh
sele 2
use mb
index on xh tag xh
set rela to xh into a
repl all b.bk with a.bk for b.xh=a.xh
sele 1
use dm
index on xh tag xh
sele 2
use mb
index on xh tag xh
set rela to xh into a
repl all b.bz with 'bb'for b.xh=a.xh
repl all b.xh with 'bb'for b.xh=a.xh
COPY TO xx FOR xh<>'bb'
REPLACE ALL xzm WITH '曹云霞'
MODIFY STRUCTURE
sele 1
use dm
sele 1
use dm
index on xh tag xh
sele 2
use mb
index on xh tag xh
set rela to xh into a
repl all b.hbs with 'H'for b.xh=a.xh
COPY TO c:\users\administrator\desktop\2015毕业班\毕业名单.xls TYPE XL5
DELETE ALL FOR bz='2010本硕'
PACK
COPY TO n FOR xb='男'
COPY TO z FOR xm='朱振丹'

APPEND FROM z
BROWSE
APPEND FROM z
BROWSE
COPY TO c FOR xm='陈海瑞'
COPY TO h FOR xm='胡文'
COPY TO h FOR xm='李永琴' OR xm='张杰'
APPEND FROM h
BROWSE
COPY TO c FOR xm='储剑虹'
BROWSE
APPEND FROM c
APPEND FROM s
BROWSE
COPY TO w FOR xm='王永林'
APPEND FROM w
COPY TO h FOR xm='胡一平'
COPY TO g FOR xm='高昌进'
APPEND FROM g
BROWSE
COPY TO w FOR xm='王永林' OR xm='胡一平' OR xm='高昌进'
DELETE ALL FOR xm='王永林' OR xm='胡一平' OR xm='高昌进'
PACK
APPEND  FROM w
BROWSE
COPY TO h FOR xm='胡一平'
APPEND FROM h
PACK
BROWSE
COPY TO y FOR xm='杨学红'
APPEND  FROM y
COPY TO w FOR xm='汪颀'
APPEND  FROM w
BROWSE
APPEND  FROM w
COPY TO y FOR xm='姚玮'
COPY TO y FOR xm='姚  玮'
APPEND FROM y
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 81,93
REPORT FORM d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\学位证明书打印\xwzmsdy.frx NOEJECT NOCONSOLE TO PRINTER RANGE 50,65534
REPORT FORM "d:\工作文件\补办毕业证明书、学位证明书打印\毕业学位补办登记打印\毕业证明书打印\复件 byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 90,65534
COPY TO w FOR SUBSTR(ksh,10,1)='1'
REPORT FORM "d:\工作文件\11-12\11122\学籍\2012届毕业班\2012证书打印\方向证书打印\byzsdy.frx" NOEJECT NOCONSOLE TO PRINTER RANGE 1262,1262
COPY TO bs FOR bz='2008本硕'
COPY TO bs FOR bz='2008级本硕'
COPY TO bs FOR cc='硕士'
COPY TO bk FOR cc<>'硕士' AND hbs<>'H'
MODIFY STRUCTURE
APPEND FROM bk
BROWSE
MODIFY STRUCTURE
BROWSE
MODIFY STRUCTURE
BROWSE
COPY TO c:\users\administrator\desktop\exm.xls TYPE XL5
MODIFY STRUCTURE
sele 1
use dm
index on xh tag xh
sele 2
use mb
index on xh tag xh
set rela to xh into a
repl all b.xmpy with a.xmpy for b.xh=a.xh
REPLACE ALL  zp WITH ALLTRIM(sfzh)+'.jpg'
REPLACE ALL  zjhm WITH ALLTRIM(zjhm)
REPLACE ALL  zjhm WITH ALLTRIM(sfzh)
repl all zjlxm with '01'
repl all PYDWM with '10366'
repl all XWLBM with '410'
repl all XWLBM with '407' for xwlb='理学'
repl all XWLBM with '403' for xwlb='法学'
repl all XWLBM with '412' for xwlb='管理学'
repl all XWLBM with '408' for xwlb='工学'
repl all rxny with subs(rxrq,1,6)
repl all BYNY with subs(byrq,1,6)
repl all HXWRQ with subs(byrq,1,8)
repl all SFFXXW with '否'
repl all SFDEXW with '否'
repl all zzmmm with '01 ' for zzmmm='中共党员'
repl all zzmmm with '02 ' for zzmmm='中共预备党员'
repl all zzmmm with '01 ' for zzmm='中共党员'
repl all zzmmm with '02 ' for zzmm='中共预备党员'
repl all zzmmm with '03 ' for zzmm='共青团员'
repl all zzmmm with '13 ' for zzmm='群众'
repl all mzm with '01 ' for mz='汉族'
repl all mzm with '02 ' for mz='蒙古族'
repl all mzm with '03 ' for mz='回族'
repl all mzm with '04 ' for mz='藏族'
repl all mzm with '06 ' for mz='苗族'
repl all mzm with '15 ' for mz='土家族'
repl all mzm with '11 ' for mz='满族'
repl all zxxm with '曹云霞'
repl all xzxm with '曹云霞'
DELETE ALL FOR cc<>'硕士研究生'
PACK
BROWSE
MODIFY STRUCTURE
sele 1
use dm
index on xh tag xh
sele 2
use mb
index on xh tag xh
set rela to xh into a
repl all b.LWTM with a.LWTM for b.xh=a.xh
repl all b.LWGJC with a.LWGJC for b.xh=a.xh
repl all b.LWLXM with a.LWLXM for b.xh=a.xh
repl all b.LWXTLYM with a.LWXTLYM for b.xh=a.xh
repl all b.DSXM with a.DSXM for b.xh=a.xh
repl all xwsydwm with '10366'
COPY TO bs FOR cc='硕士'
COPY TO bk FOR cc<>'硕士' AND hbs<>'H'
REPLACE ALL xwlbm WITH '31051'
COPY TO bk FOR cc='本科' AND bz='2010级本硕'
COPY TO bk FOR cc='本科' AND bz='2010本硕'
REPLACE ALL xwzsbh WITH ' ' FOR hbs='h'
REPLACE ALL xwzsbh WITH ' ' FOR hbs='H'
repl all xbm with '2' for xb='女'
repl all xbm with '1' for xb='男'
COPY TO k FOR mzm is null
COPY TO k FOR mzm=' '
R
EPLACE ALL mzm='19' FOR mz='黎族'
REPLACE ALL mzm WITH '19' FOR mz='黎族'
repl all gbm with '156'
repl all zyxwlym with '105199' for cc='硕士研究生'
repl all ksfsm with '01' for cc='硕士研究生'
repl all qzxwm with '410' for cc=‘硕士研究生’
repl all qzxwm with '410' for cc='硕士研究生'
repl all qzxlm with '3' for cc='硕士研究生'
repl all hqzxwny with '201307' FOR cc='硕士研究生'
repl all qzxwdwm with '10366' for cc='硕士研究生'
repl all qxm with '01' for  cc='硕士研究生'
repl all gzdwxzm with '24' for cc='硕士研究生'
repl all gzdwssm with '34' for cc='硕士研究生'
COPY TO bs FOR cc='硕士'
COPY TO bk FOR cc<>'硕士' AND hbs<>'H'
repl all HKSZSSM with '34' for cc='硕士研究生'
repl all gzxzm with '9' for cc='硕士研究生'
COPY TO bs FOR cc='硕士' AND hbs<>'H'
COPY TO bk FOR cc<>'硕士' AND hbs<>'H'
COPY TO bs FOR cc='硕士' AND hbs<>'H'
COPY TO h FOR xm='王正' OR xm='程旭' OR xm='朱全伟' OR xm='陈峰'
PACK
BROWSE
REPORT FORM c:\users\administrator\desktop\2015毕业班\2015证书打印\学位证书打印2015\byzsdy.frx NOEJECT NOCONSOLE TO PRINTER

已抛锚 成长值: 1035

 楼主| beingVIP会员 发表于 2017-3-16 10:46:53 | 显示全部楼层
本帖为密码帖 ,请输入密码 
您需要登录后才可以回帖 登录 | 入住

本版积分规则