VFP6.0学习笔记(修订)

VFP6.0学习笔记2008年4月10日

目录

一、VF6.0的主索引

二、VF6.0表单建立

三、VFP中”退出”按扭代码和VFP中猜数游戏中”开始”程序码

四、VF6.0表单居中

五、VFP中调用焦点方法:

六、Vf6.0中两个表的链接查询

七、VFP常用命令及用法实例

八、在VFP中显示某特定条件的数据记录

九、VFP中身份证号码修复

十、VFP中计算年龄

十一、VFP程序设计中英文注释

十二、VFP中统计年龄

十三、在VFP中设置焦点

十四、ＶＦＰ中几个常用函数1

十五、ＶＦＰ中时间函数

十六、VFP中的字符串替换命令

十七、ＶＦＰ中的常量

十八、在一个表内查询有关字段内容的方法：

十九、VFP的多表查询

一、VF6.0的主索引

VF6.0中的主索引的用途,是指在表中不能出现重复记录.

二、VF6.0表单建立

改变容器大小选项:在“全部”选项卡里输入Height(高度).Width(宽度值)

改变图片显示容器属性:在属性框中选择Stretch.默认是0‘剪载’,改成变填充,可将图片在容器中全部显示.

修改窗体介绍:在属性栏选Caption.添加窗体背景图,在属性栏里选Picture,点上面的浏览‘按钮’,进行查找图片文件.

三、VFP中”退出”按扭代码和猜数游戏中”开始”程序码

1、退出：

在方法程序中双击Click Event,输入:

thisform.release&&本表单.释放

2、开始：

bel1.visible=.f.&&重新开始,abel1标签的可见为假,即赢字隐去.

bel2.visible=.f.&&将label2标签的可见为假,即"输"字隐去.

thisform.text1.value=int(rand()*10)&&设置本表单text1文本框的随机值.本例中随机值是10。

thisform.text2.value=int(rand()*10)&&设置text2文本框

的随机值.本例中随机值是10。

thisform.text3.value=int(rand()*8) &&设置text3文本框的随机值.

if thisform.text1.value=7 .or. ;

thisform.text2.value=7 .or. ;

thisform.text2.value=7 &&假如text1的值等于7或者text2等于7或者text3等于7.如果为两行及以上可用分号（；）分开，最后一行不用分号，不影响命令执行。

bel1.visible=.t.&&那么label1标签的可见为真,即"赢"字显示出来

else &&否则

bel2.visible=.t.&&label2标签可见为设为真,即"输"字显示出来.

endif &&结束假设

四、VF6.0表单居中

在表单属中选择AutoCenter,将其值改为‘真’,表示表单自动居中。为了使表单运行时不再运行其它语句，在属性窗体中选WindowType,将其值改为‘1’模式，只有在关闭表单后其它程序才能使用。

修改表单名称:Caption修改名称

方框透明:BackStyle中修改为透明

五、VFP中调用焦点方法:

对象名称.setfocets

程序将自动在该方框中设置输入焦点.

六、Vf6.0中两个表的链接查询

SELECT Jbqk.妇女编码, Jbqk.妇女姓名, Jbqk.妇女身份证, Jbqk.妇女民簇, Jbqk.妇女婚姻, Jbqk.女婚变日期, Jbqk.丈夫姓名, Jbqk.丈夫身份证, Jbqk.丈夫民簇, Jbqk.丈夫婚姻, Jbqk.避孕时间, Jbqk.避孕状况, Jbqk.xynh, Jbqk.xynvh, Syjjtzn.孩次, Syjjtzn.性别, Syjjtzn.是否合法, Syjjtzn.子女出生, Syjjtzn.生育备注;（指明调用哪些字段，每一个字段前必须加有表名称，字段名之间用英文或半角下的逗号“,”分开）

FROM jbqk INNER JOIN syjjtzn ;（指明调用表的名称）

ON Jbqk.妇女编码= Syjjtzn.妇女编码;（指明两个表关联的字段名）

ORDER BY Jbqk.妇女编码;（设定排序字段名，本例中为升序）INTO TABLE g:\资料类\数据库文件\ylfn\出生查询2.dbf（查询结果保存路径）

七、VFP常用命令及用法实例

以“表”形式浏览内容：brow（表式浏览）

条件：for（浏览条件）

显示字段名：fields例如：brow fields fnxfhm (回车）只显示字段名为fnxfhm的内容(注意：两个命令之间不能用for)

八、在VFP中显示某特定条件的数据记录

包含命令:＄例如：将fnxm中包含“陈”字的显示出来Brow for“陈” $ fnxm

相对等于命令:= （包括）

绝对等于命令:==（完全相等）

大于命令:>fncsrq大于１９７０．０３．２１的显示出来：brow for fncsrq>{^1970.03.21}

九、VFP中身份证号码修复

replace all fnsfhm with substr(fnsfhm,1,6) + substr(dtoc(fncsrq),3,2) + substr(dtoc(fncsrq),6,2) + substr(dtoc(fncsrq),9,2) +substr(fnsfhm,13,3) for len(alltrim(fnsfhm))=15

replace all fnsfhm with substr(fnsfhm,1,6) + substr(dtoc(fncsrq),1,4) + substr(dtoc(fncsrq),6,2) + substr(dtoc(fncsrq),9,2) +substr(fnsfhm,15,4) for len(alltrim(fnsfhm))=18

十、VFP中计算年龄

1、育龄妇女初婚时达到晚婚年龄的人数

select count(fnxm) from jbqk.dbf where year(fnchrq) - year(fncsrq) >= 23

2、显示达到某个条件的内容