open

pfcapsrv.pbl   >   pfc_w_logon   >   open

event open;call super::open;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  open
//
//	Description:  Get information from the logon object
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0   Initial version
// 5.0.04 Validate for a valid PowerObjectParm
// 6.0 	Enhanced to support multiple logon attempts.
// 6.0.01 Hide the picture if there is no application bitmap.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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.
//
//////////////////////////////////////////////////////////////////////////////

ib_disableclosequery = true

// Validate for a valid PowerObjectParm
If IsValid(Message.PowerObjectParm) Then
	If inv_logonattrib.ClassName() = Message.PowerObjectParm.ClassName() Then
		inv_logonattrib = Message.PowerObjectParm
	End IF
Else
	// Set the return code to mean the window was closed by error.
	inv_logonattrib.ii_rc = -1
	inv_logonattrib.is_userid = ""
	CloseWithReturn (this, inv_logonattrib)
	Return
End If

// User ID
sle_userid.text = inv_logonattrib.is_userid

// Password
sle_password.text = inv_logonattrib.is_password

// Logo
If Len(inv_logonattrib.is_logo) > 0 Then
	p_logo.picturename = inv_logonattrib.is_logo
Else
	p_logo.Visible = False
End If

// Application Name
if Len (inv_logonattrib.is_appname) = 0 then
	inv_logonattrib.is_appname = "the application"	
end if
st_help.text = st_help.text + inv_logonattrib.is_appname + "."

// Set the logon attempts variable
If IsValid(inv_logonattrib) Then
	If Not IsNull(inv_logonattrib.ii_logonattempts) Then
		ii_logonattempts = inv_logonattrib.ii_logonattempts
	End If
End If

// Set focus
if Len (sle_userid.text) > 0 then
	if Len (sle_password.text) > 0 then
		cb_ok.SetFocus()
	else
		sle_password.SetFocus()
	end if
else
	sle_userid.SetFocus()
end if

end event

Name	Owner
w_logon_demo.open	w_logon_demo
w_logon_demo.open	w_logon_demo

Name	Owner
powerobject.classname	powerobject
dragobject.setfocus	dragobject
systemfunctions.closewithreturn	systemfunctions
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.len	systemfunctions
pfc_w_master.open	pfc_w_master

Full name
pfc_w_logon
pfc_w_logon.st_help
demopfc