完整版VFP学习笔记.docxVIP

第 PAGE \* Arabic 20 页 【076】一直打开某表的别名为vcAlias,如何知道所对应的文件名及路径？ 代码如下: Local lcFile lcFile=Dbf(vcAlias) DBF( ) 函数返回指定工作区中打开的表名，或根据表别名返回表名。 语法: DBF([cTableAlias | nWorkArea]) 参数 cTableAlias 指定表的别名。 nWorkArea 指定工作区编号。如果省略 cTableAlias 和 nWorkArea，DBF( ) 返回当前工作区中打开的表名；如果指定的工作区中没有打开的表，DBF( )返回一个空字符串；如果表没有 cTableAlias 别名，则 Visual FoxPro 产生错误。有关创建表别名的详细内容，请参见 USE 命令. 返回值: 字符型 说明 当 SET FULLPATH 设置为 ON?时，DBF( ) 返回表的路径和表名；当 SET FULLPATH 设置为 OFF 时，DBF( ) 返回表所在的驱动器和表名。　 示例 下面的示例从工作区和别名中返回表名，当所有的表关闭后，返回空串。 CLOSE DATABASES OPEN DATABASE (HOME(2) + Data\testdata) USE customer IN 2 ALIAS mycust CLEAR ? DBF(2) Displays customer.dbf with its path ? DBF(mycust) Displays customer.dbf with its path CLOSE DATABASES ? DBF( ) Displays the empty string 【077】把当前运行程序所在的路径设置为默认路径的代码片段： Local lcOldPath,lcSys16,lcPath lcOldPath=Curdir() 保存当前路径，以便恢复。 lcSys16=Sys(16) lcPath=JustPath(lcSys16) lcPath=Addbs(lcPath) Set Default To (lcPath) *--其他代码 Set Default To (lcOldPath) 恢复原来的路径 Return 【078】一种数字排列方式的公式化 问题如下表所示： 列 行 1 2 3 4 5 … 1 1 4 7 10 13 … 2 2 5 8 11 14 … 3 3 6 9 12 15 … 其第i(i=1,2,3)行，第j(j=1,2,3,…)列的元素a(I,j)=3(j-1)+I,问:数字n是第几行，第几列元素？ 这里的n=1,2,3,4,… 结果：Row= 一般地： 列 行 1 2 3 … 1 1 P+1 2p+1 … 2 2 P+2 2p+2 … 3 3 P+3 2p+3 … … … … p P 2p 3p 其第i(i=1,2,3,…,p)行，第j(j=1,2,3,…)列的元素a(I,j)=p(j-1)+I,则数字n(n=1,2,3,…)的位置为： Row= 【079】关于身份证的几个函数 身份证出错信息分类： ·身份证号码不满15位。 ·性别与身份证号不符。 ·出生月份出错(不在1～12之间)。 ·出生日子出错(不在1～31之间)。 ·18位校验位出错。 ·18位身份证出生年出错。 检查原则： ·不满15位，只检查位数。15位检查年、月、日的越界关系，性别对应关系。 男: 身份证第15位是”13579”,女：身份证第15位是”02468” ·18位身份证除了检查15位的检查原则外，增加检查最后一位检验码的关系校验。 ·身份证第18位校验码的算法[GB11643-1999] 15位身份证的编码是把出生年扩展为4位，就是增加”19”(1900年以前出生的不适用) 计算公式: a 其中: i表示号码从右到左(包括校验码在内)的位置序号。 ai第i位置上的号码字符值。 Wi第i位置上的加权因子。 Wi=2(i-1)(mod 11) 示例： I 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 Ai 3 4 0 5 2 4 1 9 8 0 0 1 0 1 0 0 1 A1 Wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1 Ai*Wi 21 36 0 25 16 16 2 9 48 0 0 9 0 5 0 0 2 A1 ∑Ai*Wi 189 2 A1=∑Ai*Wi(mod 11)=189(mod 11)=2 校验码字符串为: 1 0 X 9 8 7 6 5 4 3 2