在VFP表单中的新增,保存按钮的代码如何写

在VFP中我想用text框向grid表格添加记录，那么增加的按钮代码怎么写？~

在删除按钮中加入DELETED即可如果不想显示已删除的记录,可在调用表单时设置:SET DELETED ON在这里不能使用PACK时行物理删除,否则表格显示异常,可能是VF的一个BUG,如果要彻底删除,可在退出表单时使用PACK命令.

代码要看你要实现什么功能了

这是我的一个程序里用到的"添加/保存"和"编辑/还原"按钮的代码，仅供参考。

“添加/保存”：
LOCAL OrderSave_no,Ord_Temp_no
STORE '' TO OrderSave_no,Ord_Temp_no
SELECT &cPtbl_M
OrderSave_no=ALLTRIM(&cPKeyfld) && 将当前bh赋值给 OrderSave_no
IF '添加'$this.Caption && 如果是添加记录
IF MESSAGEBOX('要添加新记录吗？',48+0+4,"确定")=6
WAIT WINDOW '正在添加新记录,请稍候...' AT 20,50 NOWAIT && 开始添加新记录
STORE RECNO() TO nPRecNoEdit && 为还原时恢复到当前记录
Ord_Temp_no='待编号'+RIGHT(TTOC(DATETIME()),8) && 临时为新bh,避免其它用户生成bh时发生冲突
* SET ORDER TO 流程编号 && 为加快搜索速度,以bh为索引
DO CASE
CASE FIELD('开单人')='开单人' AND FIELD('下单日期')='下单日期'
INSERT INTO &cPtbl_M (&cPKeyfld,录入,录入时间,开单人,下单日期) VALUES (Ord_Temp_no,salesname,DATETIME(),salesname,DATETIME())
CASE FIELD('开单人')='开单人' AND !FIELD('下单日期')='下单日期'
INSERT INTO &cPtbl_M (&cPKeyfld,录入,录入时间,开单人,下单日期) VALUES (Ord_Temp_no,salesname,DATETIME(),salesname,DATETIME())
OTHERWISE
INSERT INTO &cPtbl_M (&cPKeyfld,录入,录入时间) VALUES (Ord_Temp_no,salesname,DATETIME())
ENDCASE
* APPEND BLANK
* REPLACE 产品编号 WITH Ord_Temp_no,录入 WITH salesname, 录入时间 WITH DATETIME()

thisformset.form1.SetAll('backcolor',RGB(255,255,255),"mygrid")
this.Caption="保存(\<S)"
this.parent.cmdadd.Picture ='&mainpath\icon\wzsave01.bmp'
this.Parent.cmdedit.Caption="还原(\<R)"
this.Parent.cmdedit.Picture = '&mainpath\icon\wzundo01.bmp'
this.Parent.SetAll('ENABLED',.F.)
this.Enabled=.T.
this.Parent.cmdedit.Enabled = .T.
this.Parent.Refresh
&& 将快捷键工具栏 mycmdbtns_shortcuts1 的可用状态调整为与本工具栏一致 2010.07.07
thisformset.form1.mycmdbtns_shortcuts1.cmdadd.Caption="保存(\<S)"
thisformset.form1.mycmdbtns_shortcuts1.cmdadd.Picture ='&mainpath\icon\wzsave01.bmp'
thisformset.form1.mycmdbtns_shortcuts1.cmdedit.Caption="还原(\<R)"
thisformset.form1.mycmdbtns_shortcuts1.cmdedit.Picture = '&mainpath\icon\wzundo01.bmp'
thisformset.form1.mycmdbtns_shortcuts1.SetAll('ENABLED',.F.)
thisformset.form1.mycmdbtns_shortcuts1.Enabled=.T.
thisformset.form1.mycmdbtns_shortcuts1.cmdedit.Enabled = .T.
thisformset.form1.mycmdbtns_shortcuts1.Refresh
&& 将快捷键工具栏 mycmdbtns_shortcuts1 的可用状态调整为与本工具栏一致

thisformset.form1.SetAll('readonly',.F.,"mygrid")
thisformset.form1.SetAll('readonly',.F.,'mytxtbox')
thisformset.form1.SetAll('readonly',.F.,'mytxtbox_keyfld')
thisformset.form1.SetAll('readonly',.F.,'combobox')
thisformset.form1.SetAll('readonly',.F.,'myeditbox')
thisformset.form1.SetAll('readonly',.F.,'myspinner')
thisformset.form1.SetAll('readonly',.F.,'mycombobox')
* WAIT WINDOW '准备click。。。。' AT 20,50

* WAIT WINDOW '准备click。。。。Click结束...' AT 20,50
thisformset.form1.mygridcontainer1.MyGrid1.SetFocus
* thisformset.form1.refresh

WAIT WINDOW '新记录已添加,请继续编辑...' AT 20,50 NOWAIT TIMEOUT 0.5 && 准备编辑添加后的新记录
cmdEdited=.T.
* thisformset.form1.cmdAutono.click
ENDIF
ELSE && 如果是保存记录
WAIT WINDOW '正在保存记录,请稍候......' AT 23,50 NOWAIT && 在子表保存之前先将父表的保存，因行缓冲下，父表可能已被保存而没有保存到修改时间等信息
SELECT &cPtbl_M
IF '3'$GETFLDSTATE(-1)=.T. AND '4'$GETFLDSTATE(-1)=.F. && 若是新添加的记录且没有更改过,则询问是否放弃该记录
IF MESSAGEBOX('您添加了一条新记录,但未做过任何编辑！'+CHR(13)+CHR(13)+'是要放弃编辑该记录吗？ 此记录将不会被保存！',32+4,"确定")=6
=TABLEREVERT(.t.)
cmdEdited=.F.
ELSE
RETURN && 若选择否跳出程序
ENDIF
ELSE && 若是新添加已更改过或非新添加的记录

* SELECT lc_lcb_zb && 准备保存子表 行缓冲下无法正确保存每行的录入及修改时间
* SET EXACT ON && 忽略尾部空格
SET COLLATE TO "PINYIN" && update命令使用pinyin模式索引速度比使用machine模式索引快数百倍
UPDATE &cPtbl_D SET 录入=ALLTRIM(salesname),录入时间=DATETIME() WHERE '4'$GETFLDSTATE(-1)=.T. AND &cPKeyfld=OrderSave_no &&AND 流程编号=OrderSave_no
UPDATE &cPtbl_D SET 修改=ALLTRIM(salesname),修改时间=DATETIME() WHERE '2'$GETFLDSTATE(-1)=.T. AND !LEFT(GETFLDSTATE(-1),1)='2' AND &cPKeyfld=OrderSave_no && AND 流程编号=OrderSave_no
=tableupdate(.T.,.T.,'&cPtbl_D')
unlock

* IF ALLTRIM(流程编号)=='' OR '待编号'$流程编号=.T. && 检查bh是否为空或待编号
* IF MESSAGEBOX('编号不能为空或待编号！'+CHR(13)+CHR(13)+'是要放弃编辑该记录吗？ 此记录将不会被保存！',48+0+4,"确定")=6
* =TABLEREVERT(.t.)
* ELSE
* RETURN
* ENDIF
* ELSE && 检查过记录更改状态和bh后,开始保存数据
UPDATE &cPtbl_M SET 录入=ALLTRIM(salesname),录入时间=DATETIME() WHERE '4'$GETFLDSTATE(-1)=.T. && 新添加的记录
UPDATE &cPtbl_M SET 修改=ALLTRIM(salesname),修改时间=DATETIME() WHERE '2'$GETFLDSTATE(-1)=.T. AND !LEFT(GETFLDSTATE(-1),1)='2' &&如果不是新添加记录且更改过
*=TABLEUPDATE(.T.)
=tableupdate(.T.,.T.,'&cPtbl_M')
unlock
* ENDIF
ENDIF

&& 保存后处理命令按钮及界面 Begin
this.Caption="添加(\<A)"
this.Picture ='&mainpath\icon\wznew01.bmp'
this.Parent.cmdedit.Caption="编辑(\<E)"
this.Parent.cmdedit.Picture ='&mainpath\icon\wzedit01.bmp'
this.Parent.SetAll('ENABLED',.T.)

&& 将快捷键工具栏 mycmdbtns_shortcuts1 的可用状态调整为与本工具栏一致 2010.07.07
thisformset.form1.mycmdbtns_shortcuts1.cmdadd.Caption="添加(\<A)"
this.Picture ='&mainpath\icon\wznew01.bmp'
thisformset.form1.mycmdbtns_shortcuts1.cmdedit.Caption="编辑(\<E)"
thisformset.form1.mycmdbtns_shortcuts1.cmdedit.Picture ='&mainpath\icon\wzedit01.bmp'
thisformset.form1.mycmdbtns_shortcuts1.SetAll('ENABLED',.T.)
&& 将快捷键工具栏 mycmdbtns_shortcuts1 的可用状态调整为与本工具栏一致 2010.07.07

thisformset.form1.SetAll('readonly',.t.,"mygrid")
thisformset.form1.SetAll('backcolor',RGB(245,244,235),"mygrid")
thisformset.form1.SetAll('readonly',.T.,'mytxtbox')
thisformset.form1.SetAll('readonly',.T.,'mytxtbox_keyfld')
thisformset.form1.SetAll('readonly',.T.,'combobox')
thisformset.form1.SetAll('readonly',.T.,'myeditbox')
thisformset.form1.SetAll('readonly',.T.,'myspinner')
thisformset.form1.SetAll('readonly',.T.,'mycombobox')
thisformset.form1.setall('fontbold',.F.,'mytxtbox')
this.Parent.Refresh
&& 保存后处理命令按钮及界面 End
SELECT &cPtbl_M
* SET ORDER TO &cPKeyfld && 无此句Locat运行需要1.950秒,有此句则为8.561秒(共享情况下,单机运行速度飞快)
LOCATE FOR &cPKeyfld=OrderSave_no

WAIT WINDOW '记录已保存！' AT 23,50 NOWAIT TIMEOUT 0.8
cmdEdited=.F.
ENDIF
SELECT &cPtbl_M
thisformset.form1.refresh

"编辑/还原"：

SELECT &cPtbl_M
IF RECCOUNT()<1 OR BOF()=.T. OR EOF()=.T.
RETURN
ENDIF

IF "编辑"$this.Caption
WAIT WINDOW '准备编辑记录,请稍候...' AT 20,50 NOWAIT && 开始添加新记录

SELECT &cPtbl_M && 避免在子表时，有时会出现锁定失败的情况
SET FILTER TO && 执行筛选后如果没有找到记录,则此时点编辑会提示"其它用户正在编辑记录" -- 2010.6.16
unlock
IF LOCK()=.f.
WAIT WINDOW '其它用户正在编辑该记录,请稍候再试！' AT 24,50 TIMEOUT 3
ELSE
SELECT &cPtbl_M
STORE RECNO() TO nPRecNoEdit
thisformset.form1.SetAll('backcolor',RGB(255,255,255),"mygrid")
this.Caption = "还原(\<R)"
this.Picture = '&mainpath\icon\wzundo01.bmp'
this.parent.cmdadd.Caption="保存(\<S)"
this.parent.cmdadd.Picture ='&mainpath\icon\wzsave01.bmp'
this.Parent.SetAll('ENABLED',.F.)
this.Enabled = .T.
this.Parent.cmdadd.Enabled = .T. && 2007.12.19

&& 将快捷键工具栏 mycmdbtns_shortcuts1 的可用状态调整为与本工具栏一致 2010.07.07
thisformset.form1.mycmdbtns_shortcuts1.cmdedit.Caption = "还原(\<R)"
thisformset.form1.mycmdbtns_shortcuts1.cmdedit.Picture ='&mainpath\icon\wzundo01.bmp'
thisformset.form1.mycmdbtns_shortcuts1.cmdadd.Caption="保存(\<S)"
thisformset.form1.mycmdbtns_shortcuts1.cmdadd.Picture ='&mainpath\icon\wzsave01.bmp'
thisformset.form1.mycmdbtns_shortcuts1.SetAll('ENABLED',.F.)
thisformset.form1.mycmdbtns_shortcuts1.cmdedit.Enabled = .T.
thisformset.form1.mycmdbtns_shortcuts1.cmdadd.Enabled = .T.
&& 将快捷键工具栏 mycmdbtns_shortcuts 的可用状态调整为与本工具栏一致 2010.07.07

thisformset.form1.SetAll('readonly',.F.,"mygrid")
thisformset.form1.SetAll('readonly',.F.,'mytxtbox')
thisformset.form1.SetAll('readonly',.F.,'mytxtbox_keyfld')
thisformset.form1.SetAll('readonly',.F.,'combobox')
thisformset.form1.SetAll('readonly',.F.,'myeditbox')
thisformset.form1.SetAll('readonly',.F.,'myspinner')
thisformset.form1.SetAll('readonly',.F.,'mycombobox')
WAIT WINDOW '已进入编辑状态,请继续...' AT 20,50 NOWAIT TIMEOUT 0.5 && 已进入编辑状态
cmdEdited=.T.
ENDIF
ELSE
WAIT WINDOW '正在还原记录,请稍候...' AT 20,50 NOWAIT && 开始还原记录
BEGIN TRANSACTION && 为使取消还原时恢复到初始状态
LOCAL cKeyValue
STORE '' TO cKeyValue

LOCAL isedited && 判断父子表是否被修改过
SELECT &cPtbl_M
LOCATE FOR '2'$GETFLDSTATE(-1)=.T. OR '4'$GETFLDSTATE(-1)=.T.
IF FOUND()=.T.
STORE .T. TO isedited
ELSE
STORE .F. TO isedited && 如果父表没有被修改过,再判断子表是否被修改
SELECT &cPtbl_D
LOCATE FOR '2'$GETFLDSTATE(-1)=.T. OR '4'$GETFLDSTATE(-1)=.T.
IF FOUND()=.T.
STORE .T. TO isedited
ELSE
STORE .F. TO isedited
ENDIF
ENDIF

IF "还原"$this.Caption=.t. AND isedited=.T. &&若记录修改过
IF MESSAGEBOX('确实要还原记录吗？刚才所录入的数据将不被保存！'+CHR(13)+CHR(13)+'Would you like to revert? Revised part will not be saved! '+CHR(13)+CHR(13)+'注: 因主编号唯一,仅能还原到主编号生成后的位置！',32+1,'确认还原 Warning')=1
WAIT WINDOW '正在还原记录,请稍候...' AT 20,50 NOWAIT && 开始还原记录
ELSE && 取消还原
ROLLBACK && 为使取消还原时恢复到初始状态
* SELECT &cPtbl_M
* LOCATE FOR '3'$GETFLDSTATE(-1)=.T. && 如果是有新添加但未做过任何修改的记录
* IF FOUND()=.T.
* =TABLEREVERT(.T.)
* ENDIF
* SELECT &cPtbl_D
* LOCATE FOR '3'$GETFLDSTATE(-1)=.T. && 如果是有新添加但未做过任何修改的记录
* IF FOUND()=.T.
* =TABLEREVERT(.T.)
* ENDIF

* SELECT &cPtbl_M
* LOCATE FOR &cPKeyfld=cKeyValue
* thisformset.myRefreshData && 通过表单集的自定义方法myRefreshData刷新数据
RETURN
ENDIF
ENDIF

END TRANSACTION && 为使取消还原时恢复到初始状态

SELECT &cPtbl_M
=TABLEREVERT(.t.)
UNLOCK
SELECT &cPtbl_D
=TABLEREVERT(.t.)
UNLOCK
this.parent.cmdadd.Caption="添加(\<A)"
this.parent.cmdadd.Picture ='&mainpath\icon\wznew01.bmp'
this.Caption="编辑(\<E)"
this.Picture ='&mainpath\icon\wzedit01.bmp'
this.Parent.SetAll('ENABLED',.T.)
&& 将快捷键工具栏 mycmdbtns_shortcuts1 的可用状态调整为与本工具栏一致 2010.07.07
thisformset.form1.mycmdbtns_shortcuts1.cmdadd.Caption="添加(\<A)"
thisformset.form1.mycmdbtns_shortcuts1.cmdadd.Picture ='&mainpath\icon\wznew01.bmp'
thisformset.form1.mycmdbtns_shortcuts1.cmdedit.Caption="编辑(\<E)"
thisformset.form1.mycmdbtns_shortcuts1.cmdedit.Picture ='&mainpath\icon\wzedit01.bmp'
thisformset.form1.mycmdbtns_shortcuts1.SetAll('ENABLED',.T.)
&& 将快捷键工具栏 mycmdbtns_shortcuts1 的可用状态调整为与本工具栏一致 2010.07.07
thisformset.form1.SetAll('backcolor',RGB(245,244,235),"mygrid")
thisformset.form1.SetAll('readonly',.T.,"mygrid")
thisformset.form1.SetAll('readonly',.T.,'mytxtbox')
thisformset.form1.SetAll('readonly',.T.,'mytxtbox_keyfld')
thisformset.form1.SetAll('readonly',.T.,'combobox')
thisformset.form1.SetAll('readonly',.T.,'myeditbox')
thisformset.form1.SetAll('readonly',.T.,'myspinner')
thisformset.form1.SetAll('readonly',.T.,'mycombobox')
thisformset.form1.setall('fontbold',.F.,'mytxtbox')
this.Parent.Refresh

SELECT &cPtbl_M
IF RECCOUNT()>0
GOTO nPRecNoEdit
ENDIF
WAIT WINDOW '记录已还原！' AT 20,50 NOWAIT TIMEOUT 0.5 && 开始还原记录
cmdEdited=.F.
thisformset.form1.Refresh
ENDIF

新增按钮大致的写法是这样的
select 表名
go bott
apend blank 增加空白记录
thisform.text1.setfoucs 设置光标处在文本框1中
保存按钮
判断输入资料是否完整
if empty(thisform.text1.value)
messagebox("不能为空")
return
endif
messagebox("保存成功")
...
代码输入不是一成不变的，还要根据实际情况变动
如有的文本框不与表字段绑定、使用表缓冲等
具体可以与我交流164532332@qq.com

保存什么?

---

平塘县18014215953： vfp如何操作一个按钮的代码变化?？
长孙琪强肝： 第一,你的三个文本框在建立的时候把ENABLED属性改为.F.并将表table1添加到表单的数据环境中 然后 if this.CAPTION=＂添加＂ this.caption=＂保存＂ thisform.text1.enabled=.t. thisform.text2.enabled=.t. thisform.text3.enabled=.t. thisform.text1....

平塘县18014215953： VFP表单中的保存按钮Click代码问题 - ？
长孙琪强肝： 你保存数据的命令在哪?既没有insert、UPDATE,也没有repl,就算设的BUFFER也应该有TABLEUPDATE呀.比的表单或者表的BUFFERMODE设了吗?如果设了要用TABLEUPDATE提交.如果没有在repl下面加一句FLUSH试试,将对表和索引所做的修改存入磁盘.

平塘县18014215953： 在VFP中我想用text框向grid表格添加记录,那么增加的按钮代码怎么写? - ？
长孙琪强肝： 在删除按钮中加入DELETED即可如果不想显示已删除的记录,可在调用表单时设置:SET DELETED ON在这里不能使用PACK时行物理删除,否则表格显示异常,可能是VF的一个BUG,如果要彻底删除,可在退出表单时使用PACK命令.

平塘县18014215953： vfp表单中保存代码是什么? - ？
长孙琪强肝： 查询按钮的简要程序(无索引情况)如下:Select Classlocate for 班级号==alltrim(Thisform.text1.Value)if found()thisform.text2.value=Class.班级名thisform.text3.value=Class.班长名thisform.text4.value=Class.班主任名elsemessagebox('未找到!',...

平塘县18014215953： VFP里面 关于 保存按钮的问题!急急急!!？
长孙琪强肝： oldrecord是自定义属性,在表单菜单,新建属性里添加,不点选下面的access和啥的,直接把这个oldrecord打进取就是~

平塘县18014215953： 怎么在VF表单中添加新类按钮? - ？
长孙琪强肝： VF表单中添加新类按钮方法:use 租借表.dbf &&调用表 appe blank &&增加新记录 repl 客户 with thisform.combo1.value repl 客户编号 with thisform.text1.value Visual FoxPro简称VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,...

平塘县18014215953： 在VFP中,有一个TEXT框,点击保存按钮后,把数据存入SJ数据表 - ？
长孙琪强肝： 你是说, 你输入一个值, 点一次保存一次, 点2次保存2次?你是要保存是检测是否有重复吗? 有重复就拒绝保存?有2个方法:1, 在该字段建立候选索引, 这样保存时会出错,拒绝保存2, 在保存的按钮里, 增加代码,检测textbox里面的值是否在表中存在, 如果存在就提示,不执行保存代码. 参考代码: select 字段名称,count(*) as num from sj where 字段名称=thisform.text1.value group by 字段名称 into cursor temprepeat if recco()>0 *--存在同样的记录, 不执行后面的保存代码 return endif

平塘县18014215953： VFP中添加按钮代码问题 - ？
长孙琪强肝： 不会的. 点击添加按钮后退出程序,看一下表,一定是添加了空记录. 如果你先“确认”,后“取消”,肯定会空记录,因为取消代码没有发现删除的语句.

平塘县18014215953： vf 表单中按钮代码 - ？
长孙琪强肝： 上一条:skip -1 thisform.text1.value=序号 thisform.text2.value=姓名 thisform.text3.value=民族......(所有的text都写上) if 性别=＂男＂ thisform.optiongroup1.value=1 else thisform.optiongroup1.value=0 endif if 政治面貌=＂党员＂ thisform....

平塘县18014215953： 在vfp中,表单向导做的命令按钮源代码如何查看? - ？
长孙琪强肝： 在表单设计窗口,双击安钮就会出现代码窗口查看.