u_frame.pas

Delphi 应用举例

unit u_Frame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, IWCompButton, IWCompLabel, IWHTMLControls, IWControl,IWInit;

type
  TFrame2 = class(TFrame)
    IWLinkEdit: TIWLink;
    IWLinkSearch: TIWLink;
    IWLinkMyinfo: TIWLink;
    IWLinkMsgBd: TIWLink;
    IWURL1: TIWURL;
    IWURL2: TIWURL;
    IWURL3: TIWURL;
    IWLabel1: TIWLabel;
    IWButton1: TIWButton;
    IWLinkUserMng: TIWLink;
    procedure IWButton1Click(Sender: TObject);
    procedure IWLinkMyinfoClick(Sender: TObject);
    procedure IWLinkEditClick(Sender: TObject);
    procedure IWLinkSearchClick(Sender: TObject);
    procedure IWLinkMsgBdClick(Sender: TObject);
    procedure IWLinkUserMngClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}
uses U_myInfo,u_edit,u_search,ServerController,u_userMng;
procedure TFrame2.IWButton1Click(Sender: TObject);
begin
    rWebapplication.Terminate('Bye-bye!');
end;

procedure TFrame2.IWLinkMyinfoClick(Sender: TObject);
begin
     Parent.Free;
     TFormMainMyinfo.Create(rwebapplication).Show;
end;

procedure TFrame2.IWLinkEditClick(Sender: TObject);
begin
     Parent.Free;
     TFormMainEdit.Create(rwebapplication).Show;
end;

procedure TFrame2.IWLinkSearchClick(Sender: TObject);
begin
     Parent.Free;
     TFormMainSearch.Create(rwebapplication).Show;
end;

procedure TFrame2.IWLinkMsgBdClick(Sender: TObject);
begin
     rwebapplication.ShowMessage('抱歉，此页空缺。');
end;

procedure TFrame2.IWLinkUserMngClick(Sender: TObject);
var buf:TUserinfo;
begin
    
    buf:=userlist.find(userSession.userID);
    if buf.kind=1 then begin
       Parent.Free;
       TformMainUserMng.Create(rwebapplication).Show;
    end
    else
       rwebapplication.ShowMessage('抱歉，你没有这个权限。');
     
end;

end.