Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#7
  Alt 6. Dez 2002, 20:18
Als Anhaltspunkt :

Code:
WITH LiefModul.LiefDS DO BEGIN
  active := false;
  SelectSQL.Text := 'SELECT * FROM LIEF8 WHERE NR='+Edit1.Text;
  active := true;
  IF IsEmpty THEN BEGIN
    Showmessage ('neuer Datensatz !');
    insert;
    FieldByName ('LIEFSEIT').value := Today;
    FieldByName ('NR').value := StrToInt (Edit1.text);
  END
END;
Der Code legt einen neuen Datensatz an und besetzt die Werte Lieferanten-Nr. und das Feld, wann der Lieferant angelegt wurde vor. Allerdings mit SQL

Gruß
Hansa
  Mit Zitat antworten Zitat