ursprünglich hät ich das so geplant:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var inventarnummer, raumnummer : integer;
name, raumbezeichnung, baujahr : string;
begin
inventarnummer:=strtoint(Edit1.Text);
raumnummer:=strtoint(Edit2.Text);
raumbezeichnung:=Edit3.Text;
name:=Edit4.Text;
baujahr:=Edit5.Text;
Query1.Active:=false:
Query1.SQL.Clear;
Query1.SQl.Add('INSERT INTO Raume VALUES ('+inttostr(raumnummer)+','+raumbezeichnung+')');
Query1.ExecSQL;
Query1.Active:=false;
Query1.SQL.Clear;
Query1.SQl.Add('INSERT INTO B-Details VALUES ('+name+','+baujahr+');
Query1.ExecSQL;
Query1.Active:=false;
Query1.SQL.Clear;
Query1.SQl.Add:=('INSERT INTO Inventarnummern (inventarnummer) VALUES ('+nummer+')');
Query1.ExecSQL;
end;