*!* 将运行库VFP9R及VFP9RCHS改名:

*!* 假如:

*!* VFP9R.DLL    =>    AAAAA.DLL

*!* VFP9RCHS.DLL => BBBBBCHS.DLL

*!* 1:打开VFP9RCHS.DLL,将里面的VFP9R%s改成BBBBB%s；将VFP9RCHS.DLL改名为BBBBBCHS.DLL；

*!* 2:打开VFP9R.DLL,将里面的VFP9R.DLL改成AAAAA.DLL；将VFP9R.DLL改名为AAAAA.DLL；

FUNCTION resizeimage(pSourceFileNAme as String,pNewFileNAme as String,nHeight as long)

*******************************************

算法制作:行者孙(QQ:310727570)

*******************************************

VFP应用程式算法群:12787940

? A2B (19820627,16)

*!* 2010.08.27 By HARE≌XuWu

FUNCTION A2B

 LPARAMETERS lnValue, lnType

 lcResult = []

 DO WHILE lnValue # 0

  lnTem = MOD(lnValue,lnType)

  lnTem = lnTem + ASC([0]) + IIF(lnTem >= 10,7,0)

** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **

* 程序：中国大陆18位身份证号码校验函数

* 作者：宋祎礽

* 公司：SYRSOFT(R) 上海 中国

* 版权所有(C)宋祎礽 保留所有权利

** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **

* 语法：IdVerify(cExpression [,nModel])

cRptFile = [AAA.FRX]

USE (cRptFile)

LOCATE

REPLACE Expr WITH "", Tag WITH "", Tag2 WITH ""

*!* Above line releases and following inserted

*!* to preserve the Report ORIENTATION

放这里备份

原本想一个一个弄上来，后来一看太麻烦了，