yangchangxing1982的博客

看实例学VFP：复选框控件 时间:2009-03-24来源:编程入门网 作者:老马 　　在vfp基础教程-复选框一文中，已经给出了复选框控件的常用属性。这个控件的使用重点是对它的value属性值的判断上，另外也可以通过controlsource属性把它和表中的某个逻辑型字段绑定，同时也可以在它支持的click、interactiveChange等事件中进行编程。 　　本文是一个在复选框控件的interactiveChange事件中编程的小例子，运行时通过复选框的选择来控制label控件的文字大小及颜色变化，运行界面如下： 　　制作步骤： 　　一、新建表单，将其caption属性值设置为“编程入门网-复选框控件”，保存为“复选框控件.scx”。 　　二、向表单上添加一个label控件，caption属性值设为“编程入门网”，fontsize属性值设为10，AutoSize属性值设为.t.，Forecolor属性值设为“0,0,255”（rgb颜色） 　　三、向表单添加两个复选框控件，caption属性值依次设置为“增大字号”和“改变颜色”，其它属性值采用默认的。 　　四、添加事件代码： 　　1.复选框check1(“增大字号”)的interactiveChange事件： if this.value=1 thisform.label1.fontsize=18 else thisform.label1.fontsize=10 endif 　　2.复选框check2(“改变颜色”)的interactiveChange事件： if this.value=1 thisform.label1.forecolor=rgb(255,0,0) else thisform.label1.forecolor=rgb(0,0,255) endif

看实例学VFP：更复杂的查询 时间:2009-02-12来源:编程入门网 作者:老马 　　在看实例学VFP：对表中记录进行定位与查找操作及看实例学VFP：用SELECT语句创建查询这两个例子中,我们可以在查询时可以从组合框中选定一个要查询的字段。本例对这种查询方式再做进一步改进,使之在查询时不仅可以从一个组合框中选取要查询的字段,还可以从另一个组合框中选定操作符(如<、=、>等），从而实现更复杂的查询。本例应用到了数据环境，并使用“数据1”数据库中的“人员信息表”作为数据环境的数据源，关于该数据库的情况已经在看实例学VFP：示例数据库一文中给出，这里不再详述。运行界面见本文末尾。 　　制作步骤如下： 　　一、新建表单，将其caption属性值设置为“更复杂的查询例子”，AutoCenter属性值设置为.T.，width属性值设置为520，height属性值设置为245，并保存为“更复杂的查询例子.scx”。 　　二、右击表单空白处，选“数据环境”命令，将“人员信息表”添加到数据环境中。在“数据环境设计器”中拖动“人员信息表”的标题栏到表单上，自动生成一个表格控件。由于是从数据环境中把“人员信息表”拖动过来由系统自动生成的，该表格控件的RecordSource属性及RecordSourceType属性已经由系统设置好了，不用管它，但name属性值系统给出的好长，为了书写代码的方便，我们把这个表格控件的name属性值修改为“grid1”。 　　三、在表格控件的下方添加一个Label控件，并把它的caption属性值设置为“查询条件”。 　　四、在label控件的右侧依次添加两个组合框控件、一个文本框控件及两个命令按钮command1和command2，并把这两个命令按钮的caption属性值依次设置为“查找”和“退出”。 　　五、适当调整各控件在表单上的位置，调整后的表单设计器如下图所示： 　　六、设置组合框控件的属性： 　　（一）组合框Combo1：RecordSourceType属性值设置为“8-结构”，RecordSource属性值设置为“人员信息表”。 　　（二）组合框Combo2：RecordSourceType属性值设置为“1-值”，RecordSource属性值设置为“,>,<,=,>=,<=,<>”。 　　七、添加事件代码： 　　（一）表单的unload事件代码：close data 　　（二）组合框Combo1的InteractiveChange事件代码： if alltrim(this.displayvalue)="出生日期" thisform.text1.value={} else thisform.text1.value='' endif 　　（三）“查找”按钮command1的click事件代码： if thisform.grid1.recordsource='临时人员信息表' thisform.grid1.recordsource='人员信息表' endif' private CXTJ if empty(thisform.combo1.displayvalue) or empty(thisform.combo2.displayvalue) ; or empty(thisform.text1.value) && 判断列表框和文本框是否为空 messagebox('请输入完整条件！',16,'系统提示') thisform.combo1.setfocus else do case case alltrim(thisform.Combo1.Displayvalue)='基本工资' CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' '+alltrim(thisform.text1.value) case alltrim(thisform.Combo1.Displayvalue)='出生日期' CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' ctod("'+dtoc(thisform.text1.value)+'")' otherwise CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' "'+alltrim(thisform.text1.value)+'"' endcase Select * from 人员信息表 where &CXTJ. into cursor 临时人员信息表 thisform.grid1.recordsource='临时人员信息表' thisform.grid1.backcolor=rgb(200,224,248) endif 　　（四）“退出”按钮command2的click事件代码：thisform.release 　　八、运行“更复杂的查询例子.scx”，界面见下图：

VFP中实现选择排序 时间:2009-06-07来源:编程入门网 作者:老马 　　众所周知在常用的简单排序方法中，前文所介绍的起泡排序（冒泡排序）是效率最差的一个了。我们今天所介绍的这个选择排序也是简单排序中的一种，不过比起泡排序的效率要高，并且也比较容易实现。 　　这些常用的排序方法多见诸于C/C++方面的资料中，如果要在vfp中实现这些排序方法，原理是一样的，只是在代码实现上略有差别。例如，在C/C++中数组的下标是从0开始，而vfp中数组的下标是从1开始；C/C++中的for语句可以采用for(i=0;i<n;i++)这种形式来同时完成变量赋初值、变量终值判断、变量递增这些操作，而vfp的for语句则有些弱，它的变量终值不能采取i<n这种形式来界定一个范围。因为以上的区别，在VFP中书写代码时要特别注意数组下标问题及循环变量的初值及终值，在以后的文章中不会再特别提及这些问题。 　　我们先看一下选择排序的基本思想和排序过程。（此部分内容引用自百度百科：http://baike.baidu.com/view/547263.htm） 　　基本思想 　　每一趟从待排序的数据元素中选出最小（或最大）的一个元素，顺序放在已排好序的数列的最后，直到全部待排序的数据元素排完。 　　选择排序是不稳定的排序方法。n个记录的文件的直接选择排序可经过n-1趟直接选择排序得到有序结果： 　　 ①初始状态：无序区为R[1..n]，有序区为空。 　　 ②第1趟排序 　　在无序区R[1..n]中选出关键字最小的记录R[k]，将它与无序区的第1个记录R[1]交换，使R[1..1]和R[2..n]分别变为记录个数增加1个的新有序区和记录个数减少1个的新无序区。 　　…… 　　 ③第i趟排序 　　第i趟排序开始时，当前有序区和无序区分别为R[1..i-1]和R(1≤i≤n-1)。该趟排序从当前无序区中选出关键字最小的记录 R[k]，将它与无序区的第1个记录R交换，使R[1..i]和R分别变为记录个数增加1个的新有序区和记录个数减少1个的新无序区。 　　这样，n个记录的文件的直接选择排序可经过n-1趟直接选择排序得到有序结果。 　　排序过程 　　【示例】： 　　 初始关键字 [49 38 65 97 76 13 27 49] 　　第一趟排序后 13 ［38 65 97 76 49 27 49] 　　第二趟排序后 13 27 ［65 97 76 49 38 49] 　　第三趟排序后 13 27 38 [97 76 49 65 49] 　　第四趟排序后 13 27 38 49 [49 97 65 76] 　　第五趟排序后 13 27 38 49 49 [97 65 76] 　　第六趟排序后 13 27 38 49 49 65 [97 76] 　　第七趟排序后 13 27 38 49 49 76 [97 76] 　　最后排序结果 13 27 38 49 49 76 76 97 　　知道这个排序方法的基本思想和排序过程，在vfp中书写代码就简单了，只是需要注意vfp中数组的下标及循环变量的初值及终值与C/C++的区别。实例的运行界面如下图： 　　本例依然采取生成10个随机整数的方式取得数据，然后用选择法对这10个整数进行从小到大的排序。实现过程： 　　一、新建表单，向表单添加一个编辑框控件及三个命令按钮，按上图设置这三个命令按钮的caption属性。 　　二、添加代码： 　　1.“生成10个随机整数”按钮的click事件： public s(10) for i=1 to 10 s(i)=int(rand()*100) &&产生两位数的随机整数 thisform.edit1.value=thisform.edit1.value+str(s(i),5) endfor 　　2.“清屏”按钮的click事件：thisform.edit1.value="" 　　3.“选择排序”按钮的click事件： local i,j,k,t as integer for i=1 to 9 k=i for j=i+1 to 10 if s(j)<s(k) k=j endif endfor t=s(k) s(k)=s(i) s(i)=t endfor thisform.edit1.value="" for i=1 to 10 thisform.edit1.value=thisform.edit1.value+str(s(i),5) endfor

水仙花数的vfp实现 时间:2009-05-08来源:编程入门网 作者:老马 　　本文作者“老马”为编程入门网VFP专栏作家，转载请保留这句话。 　　记得看过朋友的文章中有句话大致是这个意思：一个人编程的水平与实现同一目的所需的代码数量成反比。其实这句话很有道理，如果用这个观点来评价我自己，我应该是一个苍老的菜鸟，我做出来的东西勉强可用，但代码在高手看来却是惨不忍睹。我所走过的轨迹与常人大概也有所不同：计算机专业科班的可能在毕业后从事coding多年之后，当感觉自己力不从心时转行做管理或教师；而我恰恰相反，外贸专业毕业后狂热地自学了一些东西，教了几年C语言、vb、vfp及asp等课程，几乎所有的业余时间都用到了接活来做上，这一点也差不多达到了狂热的程度。不过后来发现自己似乎是走进了死胡同：我试图走进VC的世界，可是被MFC、SDK这些东西折磨得痛苦之极；当我为自己开始能用asp做些东西而沾沾自喜的时候，一个强调代码与界面分离的asp.net一天比一天时髦起来，而它的身后是一个.NET家族。更新的技术何时出现？天知道，或许就在明天。我终于开始明白，我实际并不象身边的人说的那样聪明，我也只是一个平庸的人；我终于开始明白，如果在我所从事的这个没有任何保障的“挨踢”行业继续做下去，过几年我会成为40、50人员，那时恐怕连愿意为我交社保、医保的地方都找不到了。所以现在我进入了企业，不再是教师，因为这需要很大的精力来证明自己的能力和水平；也不再为了些“水票管理”之类的东西而通宵达旦，因为这样做得到的是几个小钱，失去的却是最宝贵的健康。 　　今天和几个高中同学小聚了一下，或许是人岁数大了愿意回忆从前的事，或许是还有些酒意，所以有了上面的这一段话。不过我想这不应该算是牢骚，应该说是一个菜鸟对自己的可笑经历的总结。 　　我始终认为C语言是一个基础性的语言，以前无论是VB或VFP课，我总会要求同学自己找本谭浩强的《C程序设计》，把预处理命令、指针、结构体与共用体等几部分内容pass过去，阅读其基础部分的内容；而在课时充足的情况下，我也会经常拿C程序书中诸如“鸡兔同笼”这样有趣的题来“折磨”一下班上的同学。 　　而现在有些日子了，有两个高中同学总跑到我家里来。人活到老、学到老，这本是件好事，不过我还是有些苦恼。因为他们到我家里来学习，不仅不交学费，我还得管他们饭。他们问到的vfp的东西比较多，所以我打算继续把这方面的一些东西翻出来晒晒。从本文开始会探讨一下C程序书中比较经典的几个算法在VFP中实现的问题，当然纯属菜鸟之见，有没有用那可两说，得自己去分析。觉得有用的话，或许可以开拓思路、扩充您的知识面，我很高兴；觉得没用的话，您权当我是吃撑了，您能忍受我罗嗦了这么长时间，我一样很高兴，呵呵。 　　水仙花数的实现是一个比较经典的算法题，今天我们首先在vfp中来实现它。 　　首先我们了解一下什么是“水仙花数”。所谓水仙花数是指一个n位数,其各位数字立方和等于该数本身的值,例如:153=13+53+33 ,所以153是一个水仙花数。 　　我们来做一个简单点儿的：求解3位数的水仙花数，即100至999之间的水仙花数。很明显这个程序需要使用循环，并且从水仙花数的概念可知，其重点是求解出循环变量当前值的各位数字的值。剩下的工作就简单了，把求解出的各位数字的立方和与循环变量当前值进行比较，如果相等则说明这是一个水仙花数，输出它即可。相关说明见代码注释。本文发表于编程入门网:www.bianceng.cn 　　我们用表单来实现这个例子，运行时如下图： 　　参照上图开始我们的制作： 　　一、新建表单，向表单上添加一个标签控件，caption属性值设置为“显示100到999间的水仙花数”；添加两个命令按钮command1和command2，并将它们的caption属性值分别设置为“开始”和“清除”；添加一个编辑框控件Edit1，属性值均采用默认的。 　　二、添加事件代码： 　　1、“清除”按钮的click事件： thisform.edit1.value="" thisform.refresh 　　2、“开始”按钮的click事件： local i,a,b,c for i=100 to 999 a=int(i/100) &&百位的值等于这个三位数除以100后取整 b=int((i-100*a)/10) &&用这个三位数减去它的百位数字与100乘积， &&对得到的差除以10后进行取整，结果就是十位的值 c=i-int(i/10)*10 &&与上面原理相同，这是求个位的值 if i=a^3+b^3+c^3 &&成立说明是水仙花数并输出 thisform.edit1.value=thisform.edit1.value+str(i,5)+chr(13) &&用chr(13)换行 endif endfor

水仙花数的vfp实现 时间:2009-05-08来源:编程入门网 作者:老马 　　本文作者“老马”为编程入门网VFP专栏作家，转载请保留这句话。 　　记得看过朋友的文章中有句话大致是这个意思：一个人编程的水平与实现同一目的所需的代码数量成反比。其实这句话很有道理，如果用这个观点来评价我自己，我应该是一个苍老的菜鸟，我做出来的东西勉强可用，但代码在高手看来却是惨不忍睹。我所走过的轨迹与常人大概也有所不同：计算机专业科班的可能在毕业后从事coding多年之后，当感觉自己力不从心时转行做管理或教师；而我恰恰相反，外贸专业毕业后狂热地自学了一些东西，教了几年C语言、vb、vfp及asp等课程，几乎所有的业余时间都用到了接活来做上，这一点也差不多达到了狂热的程度。不过后来发现自己似乎是走进了死胡同：我试图走进VC的世界，可是被MFC、SDK这些东西折磨得痛苦之极；当我为自己开始能用asp做些东西而沾沾自喜的时候，一个强调代码与界面分离的asp.net一天比一天时髦起来，而它的身后是一个.NET家族。更新的技术何时出现？天知道，或许就在明天。我终于开始明白，我实际并不象身边的人说的那样聪明，我也只是一个平庸的人；我终于开始明白，如果在我所从事的这个没有任何保障的“挨踢”行业继续做下去，过几年我会成为40、50人员，那时恐怕连愿意为我交社保、医保的地方都找不到了。所以现在我进入了企业，不再是教师，因为这需要很大的精力来证明自己的能力和水平；也不再为了些“水票管理”之类的东西而通宵达旦，因为这样做得到的是几个小钱，失去的却是最宝贵的健康。 　　今天和几个高中同学小聚了一下，或许是人岁数大了愿意回忆从前的事，或许是还有些酒意，所以有了上面的这一段话。不过我想这不应该算是牢骚，应该说是一个菜鸟对自己的可笑经历的总结。 　　我始终认为C语言是一个基础性的语言，以前无论是VB或VFP课，我总会要求同学自己找本谭浩强的《C程序设计》，把预处理命令、指针、结构体与共用体等几部分内容pass过去，阅读其基础部分的内容；而在课时充足的情况下，我也会经常拿C程序书中诸如“鸡兔同笼”这样有趣的题来“折磨”一下班上的同学。 　　而现在有些日子了，有两个高中同学总跑到我家里来。人活到老、学到老，这本是件好事，不过我还是有些苦恼。因为他们到我家里来学习，不仅不交学费，我还得管他们饭。他们问到的vfp的东西比较多，所以我打算继续把这方面的一些东西翻出来晒晒。从本文开始会探讨一下C程序书中比较经典的几个算法在VFP中实现的问题，当然纯属菜鸟之见，有没有用那可两说，得自己去分析。觉得有用的话，或许可以开拓思路、扩充您的知识面，我很高兴；觉得没用的话，您权当我是吃撑了，您能忍受我罗嗦了这么长时间，我一样很高兴，呵呵。 　　水仙花数的实现是一个比较经典的算法题，今天我们首先在vfp中来实现它。 　　首先我们了解一下什么是“水仙花数”。所谓水仙花数是指一个n位数,其各位数字立方和等于该数本身的值,例如:153=13+53+33 ,所以153是一个水仙花数。 　　我们来做一个简单点儿的：求解3位数的水仙花数，即100至999之间的水仙花数。很明显这个程序需要使用循环，并且从水仙花数的概念可知，其重点是求解出循环变量当前值的各位数字的值。剩下的工作就简单了，把求解出的各位数字的立方和与循环变量当前值进行比较，如果相等则说明这是一个水仙花数，输出它即可。相关说明见代码注释。本文发表于编程入门网:www.bianceng.cn 　　我们用表单来实现这个例子，运行时如下图： 　　参照上图开始我们的制作： 　　一、新建表单，向表单上添加一个标签控件，caption属性值设置为“显示100到999间的水仙花数”；添加两个命令按钮command1和command2，并将它们的caption属性值分别设置为“开始”和“清除”；添加一个编辑框控件Edit1，属性值均采用默认的。 　　二、添加事件代码： 　　1、“清除”按钮的click事件： thisform.edit1.value="" thisform.refresh 　　2、“开始”按钮的click事件： local i,a,b,c for i=100 to 999 a=int(i/100) &&百位的值等于这个三位数除以100后取整 b=int((i-100*a)/10) &&用这个三位数减去它的百位数字与100乘积， &&对得到的差除以10后进行取整，结果就是十位的值 c=i-int(i/10)*10 &&与上面原理相同，这是求个位的值 if i=a^3+b^3+c^3 &&成立说明是水仙花数并输出 thisform.edit1.value=thisform.edit1.value+str(i,5)+chr(13) &&用chr(13)换行 endif endfor