一些很有用的VFP代码.doc

一些很有用的VFP代码 ———————————————————————— 退出按钮代码 if?messagebox(你真的要退出本系统吗?,4+32+256,请确认)=7??用户回答否??? ???nodefault??表示不进行默认的行为模式??? else??? ???clear?events??是否要支行clear,视需要而定 ???quit?? endif ———————————————————————— 导入EXCEL数据，另存为DBF表 IMPORT?FROM?(GETFILE(XLS,?,,?0,?选择一个EXCEL表，然后另存为DBF表))?TYPE?XL5?或XL8 COPY?TO?PUTFILE(,?,?DBF) lcTmpTable=DBF() CLOSE?DATABASES? Delete?FILE?(lcTmpTable) ———————————————————————— VFP中导入EXCEL，使原来EXCEL第一行变为DBF字段名 import?from?E:\test\原表.xls?type?xls copy?to?test.dbf?for?recno()1 go?top lnFieldNum=fcount() lcString=Select? for?lnCount=1?to?lnFieldNum ????lcString=lcString+field(lnCount)+?As?+alltrim(evaluate(field(lnCount)))+, endfor lcString=left(lcString,len(lcString)-1)+?into?table?ttt2?from?test lcString ———————————————————————— 超链接代码（文本或按钮click） ThisForm.HyperLink1.NavigateTo() ———————————————————————— 改变路径 set?path?to?D:\完成 ———————————————————————— 获取当前程序所在路径 　*方法一：??? ??**********************??? ??PUBLIC???LCNowpath??? ??LCNowpath=SYS(5)+SYS(2003)+\??? ??set???default???to???LCNowpath?????设置默认工作目录??? ??**********************??? ???? ??*方法二：??? ??**********************??? ??PUBLIC???LCSys16,LCNowpath??? ??LCSys16=SYS(16)?????????????获取当前程序所在的全路径，包括当前运行程序名。??? ??LCNowpath=LEFT(LCsys16,RAT(\,LCSys16,1))???????获取当前运行程序所在工作目录。??? ??set???default???to???LCNowpath?????设置默认工作目录??? ??**********************??? ???? ??*方法三：（指定程序名）??? ??**********************??? ??PUBLIC???LCNowpath??? ??prgname=你的程序名.exe??? ??prglen=len(prgname)??? ??allname=allt(sys(16))??? ??alllen=len(allname)??? ??LCNowpath=substr(allname,1,alllen-prglen)??? ??set???default???to???LCNowpath?????设置默认工作目录??? ??********************** PUBLIC???LCSys16,LCNowpath??? ??LCSys16=SYS(16)?????????????获取当前程序所在的全路径，包括当前运行程序名。??? ??LCNowpath=LEFT(LCsys16,RAT(\,LCSys16,1))???????获取当前运行程序所在工作目录。??? ??messagebox(LCNowpath)???程序文件所在的当前路径?? ———————————————————————— 记住打开文件路径，并将处理结果输出到该路径中 xfile=getfile(xls,?,,?0,?选择需要处理的文件) import?from?xfile?type?xls if?empty(xfile) retu endif set?path?to?justpath(xfi