PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
DO CASE
  CASE nError = 1884    && Primary key violated
    thisform.pageframe1.(nError, cMethod, nLine)
  CASE nError = 1582    && Field rule violated
    thisform.pageframe1.(nError, cMethod, nLine)
  OTHERWISE
    tsMaintForm::Error(nError, cMethod, nLine)
ENDCASE
ENDPROC


PROCEDURE Init
*-- (c) Microsoft Corporation 1995

tsBaseForm::Init()
this.aErrorMsg[DELETETRIG] = DELCUSTOMER_LOC
ENDPROC


PROCEDURE addnew
tsMaintForm::AddNew()
thisform.pageframe1.()
ENDPROC


PROCEDURE cntcustomerinfo.txtCustomer_ID.Refresh
*-- Only allow change to customer ID if we're adding a new record.
this.Enabled = IIF(ISNULL(GETFLDSTATE(-1, "customer")),.F.,("3" $ GETFLDSTATE(-1, "customer") OR "4" $ GETFLDSTATE(-1, "customer")))
ENDPROC


ENDDEFINE


如上~~多谢大侠出手相助！~

这应该是一个VFP类定义代码的一部分