Forum: Datenbanken
Delphi
by raccoon,
9. Feb 2005
danke stevie, mit Quoted hats geklappt, also das funzt nun das find ich gut, wisst ihr vielleicht noch wie ich des einstelle das bei enter klicken das so ist als wenn ich den Login button drücke??? weil benutzer drücken ja sehr gerne einfach Enter und somit wird dann eingelogged...ich hoffe ich habs jetzt nicht zu umständlich erklärt :)
Forum: Datenbanken
Delphi
by raccoon,
9. Feb 2005
hast du evtl. zuhause auch internet?? vielleicht wenn du zeit hättest könnten wir dann mal über headset oder icq oder sonstiges reden, nur wenn du zeit hättest oder interesse, das programm pack ich jetzt mal ebend in eine rar
Forum: Datenbanken
Delphi
by raccoon,
9. Feb 2005
so steht das jetzt da:
s1:=ED_Passwort.Text;
s2:=ED_Username.Text;
SQLQuery1.SQL.Text:='Select U_pass FROM T_User Where U_name='+s2;
SQLQuery1.Open;
if SQLQuery1.Fieldbyname('U_pass').asString=s1 then
begin
Forum: Datenbanken
Delphi
by raccoon,
9. Feb 2005
der erkennt bei
SQLQuery1.SQL.OPEN;
das open nicht, wodran kann das liegen??
Forum: Datenbanken
Delphi
by raccoon,
9. Feb 2005
also das problem ist ja er soll sich nicht mit dem namen sysdba und pw masterkey anmelden sondern mit den in der table T_user befindlichen datensätzen, die verbindug zur datenbank über den benutzer sysdba wird in der Procedure FormCreate schon aufgerufen und besteht. In der Datenbank befinden sich auch schon 2 user mit dem entsprechenden pass, diese sind einmal Admin und einmal test mit pw...
Forum: Datenbanken
Delphi
by raccoon,
9. Feb 2005
so habs nochmal geändert, war nur leicht verwirrt gerade, nun also der quellcode sieht nun so aus:
procedure TForm1.BTN_LoginClick(Sender: TObject);
begin
s1:=ED_Passwort.Text;
s2:=ED_Username.Text;
SQLConnection1.Params.Strings:='password='+s1;
SQLConnection1.Params.Strings:='username='+s2;
if (SQLConnection1.Params.Strings=ED_Passwort.Text) and...
Forum: Datenbanken
Delphi
by raccoon,
9. Feb 2005
was meinst du nochmal mit IBD, soll ich anstatt IBD SQLConnection dort einfügen??
Forum: Datenbanken
Delphi
by raccoon,
9. Feb 2005
boa ich check des nich so ganz, ich hab des jetzt so geschrieben,
procedure TForm1.BTN_LoginClick(Sender: TObject);
var s2,s1:string;
s1:=ED_Passwort.Text;
s2:=ED_Username.Text;
IBD.Params.Strings:='password='+s1;
IBD.Praams.Strings:='username='+s2;
begin
Forum: Datenbanken
Delphi
by raccoon,
9. Feb 2005
ja also über den objektinspektor baut er die datenbankverbindung auf, habe auch den loginprompt ausgeschalten da das dauernde verbinden zur datenbank mich stört, die datenbank hab ich erstellt mit interbase benutzen zum datensätze einfügen habe ich den IBExpert.
Forum: Datenbanken
Delphi
by raccoon,
9. Feb 2005
meintest du das so ungefair??
procedure TForm1.BTN_LoginClick(Sender: TObject);
begin
if (SQLConnection1.U_pass=ED_Passwort.Text) and (SQLConnection1.U_Name=ED_Username.Text) then
begin
Form2.Show;
Form1.Visible:=false;
end;
Forum: Datenbanken
Delphi
by raccoon,
9. Feb 2005
Hi,
also ich möchte folgendes fertig stellen, und zwar habe ich eine Form1 wo zwei EditFelder drauf liegen wo man Username und Passwort eingeben muss, diese Eingaben solen dann mit der Interbase Datenbank verglichen werden.
Hier zunächst der Quelltext mit dem ich es versucht habe,
var pass,user: TSQLDataSet;
{$R *.dfm}
