Code: Alles auswählen
if EDTGrpNr.Text<>''
then begin
//in StrGrpNr kann wg eines numerischen Feldes nur 0 bis 9 sein
FMMenu.SQLQuery1.Clear;
FMMenu.SQLQuery1.SQL.Text:='update gruppen SET Bez='''+EDTGrpBez.Text+''' WHERE ID='+(EDTGrpID.Text)+';';
FMMenu.SQLQuery1.execsql;
FMMenu.SQLTransaction1.Commit;
FMMenu.SQLQuery1.close;
//UpDate der neuen Bezeichnung in der DB
StrGrpBezAlt:=EdtGrpNr.Text+' = '+StrGrpBezAlt;
FMMenu.SQLQuery1.Clear;
FMMenu.SQLQuery1.SQL.Text:='select ID,Grp from konten where Grp='''+StrGrpBezAlt+''' order by nr;';
FMMenu.SQLQuery1.open;
while not FMMenu.SQLQuery1.EOF do
begin
StrKtoID:=FMMenu.SQLQuery1.FieldByName('ID').AsString;
StrKtoGrp:=FMMenu.SQLQuery1.FieldByName('Grp').AsString;
FMMenu.SQLQuery1.clear;
if StrKtoGrp=StrGrpBezAlt
then begin
FMMenu.SQLQuery1.SQL.Text:='update konten SET Grp='''+EDTGrpBez.Text+''' WHERE ID='+(StrKtoID)+';';
FMMenu.SQLQuery1.execsql;
end
else FMMenu.SQLQuery1.next;
end;
FMMenu.SQLQuery1.Close;