当前位置: 首页 > 编程语言 > vfp > 正文

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

时间:2009-02-05 本站 老马

本例对看实例学VFP:对数据表中记录进行修改一文的实例进行了一点改进,增加了“撤消”功能。程序运行时如下图:

在组合框中选择要查找的字段,在文本框中输入查找内容后单击右侧的“查找”按钮后将查找结果显示在上方的表格中,“查找”按钮变成“撤消”按钮,同时激活“删除”按钮及用于显示数据的文本框,并将当前记录(满足查询条件的记录)的值同时显示在文本框中,;单击“删除”按钮后会删除查找出来的记录刷新显示并grid1,“删除”按钮的再次被禁用,“撤消”按钮的caption值再次变成“查找”并隐藏显示数据的文本框;单击“撤消”按钮则撤消删除操作并刷新表单。如下图:

关于vfp表记录指针定位和数据排序请参考:记录指针定位和数据排序,关于记录的删除请参考表的操作 (二),本例用到了“数据1”数据库中的“网站信息表”,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给出,这里均不再详述,只简要介绍一下制作过程。

制作步骤如下:

一、新建表单form1,并将其caption属性设置为“删除数据表中的记录”,width属性值设为290,height属性值设为220,AutoCenter属性值设为.t.,并将其保存为“删除数据表中的记录.scx”。

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

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

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

五、在表单上添加两个命令按钮command1和command2,将其caption属性依次设为“查找”和“删除”。

六、在命令按钮下方添加三个label控件,将这三个label控件排成一行,并将其caption属性依次设置为“编号”、“网站名称”和“网站网址”。

七、在这一行label控件下方添加三个文本框控件,属性值采用默认,并把这三个文本框排成一行。

八、调整表单上各个控件的位置,调整后的表单设计器如下图:

九、添加事件代码:

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

set exact off
close data

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

set exact on
set delete off
set safe off
this.command2.enabled=.f.
this.Text2.visible=.f.
this.Text3.visible=.f.
this.Text4.visible=.f.
this.Label3.visible=.f.
this.label4.visible=.f.
this.Label5.visible=.f.
use 网站信息表
this.Combo1.value="编号"
with thisform.grid1
  .width=350
  .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
this.grid1.Setall("DynamicBackColor","RGB(224,225,255)","Column")

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

if this.caption="查找"
 if empty(thisform.Text1.value)=.f.
 go top
 a=thisform.Combo1.value
 b=alltrim(thisform.Text1.value)
 c=.f.
  if a="编号"
     locate for 编号=b
     if eof()
        messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
        go top
        return
      else
       c=.t.
     endif
  endif
  if a="网站名称"
     locate for 网站名称=b
     if eof()
        messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
        go top
        return
     else
        c=.t.
     endif
  endif
  if a="网站网址"
     locate for 网站网址=b
     if eof()
        messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
        go top
        return
     else
        c=.t.
     endif
  endif
  if c
     go recno()
     thisform.Text1.enabled=.f.
     thisform.Text2.visible=.t.
     thisform.Text3.visible=.t.
     thisform.Text4.visible=.t.
     thisform.Text2.enabled=.f.
     thisform.Text3.enabled=.f.
     thisform.Text4.enabled=.f.
     thisform.Label3.visible=.t.
     thisform.label4.visible=.t.
     thisform.Label5.visible=.t.
     thisform.Text2.value=网站信息表.编号
     thisform.Text3.value=网站信息表.网站名称
     thisform.Text4.value=网站信息表.网站网址
     thisform.grid1.setfocus
     this.caption="撤消"
     thisform.command2.enabled=.t.
  endif
 else
   messagebox("请输入要查找的内容!",16,"系统提示")
   thisform.Text1.value=""
   thisform.Text1.Setfocus
 endif
else
 thisform.Text1.enabled=.t.
 thisform.Text2.visible=.f.
 thisform.Text3.visible=.f.
 thisform.Text4.visible=.f.
 thisform.Text2.enabled=.f.
 thisform.Text3.enabled=.f.
 thisform.Text4.enabled=.f.
 thisform.Label3.visible=.f.
 thisform.label4.visible=.f.
 thisform.Label5.visible=.f.
 thisform.Text2.value=""
 thisform.Text3.value=""
 thisform.Text4.value=""
 thisform.grid1.setfocus
 this.caption="查找"
 thisform.command2.enabled=.f.
 go top
 thisform.grid1.setfocus
 thisform.Text1.value=""
 thisform.Text1.Setfocus
endif
thisform.refresh

(四)“删除”按钮(command2)的click事件代码:

msg=messagebox('您确定要删除这条记录吗?',32+4,'系统提示')
if msg=6 
   delete
   copy to temp.dbf for not deleted()
   zap
   Append from temp.dbf
   delete file temp.dbf
   messagebox("删除记录成功",16,"系统提示")
   go top
   thisform.grid1.refresh
   thisform.command1.caption="查找"
   this.enabled=.f.
   thisform.Text2.visible=.f.
   thisform.Text3.visible=.f.
   thisform.Text4.visible=.f.
   thisform.Label3.visible=.f.
   thisform.label4.visible=.f.
   thisform.Label5.visible=.f. 
   thisform.Text1.enabled=.t.  
   thisform.Text1.value=""
   thisform.Text1.setfocus
   thisform.refresh
endif

十、运行“删除数据表中的记录.scx”。

参考资料:

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

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

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

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

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

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

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

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

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

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

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

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

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