untframe.pas

资料室图书借阅管理系统

unit untframe;

interface

uses
  {$IFDEF Linux}QForms,{$ELSE}Forms,{$ENDIF}
  {$IFDEF Linux}QControls,{$ELSE}Controls,{$ENDIF}
  {$IFDEF Linux}QGraphics,{$ELSE}Graphics,{$ENDIF}
  {$IFDEF Linux}QDialogs,{$ELSE}Dialogs,{$ENDIF}
  {$IFNDEF Linux}
  Windows, Messages,
  {$ENDIF}
  SysUtils,IWInit, IWTypes, Classes, IWControl, IWHTMLControls,
  IWCompButton, IWCompLabel, IWAppForm, IWContainer, IWRegion,
  IWBaseControl, IWCompMenu, Menus, ImgList, IWImageList,
  IWVCLBaseControl, IWVCLBaseContainer, IWBaseHTMLControl;
type
  TIWFrame1 = class(TFrame)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    IWMenu1: TIWMenu;
    N10: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N5: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    f1: TMenuItem;
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure f1Click(Sender: TObject);

  private
    { Private declarations }

    procedure Move(AFormClass: TIWAppFormClass);

  end;

implementation

uses ServerController, untluru, untqkluru, unqkbasic, untpub, untsbook,
  untnewbook, untsqk, untsread, untreturn, untexpire, untszglob,
  untqkluru22, untmgdept, untmgread, untmguser, unttemp, untback,
  untpassword, untlog;

{$R *.dfm}
procedure Tiwframe1.Move(AFormClass: TIWAppFormClass);
begin
  // Release the current form
  TIWAppForm(WebApplication.ActiveForm).Release;
  // tiwappform(webapplication.ActiveForm).Release;
  // Create the next form
  AFormClass.Create(WebApplication).Show;
end;

procedure TIWFrame1.N8Click(Sender: TObject);
begin
   move(tfrmluru);
end;

procedure TIWFrame1.N9Click(Sender: TObject);
begin
   move(tfrmqkluru);
end;

procedure TIWFrame1.N13Click(Sender: TObject);
begin
    move(tfrmpub);
end;

procedure TIWFrame1.N14Click(Sender: TObject);
begin
    move(tfrmqkbasic);
end;

procedure TIWFrame1.N2Click(Sender: TObject);
begin
  move(tfrmsbook);
end;

procedure TIWFrame1.N3Click(Sender: TObject);
begin
   move(tfrmsqk);
end;

procedure TIWFrame1.N4Click(Sender: TObject);
begin
    move(tfrmsread);
end;

procedure TIWFrame1.N6Click(Sender: TObject);
begin
    move(tfrmnewbook);
end;

procedure TIWFrame1.N12Click(Sender: TObject);
begin
      move(tfrmreturn);
end;

procedure TIWFrame1.N15Click(Sender: TObject);
begin
     move(tfrmexpire);
end;

procedure TIWFrame1.N19Click(Sender: TObject);
begin
    move(tfrmszglob);
end;


procedure TIWFrame1.N16Click(Sender: TObject);
begin
     move(tfrmmgread);
end;

procedure TIWFrame1.N17Click(Sender: TObject);
begin
   move(tfrmtemp);
end;

procedure TIWFrame1.N18Click(Sender: TObject);
begin
    move(tfrmmgdept);
end;

procedure TIWFrame1.N20Click(Sender: TObject);
begin
    move(tfrmpassword);
end;

procedure TIWFrame1.N21Click(Sender: TObject);
begin
    move(tfrmback);
end;

procedure TIWFrame1.f1Click(Sender: TObject);
begin
    move(tfrmlog);
end;

end.