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,
Code:
var pass,user: TSQLDataSet;
{$R *.dfm}
procedure TForm1.BTN_BeendenClick(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.BTN_LoginClick(Sender: TObject);
begin
User:=SQLDataSet1;
pass:=SQLDataSet2;
if (ED_Passwort.Text=pass) and (ED_Username.Text=user) then
begin
Form2.Show;
Form1.Visible:=false;
end;
end;
procedure TForm1.ED_PasswortKeyPress(Sender: TObject; var Key: Char);
begin
User:=SQLDataSet1;
pass:=SQLDataSet2;
if (ED_Passwort.Text=SQLDataSet2) and (ED_Username.Text=SQLDataSet1) then
begin
Form2.Show;
Form1.Visible:=false;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SQLConnection1.Connected:=True;
SQLDataSet1.Active:=True;
SQLDataSet2.Active:=True;
end;
nun zeigt er mir den fehler an Inkompatible typen TSQLDataset und String, ist ja auch verständlich da das Edit Feld ein String wert haben möchte ich aber die zu vergleichenden werte als TSQLDataSet angegeben habe, also zur Verbindungserstellung habe ich einmal den TSQLConnection und zum andern zwei TSQLDataSet's benutzt da ich einmal die
SQL Abfrage mit pass und einmal mit user habe.
naja nun weiß ich nich recht weiter, habe ich in der Grundüberlegung etwas falsch gemacht oder wo sonst??
könnte mir dabei einer Helfen bitte??
Bye