usersessionunit.pas

来自「DELPHI下Intraweb技术写的客户端。」· PAS 代码 · 共 26 行

unit UserSessionUnit;

{
  This is a DataModule where you can add components or declare fields that are specific to 
  ONE user. Instead of creating global variables, it is better to use this datamodule. You can then
  access the it using UserSession.
}
interface

uses
  IWUserSessionBase, SysUtils, Classes, DB, ADODB;

type
  TIWUserSession = class(TIWUserSessionBase)
    ADOConnection1: TADOConnection;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

end.