unttemp.~pas

资料室图书借阅管理系统

unit unttemp;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWTypes, IWCompEdit,
  IWHTMLControls, IWCompLabel, Controls, IWVCLBaseControl, IWBaseControl,
  IWControl, IWCompButton, DB, ADODB, jpeg, IWExtCtrls, IWBaseHTMLControl;

type
  Tfrmtemp = class(TIWAppForm)
    IWButton1: TIWButton;
    IWLabel2: TIWLabel;
    IWHRule1: TIWHRule;
    IWEdit1: TIWEdit;
    IWButton2: TIWButton;
    IWImage1: TIWImage;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
  public
  end;

implementation

uses ServerController,  tempuntmain, untmguser;

{$R *.dfm}


procedure Tfrmtemp.IWButton1Click(Sender: TObject);
begin
 if  style=1 then
begin
  if  temppassword<>iwedit1.Text then
  begin
     webapplication.ShowMessage('请正确输入您的密码',smAlert);
     iwedit1.Text:='';
  end
  else
  begin
    tfrmmguser.Create(WebApplication).Show;
    Release;
  end;
end
else
   webapplication.ShowMessage('您需以管理员身份登录，才能进入',smAlert)
end;


procedure Tfrmtemp.IWButton2Click(Sender: TObject);
begin
    ttempfrmmain.Create(WebApplication).Show;
   Release;
end;

end.