命令按钮组的常规代码是什么？

用向导，就只有　　标签和文本框　的搭配　　，想弄个标签和组合框的　　　，又弄不出向导那样的按钮组。。。

谁给来几个代码：

1、添加新记录的

2、编辑记录的

3、打印报表的

4、删除记录的

如下图

之前就有类似问题的贴

https://bbs.bccn.net/viewthread.php?tid=458350&extra=page%3D1%26amp%3Bfilter%3D0%26amp%3Borderby%3Dlastpost%26amp%3Bascdesc%3DDESC

4、删除记录的
dele for x=y
pack

表单上、手工做个按钮组很容易呀。
楼主的问题最好细化一下，这样能有针对性的考虑方案。实现楼主所说的按钮上写代码，必须针对具体的任务而做。
有时可能很简单，有时可能很复杂的。

多用向導的好處

具体的问题是这样的：

图中，有　文件头、上一条、下一条、文件尾，　　添加，编辑，删除，打印等按钮

这是用向导生成的。

但向导生成的表单，只有左标签，右文本框，这种样式，而且，整个向导过程中，也只能选一个父表和一个子表

如下图的多表操作，向导就没有这功能了吧

[此贴子已经被作者于2015-10-27 00:42编辑过]

整个程序，就是围着材料转。

主要的表1————材料流水
根据收到或派出材料的时间，生成账单号。但因为同一笔单子，可能收到几种材料或派出几种材料，所以，流水里还有自己的总流水号

主要的表2————收料明细
就是记录一个单子，是哪个供应单位给的材料，一单给了几项材料，谁接收的

主要的表3————用料明细
记录谁领走了材料，用途是什么做什么工程了

辅助表很多，像供应单位，就那么几家，材料分类，也就那么几种
————————————————————————————————————————————————————
为了减少冗余，这三个主要的表，最好不要合在一起
为了减少输入时的错误，也为了操作方便，像供应单位和材料分类，我想在表单上使用组合框去点选，而在三个主要表中记录的只是一个分类的编号
如下图

这样的数据库设计，冗余肯定是少了，但对编程技巧的要求就提高了

我设计的收料单，需要同时调取流水中的数据、收料明细中的数据、材料分类、供应单位等，很多张表

这在向导里，应该是不好做，或者做不到

但向导能生成的那一排按钮组，确实挺有用

我就想自定义一个一对多多多的表单，但做不出相应的按钮。

感谢你的提示，让我多学了一招“查看父代码”

但问题是，在百度里，可以搜到“第一条、上一条、下一条、最后一条”这样的按钮组代码，虽然那不是针对多表联动的，但至少可以得到一定的思路

而搜“vfp按钮组添加的代码”之类的，根本搜不到，翻了几本书，也没有细致讲解的

总结一个字，写书的人，太扣门了，传授知识很吝啬啊！
——————————————————————————————————
父代码，例如“添加”的
IF THIS.Parent.EditMode
    THIS.Parent.UpdateRows()
ELSE
    IF !THIS.Parent.AddRec()
        RETURN
    ENDIF
ENDIF

THIS.Parent.EditMode = !THIS.Parent.EditMode
THIS.Parent.AddMode = THIS.Parent.EditMode
THIS.Parent.TopFile = .F.
THIS.Parent.ButtonRefresh()
THIS.Parent.NavRefresh()
————————————————————————————————————————
表单的继承方法
#DEFINE C_NOUPDATE_LOC    "你不能添加新纪录，因为该选定的视图不能发送更新。"
#DEFINE    DIALOG_CLASSLIB "WIZBTNS.VCX"

LOCAL lnSaveRec,lcSaveData,loAddRec,loCustom,cPrimaryKey,lcClassLib,nPrimaryKey

IF EOF() OR BOF()
    GO TOP
ENDIF
lnSaveRec = RECNO()

DO CASE
CASE FILE(DIALOG_CLASSLIB)
    lcClassLib = DIALOG_CLASSLIB
CASE FILE(HOME()+"WIZARDS\"+DIALOG_CLASSLIB)
    lcClassLib = HOME()+"WIZARDS\"+DIALOG_CLASSLIB
OTHERWISE
    lcClassLib = ""
ENDCASE

DO CASE
CASE CURSORGETPROP("SourceType")#3 AND ;
  !CURSORGETPROP("offline") AND ;
  !CURSORGETPROP("SendUpdates")
    MESSAGEBOX(C_NOUPDATE_LOC)
    RETURN .F.
CASE EMPTY(CURSORGETPROP("database"))
    * Free table
    APPEND BLANK
CASE CURSORGETPROP("SourceType")#3
    * View
    APPEND BLANK
CASE CURSORGETPROP("buffering")#1 AND !THIS.lPromptKey
    * buffered data
    APPEND BLANK
CASE EMPTY(lcClassLib)
    * could disable this if you feel
    * potential unique ID conflicts could arise
    APPEND BLANK
OTHERWISE
    lcSaveData = SET("DATABASE")
    SET DATABASE TO CURSORGETPROP("database")
    cPrimaryKey = DBGETPROP(CURSORGETPROP("sourcename"),"Table","PrimaryKey")
    nPrimaryKey = TAGNO(m.cPrimaryKey)
    SET DATABASE TO &lcSaveData
    IF EMPTY(cPrimaryKey) OR m.nPrimaryKey=0
        APPEND BLANK
    ELSE
        cPrimaryKey=KEY(m.nPrimaryKey)
        loAddRec=NewObject("AddRecord",lcClassLib,"")
        loCustom = Create('custom')
        loAddRec.cKeyField = m.cPrimaryKey
        loAddRec.cKeyValue = EVAL(m.cPrimaryKey)
        loAddRec.oRetValue = loCustom
        loAddRec.Show()
        IF loCustom.nBtnAction=1
            INSERT INTO (ALIAS()) ((m.cPrimaryKey)) VALUES(loCustom.cKeyValue)
        ELSE
            THIS.HadError = .T.   
        ENDIF
    ENDIF
ENDCASE

IF THIS.HadError
    THIS.HadError = .F.
    GO lnSaveRec
    RETURN .F.
ENDIF

THISFORM.Refresh()
——————————————————————————————
向导生成的按钮组的继承方法：    略

[此贴子已经被作者于2015-10-27 09:40编辑过]