Sorry Markus,
aber ich versteh noch nicht so ganz was Du meinst. Was der Vorteil ist, habe ich zwar verstanden, aber ich führe ja nur folgende Funktion als UPDATE aus.
Delphi-Quellcode:
procedure TMailSendenForm.SpeichernButtonClick(Sender: TObject);
begin
ConPSConfig.Connect;
QryVorgabe.Close;
QryVorgabe.SQL.Text := '
UPDATE VORGABE SET E_MAIL_ANHANG = :ANHANG,'+
'
EIGENE_E_MAIL = :SEMAIL, EMPFAENGER_E_MAIL1 = :EEMAIL1,'+
'
EMPFAENGER_E_MAIL2 = :EEMAIL2, SMTP_SERVER = :SMTP,'+
'
BENUTZERNAME_E_MAIL = :BENUTZER,PASSWORT_E_MAIL = :PASSWORT';
QryVorgabe.ParamByName('
ANHANG').AsString := FileEdit.Text;
QryVorgabe.ParamByName('
SEMAIL').AsString := FromMailEdit.Text;
QryVorgabe.ParamByName('
EEMAIL1').AsString := AddMailEdit.Text;
QryVorgabe.ParamByName('
EEMAIL2').AsString := AddMailEdit2.Text;
QryVorgabe.ParamByName('
SMTP').AsString := SMTPEdit.Text;
QryVorgabe.ParamByName('
BENUTZER').AsString := UserEdit.Text;
QryVorgabe.ParamByName('
PASSWORT').AsString := PasswortEdit.Text;
QryVorgabe.ExecSQL;
ConPSConfig.Commit;
ShowMessage('
Daten wurden gespeichert');
Close;
end;
Dabei ist es ja so, das diese Werte ja schon so in den EDIT-Feldern (fertig oder geändert) stehen, und daher führe ich ja keine Abfrage mehr durch.
Eine erneute Abfrage benötige ich ja nur im Hauptformular, wenn diese Daten Notwendig sind, oder wenn ich das Konfiguationsform erneut aufrufe, um wieder Änderungen durchzufüheren.
Gruß Jens