$PBExportHeader$pfctutor.sra $PBExportComments$PowerBuilder Foundation Class Library Tutorial application object forward global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global variables n_cst_appmanager gnv_app end variables global type pfctutor from application end type global pfctutor pfctutor on pfctutor.create appname = "pfctutor" message = create message sqlca = create transaction sqlda = create dynamicdescriptionarea sqlsa = create dynamicstagingarea error = create error end on on pfctutor.destroy destroy( sqlca ) destroy( sqlda ) destroy( sqlsa ) destroy( error ) destroy( message ) end on event close;gnv_app.Event pfc_Close() DESTROY gnv_app end event event connectionbegin;ConnectPrivilege lcp_privilege lcp_privilege = & gnv_app.Event pfc_ConnectionBegin(userid, password, connectstring) Return lcp_privilege end event event connectionend;gnv_app.Event pfc_ConnectionEnd() end event event idle;gnv_app.Event pfc_Idle() end event event systemerror;gnv_app.Event pfc_SystemError() end event
File: pfctutor.sra
Size: 1189
Date: Tue, 22 Jan 2008 23:33:55 +0100
Size: 1189
Date: Tue, 22 Jan 2008 23:33:55 +0100
- application pfctutor(sra)