Email kontrol

[brs]

Merhaba, Kullanıcı kendi email adresini güncelleye bilir fakat başka bir kullanıcının email adresi yazmak isterse bunu nasıl engelleyebilirim

Kod: Tümünü seç

 
Form1.FDConnection.Connected := False;
with Form1.FDQueryUser do
begin
Connection := Form1.FDConnection;
Close;
SQL.Clear;
SQL.Add('Select * From User Where KULLANICI=:KADI and MAIL=:MAIL ');
ParamByName('KADI').Value := (Kullanici.Text);
ParamByName('MAIL').Value := EMail.Text;
Prepared := True;
Open;
if Not IsEmpty then // Mail varsa Uyar
begin
EMail.SetFocus;
Application.MessageBox  ('E-Mail Adresi Sistemde Kayıtlı!', 'Uyarı!', 0);
end
else
begin
SQL.Clear;
SQL.Add('Update User Set MAIL=:MAIL');
SQL.Add('Where KULLANICI =''' + Kullanici.Text + '''');
ParamByName('MAIL').AsString := EMail.Text;
ExecSQL;
end

[freeman35]

cevabını yazmışsın zaten, kendisi değilse kaydı göremez ve değiştiremez, şifreyi biliyorsa yapacak birşey yok
kolay gele

[brs]

cevabını yazmışsın zaten, kendisi değilse kaydı göremez ve değiştiremez, şifreyi biliyorsa yapacak birşey yok
kolay gele

selam kod çalışıyor,

Ssıkıntı ise kullanıcı mail adresini değiştirmek isterse ve databasede bulunan başka bir kullanıcının mail adresini yazarsa güncelleme yapmayı engellemek ama database aynı mail yok ise günceleme yapsın sorun bu...

[omurolmez]

update sorgusundan önce, select 1 from user where mail=:mail sorgusu yaparsın ve sorgu 1 döndürürse kullanıcıya izin vermezsin ...

[brs]

Sorunu çözmeyi başardım, vakit ayıran herkeze teşekkür ederim

Kod: Tümünü seç

var
  UserMailKontrol: String;
begin

Kod: Tümünü seç

try
 Form1.FDConnection.Connected := False;
 with Form1.FDQueryUser do
 begin
 Connection := Form1.FDConnection;
 Close;
SQL.Clear;
 SQL.Add('Select * From User Where KULLANICI=:KADI and MAIL=:MAIL ');
 ParamByName('KADI').Value := (Kullanici.Text);
 ParamByName('MAIL').Value := EMail.Text;
 Prepared := True;
Open;
 UserMailKontrol := ParamByName('MAIL').Value;
 if IsEmpty and (UserMailKontrol <> Kullanici.Text) then // Mail varsa Uyar
begin
 EMail.SetFocus;
Application.MessageBox ('E-Mail Adresi Sistemde Kayıtlı!', 'Uyarı!', 0);
end
 else
 begin