摘要：FUNCTION GetAllPath LPARAMETERS tcRoot LOCAL ARRAY laDirs[1],aDirCount[1] LOCAL i, n, m, lnRec, lcTblDir, lcDir, lnCount, lnSelect, lcPathStr lnSelect = SELECT() lcTblDir= SYS(2015) CREATE CURSOR &lcTblDir (fldsn I(3),flddir C(200)) INSERT INTO &lcTblDir. (fldsn,flddir)... 阅读全文

摘要：ClearldDate=Date()ldDateB={^2004/02/29}ldDateE={^2005/02/28}*--月天数?"月天数",32-Day(ldDate-Day(ldDate)+32)*--月初日期?"月初日期",ldDate-Day(ldDate)+1?"月初日期",Date(Year(ldDate),Month(ldDate),1)*--月末日期?"月末日期",Gomonth(ldDate-Day(ldDate)+1,1)-1?"月末日期",Gomonth(ldDate, 阅读全文

摘要：VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。比如我们可以利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍：*!* 1．创建Excel对象oExcel=Createobject("Excel.application")*!* 2．添加新工作簿oExcel.Workbooks.Add*!* 3．设置第3个工作表为激活工作表oExcel.Worksheets("sheet3").Ac 阅读全文

摘要：*环境：VFP8、XP SP3lcCMD = '"D:\WinRAR3.0\WinRAR.exe" a "c:\Logo.rar" "c:\Logo.bmp" -ep' &&压缩oWsh = CreateObject("wscript.shell")oWsh.Run(lcCMD, 0, .T.) &&隐藏程序窗口，等待程序运行完毕，再运行下一条命令*窗口显示模式取值：* Hide = 0 '不显示窗口* MaximizedFocus = 3 '最大化显 阅读全文

摘要：WAIT WINDOW registry(1,3,"SOFTWARE\Microsoft\visualfoxpro",,"abc","19821207",1)***FOR VFP ***以下读写注册表的自定义函数：*------------------------------------------------*操作注册表*语法：*创建子键：registry(0,主键序号,子键名,新建子键名)*写注册表：registry(1,主键序号,子键名,,注册项,项目值)*读注册表：registry(2,主键序号,子键名,,注册项)*删除子键： 阅读全文