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
Eski dos'tan windows olmaz.
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
Eski dos'tan windows olmaz.
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
  C Dll indeki Callback Nasıl Çevrilir? (Çözüldü) erkankurtaga 13 779 15-04-2018, Saat: 22:11
Son Yorum: ilgazinho
  RSA Encrypt (Çözüldü) yhackup 4 164 05-04-2018, Saat: 11:50
Son Yorum: yhackup
  [ÇÖZÜLDÜ] Google Calendar API Server tipi Erişim Metodu hakkında tecrübesi olan mrmarman 38 942 26-03-2018, Saat: 10:22
Son Yorum: klavye
  [ Çözüldü] Runtime da çıkan hata sebepleri Lord_Ares 8 229 16-03-2018, Saat: 17:11
Son Yorum: Lord_Ares
  RAD Studio Tokyo 10.2.3 yeni güncelleme gjamesbond 10 502 15-03-2018, Saat: 10:42
Son Yorum: nguzeller



Konuyu Okuyanlar: 1 Ziyaretçi