u_guestmain.pas

来自「资料室图书借阅管理系统」· PAS 代码 · 共 66 行

unit U_guestMain;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
  IWHTMLControls;

type
  TIWForm_guest = class(TIWAppForm)
    IWLink1: TIWLink;
    IWLink2: TIWLink;
    IWLink3: TIWLink;
    IWLink4: TIWLink;
    IWLink5: TIWLink;
    procedure IWLink1Click(Sender: TObject);
    procedure IWLink2Click(Sender: TObject);
    procedure IWLink4Click(Sender: TObject);
    procedure IWLink3Click(Sender: TObject);
    procedure IWLink5Click(Sender: TObject);
  public
  end;

implementation
    uses untsbook,untsqk,untreadifo,untnewbook,untlog;
{$R *.dfm}


procedure TIWForm_guest.IWLink1Click(Sender: TObject);
begin
 TIWAppForm(WebApplication.ActiveForm).Release;
Tfrmsbook.Create(WebApplication).Show;



end;

procedure TIWForm_guest.IWLink2Click(Sender: TObject);
begin
   TIWAppForm(WebApplication.ActiveForm).Release;
Tfrmsqk.Create(WebApplication).Show;
end;

procedure TIWForm_guest.IWLink4Click(Sender: TObject);
begin
    TIWAppForm(WebApplication.ActiveForm).Release;
Tfrmreadifo.Create(WebApplication).Show;

end;

procedure TIWForm_guest.IWLink3Click(Sender: TObject);
begin
  TIWAppForm(WebApplication.ActiveForm).Release;
 Tfrmnewbook.Create(WebApplication).Show;

end;

procedure TIWForm_guest.IWLink5Click(Sender: TObject);
begin
     TIWAppForm(WebApplication.ActiveForm).Release;
Tfrmlog.Create(WebApplication).Show;
end;

end.