1:
2:
3:
4:

with Query do begin
Clear;
Add('UPDATE vorgbuch');
Add('SET .... = .... ');  <- und das halt 25 mal, je Datenbank.					

1:
2:
3:
4:

UPDATE datenbank
SET feld1 = ' + variable1);
, feld2 =  ' + variable2);
, feld3 = ' + variable3);					

1:
2:
3:
4:

Add('SET Feld1='+variable1+', ');
Add('Feld2='+variable2+', ');
...
Add('Feld25='+variable25);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:

procedure TForm1.Button1Click(Sender: TObject);
begin

QueryVorgbuch.Active := True;
QueryVorgbuch.Active := False;

Vorgang     := QuotedStr(FVEvorgang.Text);
//  [...] und 29 weitere zuweisungen, alle nach dem gleichen Prinzip

with QueryVorgbuch.SQL do begin
Clear;
Add('UPDATE vorgbuch ');
Add('SET vorgang    = ' + Vorgang);
Add(', kndcd    = ' + Vkndcd);
//[...] die in der Mitte hab ich mal rausgelassen, sind aber vom gleichen
// Syntax-Schema wie das obere
Add(', kfz        = ' + Vkfz);
Add('WHERE lfdnr = ' + LfdNrToEdit);
end;
QueryVorgbuch.ExecSQL;

// da ich das Problem hatte, das mein Prog manchmal abstürzt, hab ich
// UPDATE gesplittet... hier der Rest
with QueryVorgbuch.SQL do begin
Clear;
Add('UPDATE vorgbuch ');
Add('SET provan     = ' + Vprovan);
Add(', bemerkung1 = ' + Vbemerkung1);
[...]
Add(', bemerkung7 = ' + Vbemerkung7); 
Add('WHERE lfdnr = ' + LfdNrToEdit);
end;
QueryVorgbuch.ExecSQL;

////////////////////////////// mal kommt die fehlermeldung hier... 

// Hier Lese ich die Letzte Lfd nr. aus der History, und inkrementiere 
// mit 1....
with QueryHistory.SQL do begin
Clear;
Add('SELECT * FROM history');
end;
QueryHistory.Active :=True;
QueryHistory.Last;
LfdNrHistory := QueryHistory.FieldByName('lfdnr').AsString;
if LfdNrHistory = '' then LfdNrHistory := '1'
else LfdNrHistory := IntToStr(StrToInt(LfdNrHistory) + 1);

// hier ermittle ich fuer die history mein aktuelles datum
aend_datum := FormatDateTime('dd"."mm"."yyyy', Date);
aend_datum := QuotedStr(aend_datum);
QueryHistory.SQL.Clear;
QueryHistory.SQL.Add('INSERT INTO history (lfdnr,vorgang )');
QueryHistory.SQL.Add('VALUES (' + LfdNrHistory  + ',' + Vorgang + ')');
QueryHistory.ExecSQL;

// und dann schließlich werden die alten Daten in der History gespeichert
with QueryHistory.SQL do begin
Clear;
Add('UPDATE history ');
Add('SET kndcd    = ' + Hkndcd);
Add(', termin     = ' + Htermin);
[...] Siehe Vorgangs-Update...
Add(', provan     = ' + Hprovan);
Add('WHERE lfdnr = ' + LfdNrHistory);
end;
QueryHistory.ExecSQL;

// und wieder gesplittet
with QueryHistory.SQL do begin
Clear;
Add('UPDATE history ');
Add('SET bemerkung1 = ' + Hbemerkung1);
Add(', bemerkung2 = ' + Hbemerkung2);
[...]
Add(', aend_dat   = ' + aend_datum);
Add('WHERE lfdnr = ' + LfdNrHistory);
end;
QueryHistory.ExecSQL;

//////////////////////////// ............oder fehlermeldung halt hier.....

// damit gleich nach fertigstellung der aktuelle vorgang angezeigt wird,
// kommt jetzt folgender filter
QueryVorgbuch.SQL.Clear;
QueryVorgbuch.SQL.Add('SELECT * FROM vorgbuch WHERE lfdnr = ' + LfdNrToEdit);
QueryVorgbuch.Open;

// die history....
QueryHistory.SQL.Clear;
QueryHistory.SQL.Add('SELECT * FROM history');
QueryHistory.Open;
QueryHistory.Last;

// jetzt noch n paar irrelevante, so glaub ich, programm-funktionen
TabFirmendt.TabVisible := True;
TabSchadort.TabVisible := True;
TabHistory.TabVisible := True;

TabsAktualisieren;

FormVorgbuchEdit.SendToBack;
FormVorgbuch.Height := 328;

VorgangEdit := False;

end;					

1:
2:
3:
4:

  ...
  // statt Vorgang :=QuotedStr(FVEvorgang.Text);
  Vorgang:=AnsiQuotedStr(FVEvorgang.Text, '"');
  ...					

1:

Add('SELECT * FROM databank WHERE feld1 = 'mystring'');					

1:
2:
3:
4:
5:

MyString := QuotedStr(MyString);
// aus inhalt wird also "inhalt"
Add('SELECT * FROM databank WHERE feld1 = + ' mystring);
das gleiche wäre:
Add('SELECT * FROM databank WHERE feld1 = "inhalt" ');