pfc_prelogondlg

pfcapsrv.pbl   >   pfc_n_cst_appmanager   >   pfc_prelogondlg

Name	Datatype
lnv_platform	n_cst_platform
ls_userid	string

event pfc_prelogondlg;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  pfc_prelogondlg
//
//	Arguments:		
//	anv_logonattrib:  Logon object by reference
//
//	Returns:  None
//
//	Description:	Populate logon object before the logon window opens.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	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.
//
//////////////////////////////////////////////////////////////////////////////

string	ls_userid
n_cst_platform	lnv_platform

//////////////////////////////////////////////////////////////////////////////
// Determine default User ID
//////////////////////////////////////////////////////////////////////////////
if of_IsRegistryAvailable() then
	if Len (is_userkey) > 0 then
		RegistryGet (is_userkey + "\logon", "userid", ls_userid)		
	end if
else
	if Len (is_userinifile) > 0 then
		ls_userid = ProfileString (is_userinifile, "logon", "userid", "")
	end if
end if
if Len (ls_userid) = 0 then
	f_setplatform (lnv_platform, true)
	ls_userid = lnv_platform.of_GetUserID()
	f_setplatform (lnv_platform, false)
end if
anv_logonattrib.is_userid = ls_userid

//////////////////////////////////////////////////////////////////////////////
// This object will by default be used to perform logon
//////////////////////////////////////////////////////////////////////////////
anv_logonattrib.ipo_source = this

//////////////////////////////////////////////////////////////////////////////
// Application name and logo
//////////////////////////////////////////////////////////////////////////////
anv_logonattrib.is_appname = iapp_object.DisplayName
anv_logonattrib.is_logo = is_logo
end event

Name	Owner
pfc_n_cst_appmanager.of_logondlg	pfc_n_cst_appmanager
n_cst_demopfc.pfc_prelogondlg	n_cst_demopfc

Name	Owner
systemfunctions.len	systemfunctions
systemfunctions.profilestring	systemfunctions
systemfunctions.registryget	systemfunctions
pfc_n_cst_platform.of_GetUserID	pfc_n_cst_platform
pfc_n_cst_appmanager.of_isregistryavailable	pfc_n_cst_appmanager
f_setplatform.f_setplatform	f_setplatform