在VFP中对一个表（自带的）进行增删改查的语句

来源：百度知道 编辑：UC知道 时间：2024/05/30 10:45:15
最好给给些代码！！！在线等。。。
是增加，删除，修改按钮单击事件里面的代码，谢谢！
备注就是备注类型，婚否是逻辑类型 数据环境没有表我建了一个表人事管理表（rsgl）

添加
if messagebox("是否确定要保存修改的信息？",4+32,"请确认")=6
replace 编号 with val(allt(thisform.text1.value))
replace 姓名 with allt(thisform.text2.value)
replace 学历 with allt(thisform.text3.value)
replace 性别 with allt(thisform.text4.value)
replace 生日 with ctod(allt(thisform.text5.value))
replace 职称 with allt(thisform.text6.value) && 建议将该字段类型改为字符型
replace 婚否 with allt(thisform.text7.value) && 建议将该字段类型改为字符型
replace 备注 with allt(thisform.edit1.value) && 假设表单的备注用编辑框控件
wait "修改的数据已经保存" window at 40,150 nowait && 用于出现提示
thisform.init
else
thisform.init
endif

修改"代码，实现取消控件的只读：
thisform.text1.readonly=.f.
thisform.text2.readonly=.f.
thisform.text3.readonly=.f.
thisform.text4.readonly=.f.
thisform.text5.readonly=.f.
thisform.text6.readonly=.f.
thisform.text7.readonly=.f.
thisform.edit1.readonly=.f.

删除"假设为command2:
go nhere
mb=me