看实例学VFP：用sql语句修改数据表记录

看实例学VFP：用sql语句修改数据表记录2009-02-09 本站老马用sql语句修改表记录的格式为：

UPDATE [数据库名！] 表名 SET 字段名=表达式...WHERE 条件

关于UPDATE语句的格式请参考：。

本例对一例中修改记录的部分用sql语句进行了重写，运行界面如下：

本例运行时表单上用于接收数据的文本框被隐藏，“修改”按钮不可用，在组合框中选择要查找的字段，在文本框中输入查找内容后单击右侧的“查找”按钮后将查找结果显示在上方的表格中，“查找”按钮被禁用，同时激活“修改”按钮及用于接收数据的文本框，并将当前记录（满足查询条件的记录）的值同时显示在文本框中，；单击“修改”按钮后会用表单文本框中的值修改“网站信息表”的当前记录值，修改完毕后grid1会刷新显示，“修改”按钮的再次被禁用，同时激活“查找”按钮并隐藏接收数据文本框。如下图：

本例用到了“数据1”数据库中的“网站信息表”，关于该数据库的情况已经在一文中给出，这里不再详述。

制作步骤如下：

一、新建表单form1，并将其caption属性设置为“用sql语句修改数据表记录”，width属性值设为290，height属性值设为226，AutoCenter属性值设为.t.，并将其保存为“用sql语句修改数据表记录.scx”。

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

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

四、在label控件下方添加一个组合框控件Combo1及一个文本框控件Text1，文本框控件的属性值采用默认即可，组合框控件Combo1的RowSourceType属性值设置为“1-值”，RowSource属性值设置为“编号,网站名称,网站网址”。

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

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

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

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

九、添加事件代码：

（一）表单form1的unload事件：

set exact off
close data

（二）表单form1的init事件：

set exact onthis.command1.enabled=.t.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=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=150endwiththis.grid1.Setall（"DynamicBackColor","RGB（224,225,255）","Column"）

（三）“查找”按钮（command1）的click事件：

if empty（thisform.Text1.value）=.f.go topa=thisform.Combo1.valueb=alltrim（thisform.Text1.value）c=.f.if a="编号" locate for 编号=b if eof（）messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）go topreturnelse c=.t. endifendifif a="网站名称" locate for 网站名称=b if eof（）messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）go topreturn elsec=.t. endifendifif a="网站网址" locate for 网站网址=b if eof（）messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）go topreturn elsec=.t. endifendifif c thisform.Text1.enabled=.f. go recno（） thisform.Text2.visible=.t. thisform.Text2.enabled=.f. thisform.Text3.visible=.t. thisform.Text4.visible=.t. 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.enabled=.f. thisform.command2.enabled=.t.endifelse messagebox（"请输入要查找的内容！",16,"系统提示"） thisform.Text1.value="" thisform.Text1.Setfocusendifthisform.refresh

（四）“修改”按钮（command2）的click事件：

a=thisform.Combo1.valueb=alltrim（thisform.Text1.value）c=alltrim（thisform.Text3.value）d=alltrim（thisform.Text4.value）if empty（c）.or.empty（d） messagebox（"网站名称及网站网址均不可以修改为空值",16,"系统提示"） returnendifmsg=messagebox（"确定要修改记录吗？",32+4,"系统提示"）if msg=6if a="编号" update 网站信息表 set 网站名称=c,网站网址=d where 网站信息表.编号=bendifif a="网站名称" update 网站信息表 set 网站名称=c,网站网址=d where 网站信息表.网站名称=bendifif a="网站网址" update 网站信息表 set 网站名称=c,网站网址=d where 网站信息表.网站网址=b endifmessagebox（"修改记录成功",16,"系统提示"） thisform.grid1.refresh thisform.command1.enabled=.t. thisform.Text1.enabled=.t. 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.value="" thisform.Text1.setfocusendif

十、运行“用sql语句修改数据表记录.scx”。

参考资料:

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