Guten Abend zusammen,
ich möchte gern eine Art Benutzer-Login schreiben, die einzelnen User sollen sich auf einer Internetseite mit Namen, Vornamen sowie Passwort anmelden. Als Datenbank benutze ich Interbase.
Scheinbar sehe ich bei dieser Arbeit den Wald vor lauter Bäumen nicht denn es gelingt mir nicht mit einer simplen SQL Anweisung zu prüfen, ob der User, der sich grad anmelden möchte, in der Datenbank vorhanden ist denn die Ergebnissmege die ich ggf. von dem SQL_Statement bekomme kann ich irgendwie nirgendwo sehen, weder im DataSet noch sonstwo (in den älteren Versionen von Delphi gab es zb. FieldByName etc, dass gibt es scheinbar in 'Delphi 2005 nicht mehr oder??? ) .
Es wäre klasse wenn mir einer sagt wo ich bei dem nachfolgenden Quelltext falsch denke.
Danke für eure Hilfe
Gruß Michael
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,
Borland.Data.Provider, System.Data.SqlClient, System.Data.Common,
System.Globalization, System.Configuration, Borland.Data.Common,
DataSet1Unit;
procedure OnInit(e: EventArgs); override;
private
s_Name : String;
s_Vorname : String;
s_Passwort : String;
procedure Check_User_Info( f_Name, f_Vorname, f_Passwort : String );
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
implementation
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
begin
// TODO: Hier Anwendercode zum Initialisieren der Seite einfügen
if not IsPostBack then
DataBind();
end;
procedure TWebForm1.OnInit(e: EventArgs);
begin
//
// Erforderlich zur Unterstützung des Designers
//
InitializeComponent;
inherited OnInit(e);
end;
procedure TWebForm1.btn_Login_Click(sender: System.Object; e: System.EventArgs);
begin
if( ( tb_Name.Text <> '' ) and
( tb_Vorname.Text <> '' ) and
( tb_Passwort.Text <> '' ) ) then
Begin
s_Name := tb_Name.Text;
s_Vorname := tb_Vorname.Text;
s_Passwort := tb_Passwort.Text;
Check_User_Info( s_Name, s_Vorname, s_Passwort );
lb_Result.Visible := False;
end
else
Begin
lb_Result.Text := 'Bitte geben Sie die notwendigen Daten für die Anmeldung ein !!';
lb_Result.Visible := True;
end;
end;
procedure TWebForm1.ListBox1_SelectedIndexChanged(sender: System.Object; e: System.EventArgs);
begin
label1.Text := listbox1.SelectedItem.Text;
label2.Text := listbox1.SelectedItem.Value;
end;
procedure TWebForm1.Check_User_Info(f_Name, f_Vorname, f_Passwort : String);
Var
Command_Text : String;
begin
BdpDataAdapter1.SelectCommand.CommandText := '';
BdpDataAdapter1.Active := FALSE;
Command_Text := 'SELECT * from CUSTOMER ';
Command_Text := Command_Text + 'WHERE Last_Name= "'+f_Name + '" and ';
Command_Text := Command_Text + 'First_Name= "' +f_Vorname+ '" and ';
Command_Text := Command_Text + 'Passwort= "' +f_Passwort+'"';
BdpDataAdapter1.Active := TRUE;
BdpDataAdapter1.SelectCommand.CommandText := Command_Text;
if DataSet1 <> nil then
Begin
lb_Result.Text := 'Alles OK';
lb_Result.Visible := TRUE;
end;
end;
ich möchte gern eine Art Benutzer-Login schreiben, die einzelnen User sollen sich auf einer Internetseite mit Namen, Vornamen sowie Passwort anmelden. Als Datenbank benutze ich Interbase.
Scheinbar sehe ich bei dieser Arbeit den Wald vor lauter Bäumen nicht denn es gelingt mir nicht mit einer simplen SQL Anweisung zu prüfen, ob der User, der sich grad anmelden möchte, in der Datenbank vorhanden ist denn die Ergebnissmege die ich ggf. von dem SQL_Statement bekomme kann ich irgendwie nirgendwo sehen, weder im DataSet noch sonstwo (in den älteren Versionen von Delphi gab es zb. FieldByName etc, dass gibt es scheinbar in 'Delphi 2005 nicht mehr oder??? ) .
Es wäre klasse wenn mir einer sagt wo ich bei dem nachfolgenden Quelltext falsch denke.
Danke für eure Hilfe
Gruß Michael
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,
Borland.Data.Provider, System.Data.SqlClient, System.Data.Common,
System.Globalization, System.Configuration, Borland.Data.Common,
DataSet1Unit;
procedure OnInit(e: EventArgs); override;
private
s_Name : String;
s_Vorname : String;
s_Passwort : String;
procedure Check_User_Info( f_Name, f_Vorname, f_Passwort : String );
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
implementation
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
begin
// TODO: Hier Anwendercode zum Initialisieren der Seite einfügen
if not IsPostBack then
DataBind();
end;
procedure TWebForm1.OnInit(e: EventArgs);
begin
//
// Erforderlich zur Unterstützung des Designers
//
InitializeComponent;
inherited OnInit(e);
end;
procedure TWebForm1.btn_Login_Click(sender: System.Object; e: System.EventArgs);
begin
if( ( tb_Name.Text <> '' ) and
( tb_Vorname.Text <> '' ) and
( tb_Passwort.Text <> '' ) ) then
Begin
s_Name := tb_Name.Text;
s_Vorname := tb_Vorname.Text;
s_Passwort := tb_Passwort.Text;
Check_User_Info( s_Name, s_Vorname, s_Passwort );
lb_Result.Visible := False;
end
else
Begin
lb_Result.Text := 'Bitte geben Sie die notwendigen Daten für die Anmeldung ein !!';
lb_Result.Visible := True;
end;
end;
procedure TWebForm1.ListBox1_SelectedIndexChanged(sender: System.Object; e: System.EventArgs);
begin
label1.Text := listbox1.SelectedItem.Text;
label2.Text := listbox1.SelectedItem.Value;
end;
procedure TWebForm1.Check_User_Info(f_Name, f_Vorname, f_Passwort : String);
Var
Command_Text : String;
begin
BdpDataAdapter1.SelectCommand.CommandText := '';
BdpDataAdapter1.Active := FALSE;
Command_Text := 'SELECT * from CUSTOMER ';
Command_Text := Command_Text + 'WHERE Last_Name= "'+f_Name + '" and ';
Command_Text := Command_Text + 'First_Name= "' +f_Vorname+ '" and ';
Command_Text := Command_Text + 'Passwort= "' +f_Passwort+'"';
BdpDataAdapter1.Active := TRUE;
BdpDataAdapter1.SelectCommand.CommandText := Command_Text;
if DataSet1 <> nil then
Begin
lb_Result.Text := 'Alles OK';
lb_Result.Visible := TRUE;
end;
end;