1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91
|
unit WebForm1;
interface
uses
System.Collections, System.ComponentModel,
System.Data, System.Drawing, System.Web, System.Web.SessionState,
System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls,dialogs;
type
TWebForm1 = class(System.Web.UI.Page)
{$REGION 'Designer Managed Code'}
strict private
procedure InitializeComponent;
procedure Btn_annuler_Click(sender: System.Object; e: System.EventArgs);
procedure Btn_valider_Click(sender: System.Object; e: System.EventArgs);
{$ENDREGION}
strict private
procedure Page_Load(sender: System.Object; e: System.EventArgs);
strict protected
Btn_valider: System.Web.UI.WebControls.Button;
Btn_annuler: System.Web.UI.WebControls.Button;
Label1: System.Web.UI.WebControls.Label;
Label2: System.Web.UI.WebControls.Label;
Label3: System.Web.UI.WebControls.Label;
TextBox_identifiant: System.Web.UI.WebControls.TextBox;
TextBox_mdp: System.Web.UI.WebControls.TextBox;
Label4: System.Web.UI.WebControls.Label;
procedure OnInit(e: EventArgs); override;
private
{ Private Declarations }
public
{ Public Declarations }
end;
implementation
uses sysutils;
{$REGION 'Designer Managed Code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWebForm1.InitializeComponent;
begin
Include(Self.Btn_valider.Click, Self.Btn_valider_Click);
Include(Self.Btn_annuler.Click, Self.Btn_annuler_Click);
Include(Self.Load, Self.Page_Load);
end;
{$ENDREGION}
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
begin
// TODO: Put user code to initialize the page here
end;
procedure TWebForm1.OnInit(e: EventArgs);
begin
//
// Required for Designer support
//
InitializeComponent;
inherited OnInit(e);
end;
procedure TWebForm1.Btn_valider_Click(sender: System.Object; e: System.EventArgs);
begin
if(textbox_identifiant.Text='')then
begin
showmessage('Vous n''avez pas saisi d''identifiant');
end
else
if(textbox_mdp.Text='')then
begin
showmessage('Vous n''avez pas saisi de mot de passe');
end
else
if((textbox_identifiant.Text<>'Admin')or(textbox_mdp.Text<>'admin'))then
begin
showmessage('Identifiant ou mot de passe non valide');
end
else
showmessage('c''est bon');
end;
procedure TWebForm1.Btn_annuler_Click(sender: System.Object; e: System.EventArgs);
begin
end;
end. |
Partager