Einzelnen Beitrag anzeigen

PES

Registriert seit: 3. Mai 2004
34 Beiträge
 
#1

Kundennummer zuweisen in Paradox DB

  Alt 17. Mai 2004, 15:09
Hallo,
bei unser Kunden db wir die Kundennummer durch die abfrage maxid automatisch zugewiesen. Jedoch geht er hier in der Kundennummer nie über 10 hinaus. Unsere frge ist ob einer ne ahnung hat warum?? Wir wollen ja mehr als 10 verschiedene Kundennummern vergeben.
Delphi-Quellcode:
begin
   FormNeuerKunde.show;
   FormNeuerKunde.TableNeuerKunde.Active:=True;
   FormNeuerKunde.TableNeuerKunde.insert;


   maxID := -1;
try
  FormNeuerKunde.querySQL.active:=false;
  FormNeuerKunde.querySQL.sql.clear;
  FormNeuerKunde.querySQL.sql.add('SELECT Max(Kundennummer) as maxid FROM Kunde');
  FormNeuerKunde.querySQL.active:=true;
  if FormNeuerKunde.querySQL.RecordCount > 0 then
    maxID:=FormNeuerKunde.querySQL.FieldbyName('maxid').Value
except
end;
     if MaxID = -1 THEN
     FormNeuerKunde.DBEditKundennummer.text:=IntToStr(maxID+2)
     ELSE
     FormNeuerKunde.DBEditKundennummer.text:=IntToStr(maxID+1)



end;
Danke PES
  Mit Zitat antworten Zitat