VISUAL FOXPRO开发技巧四则

转载于 2025-04-17 17:14:10 发布 · 130 阅读

本内容遵循CC 4.0 BY-SA版权协议

原文链接：https://mp.weixin.qq.com/s?__biz=MzU1NDE4MjcxNw==&mid=2247490246&idx=1&sn=8f69266c2db12e69e9575212748dc5cd&chksm=fa0822fb9d0dc7cbb4e9f685134a07bb8e6137e24d30637e4a1637b1a1f3d3489b65f3c7ee7f&scene=126&sessionid=0

GEO检测

标签

#服务器 #运维

熟悉VFP的用户都知道ComboBox对象若显示多栏式时，正常选择结果会以第一栏的内容显示在选择项目上。但实际系统设计中要显示多个栏位如图书编号、名称、作者和出版商，而选定的结果及要传递的值则可能是其中的任意一项，此时实现方法如下：

(1)设定ComboBox对象的属性ColumnCount为4；属性ColumnCountWidth为12，40，12，40；属性RowSourceType为Field；属性RowSource为bookcode，title，writer，publisher。

(2)设定ComboBox对象的属性BoundColumn为2，表示图书名称为要显示的内容。

(3)设定ComboBox对象的事件Interactive Change Event的内容如下：

ThisDisplayValue=ThisValue

如欲将显示的内容贮存于其他变量，可添加如下内容：

PublicUnknow_str  Unknow_str=Thisvalue

2.PageFrame的刷新记录内容

在设计对数据库进行查询修改的操作界面时，将其设为PageFrame方式，在ToolsBar条的记录移动按钮触发时，除当前活动页内容更新外，其他页内容并未刷新，极易产生错误操作。解决问题方法如下：

在ToolsBar中，把涉及到移动记录的Command按钮对象的Click事件作如下添加：

…  thisparentparentactivepage=2  thisparentparentpage2refresh()  thisparentparentactivepage=3  thisparentparentpage2refresh()  …  thisparentparentactivepage=n  thisparentparentpage2refresh()  n——为PageFrame的页数。

3.任务进度栏的实现

(1)选择系统菜单“工具”中“选项”条，单击“控件”栏，添加任务进度栏控件MicrosoftProgressBarControl,Version50至ActiveX工具箱中。

(2)创建表单Form1及Command对象Receive；选定表单控件工具栏中“查看类”，添加控件MicrosoftProgressBarControl,Version50至表单Form1中，设置其属性Max值为1000。

(3)设置表单Form1中命令按钮Receive事件，Click内容如下：

fori=1to1000  forj=1to2000  j=j＋1  endfor  thisformolecontrol1value=i  i=i＋1  endfor  =messagebox('数据传送与展开完毕，OK!',0＋64,'信息窗口')  thisformrelease  clear events

4.Grid模拟Browse窗口

(1)创建表单Form1及Grid1对象；设定Form1属性BorderStyle为3，可自由调整大小；在事件ResizeEvent中输入如下内容：

ThisFormGrid1Width=ThisWidth  ThisFormGrid1Height=ThisHeight

(2)设定Grid1对象属性RecordSource为当前Form1所设定的工作区，属性Top与Left值均为0；属性Width=ThisformWidth；属性Height=ThisformHeight。

猫猫的心里话

加菲猫的VFP|狐友会社群接收投稿啦

加菲猫的VFP，用VFP不局限VFP，用VFP混合一切。无论是VFP，还是JS，还是C，只要能混合起来，都可以发表。

商业模式，销售技巧、需求规划、产品设计的知识通通可以发表。

暂定千字50元红包，，优秀的文章红包更大，一经发表，红包到手。

如何帮助使用VFP的人？

用VFP的人，有专业的，有非专业了，很多人其实是小白，问出的问题是小白，如果问题不对，我们引导他们问正确的问题。无论如何请不要嘲笑他们说帮助都不看，这么简单的问题都不会，嘲笑别人不行，而无法提出建设性答案，是很low的。

我们无论工作需要，还是有自己的软件，都是是需要真正的知识，如何让更多人学习真正的VFP知识呢，只需要点赞，在看，能转发朋友圈就更好了。

加菲猫的vfp倡导用"VFP极简混合开发，少写代码、快速出活，用VFP，但不局限于VFP，各种语言混合开发"。

我已经带领一百多名会员成功掌到VFP的黑科技，进入了移动互联网时代，接下来我们要进入物联网领域。

2025年狐友会社群会员继续招募中

社群会员获取的权益有：

祺佑三层开发框架商业版（猫框），终身免费升级，终身技术支持。

开放的录播课程有：

微信小程序，微信公众号开发，H5 APP开发，Extjs BS开发，VFP面向对象进阶，VFP中间层开发。

源码类资源有：

支付组件源码，短信源码，权限组件源码，一些完整系统的源码。这个可以单独出售的，需要的可以联系我。

会员也可以实现群内资源对接，可以接分包，合作等各项商业或技术业务