一些很有用的VFP代码.doc

一些很有用的VFP代码退出按钮代码ifmessagebox(你真的要退出本系统吗?,4+32+256,请确认)=7&用户回答否nodefault&表示不进行默认的行为模式elseclearevents&是否要支行clear,视需要而定quitendif导入EXCEL数据，另存为DBF表IMPORTFROM(GETFILE(XLS,0,选择一个EXCEL表，然后另存为DBF表)TYPEXL5&或XL8COPYTOPUTFILE(,DBF)lcTmpTable=DBF()CLOSEDATABASESDeleteFILE(lcTmpTable)VFP中导入EXCEL，使原来EXCEL第一行变为DBF字段名importfromE:test原表.xlstypexlscopytotest.dbfforrecno()1gotoplnFieldNum=fcount()lcString=SelectforlnCount=1tolnFieldNumlcString=lcString+field(lnCount)+As+alltrim(evaluate(field(lnCount)+,endforlcString=left(lcString,len(lcString)-1)+intotablettt2fromtest&lcString超链接代码（文本或按钮click）ThisForm.HyperLink1.NavigateTo()改变路径setpathtoD:完成获取当前程序所在路径*方法一：*PUBLICLCNowpathLCNowpath=SYS(5)+SYS(2003)+setdefaultto&LCNowpath&设置默认工作目录*方法二：*PUBLICLCSys16,LCNowpathLCSys16=SYS(16)&获取当前程序所在的全路径，包括当前运行程序名。LCNowpath=LEFT(LCsys16,RAT(,LCSys16,1)&获取当前运行程序所在工作目录。setdefaultto&LCNowpath&设置默认工作目录*方法三：（指定程序名）*PUBLICLCNowpathprgname=你的程序名.exeprglen=len(prgname)allname=allt(sys(16)alllen=len(allname)LCNowpath=substr(allname,1,alllen-prglen)setdefaultto&LCNowpath&设置默认工作目录*PUBLICLCSys16,LCNowpathLCSys16=SYS(16)&获取当前程序所在的全路径，包括当前运行程序名。LCNowpath=LEFT(LCsys16,RAT(,LCSys16,1)&获取当前运行程序所在工作目录。messagebox(LCNowpath)&程序文件所在的当前路径记住打开文件路径，并将处理结果输出到该路径中xfile=getfile(xls,0,选择需要处理的文件)importfrom&xfiletypexlsifempty(xfile)retuendifsetpathtojustpath(xfile)dircopyto(getfile(xls,0,将处理结果存为EXCEL文件)typexls筛选A表中相同记录到B表selectdistinct*from表AintotableD:完成表B如果A表品名包含B表品名而且A表产地包含B表产地，将符合记录筛选到新表select*froma,bwhereAT(alltrim(b.品名),a.品名)0andAT(alltrim(b.产地),a.产地)0selectb.品名,a.产地,b.生产单位,b.规格,b.批号froma,bwhereAT(alltrim(b.品名),a.品名)0andAT(alltrim(b.产地),a.产地)0删除产地字段中含有云南的记录deleforAT(云南,产地)0合并结构相同的表方法1USE1.DBFCOPYSTRUTO总表USE总表FORI=1TO1000APPENDFROM(ALLTRIM(STR(I)+.DBF)ENDFOR方法2gnDbcnumber=ADIR(gadbf,*.dbf)&创建一个数组FORnCount=1TOgnDbcnumber&遍历所有文件中扩展名为.