CLASS TBJCode FROM TCodeBase METHOD Setup() ENDCLASS METHOD Setup() CLASS TBJCode ::cPrefix := "º¸Á¸»óÅÂ" ::cTable := "bjcode" ::bTitle := {|| ::SetTitle() } RETURN NIL // - ³¡-