Unerklärliches selbstständiges Insert?

[grenzgaenger]

würde dir raten, das ganze erst mal auf SQL umzustellen... dein code stück sieht dann in etwa wie folgt aus..

Delphi-Quellcode:

procedure TfrmMain.JvLoginDialog1CheckUser(Sender: TObject; const UserName,
  Passwoprocedure TfrmMain.JvLoginDialog1CheckUser(Sender: TObject; const UserName,
  Password: string; var AllowLogin: Boolean);
var
  tblUs: TADOQuery;
  i: integer;
begin
  userID := 0;
  userNa := '';
  tblUs := TADOQuery.Create(self);
  try
   tblUs.Connection := ADOCon1;
   tblus.sql.add('select UserId, Kurz, Password from Nutzer where kurz = ' + quotedstr(username);
   tblUs.Open;
   if tblus.recordcount > 0 then 
   begin
    tblus.first;
    if tblUs.FieldByName('Password').AsString = Password then
    begin
     userID := tblUs.FieldByName('UserID').AsInteger;
     userNa := tblUs.FieldByName('Kurz').AsString;
    end;
   end; 
   tblUS.Close;
  finally
   tblUs.Free;
  end;
  if userID = 0 then
  begin
    ShowMessage('Ungültiger Benutzername. Anwendung wird beendet.');
    ADOCon1.Close;
    JvLoginDialog1.TerminateApplication;
  end;
end;