So siehts momentan aus:
Delphi-Quellcode:
v:=v+1;
Label16.caption:=IntToStr(v);
SQLQuery1.Close;
SQLQuery1.SQL.Text:='UPDATE tblvar SET (Auftragsnummer) VALUES ( :Auftragsnummer)';
SQLQuery1.ParamByName('Auftragsnummer').AsString:= IntToStr(v) ;
SQLQuery1.ExecSQL;
SQLTransaction1.commit;
Bei der OnCreate Methode lass ich v auf den Wert der Tabelle setzten.
Aber irgendwie funktioniert das so nicht
Edit: Ich hab mir gerade einen neuen Ansatz überlegt, da ja die Auftragsnummer mit dem Patient verknüpft werden muss. Anstatt die Auftragsnummer in einer extra Tabelle zu speichern kann ich die ja auch in die Patiententabelle mit reinspeichern und wenn ich dann das Programm wieder öffne, den letzten Eintrag auslesen und dann 'letzter Eintrag +1' Oder geht das so nicht ?
Gruß iron