vfp使用的小技巧_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&100W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
vfp使用的小技巧
阅读已结束，下载本文需要
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
加入VIP
还剩10页未读，
定制HR最喜欢的简历
你可能喜欢软件封面示例
说明：&&VFP软件封面，可能对你有用(VFP cover software may be useful to you)
文件列表：
近期下载者：
相关文件：VFPjindian
说明：&&Vfp 文档 一些经典编程文章 可供初学者学习编程时使用(Realizartion documents some classic programming article programming for beginners to learn to use)
文件列表：
...\ADIR()函数.txt
...\ADIR函数.txt
...\api调用.txt
...\DDE函数.txt
...\fox02.txt
...\FoxPro中Windows API的调用.txt
...\treeview用法详解.txt
...\Vf5.txt
...\VFP 表单问题集.txt
...\vfp.txt
...\vfp002.txt
...\Vfp3.txt
...\Vfp3中表格的应用.txt
...\VFP5中实现带图标列表项.txt
...\VFP下的SQL和EXCEL技术.txt
...\VFP下的串口通讯.txt
...\VFP中任意改变报表栏目的方法.txt
...\VFP中对WIN32 API函数的调用格式.txt
...\VFP中屏蔽CTRL.txt
...\VFP中控制程序的退出.txt
...\VFP中操作多种文件.txt
...\VFP中的汉字输入编程.txt
...\Vfp事件模型.txt
...\vfp制作动画字幕.txt
...\VFP制作软件封面.txt
...\VFP外部库调用.txt
...\VFP实现电话拨号.txt
...\VFP开发多媒体.txt
...\VFP扩展库编程.txt
...\vfp技術論壇.txt
...\VFP报表生成器中巧构IIF.txt
...\vfp漂亮封面.txt
...\VFP环境下实时数据采集的实现.txt
...\vfp给程序变个脸.txt
...\vfp编黑客工具.txt
...\vfp网上文本转换.txt
...\VFp菜单设计器.txt
...\VFP表单生成器向导改进.txt
...\VFP设计豪华封面.txt
...\vfp设计跑马灯.txt
...\vfp调用系统用户.txt
...\VFP针对注册表编程.txt
...\Visual FoxPro 5.txt
...\Visual FoxPro 7.txt
...\Visual FoxPro 8.txt
...\Visual FoxPro11.txt
...\Visual FoxPro3.txt
...\Visual FoxPro扩展程序库 的编写要点.txt
...\为VFP程序美容.txt
...\也谈VFP的图表实现.txt
...\从VFP中导出数据.txt
...\任意报表.txt
...\低级文件操作.txt
...\关于VFP5中显示JPG图像.txt
...\关于报表打印预览的两点技巧.txt
...\取系统路径.txt
...\在VFP5的中英文自切换.txt
...\在VFP中制做异型窗口.txt
...\在VFP中调用MS.txt
...\在VFP中运行其它应用程序.txt
...\在VFP应用程序中调用MS.txt
...\基于JPEG格式的图像数据库实现.txt
...\基于VFP5的加密技术.txt
...\复制文件动画.txt
...\如何返回VFP的启动磁盘目录.txt
...\定制VFP向导.txt
...\定制透明的立体按钮.txt
...\将VFP数据转给Excel.txt
...\将Visual FoxPro的数据转给Excel.txt
...\小小点歌台.txt
...\帮助文件.txt
...\想到一个报表的方法.txt
...\技術論1.txt
...\把应用程序加到桌面.txt
...\报表打印.txt
...\换FP程序图标.txt
...\数据库技巧.txt
...\数据库技巧2.txt
...\数据库技巧3.txt
...\数据库技巧4.txt
...\无标题fox.txt
...\汉字拼音生成.txt
...\汉字输入法.txt
...\淡入淡出.txt
...\用FoxWeb在网上快速发布你的FOXPRO数据库.txt
...\用VFP6显示统计图.txt
...\用VFP内部选单命令实现编辑功能.txt
...\移动字幕的实现.txt
...\统计图在VFP中的实现.txt
...\编程技巧.txt
...\获取WINDOWS用户信息.txt
...\获取一些重要的系统路径.txt
...\详解“超级链接”控件.txt
...\超级链接.txt
...\通用录入界面.txt
...\通用组合框的实现.txt
...\隐藏VFP的主窗口.txt
近期下载者：
相关文件：VFP 主程序设计 表单窗口属性
我的图书馆
VFP 主程序设计 表单窗口属性
VFP编译后运行时一闪而过的原因及解决方法
&&本文所指的"表单窗口属性"是指那些不但影响表单本身的特征，而且对表单之外、项目之中的其它"元件"有影响的表单属性，它们是：&属性&&&&&&&&&&&&&& 意义 & & & & & & & & & & & & & & &&可选值(黑体为默认值)&&DeskTop & & & & & &指定表单是否包含在VFP主窗口中&&&&&&&&&&&&&&.F.或.T. &WindowType&&&&&&&& 指定表单对象运行时的动作&&&&&&&&&&&&&&&&0-无模式/1-模式&ShowWindow&&&&&&&& 指定在创建过程中表单窗口显示表单或工具栏 0-在屏幕中/1-在顶层表单中/3-做为顶层表单&&下面针对上述表单属性以及VFP中"桌面(DeskTop)、屏幕(Screen)、表单(Form)"等概念进行介绍。
&&1.表单是一个对象，外观表现上是一个窗口。VFP的主窗口也可以说是一个"表单"对象，它有一个固定的名字叫"_Screen"，"_Screen"是一个特殊的表单对象；&2."ShowWindow"是规定表单在"显示方面的从属关系"的属性 ShowWindow属性实际上仅有两种选择："作为顶层表单"与"在顶层表单中"。为了表达方便，我们把具有前者属性值的表单称为"顶层表单"，后者称为"从属表单"。二者在显示方面的不同地位是：顶层表单在Windows任务栏上有一席之地，从属表单却没有这种待遇；顶层表单最小化时，从属表单随之被隐藏，当顶层表单关闭后，从属表单随之关闭。 ShowWindow的第三种选择"在屏幕中（默认）"仅是"在顶层表单中"的一个特例，即为"在_Screen这个特定的顶层表单中"之意，选择此种属性值时，它一定是个"从属表单"了。_Screen具有"顶层表单"的一切显示特征。
&&从属表单不能独立地被显示，必须与他的"主表单"一起显示，这个"主表单"要么是一个顶层表单要么是VFP的窗口(_Screen)。不需要为一个"从属表单"指定一个"主表单"，"从属表单"打开时，自动选择当前的活动顶层表单作为其"主表单"，当然，如果选择了"在屏幕中"，则这个从属表单自然就以_Screen为其主表单了。
&&3."DeskTop"是规定表单在"显示方面的活动范围"的属性。
&&DeskTop仅对"从属表单"有意义，当从属表单的DeskTop=.f.时，它只能显示在它的"顶层表单"的尺寸之内，当这个顶层表单的尺寸比它的尺寸还小时，它将会被部分地遮住；当从属表单的DeskTop=.t.时，它的活动范围将不受它的顶层表单尺寸的限制，它可以显示在电脑屏幕的任何地方甚至之外。但不管它的位置离其顶层表单多远，一旦顶层表单最小化了，它会立即顺从地从电脑屏幕上消失。
&&4."ShowWindows"是规定表单被执行时的程序动作的属性&
&&分两种情况：&
&&(1)当表单的ShowWindow为"在屏幕中"和"在顶层表单中"时： a.当WindowType="模式"时，执行表单(DO FORM)后使得表单取得焦点，并且一直到它被关闭，在此期间，它的父窗口对象(可能是_Screen或一个顶层表单)的菜单系统及其所属的子表单都不能用。就是说，在表单存在期间，它将一直霸占着焦点. b.当WindowType="无模式"时，表单存在期间不会霸占焦点。有一个例外，当DeskTop=.t.时，执行它时会使系统菜单失效，而DeskTop=.f.时则不会。&
&&(2)当表单的ShowWindow为"做为顶层表单"时： 表单的WindowType属性不管是有模式还是无模式，都不会霸占焦点。
&&5.一般情况，用户的应用系统需要一个主表单（主窗口），您可以将_Screen作为这个主窗口，也可以将项目中的某个"顶层表单"做为"主窗口"，很难说那种更好。但在此笔者建议使用VFP主窗口做为用户系统的主窗口，这样可能会省去一些麻烦，因为VFP的很多工具条窗口被设计成只能开在_Screen中，例如在打印预览工具条等。
&&程序编译成EXE后，前者启动时先显示VFP主窗口，后者直接显示程序员自己设计的顶层表单。对于后者，为屏蔽VFP主窗口，一定要在Config.fpw写入Screen=off(Config.fpw应加入到项目中，这样连编后它将被包含进EXE中，这一来可减少提供安装文件的数量，二来也可避免被用户更改)。 另一方面，很多应用系统程序都喜欢有一个漂亮的或曰自以为漂亮的启动封面，然后再进入主控界面。如果一方面不希望在显示自己的启动封面前有VFP主窗口抢镜头，另一方面又想让VFP主窗口做为程序的主控界面时，解决办法是：设计一个"顶层表单"做为启动封面，config.fpw中仍须写Screen=off，然后在启动封面展示够了自己的魅力之后，用一句_Screen.Show将_Screen打回原形。
&&6.ShowWoindow与DeskTop属性仅规定了Form在显示方面的特征，而在"对象"这一更加高级的层面上，"顶层表单"与"从属表单"彼此是平级的，而_Screen虽然在显示方面与"顶层表单"具有相同的地位，但在对象层面却是高一级的东西，所有表单，不管你是"顶层表单"还是"从属表单"，都是它的子对象。
&&7."为什么我的程序编译后一闪而过？" 这个问题有两种可能性，第一种是程序执行完成并退出，第二种是程序正在执行，但界面被隐藏。对于第二种情况，可直接按"Ctrl-Alt-Del"键观察到。造成这两种情况的原因如下： 先看下面的一段示例程序，假如下面的示例程序是项目的主程序，并且应用项目以VFP主窗口做为自己的主窗口。
　　 *环境设置&
　　 Do Form myScreen &&启动封面表单 _
　　 Screen.Show &&显示VFP主窗口&
　　 Do myMenu.mpr &&安装菜单系统&
　　 RETURN
　　 为达到在显示启动封面之前不显示VFP主窗口的目的，在Config.fpw中已写Screen=off，当程序执行到Do Form myScreen这一句时，如果表单myScreen的ShowWindows属性被设为"在屏幕中"，则不管是在开发环境还是在编译环境下，程序都将停下来，表单被显示在_Screen中，而_Screen被隐藏了，因此表单跟着也被隐藏了，所以在屏幕上什么也看不见。这就是第二种情况的产生原因。为了避免这种错误的出现，必须将myScreen表单的ShowWindow的属性设为"做为顶层表单"，这样就可使在_Screen被隐藏的情况下，myScreen仍然可以被显示出来。但请注意，在此情况下，Do Form myScreen这句话执行后，程序并不能停下来，而是顺序地执行下去，一直到执行到RETURN后程序退出，这也就是著名的"一闪而过"现象了。为此必须在程序中包含事件处理命令Read Events使程序停下来，如下：
　　*环境设置
　　 Do Form myScreen &&启动封面表单&
　　 Read Events &&开始事件处理：使启动封面停下来&
　　 _ Screen.Show &&显示VFP主窗口&
　　 Do myMenu.mpr &&安装菜单系统&
　　 Read Events &&开始事件处理&
　　 RETURN
　　 程序执行Do Form myScreen后，将启动封面显示在屏幕上，然后向下执行到Read Events开始事件处理，此时启动封面表单必须由用户关闭或由表单事件关闭，否则程序将一直停在Read Events这一句上。不管myScreen表单由谁关闭，在关闭代码中必须包含一句Clear Events的停止事件处理命令，以便开始执行Read Events的下一句指令，顺序执行完成_Screen.Show及Do myMenu.mpr后，用户的主界面就建立完成，同理，此处还需要一个事件处理命令让程序再次停下来，开始菜单系统的命令处理，一般情况，菜单系统中将包含的"退出"项，其中有"Clear Events"清除事件处理代码，从而停止第二条"Read Events"事件处理命令，退出整个系统。&
[转]&[转]&[转]&[转]&[转]&[转]&
喜欢该文的人也喜欢vfp中.prg程序怎么做怎么用_百度知道
vfp中.prg程序怎么做怎么用
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：4238
获赞数：5478
VFP+SQL主程序编程 这是给初学者推荐一种格式，不一定最好，但它却实能正常运行 * 程序名：main.prg * 作用：整个系统的入口 * 路径：\你的程序目录\prgs Set Talk off Set Escap off * 开始，程序错误处理 ON ERROR DO Err.PRG With Error(), Message(), Message(1), Program(), Lineno(1) * 第一步，清理环境***************************** Close All && 关闭所有工作区中打开的数据库、表和索引，并选择工作区 1。 Clear Menus && 从内存中释放所有的内存变量和数组以及所有用户自定义菜单栏、 && 菜单和窗口的定义。 还从内存中删除所有用 DECLARE-ALL 注册 && 的外部 Windows 32 位动态链接库 (.DLLS)。 * 关闭系统菜单 * 如果在发出 SET SYSMENU SAVE 命令之后修改了菜单系统，可以通过发出 * SET SYSMENU TO DEFAULT 命令来恢复前面的设置。 Set Sysmenu Save * 在程序执行期间废止 Visual FoxPro 主菜单栏。 Set Sysmenu Off Set Sysmenu To * 第二步，设置环境 * 退出Read时保存数据缓冲区内容 Set Autosave On * 使用 INSERT、APPEND 和 BROWSE 命令创建新记录时，不将当前记录数据复制到新记录中。 Set Carry Off * 指定是否可以用在文本框中键入最后一个字符的方法退出文本框。 Set Confirm Off * 日期不显示世纪部分 Set Century Off * 设置日期格式为&YY.MM.DD& 格式 Set Date Ansi * 不显示已经删除的记录 Set Delete On * 决定能否使用 LOCK ( )或 RLOCK ( ) 锁定多个记录。 Set Multilocks On && 网络编程专用 * 确定 ATLTER TABLE、CREATE TABLE 和 INSERT - SQL 命令如何处理 null 值。 Set Null On * 指定当字段是空值(NUll)显示的文本为 Set NullDisplay To '' * 改写已有文件之前不显示对话框 Set Safety Off * 移去图形状态栏。 Set Status Bar Off * 第三步，设置你的程序路径 * 设置程序主目录 Public gcMainPath gcMainPath = Sys(5)+Sys(2003)+&\& Set Default To &gcMainPath * 数据目录(本地数据库和表) Public gcDataPath gcDataPath =gcMainPath+&Data\& * 程序目录 Public gcPrgsPath gcPrgsPath =gcMainPath+&Prgs\& * 图片目录 Public gcPicsPath gcPicsPath=gcMainPath + &pics\& * 表单目录 Public gcFormsPath gcFormsPath = gcMainPath+&forms\& * 菜单目录 Public gcMenusPath gcMenusPath = gcMainPath+&menus\& * 标签目录 Public gcLabelsPath gcLabelsPath = gcMainPath+&labels\ * 报表目录 Public gcReportsPath gcReportsPath =gcMainPath+&Reports\& * 第四步 初始化键盘 Capslock(.F.) IMEStatus(0) Insmode(.T.) Numlock(.T.) * 第五步 打开自定义类库、过程文件 Set Classlib To gcMainPath+&vcx\MyVCX.vcx& Set Procedure To gcPrgsPath +&Myproc.prg& * 设置不显示ODBC登录对话框 SQLSETPROP(0,&DispLogin&,3) && 网络专用 * 第六步 声明其他全局变量 * 数据源名称 Public gcDSN gcDSN = ‘’ * 用户登录名 Public gcUID gcUID = ‘’ * 用户登录口令 Public gcPWD gcPWD=‘’ * 当前登录用户姓名(中文) PUBLIC gcName gcName='' * 前后端数据库名 Public gcSQLDatabase,gcFoxDatabase gcSQLDatabase = ‘资料管理’ && 后端 SQL 数据库 gcFoxDatabase = ‘资料管理’ && 前端 VFP数据库 * 连接句柄 Public gnHandleMaster &&与后端 master 系统数据库的连接句柄 gnHandleMaster = 0 Public gnHandleUser && 与后端用户数据库“gcSQLDatabase ”的连接句柄 gnHandleUser = 0 * 第七步，检查登录帐号 &* 调用登录表单&login.scx& Do Form gcFormsPath+&login.scx& To gnHandleUser 结果如下图所示 * 如果登录成功 gnHandleUser & 0 表示登录成功，反之，失败 If gnHandleUser &= 0 && 登录失败 Quit && 退出 Endif * 指定当试图退出VFP时要执行的程序 ON SHUTDOWN DO gcPrgsPath +&FileExit.prg& && 代码如下楼所示。 * 第八步，调用程序主菜单 Do gcMenusPath+&mainmenu.mpr& * 第九步，显示程序封面，桌面 Do Form gcFormsPath+&title.scx& && 封面 Do Form gcFormsPath+&Desktop.scx& && 桌面，也就是你的程序背景(图片略) * 第十步 打开或创建本地数据库 cFoxDb=gcDataPath+ gcFoxDatabase + &.dbc& If Not Files(cFoxDb) && 如果指定的数据库不存在 Create Database &cFoxDb && 创建它 Endif * 启动事件处理 Read Events * 将释放当前的 ON SHUTDOWN 命令 ON SHUTDOWN * 程序：FileExit * 作用：解决程序运行后，点击主窗口关闭按钮[X]不能退出VFP的问题 If Messagebox('您真要退出本系统吗？',4+32+256,'退出确认')&&6 AND gnHandleUser & 0 Return Endif *Do While Txnlevel()&0 * Rollback *Enddo Clear Events ON SHUTDOWN * 恢复环境 Set Sysmenu To Default With _Screen .WindowState=2 &&最大化 .BackColor=Rgb(255,255,255) .Caption=&Microsoft Visual FoxPro& .Icon ='' Endwith * 关闭数据库及表 If Used(&cfg&) Use In cfg Endif If Used(&dsn&) Use In dsn Endif If Used(&uid&) Use In uid Endif Close Database All &&关闭所有数据库 Close All &&关闭各种类型的文件，但不关闭命令窗口、调试窗口、帮助、跟踪窗口。 Clear Menus &&释放内存中所有的菜单定义。 Clear Popups &&释放内存中所有用DEFINE POPUP命令创建的菜单定义。 Clear Windows &&释放内存中所有用户自定义窗口的定义，并从VFP主窗口或活动的用户自定义窗口中清除窗口。 Clear &&清屏 Set Safe On _Screen.Picture=&& =SQLDISCONNECT(0) Quit * 程序：错误处理，由梅子提供，未验证。 ***************** err.prg ***************** PARAMETER NERROR , CMESSAGE , CMESSAGE1 , CPROGRAM , NLINENO SET TEXTMERGE DELIMITERS to SET TEXTMERGE ON SET TEXTMERGE TO ErrorLog.txt ADDITIVE NOSHOW \--------------------------------------------------------------------- \&&DATE( )&& &&TIME( )&& 错误记录 \程序标题: &&_Screen.Caption&& \程序开发版本: &&VERSION(1)&& DO CASE CASE _SCREEN.WINDOWSTATE = 0 \窗口状态: 普通 CASE _SCREEN.WINDOWSTATE = 1 \窗口状态: 最小化 CASE _SCREEN.WINDOWSTATE = 2 \窗口状态: 最大化 ENDCASE \窗口可视: &&IIF(_Screen.Visible= .T. , &可见& , &不可见&)&& \窗口集合数: &&_Screen.FormCount&& \网络机器信息: &&SYS(0)&& \执行程序: &&JUSTFNAME(SYS(16,1))&& \执行程序所在目录: &&JUSTPATH(SYS(16,1))&& \执行程序所在目录磁盘空间: &&DISKSPACE(JUSTDRIVE(SYS(16,1)))&& \默认目录: &&SYS(5)&&&&SYS(2003)&& \默认目录磁盘空间: &&DISKSPACE(SYS(5))&& \文件搜寻路径: &&SET(&PATH&)&& \系统临时目录: &&SYS(2023)&& \虚拟内存池大小: &&SYS(1001)&& \正在使用的工作区: &&Alias()&& \活动字段: &&VARREAD()&& IF TYPE('_Screen.ActiveForm.Name') = 'C' \活动表单: &&_Screen.ActiveForm.Name&& \表单标题: &&_Screen.ActiveForm.Caption&& \表单基类: &&_Screen.ActiveForm.BaseClass&& \表单派生: &&_Screen.ActiveForm.Class&& \表单派生库: &&_Screen.ActiveForm.ClassLibrary&& \表单位置: &&SYS(1271, _Screen.ActiveForm)&& ELSE \无活动表单 ENDIF IF TYPE('_Screen.ActiveForm.ActiveControl') = 'O' \活动控制: &&_Screen.ActiveForm.ActiveControl.Name&& IF TYPE('_Screen.ActiveForm.ActiveControl.Caption') = 'C' \控制标题: &&_Screen.ActiveForm.ActiveControl.Caption&& ENDIF \控件基类: &&_Screen.ActiveForm.ActiveControl.BaseClass&& \控件派生: &&_Screen.ActiveForm.ActiveControl.Class&& \控件派生库: &&_Screen.ActiveForm.ActiveControl.ClassLibrary&& \控件位置: &&SYS(1271, _Screen.ActiveForm.ActiveControl)&& ELSE \无活动控制 ENDIF \错误代号: &&nError&& \错误信息: &&cMessage&& \产生错误的位置: &&cProgram&& \所在行号: &&nLineno&& \产生错误的代码: &&cMessage1&& \输出内存使用情况 -& MemoryLog.txt \输出工作环境到 -& StatusLog.txt SET SAFETY OFF DISPLAY MEMORY TO File MemoryLog.txt NOCONSOLE DISPLAY STATUS TO File StatusLog.txt NOCONSOLE \--------------------------------------------------------------------- SET TEXTMERGE TO Nvalue = ; MESSAGEBOX('程序发生错误！详细信息如下：' + CHR(13) + CHR(13) + '错误代号: ' + ; LTRIM(STR(NERROR)) + ; CHR(13) + ; '错误行号: ' + ; LTRIM(STR(NLINENO)) + ; CHR(13) + ; '错误信息: ' + ; CMESSAGE + ; CHR(13) + ; '错误代码: ' + ; CMESSAGE1 + ; CHR(13) + ; '错误位置: ' + ; CPROGRAM + ; CHR(13) + ; CHR(13) + ; '该错误已经记录到文件:Errorlog.txt,Memorylog.txt,Statuslog.txt。',50,'信息') DO CASE CASE Nvalue = 3 QUIT CASE Nvalue = 4 RETRY CASE Nvalue = 5 RETURN ENDCASE
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。