Hallo,
ich habe ein einfaches (denke ich) Problem.
Folgendes ist mir gegeben:
Eine Tabelle Prüfungen (speichert Infos zu einer Prüfung)
Eine Tabelle Kalibrierung (speichert Kalibrierwerte eine Prüfung)
Eine Prüfung beinhaltet immer auch eine Kalibrierung. (Also eine sauberere 1:1 Beziehung (gut könnte sie auch eine Tab nehmen))
Nun füge ich folgende Daten ein:
Delphi-Quellcode:
with ADOQuery1
do
begin
SQL.Clear;
// Letzte Prüfnummer holen
SQL.Text:='
SELECT * FROM tblPruefung ORDER by PruefNr';
Open;
// Letzten Datensatz auswählen
Last;
pNr:= FieldByName('
PruefNr').AsInteger;
// Prüfungsnummer wird eins hoch gezählt
inc(pNr);
// Fügt einen Neuen leeren Datensatz am Ende der Datenmenge ein
Append;
// Neue Datensatz
FieldByName('
PruefNr').AsInteger:=pNr;
Daten.PruefNumber:=pNr;
Daten.KalibrierProtokoll:=Daten.KalibrierProtokoll+IntToStr(pNr);
FieldByName('
PruefDatum').AsString:=DateTimeToStr(Now);
FieldByName('
ProtokollName').AsString:=Daten.PruefDatum+IntToStr(Daten.PruefNumber);
Daten.KalibrierProtokoll:=Daten.PruefDatum+IntToStr(Daten.PruefNumber);
Daten.PruefDatum:=FieldByName('
PruefDatum').AsString;
Post;
// Daten an die Datenbank senden
// SQL.Add('SELECT @@IDENTITY AS NewID;');
end;
Jetzt willich zu PruefNr (PK aus Tabelle Prüfung) einen Kalbrierdatensatz in die Tabelle Kalibrierung ablegen.
Wie mach ich dass am Besten?
Gruß DelphiManiac