在线帮小弟翻译一下数据库代码~~~ - SQL Server论坛

已结贴√ 问题点数：20 回复次数：1

在线帮小弟翻译一下数据库代码~~~

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

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

搜索更多相关主题的帖子: 数据库　代码　翻译　在线　