Hallo Dellphianer
ich habe mit diesen Code für meinen Programm Login gebaut.
Das Problem ist relativ einfach! Ich habe Login als HauptForm definiert, da ja als erstest beim Programmstart die Login Form kommen soll. Wenn erfolgreich eingeloggt ist, soll diese aber wieder zu gehen! Nur geht dann logischerweiße bei
Login.Close
die ganze anwendung zu!
Wie kann man das verhindern?
Ich habe die Stelle im Code auch nochmal markiert!
Delphi-Quellcode:
procedure TLogin.Button1Click(Sender: TObject);
var
username : String;
password : String;
userid : String;
userid2 : String;
begin
//Vars fülllen mit den UserLogin Daten
username := CBUsername.Text;
password := EdtPassword.Text;
QryUserCheck.Close;
QryUserCheck.Parameters.ParamByName('username').Value := username;
QryUserCheck.Parameters.ParamByName('password').Value := password;
QryUserCheck.Open;
userid := QryUserCheck.FieldByName('id').AsString;
edit1.Text := userid;
QryUserCheck2.Close;
QryUserCheck2.Parameters.ParamByName('userid2').Value := userid2;
QryUserCheck2.Open;
userid2 := QryUserCheck2.FieldByName('id').AsString;
if userid = userid2 then
begin
//nach falschem Login
ShowMessage('kein login, falsche daten!!!');
end
else
begin
//nach erfolgreichem Login
HauptForm.Show;
Login.Close;//Hier ist das Hacken, da Login die MainForm ist beendet er das ganze programm nach erfolgreichem Login
end
end;
Vielen Dank, gruß Phil