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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.ş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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.ş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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.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.

 Anladım hocam  Smile
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Cevapla
#8
(03-09-2017, Saat: 14:22)admin02 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.ş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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
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


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  [ÇÖZÜLDÜ] Rapor Baskısında 0 değerleri yazılmasın wiseman 2 114 01-10-2019, Saat: 18:04
Son Yorum: wiseman
  [ÇÖZÜLDÜ] fast report dil hatası wiseman 6 235 25-09-2019, Saat: 14:29
Son Yorum: wiseman
  ÇÖZÜLDÜ-timer kullanmadan saat kontrolü mümkünmü? sadikacar60 3 209 10-09-2019, Saat: 22:19
Son Yorum: sadettinpolat
  [ÇÖZÜLDÜ] cxgrid hücre formatı wiseman 2 123 10-09-2019, Saat: 13:53
Son Yorum: wiseman
  [ÇÖZÜLDÜ]Server İşletim Sisteminde Çalışan Windows Servis te is not a valid date Hata theSinan 9 345 28-08-2019, Saat: 10:05
Son Yorum: adelphiforumz



Konuyu Okuyanlar: 1 Ziyaretçi