Ich habe den alte code bekommen, wie sie den passwort ändern.
jetzt muss ich halt irgendwie schauen, ob das passwort sonderzeichen hat oder ist mit einem zahl anfängt:
procedure TfrmMain.btnOkClick(Sender: TObject);
var
query: String;
begin
TRY
if (edtPasswrd.Text = '') Or (edtNewPasswrd.Text = '') Or (edtConfirmation.Text = '') then
Application.MessageBox('Es sind nicht alle notwendigen Felder ausgefüllt!', 'Achtung!')
else begin
if edtNewPasswrd.Text = edtConfirmation.Text then begin
query := '';
query := 'alter user ' + trim(edtUser.Text) + ' identified by ' + trim(edtNewPasswrd.Text);
DM.qryUpdate.SQL.Clear;
DM.qryUpdate.SQL.Add (UpperCase(
query));
DM.qryUpdate.ExecSQL;
Application.MessageBox('Ihr Passwort wurde geändert!', 'Achtung');
end
else
Application.MessageBox('Neues Passwort und Bestätingung stimmen nicht überein!', 'Error');
end;
EXCEPT
Application.MessageBox('Benutzername oder Passwort falsch!', 'Error');
END;
end;
ich bin für jede hilfe dankbar!
lg lnaemi
