看实例学VFP:对表中记录进行定位与查找操作

在VFP中操作表记录时,既可以使用sql语句,也可以使用内置的append、replace、delete/pack/zap等命令并配合一些记录指针定位和数据排序方面的命令及函数来使用,而在vb/vb.net中,使用ADO/ADO.NET的属性和方法就可以了。VFP象C语言一样灵活,但或许正是由于这一点,让许多刚接触她的人感觉无处下手并进而不喜欢她。VFP象是一位其貌不扬、性格内向的淑女,不是每个人都会喜欢她,只有了解她的优点的人才会爱上她。

话说得有点跑题了,现在言归正传。从本文开始会给出一些使用VFP内置语句操作表的例子,以后会再给出一些使用sql语句做相同操作的例子。本文是关于查询表记录的一个例子,运行时可以在组合框中自由选择查询所依据的字段,这是通过设置组合框控件的属性并在命令按钮的click事件代码中对用户选择的值进行判断来实现的;本例具有对文本框输入数据的校验功能,并且如果数据库存在所查询的记录会返回查询结果,反之会给出提示信息。

本例启动时grid中会显示“网站信息表”中的所有记录,运行时可以在组合框中选择要查找的字段,在文本框中输入查找内容后单击右侧的“查找”按钮即可实现在表中定位查找,并将查找结果显示在上方的表格中;单击“恢复”按钮表格控件会恢复显示“网站信息表”中的所有记录。关于vfp表记录指针定位和数据排序请参考:记录指针定位和数据排序,本例用到了“数据1”数据库中的“网站信息表”,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给出,这里均不再详述,只简要介绍一下制作过程。

本例运行时如下图:

制作步骤如下:

一、新建表单form1,并将其caption属性设置为“对表中记录进行定位与查找操作”,width属性值设为290,height属性值设为165,AutoCenter属性值设为.t.,并将其保存为“对表中记录进行定位与查找操作.scx”。

二、向表单添加一个grid控件,将其readonly属性设置为.t.,其RecordSourceType值采用默认的“1-别名”,在表单设计器中将其宽和高粗略调小一些即可,具体属性值我们将在表单的init事件代码中对其进行设置。

三、在grid控件下方添加两个Label控件,使其排成一行,并将其caption属性依次设为“请选择查找方式”和“请输入要查找的内容”。

四、在label控件下方添加一个组合框控件Combo1及一个文本框控件Text1,文本框控件的属性值采用默认即可,组合框控件Combo1的RowSourceType属性值设置为“1-值”,RowSource属性值设置为“编号,网站名称,网站网址”,这样在运行时我们可以在该组合框中选择要查询的字段。

五、在表单上添加两个命令按钮command1和command2,将其caption属性依次设为“查找”和“恢复”。适当调整表单上各控件的位置,调整后如下图所示:

六、添加事件代码:

(一)表单form1的unload事件代码:

set exact off
close data

(二)表单form1的init事件代码:

set exact on
use 网站信息表
this.Combo1.value="编号"
with thisform.grid1
    .width=290
    .height=100
    .left=0
    .top=0
    .recordsource="网站信息表"
    .deletemark=.f.
	.visible=.t.
	.readonly=.t.
	.ColumnCount=3
    .Column1.Header1.Caption="编号"
    .Column1.Header1.BackColor=RGB(255,255,190)
    .Column2.Header1.BackColor=RGB(255,255,190)
    .Column2.Header1.Caption="网站名称"
    .Column3.Header1.BackColor=RGB(255,255,190)
    .Column3.Header1.Caption="网站网址"
    .Column1.width=75
    .Column2.width=80
    .Column3.width=150
endwith
thisform.grid1.Setall("DynamicBackColor","RGB(224,225,255)","Column")

(三)“查找”按钮(command1)的click事件代码:

if empty(thisform.Text1.value)=.f.
go top
a=thisform.Combo1.value
b=alltrim(thisform.Text1.value)
  if a="编号"
     locate for 编号=b
     if eof()
        messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
     else
        go recno()
     endif
  endif
  if a="网站名称"
     locate for 网站名称=b
     if eof()
        messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
     else
        go recno()
     endif
  endif
  if a="网站网址"
     locate for 网站网址=b
     if eof()
        messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
     else
        go recno()
     endif
  endif
  thisform.grid1.setfocus
else
   messagebox("请输入要查找的内容!",16,"系统提示")
   thisform.Text1.value=""
   thisform.Text1.Setfocus
endif
return

(四)“恢复”按钮(command2)的click事件代码:

go top
thisform.Text1.value=""
thisform.Text1.Setfocus
with thisform.grid1
    .width=290
    .height=100
    .left=0
    .top=0
    .recordsource="网站信息表"
	.visible=.t.
	.readonly=.t.
	.ColumnCount=3
    .Column1.Header1.Caption="编号"
    .Column1.Header1.BackColor=RGB(255,255,190)
    .Column2.Header1.BackColor=RGB(255,255,190)
    .Column2.Header1.Caption="网站名称"
    .Column3.Header1.BackColor=RGB(255,255,190)
    .Column3.Header1.Caption="网站网址"
    .Column1.width=75
    .Column2.width=80
    .Column3.width=150
endwith
thisform.grid1.Setall("DynamicBackColor","RGB(224,225,255)","Column")
thisform.refresh

七、运行“对表中记录进行定位与查找操作.scx”,即可实现本实例的效果。

参考资料:

vfp基础教程:http://bianceng.cnhttp://www.bianceng.cn/vfpjc/index0.htm

vfp初级教程:http://bianceng.cnhttp://www.bianceng.cn/cc/index.htm

vfp中级教程:http://bianceng.cnhttp://www.bianceng.cn/mcc/mcc.htm

vfp高级教程:http://bianceng.cnhttp://www.bianceng.cn/hcc/hcc.htm

VFP网络开发:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpwlkf.htm

vfp调用api函数:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpapi.htm

VFP报表打印:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpreport.htm

VFP常用技术:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpcyjs.htm

VFP经验汇总:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpjyhz.htm

VFP控件使用:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpkjsy.htm

VFP数据处理:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpsjcl.htm

本例代码在Win2003+VFP6.0环境下调试通过。

查看全套“菜鸟也学VFP”教程

以上是小编为您精心准备的的内容,在的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索控件
, 表单
, 网站
, vfp
, 属性
, header
, column
查找属性值
,以便于您获取更多的相关知识。

时间: 2024-10-27 18:02:18

看实例学VFP:对表中记录进行定位与查找操作的相关文章

看实例学VFP:对数据表中记录进行修改

本例运行时表单上用于接收数据的文本框被隐藏,"修改"按钮禁用,如下图: 在组合框中选择要查找的字段,在文本框中输入查找内容后单击右侧的"查找"按钮后将查找结果显示在上方的表格中,"查找"按钮被禁用,同时激活"修改"按钮及用于接收数据的文本框,并将当前记录(满足查询条件的记录)的值同时显示在文本框中,如下图: 单击"修改"按钮后会对输入的值做判断,如果满足非空的条件,则用表单文本框中的值修改"网站信

看实例学VFP:页框控件的使用

页框(pageframe) 也是vfp的一个基本控件,使用它可以制作出类似于windows对话框的效果,关于这个控件的常用属性和方法请参考vfp基础教程-页框和页一文. 页框控件本身是一个容器,其中可以包含若干个页(page):而页也是容器,可以在其中添加各种对象,因此无论是在设计时添加对象或者是代码引用,都要比别的控件麻烦些.在使用这个控件时需要注意:如果设计时要向某个页中添加对象,一定要在页框的编辑状态下选中该页的标签,然后再向该页中添加控件:另外在不同页之间切换时,需要处理好数据源的问题.

看实例学VFP:对组合框控件的再探索

组合框控件(combobox)在vfp中也是一个常用的控件,组合框兼具文本框和列表框的功能,它的名称大概也由此而来.在vfp基础教程-组合框控件(combobox) 中已经比较详细地给出了组合框的常用属性和方法. 在组合框控件的应用中,很重要的一个环节是它的RowSourceType及RowSource这两个属性的组合.比如在看实例学VFP:对表中记录进行定位与查找操作这个例子中是把组合框的RowSourceType属性值设为"1-值",而在看实例学VFP:去除查询结果中的重复记录这个

看实例学VFP:主程序及连编综合示例

本文给出一个简单的主程序并将我们做的这个简单的系统连编成为可执行文件.本实例采用顶层表单作为软件的主界面,运行连编后的exe会首先出现要求用户名和密码的登录表单,如下图: 连续3次输入错误的用户名及密码会自动退出,输入正确的用户名及密码后,登录表单隐藏并且启动主表单,如下图: 本例要点:因为使用顶层表单做主界面,就需要在主程序中加一句_screen.visible=.f.把主屏幕屏蔽掉:主表单是顶层表单,则主表单菜单各模块所调用的表单的ShowWindow属性值都应设置为"1-在顶层表单中&qu

看实例学VFP:制作只能从顶层表单调用的系统主菜单

我们知道正常的VFP菜单都是显示在主屏幕(_screen)中的,但如果要使用顶层表单来做软件的主界面,_screen是要屏蔽掉的.这就产生了一个问题:_screen没有了,软件菜单该往哪里放呢?没有关系,可以使用只能从顶层表单中调用的菜单来解决这个问题,另外这种菜单的调用处是在顶层表单的init事件中,而不是在主程序中. 本例来制作一个只能从顶层表单调用的系统主菜单MAIN.MPR,下一课我们将会给出使用顶层表单制作软件主界面的示例,并会在该示例中调用这个菜单.该菜单包括"数据操作"和

看实例学VFP:用SELECT语句创建查询

vfp中可以使用sql语句操作表,并且在使用sql语句操作表时不需要打开数据库.本例介绍的是select查询语句(数据检索),关于select语句的格式请参考:select SQL 命令 或sql语言教程. 在看实例学VFP:对表中记录进行定位与查找操作一文中,我们是使用locate语句作记录定位并同时使用了eof()函数,如果该函数返回真值,说明数据表中不存在所查询的记录并给出提示信息.本例用sql语句对这一部分进行了改写.与上例的区别大致的如下: 1.本例依然使用表格控件作为数据显示控件,表

看实例学VFP:更复杂的查询

在看实例学VFP:对表中记录进行定位与查找操作及看实例学VFP:用SELECT语句创建查询这两个例子中,我们可以在查询时可以从组合框中选定一个要查询的字段.本例对这种查询方式再做进一步改进,使之在查询时不仅可以从一个组合框中选取要查询的字段,还可以从另一个组合框中选定操作符(如<.=.>等),从而实现更复杂的查询.本例应用到了数据环境,并使用"数据1"数据库中的"人员信息表"作为数据环境的数据源,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给

看实例学VFP:同时向两个表中添加记录

本文利用看实例学VFP:利用多个表中的字段创建新表这个实例中的知识来制作一个文本式录入表单的简单示例,通过这个表单可以同时向"数据1"数据库中的"网站信息表"和"附加信息表"这两个表中添加记录,并且对录入的数据可以选择"保存"."添加"或"撤消".这两个表的索引字段分别是"编号"和"网站编号",这两个字段的内容是完全相同的,只是分别处于两个表中,并

看实例学VFP:删除数据表中的记录

本例对看实例学VFP:对数据表中记录进行修改一文的实例进行了一点改进,增加了"撤消"功能.程序运行时如下图: 在组合框中选择要查找的字段,在文本框中输入查找内容后单击右侧的"查找"按钮后将查找结果显示在上方的表格中,"查找"按钮变成"撤消"按钮,同时激活"删除"按钮及用于显示数据的文本框,并将当前记录(满足查询条件的记录)的值同时显示在文本框中,:单击"删除"按钮后会删除查找出来的记录刷