4d v14 具有本地会话管理;要激活它,只需在数据库设置(cfr 4d Web 会话管理)中设置“自动会话管理”选项或使用命令 WEB SET OPTION(Web Keep session; true)。
会话从 4d 开始使用 cookie 进行维护;维护每个过程变量和记录选择。
在“On Web Connection”数据库方法的代码中,您可以编写:
C_TEXT(www_SessionID)
If(www_SessionID=**WEB Get Current Session ID**)
// All variables and selection already exist
...
Else
// Compiler_Web has just been executed.
// This is a new session, no variable or selection exists
// Keep track of the session that 4D just created
www_SessionID:=**WEB Get Current Session ID**
// Initialization of session
// Set up selections
// find connected user
QUERY([User];[User]Login=www_Login)
QUERY([prefs];[prefs]Login=www_Login)
// Setup variables
// Get prefs for this user
www_UserName:=[User]Name
www_UserMail:=[User]mail
End if