untguest.pas

资料室图书借阅管理系统

unit untguest;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWTypes,untlog, Controls,
  IWVCLBaseControl, IWBaseControl, IWControl, IWHTMLControls,
  IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
  IWTemplateProcessorHTML, IWGrids, IWDBGrids, DB, ADODB, IWBaseHTMLControl,
  IWCompButton;

type
  Tiwfrmguest = class(TIWAppForm)
    IWLink1: TIWLink;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWLink2: TIWLink;
    IWLink3: TIWLink;
    IWLink4: TIWLink;
    IWLink5: TIWLink;
    IWButton1: TIWButton;
    procedure IWLink1Click(Sender: TObject);
    procedure IWLink2Click(Sender: TObject);
    procedure IWLink3Click(Sender: TObject);
    procedure IWLink4Click(Sender: TObject);
    procedure IWLink5Click(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
   // procedure IWButton1Click(Sender: TObject);
  private
    procedure Move0(AFormClass: TIWAppFormClass);

  end;

implementation
uses ServerController,untsbook,untsqk,untsread,untnewbook,untreturn,untreadifo;
{$R *.dfm}
procedure Tiwfrmguest.Move0(AFormClass: TIWAppFormClass);
begin
  // Release the current form
  TIWAppForm(WebApplication.ActiveForm).Release;
   AFormClass.Create(WebApplication).Show;
  // tiwappform(webapplication.ActiveForm).Release;
  // Create the next form
//  AFormClass.Create(WebApplication).Show;
end;
procedure Tiwfrmguest.IWLink1Click(Sender: TObject);
begin

  tfrmlog.Create(webapplication).Show;
end;

procedure Tiwfrmguest.IWLink2Click(Sender: TObject);
begin
// move0(tfrmsbook);
   tfrmsbook.Create(webapplication).Show;

     Release;


// tfrmsbook.Create(webapplication).Show;
end;

procedure Tiwfrmguest.IWLink3Click(Sender: TObject);
begin
move0(tfrmsqk);
//tfrmsqk.Create(webapplication).Show;
end;

procedure Tiwfrmguest.IWLink4Click(Sender: TObject);
begin
move0(tfrmreadifo);
//tfrmreadifo.Create(webapplication).Show;
end;

procedure Tiwfrmguest.IWLink5Click(Sender: TObject);
begin
move0(tfrmnewbook);
//tfrmnewbook.Create(webapplication).Show;
end;

procedure Tiwfrmguest.IWButton1Click(Sender: TObject);
begin
   tfrmsbook.Create(webapplication).Show;
   Release;
end;

initialization
  Tiwfrmguest.SetAsMainForm;

end.