Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
kullanıcı bilgisi düzenleme ve güncelleme ( ÇÖZÜLDÜ)
#1
şifre degiştirme ekranında şifre degiştirme kısmını yazdım şifreyi degiştiriyor ama kullanıcı adı degiştirmeyi bir türlü yapamadım yaz kodda hatta yok ama genede olmuyor nasıl yapabilirim kullanıcı adı degistirmeyi paylaştım kodlar şifreyi güncelliyor.
begin
try
QKullanicibilgi.Close;
Qkullanicibilgi.SQL.Text := 'UPDATE kullanicisorgu SET sifre='+#39+Editysifre.Text+#39+' WHERE kadi='+#39+Editkadi.Text+#39;
//QKullanicibilgi.SQL.Text := 'UPDATE kulaniciduzenleme SET sifre='+#39+Editysifre.Text+#39+' WHERE kullanici='+#39+Editkadi.Text+#39;
QKullanicibilgi.Open;
Except
ShowMessage('Şifre değiştirme işlemi başarı ile tamamlandı.');
 Editkadi.Clear;
 Editysifre.Clear;
//Formkullanicigirisi.Show;
 Formkullanicibilgileri.Hide;
 exit;
ADOConnection1.Connected := False;
QKullanicibilgi.Close;
QKullanicibilgi.SQL.Text := 'select * from kulanicisorgu';
QKullanicibilgi.Open;
end;

end;
HIZLI VEGAS BİLİŞİM WEB YAZILIM HİZMETLERİ
WWW
Cevapla
#2
#39+editkadi.text+#39
yerine
QuotedStr(Trim(editkadi.text))
yazarsan daha pratik olur

yazdığın kodda sadece şifre değiştiriyorsun kullanıcı adı ile ilgili birşey yok. 
şifre ve kullanıcı adının değişeceği bir kod yazıyorum. 123 ve Mehmet yazdığım yere QuotedStr(Trim(yenisifre.Text)) ve QuotedStr(Trim(yenikullaniciad.Text)) gibi edit üzerinde giriş yapılarak da yeni kullanıcı ve şifre tanımlaması yapabilirsin.

QKullanicibilgi.SQL.Add(' UPDATE kullanicisorgu SET ');
QKullanicibilgi.SQL.Add('  sifre = ' + QuotedStr('123'));
QKullanicibilgi.SQL.Add(' ,kadi  = ' + QuotedStr('Mehmet'));
QKullanicibilgi.SQL.Add(' Where kadi = ' + QuotedStr(Trim(Editkadi.Text)));
Cevapla
#3
begin  
    try
		QKullanicibilgi.Close;
		QKullanicibilgi.SQL.Clear;
		QKullanicibilgi.SQL.Add(' UPDATE kullanicisorgu SET ');
                QKullanicibilgi.SQL.Add('  sifre = ' + QuotedStr(Trim(Editysifre.Text)));
                QKullanicibilgi.SQL.Add(' ,kadi  = ' + QuotedStr(Trim(Editkadi.Text)));
		QKullanicibilgi.SQL.Add(' Where kadi = ' + QuotedStr(Trim(Editkadi.Text))); 
		QKullanicibilgi.ExecSQL;
Except
 		Application.MessageBox('Şifre değiştirme işlemi başarı ile tamamlandı.', 'Mesaj!', MB_ICONINFORMATION);
		
		Editkadi.Clear;
		Editysifre.Clear;
		Formkullanicigirisi.Show;
		Formkullanicibilgileri.Hide;
	exit;
	
	ADOConnection1.Connected := False;
	
	QKullanicibilgi.Close;
	QKullanicibilgi.SQL.Text := 'select * from kulanicisorgu';
	QKullanicibilgi.Open;
end;
 
end;


where ile çekilen edit değeri ile değişen kullanıcı edit değeri aynı. 
QKullanicibilgi.SQL.Add(' ,kadi  = ' + QuotedStr(Trim(Editkadi.Text)));
QKullanicibilgi.SQL.Add(' Where kadi = ' + QuotedStr(Trim(Editkadi.Text)));

ikisi aynı ise kullanıcı adı neden sürekli değişiyor nasıl bir kurgu yaptınız onu anlayamadım.
Cevapla
#4
(03-09-2017, Saat: 14:22)admin02 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olşifre degiştirme ekranında şifre degiştirme kısmını yazdım şifreyi degiştiriyor ama kullanıcı adı degiştirmeyi bir türlü yapamadım yaz kodda hatta yok ama genede olmuyor nasıl yapabilirim kullanıcı adı degistirmeyi paylaştım kodlar şifreyi güncelliyor.
begin
try
QKullanicibilgi.Close;
Qkullanicibilgi.SQL.Text := 'UPDATE kullanicisorgu SET sifre='+#39+Editysifre.Text+#39+' WHERE kadi='+#39+Editkadi.Text+#39;
//QKullanicibilgi.SQL.Text := 'UPDATE kulaniciduzenleme SET sifre='+#39+Editysifre.Text+#39+' WHERE kullanici='+#39+Editkadi.Text+#39;
QKullanicibilgi.Open;
Except
ShowMessage('Şifre değiştirme işlemi başarı ile tamamlandı.');
 Editkadi.Clear;
 Editysifre.Clear;
//Formkullanicigirisi.Show;
 Formkullanicibilgileri.Hide;
 exit;
ADOConnection1.Connected := False;
QKullanicibilgi.Close;
QKullanicibilgi.SQL.Text := 'select * from kulanicisorgu';
QKullanicibilgi.Open;
end;

end;


kullanicisorgu tablonuza otomatik artak NO adında bir alan tanımlayın kullanıcıyı değiştirmeden NO alanını aldıktan sonra  where şartında bu alana göre tüm işlemleri yaptırın.

İyi çalışmalar.
Cevapla
#5
(03-09-2017, Saat: 16:01)CaglarCoskun Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
begin  
    try
		QKullanicibilgi.Close;
		QKullanicibilgi.SQL.Clear;
		QKullanicibilgi.SQL.Add(' UPDATE kullanicisorgu SET ');
                QKullanicibilgi.SQL.Add('  sifre = ' + QuotedStr(Trim(Editysifre.Text)));
                QKullanicibilgi.SQL.Add(' ,kadi  = ' + QuotedStr(Trim(Editkadi.Text)));
		QKullanicibilgi.SQL.Add(' Where kadi = ' + QuotedStr(Trim(Editkadi.Text))); 
		QKullanicibilgi.ExecSQL;
Except
 		Application.MessageBox('Şifre değiştirme işlemi başarı ile tamamlandı.', 'Mesaj!', MB_ICONINFORMATION);
		
		Editkadi.Clear;
		Editysifre.Clear;
		Formkullanicigirisi.Show;
		Formkullanicibilgileri.Hide;
	exit;
	
	ADOConnection1.Connected := False;
	
	QKullanicibilgi.Close;
	QKullanicibilgi.SQL.Text := 'select * from kulanicisorgu';
	QKullanicibilgi.Open;
end;
 
end;


where ile çekilen edit değeri ile değişen kullanıcı edit değeri aynı. 
QKullanicibilgi.SQL.Add(' ,kadi  = ' + QuotedStr(Trim(Editkadi.Text)));
QKullanicibilgi.SQL.Add(' Where kadi = ' + QuotedStr(Trim(Editkadi.Text)));

ikisi aynı ise kullanıcı adı neden sürekli değişiyor nasıl bir kurgu yaptınız onu anlayamadım.


 Hocam yanlışım varsa düzeltin ama "except" yerine "finally" kullanılması gerekmiyor mu? Böyle bir durumda hata verince "başarılı" mesajı kullanıcıya gösterilecek.

(03-09-2017, Saat: 14:22)admin02 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olşifre degiştirme ekranında şifre degiştirme kısmını yazdım şifreyi degiştiriyor ama kullanıcı adı degiştirmeyi bir türlü yapamadım yaz kodda hatta yok ama genede olmuyor nasıl yapabilirim kullanıcı adı degistirmeyi paylaştım kodlar şifreyi güncelliyor.
begin
try
QKullanicibilgi.Close;
Qkullanicibilgi.SQL.Text := 'UPDATE kullanicisorgu SET sifre='+#39+Editysifre.Text+#39+' WHERE kadi='+#39+Editkadi.Text+#39;
//QKullanicibilgi.SQL.Text := 'UPDATE kulaniciduzenleme SET sifre='+#39+Editysifre.Text+#39+' WHERE kullanici='+#39+Editkadi.Text+#39;
QKullanicibilgi.Open;
Except
ShowMessage('Şifre değiştirme işlemi başarı ile tamamlandı.');
 Editkadi.Clear;
 Editysifre.Clear;
//Formkullanicigirisi.Show;
 Formkullanicibilgileri.Hide;
 exit;
ADOConnection1.Connected := False;
QKullanicibilgi.Close;
QKullanicibilgi.SQL.Text := 'select * from kulanicisorgu';
QKullanicibilgi.Open;
end;

end;


Biraz SQL sorgusuna çalışırsanız, bu tür işlemleri daha sağlıklı biçimde yapabilirsiniz. Attığım sitede ki diğer SQL sorgularına da göz gezdirmenizde fayda var.

bkz. Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#6
finally ve except dikkat etmedim. Sorguya baktım sadece. finally ile işlenmesi gereken kodlar except ile oluşan hata ve istisnalar bildirmesi gerekiyor admin02 şimdilik bunları çok kontrol edeceğini sanmıyorum.
Cevapla
#7
(03-09-2017, Saat: 21:26)CaglarCoskun Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olfinally ve except dikkat etmedim. Sorguya baktım sadece. finally ile işlenmesi gereken kodlar except ile oluşan hata ve istisnalar bildirmesi gerekiyor admin02 şimdilik bunları çok kontrol edeceğini sanmıyorum.

 Anladım hocam  Smile
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#8
(03-09-2017, Saat: 14:22)admin02 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olşifre degiştirme ekranında şifre degiştirme kısmını yazdım şifreyi degiştiriyor ama kullanıcı adı degiştirmeyi bir türlü yapamadım yaz kodda hatta yok ama genede olmuyor nasıl yapabilirim kullanıcı adı degistirmeyi paylaştım kodlar şifreyi güncelliyor.
begin
try
QKullanicibilgi.Close;
Qkullanicibilgi.SQL.Text := 'UPDATE kullanicisorgu SET sifre='+#39+Editysifre.Text+#39+' WHERE kadi='+#39+Editkadi.Text+#39;
//QKullanicibilgi.SQL.Text := 'UPDATE kulaniciduzenleme SET sifre='+#39+Editysifre.Text+#39+' WHERE kullanici='+#39+Editkadi.Text+#39;
QKullanicibilgi.Open;
Except
ShowMessage('Şifre değiştirme işlemi başarı ile tamamlandı.');
 Editkadi.Clear;
 Editysifre.Clear;
//Formkullanicigirisi.Show;
 Formkullanicibilgileri.Hide;
 exit;
ADOConnection1.Connected := False;
QKullanicibilgi.Close;
QKullanicibilgi.SQL.Text := 'select * from kulanicisorgu';
QKullanicibilgi.Open;
end;

end;




Kodda hata yok, 
Burada kullanıcı adını değiştirecek kod yok, bu şekilde bir syntax kullan
UPDATE users SET username=:username, password=:password  WHERE username=:username;

Ama ben olsam ai bir id tutardım 
UPDATE users SET username=:username, password=:password  WHERE id=:id

Ve parametre kullan, ben şimdi senin şifre değiştirme formundaki kullanıcı adına aşağıdaki kodu yazsam ne olur Wink 
dene istersen yedek aldığın bir ara

; truncatle table kullanicisorgu;

Ayrıca 
try except end; konusunu yanlış anladınız sanırım.

try
//
//
//
//
//Kod except öncesindeki satıra kadar düşüyor ise zaten hata oluşmamıştır tamda burada başarılı mesajı patlatabilirsin.
Except
//Hata oluşursa burası çalışacaktır. burada da başarısız mesajı patlat.
end;

Senin kodunda şu an hata olsa da şifre değiştirme başarılı mesajı alacaksın.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#9
çok tşk ederim herkes haletim ben kullanıcı degiştirmeyi yapmicam sadece şifre degiştirmeyi yaptım şimdilik
HIZLI VEGAS BİLİŞİM WEB YAZILIM HİZMETLERİ
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  [ ÇÖZÜLDÜ ] RAD Studio Community Edition ? BY-HAYALET 3 167 11-09-2018, Saat: 10:20
Son Yorum: BY-HAYALET
  (Çözüldü) function kullanımı Dostk 3 199 24-07-2018, Saat: 14:54
Son Yorum: Dostk
Exclamation [ÇÖZÜLDÜ] Delphi EXE Resource TR Dil Sorunsalı mrmarman 6 326 12-07-2018, Saat: 11:09
Son Yorum: mrmarman
  RTTI ile ortak parametre düzenleme sismik 3 264 05-07-2018, Saat: 14:48
Son Yorum: sabanakman
  [ÇÖZÜLDÜ]-Tip Dönüşümü - [TXSDecimal > Float ) hi_selamlar 6 308 02-07-2018, Saat: 12:19
Son Yorum: hi_selamlar



Konuyu Okuyanlar: 1 Ziyaretçi