*——接收两个参数
PARAMETERS sMode,sPNo
sMode=""
sPNo=0
IF sMode="new"
SELECT ProInfo
SET FILTER TO
*——计算新的商品编号
IF EOF().AND.BOF().or.reccount()=0
sPNo="000000"
ELSE
GO bottom
sPNo=商品编号
ENDIF
sPNo=AutoInc(pNo)
*——新增空白记录
APPEND BLANK
*——使用计算出的编号
replace 商品编号 WITH sPNo
*——修改表单标题
this.Caption="商品信息新增"
*——保存表单状态
thisform.formmode="new"
thisform.Refresh
RETURN
ENDIF
IF sMode="modify"
*——修改表单标题
this.Caption="商品信息修改"
*——查询商品信息
SELECT ProInfo
LOCATE FOR 商品编号=sPNo
IF FOUND()
ENDIF
*——保存表单状态
thisform.txt商品编号.ReadOnly= .T.
thisform.formmode="modify"
thisform.Refresh
return
ENDIF
这是保存按钮的click