u_report.pas

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

unit U_report;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, ExcelXP, OleServer, Classes, Controls,
  IWControl, IWframe, U_frame_head, Forms, u_Frame, IWHTMLControls,
  IWCompButton;

type
  TformMainReport = class(TIWAppForm)
    IWframe1: TIWframe;
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWButton3: TIWButton;
    IWButton4: TIWButton;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton3Click(Sender: TObject);
    procedure IWButton4Click(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController,U_myInfo,u_edit,u_search,IWInit;

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

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

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

procedure TformMainReport.IWButton4Click(Sender: TObject);
begin
   rWebapplication.Terminate('Bye-bye!');
end;

end.