u_usermng.pas

来自「Delphi 应用举例」· PAS 代码 · 共 36 行

unit u_usermng;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWCompLabel, IWCompListbox,
  IWDBStdCtrls, IWCompEdit, Classes, Controls, IWControl, IWGrids,
  IWDBGrids, Forms, u_Frame, U_frame_head, client_navigator, client_dbgrid,
  IWHiddenField, client_ds;

type
  TformMainUserMng = class(TIWAppForm)
    Frame21: TFrame2;
    IWClientDataSet1: TIWClientDataSet;
    IWClientDBGrid1: TIWClientDBGrid;
    IWClientDBNavigator1: TIWClientDBNavigator;
    Frame31: TFrame3;
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController,dataModuleUnit,SysUtils,dtmdl;

procedure TformMainUserMng.IWAppFormCreate(Sender: TObject);
begin
    Frame31.lbluser.Caption:='当前用户：'+Usersession.userID;
    Frame31.lblCount.Caption:='在线用户数：'+IntToStr(UserOnLine);
end;

end.