实用命令按钮控件设置

)添加命令按钮组

为了实现移动记录指针的功能，我们再向表单上添加一个命令按钮组对象，该对象缺省名为CommandGroup1，包含两个命令按钮Command1和Command2。激活代码窗口，为命令按钮组CommandGroup1对象的Click事件输入如下代码：

DO CASE

  CASE THIS.Value = 1 && Value属性指明单击了哪个按钮

SKIP –1    &&记录指针向前移动一个记录

IF BOF()   &&记录指针在表头，则BOF()返回.T.,否则返回.F.

GO TOP        &&记录指针移动到第一个记录

ENDIF

Thisform.Refresh        &&显示移动指针后当前记录的值

  CASE THIS.Value = 2

Skip 1         &&记录指针向后移动一个记录

If EOF()   &&记录指针在表尾，则Eof()返回.T.,否则返回.F.

GO BOTTOM     &&记录指针移动到末一个记录

ENDIF

Thisform.Refresh

ENDCASE

使用SKIP命令移动了记录指针，并不会改变表单上字段值的显示，因此最后一行语句的作用是调用表单的Refresh方法来更新字段的显示，使它们显示移动记录指针后当前记录的值。注意，如果只单击命令组，而没有单击某一个按钮，Value 属性的值仍为上一次选定的命令按钮。

现在，请按表5-3修改命令按钮组中两个按钮的属性，并且将表单的“ShowTips”属性改为.T.。鼠标右键单击“CommandGroup1”对象，选择快捷菜单中的“编辑”，待CommandGroup1对象周围出现虚环绕框后，选中里面的Command1 或Command2对象来调整好它们的大小和位置，设置两个按钮的属性值（见表5-3）。您还可以按照自己的喜好改变命令按钮组的“BackStyle”和“BorderStyle”属性。这样我们就做成了两个漂亮的图形按钮，运行表单时，鼠标一指按钮还能出现提示文字，非常专业

用vfp的表单向导可自动生成 

或者： 
上一条： 
if !bof() 
skip -1 
endi 
下一条： 
if !eof() 
skip 
endi 
首记录 
go top 
末记录： 
go bott 
删除： 
dele 
添加： 
appe blan 
关闭： 
thisform.release

我在表单中加入一个“添加”的按钮，在此按钮的CLICK事件中该如何写一段代码，当事件触发时，按钮的CAPTION变为“保存”，并产生该“保存”按钮相应的代码以供使用？而在“保存”按钮的CLICK事件触发时又变回“添加”按钮的相应CAPTION和CLICK事件代码。该过程如何实现，能写上代码，或做上实例发送给我最好了。很希望得到解决方法，谢谢！

问题补充：能不能说详细点。。比如我在表单上建立3个标签，分别是text1,text2,text3,要把内容保存D:\vfp98\table1这个表中。（字段分别为姓名、部门、职务、要求按了"添加"后可以在标签输入内容，但当caption属性为“保存”的时候标签的enabled属性为。F。再按一下添加后又能输入内容。）

第一,你的三个文本框在建立的时候把ENABLED属性改为.F.并将表table1添加到表单的数据环境中
然后 
if this.CAPTION="添加" 
this.caption="保存" 
thisform.text1.enabled=.t. 
thisform.text2.enabled=.t. 
thisform.text3.enabled=.t. 
thisform.text1.setfocus&&TEXT1为你要输入的第一个文本框控件! 
else 
this.caption="添加" 
&&此处写你的保存代码,一般情况下可用INSERT命令进行形式如下: 
&&insert into 表名(字段1,字段2,...) values (值1,值2,...)&&表名不要加".DBF"后缀,另可以在INSERT之前加入一些自己的检查代码! 
insert into table1(姓名,部门,职务) values; 
(thisform.text1.value,thisform.text2.value,thisform.text3.value) 
thisform.text1.enabled=.f. 
thisform.text2.enabled=.f. 
thisform.text3.enabled=.f. 
endif