iwunit1.pas

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

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, Classes, Controls, IWControl,
  IWTreeview, IWCompLabel, IWCompMemo, IWDBStdCtrls, client_navigator,
  client_dbgrid, IWHiddenField, client_ds, Forms, u_Frame, u_frame3,
  IWCompButton, IWCompEdit, U_frame_head;

type
  ttreeviewclick=procedure (sender:TObject) of object;
  TformMain = class(TIWAppForm)
    Frame11: TFrame1;
    Frame21: TFrame2;
    Frame31: TFrame3;
    procedure IWAppFormCreate(Sender: TObject);
    procedure Frame11IWLink1Click(Sender: TObject);
    procedure Frame11IWLink2Click(Sender: TObject);
    procedure Frame11IWLink3Click(Sender: TObject);
    procedure Frame11IWLink4Click(Sender: TObject);
    procedure Frame11IWLink5Click(Sender: TObject);

  public
    list:TStringList;

  end;

implementation
{$R *.dfm}

uses
  ServerController,datamoduleUnit,SysUtils;

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

procedure TformMain.Frame11IWLink1Click(Sender: TObject);
begin
   Frame21.IWLinkEdit.OnClick(sender);
end;

procedure TformMain.Frame11IWLink2Click(Sender: TObject);
begin
    Frame21.IWLinkSearch.OnClick(sender);
end;

procedure TformMain.Frame11IWLink3Click(Sender: TObject);
begin
    Frame21.IWLinkMyInfo.OnClick(sender);
end;

procedure TformMain.Frame11IWLink4Click(Sender: TObject);
begin
    Frame21.IWLinkMsgBd.OnClick(sender);
end;

procedure TformMain.Frame11IWLink5Click(Sender: TObject);
begin
     Frame21.IWLinkUserMng.OnClick(sender);
end;

end.