2013-11-09
展开全部
把表添加到数据环境中,再拖到表单中新建控件command1 ,command2讲它们的caption属性修改为 “保存添加”和“退出”在form的INit事件中输入代码use <你要赋值的表>
public temp(表内的字段数)&&这里是设置你想修改或保存的字段数
thisform.txt<字段名1>.readonly=.f.
thisform.txt<字段名2>..readonly=.f.
thisform.txt<字段名x>..readonly=.f.
thisform.txt1.setfocus()&&让表单中
thisform.refresh &&设置刷新表单
scatter to temp &&把值赋值给数组 temp在command1的click事件中输入一下代码m=messagebox("是否要保存修改?",4+48,"信息提示")&&弹出信息提示,提示用户是否保存修改
if m=6 &&当用户按确定时执行下面的代码。
messagebox("保存修改完成",4+48,"信息提示")
scatter to temp
else
gather from temp
thisform.refresh
endif
在command2的click事件中输入以下代码release thisform &&释放表单
use &&关闭表
public temp(表内的字段数)&&这里是设置你想修改或保存的字段数
thisform.txt<字段名1>.readonly=.f.
thisform.txt<字段名2>..readonly=.f.
thisform.txt<字段名x>..readonly=.f.
thisform.txt1.setfocus()&&让表单中
thisform.refresh &&设置刷新表单
scatter to temp &&把值赋值给数组 temp在command1的click事件中输入一下代码m=messagebox("是否要保存修改?",4+48,"信息提示")&&弹出信息提示,提示用户是否保存修改
if m=6 &&当用户按确定时执行下面的代码。
messagebox("保存修改完成",4+48,"信息提示")
scatter to temp
else
gather from temp
thisform.refresh
endif
在command2的click事件中输入以下代码release thisform &&释放表单
use &&关闭表
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询