|
of_opensqlspyinspect
|
|
Full name
|
pfc_n_cst_sqlspy.of_opensqlspyinspect
|
Access
|
protected
|
Extend of
|
integer
|
Return value
|
integer
|
Prototype
|
protected function integer of_opensqlspyinspect()
|
Name
|
Datatype
|
li_rc
|
integer
|
li_testrc
|
integer
|
protected function integer of_opensqlspyinspect ();//////////////////////////////////////////////////////////////////////////////
//
// Function: of_OpenSQLSpyInspect
//
// Access: protected
//
// Arguments:
//
// Returns: integer
// 0 if it succeeds and the caller's processing should
// continue as normal.
// 1 if it suceeds but the caller's proccessing should stop.
// 2 if it succeeds but the caller's processing should skip
// this request and execute the next request (if any).
// -1 if an error occurs.
//
// Description: Open the SQLSpyInspect window.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 5.0 Initial version
// 5.0.02 Prevent the SQLSpy window from being on top of the SQLSpyInspect window.
//
//////////////////////////////////////////////////////////////////////////////
//
// Copyright © 1996-1997 Sybase, Inc. and its subsidiaries. All rights reserved.
// Any distribution of the PowerBuilder Foundation Classes (PFC)
// source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////
integer li_rc, li_testrc
// If appropriate, prevent the SQLSpy window from being on top of
// the SQLSpyInspect window.
If ib_alwaysontop Then
If IsValid(iw_sqlspy) Then
li_testrc = iw_sqlspy.of_SetAlwaysOnTop(False)
End If
End If
//Wait on user inspection.
Open(iw_sqlspyinspect)
//Get the return value
li_rc = Message.DoubleParm
// If appropriate, reset the SQLSpy window to always be on top.
If ib_alwaysontop Then
If IsValid(iw_sqlspy) Then
li_testrc = iw_sqlspy.of_SetAlwaysOnTop(True)
End If
End If
Return li_rc
end function