VFP6.0
学习笔记
2008 年 4 月 10 日
目
1
录
一、VF6.0 的主索引 二、VF6.0 表单建立 三、VFP 中”退出”按扭代码和 VFP 中猜数游戏中”开始”程序码 四、VF6.0 表单居中 五、VFP 中调用焦点方法: 六、Vf6.0 中两个表的链接查询 七、VFP 常用命令及用法实例 八、在 VFP 中显示某特定条件的数据记录 九、VFP 中身份证号码修复 十、VFP 中计算年龄 十一、VFP 程序设计中英文注释 十二、VFP 中统计年龄 十三、在 VFP 中设置焦点 十四、VFP中几个常用函数 1 十五、VFP中时间函数 十六、VFP 中的字符串替换命令 十七、VFP中的常量 十八、在一个表内查询有关字段内容的方法: 十九、VFP 的多表查询
一、VF6.0 的主索引
2
VF6.0 中的主索引的用途,是指在表中不能出现重复记录. 二、VF6.0 表单建立 改 变 容 器 大 小 选 项 : 在 “ 全 部 ” 选 项 卡 里 输 入 Height( 高 度).Width(宽度值) 改变图片显示容器属性:在属性框中选择 Stretch.默认是 0‘剪载’,改成变填充,可将图片在容器中全部显示. 修改窗体介绍:在属性栏选 Caption.添加窗体背景图,在属 性栏里选 Picture,点上面的浏览‘按钮’,进行查找图片文件. 三、VFP 中”退出”按扭代码和猜数游戏中”开始”程序码 1、退出: 在方法程序中双击 Click Event,输入: thisform.release 2、开始: thisform.label1.visible=.f.
即赢字隐去. &;&;重新开始,abel1 标签的可见为假,
&;&;本表单.释放
thisform.label2.visible=.f. &;&;将 label2 标签的可见为假, 即"输"字隐去. thisform.text1.value=int(rand()*10) 文本框的随机值.本例中随机值是 10。 thisform.text2.value=int(rand()*10) &;&;设置 text2 文本框 的随机值.本例中随机值是 10。 thisform.text3.value=int(rand()*8) 的随机值.
3
&;&;设置本表单 text1
&;&;设置 text3 文本框
if thisform.text1.value=7 .or. ; thisform.text2.value=7 .or. ; thisform.text2.value=7 &;&;假如 text1 的值等于 7 或者 text2 等于 7 或者 text3 等于 7.如果为两行及以上可用分号 ) (; 分开, 最后一行不用分号,不影响命令执行。 thisform.label1.visible=.t. 真,即"赢"字显示出来 else thisform.label2.visible=.t. 即"输"字显示出来. endif &;&;结束假设 &;&;否则 &;&;label2 标签可见为设为真, &;&;那么 label1 标签的可见为
四、VF6.0 表单居中 在表单属中选择 AutoCenter,将其值改为‘真’,表示表单自动居 中。为了使表单运行时不再运行其它语句,在属性窗体中选 WindowType,将其值改为‘1’模式,只有在关闭表单后其它程序才 能使用。 修改表单名称:Caption 修改名称 方框透明:BackStyle 中修改为透明 五、VFP 中调用焦点方法: 对象名称.setfocets
程序将自动在该方框中设置输入焦点.
4
六、Vf6.0 中两个表的链接查询 SELECT Jbqk.妇女编码, Jbqk.妇女姓
名, Jbqk.妇女身份证, Jbqk.妇女民簇, Jbqk.妇女婚姻, Jbqk.女婚变日期, Jbqk.丈 Jbqk.丈夫民簇, Jbqk.丈夫婚姻, Jbqk.xynvh,
夫, Jbqk.丈夫身份证,
Jbqk.避孕时间, Jbqk.避孕状况, Jbqk.xynh,
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 (回车)只显 示