CONSTRUCTOR PUBLIC customerForm ( ):
SUPER(). oServiceAdapter = NEW openedge.tutorial.services.ServiceAdapter("CustMaint"). InitializeComponent ( ). OpenQuery(). CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END CONSTRUCTOR. |
DESTRUCTOR PUBLIC customerForm ( ):
closeQuery(). IF VALID-OBJECT(components) THEN DO: CAST(components, System.IDisposable):Dispose(). END. END DESTRUCTOR. |