MySQL - üyelik bölümüm hakkında

[Mr.Developer]

iyi akşamlar,

programımda üyelik bölümünde aynı kullanıcı adı olmasını önlemek için aşağıdaki kodu kullanıyorum fakat kontrolü sağlayamıyorum ve aynı kullanıcı adında bile hesap oluşturuluyor;

acaba nerde yanlış yapıyorum çözemedim de 

UniConnection1.Connected := true ;
UniQuery1.Active := true ;


UniQuery1.Refresh ;
UniQuery1.Close ;
UniQuery1.ParamByName('kullaniciadi').Value := edit1.Text ;
UniQuery1.Open ;

if UniQuery1.RecordCount <> 0 then
begin
ShowMessage('Bu kullanıcı adı zaten mevcut');
end else
UniQuery1.Append; // yeni bir kayıt ekle
UniQuery1.FieldByName('kullaniciadi').AsString:=edit1.Text; // kıyasla
UniQuery1.FieldByName('sifre').AsString:=edit2.Text; // kıyasla
UniQuery1.post;  // veritabanına yaz

ShowMessage('Üyelik Oluşturuldu');

Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';

UniConnection1.Connected := false ;
UniQuery1.Active := false ;

üyeol.Close ;
girisekranı.Show ;

[meko]

if UniQuery1.RecordCount <> 0 then
begin
ShowMessage('Bu kullanıcı adı zaten mevcut');
end else
begin  // burasını ekledim
  UniQuery1.Append; // yeni bir kayıt ekle
  UniQuery1.FieldByName('kullaniciadi').AsString:=edit1.Text; // kıyasla
  UniQuery1.FieldByName('sifre').AsString:=edit2.Text; // kıyasla
  UniQuery1.post;  // veritabanına yaz


  ShowMessage('Üyelik Oluşturuldu');

  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
end; // burasını ekledim
UniConnection1.Connected := false ;
UniQuery1.Active := false ;

üyeol.Close ;
girisekranı.Show ;

[klavye]

(16-10-2018, Saat: 17:51)Mr.Developer Adlı Kullanıcıdan Alıntı: iyi akşamlar,

programımda üyelik bölümünde aynı kullanıcı adı olmasını önlemek için aşağıdaki kodu kullanıyorum fakat kontrolü sağlayamıyorum ve aynı kullanıcı adında bile hesap oluşturuluyor;

acaba nerde yanlış yapıyorum çözemedim de 

UniConnection1.Connected := true ;
UniQuery1.Active := true ;


UniQuery1.Refresh ;
UniQuery1.Close ;
UniQuery1.ParamByName('kullaniciadi').Value := edit1.Text ;
UniQuery1.Open ;

if UniQuery1.RecordCount <> 0 then
begin
ShowMessage('Bu kullanıcı adı zaten mevcut');
end else
UniQuery1.Append; // yeni bir kayıt ekle
UniQuery1.FieldByName('kullaniciadi').AsString:=edit1.Text; // kıyasla
UniQuery1.FieldByName('sifre').AsString:=edit2.Text; // kıyasla
UniQuery1.post;  // veritabanına yaz

ShowMessage('Üyelik Oluşturuldu');

Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';

UniConnection1.Connected := false ;
UniQuery1.Active := false ;

üyeol.Close ;
girisekranı.Show ;

Alıntı:

end else
UniQuery1.Append; // yeni bir kayıt ekle
UniQuery1.FieldByName('kullaniciadi').AsString:=edit1.Text; // kıyasla
UniQuery1.FieldByName('sifre').AsString:=edit2.Text; // kıyasla
UniQuery1.post;  // veritabanına yaz

burada "end else" kismindan sonrasini begin end icerisine almayi unutmussunuz.

[Mr.Developer]

(16-10-2018, Saat: 17:55)meko Adlı Kullanıcıdan Alıntı:

if UniQuery1.RecordCount <> 0 then
begin
ShowMessage('Bu kullanıcı adı zaten mevcut');
end else
begin  // burasını ekledim
  UniQuery1.Append; // yeni bir kayıt ekle
  UniQuery1.FieldByName('kullaniciadi').AsString:=edit1.Text; // kıyasla
  UniQuery1.FieldByName('sifre').AsString:=edit2.Text; // kıyasla
  UniQuery1.post;  // veritabanına yaz


  ShowMessage('Üyelik Oluşturuldu');

  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
end; // burasını ekledim
UniConnection1.Connected := false ;
UniQuery1.Active := false ;

üyeol.Close ;
girisekranı.Show ;

almama rağmen değişen durum olmadı 

if UniQuery1.RecordCount <> 0 then
begin
ShowMessage('Bu kullanıcı adı zaten mevcut');
end else

bu kısmı hiçbir şekilde gerçekleştirmiyor   

kayıt ekleme böülümü çalışıyor fakat bahsettiğim yer mağlesef.

---

(16-10-2018, Saat: 17:55)klavye Adlı Kullanıcıdan Alıntı:

(16-10-2018, Saat: 17:51)Mr.Developer Adlı Kullanıcıdan Alıntı: iyi akşamlar,

programımda üyelik bölümünde aynı kullanıcı adı olmasını önlemek için aşağıdaki kodu kullanıyorum fakat kontrolü sağlayamıyorum ve aynı kullanıcı adında bile hesap oluşturuluyor;

acaba nerde yanlış yapıyorum çözemedim de 

UniConnection1.Connected := true ;
UniQuery1.Active := true ;


UniQuery1.Refresh ;
UniQuery1.Close ;
UniQuery1.ParamByName('kullaniciadi').Value := edit1.Text ;
UniQuery1.Open ;

if UniQuery1.RecordCount <> 0 then
begin
ShowMessage('Bu kullanıcı adı zaten mevcut');
end else
UniQuery1.Append; // yeni bir kayıt ekle
UniQuery1.FieldByName('kullaniciadi').AsString:=edit1.Text; // kıyasla
UniQuery1.FieldByName('sifre').AsString:=edit2.Text; // kıyasla
UniQuery1.post;  // veritabanına yaz

ShowMessage('Üyelik Oluşturuldu');

Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';

UniConnection1.Connected := false ;
UniQuery1.Active := false ;

üyeol.Close ;
girisekranı.Show ;

Alıntı:

end else
UniQuery1.Append; // yeni bir kayıt ekle
UniQuery1.FieldByName('kullaniciadi').AsString:=edit1.Text; // kıyasla
UniQuery1.FieldByName('sifre').AsString:=edit2.Text; // kıyasla
UniQuery1.post;  // veritabanına yaz

burada "end else" kismindan sonrasini begin end icerisine almayi unutmussunuz.

mağlesef yeterli değil aynı sonuç

[edo]

Öncelike bu iş için tek Query kullanmanız daha sağlıklı olur. Ayrıca primary key ve unique index kavramlarını bir inceleyin. Kullanıcı tablonuzda k.adı alanında bir unique index muhakkak bulunmalı (id adında bir alanı zaten primary key olarak kullandığınızı umuyorum )

[Mr.Developer]

(16-10-2018, Saat: 18:05)edo Adlı Kullanıcıdan Alıntı: Öncelike bu iş için tek Query kullanmanız daha sağlıklı olur. Ayrıca primary key ve unique index kavramlarını bir inceleyin. Kullanıcı tablonuzda k.adı alanında bir unique index muhakkak bulunmalı (id adında bir alanı zaten primary key olarak kullandığınızı umuyorum )

anladım hocam mesele kod değilmiş mysql'den yapacakmışım 

[yhackup]

Merak ettiğim bir konu var UniQuery1 yi neden önce Refresh yapıp sonra Close yaptın, ve şifreyi neden olduğu gibi dbde tutuyorsun ya db'yi birisi kaparsa gitti bütün şifreler açıkta...

[Mr.Developer]

(16-10-2018, Saat: 18:33)yhackup Adlı Kullanıcıdan Alıntı: Merak ettiğim bir konu var UniQuery1 yi neden önce Refresh yapıp sonra Close yaptın, ve şifreyi neden olduğu gibi dbde tutuyorsun ya db'yi birisi kaparsa gitti bütün şifreler açıkta...

aslında onu, kodu buraya eklerken bende düşündüm neden eklemişim diye   sonra dedimki " boşver kalsın " 

şimdilik sadece test aşamasındayım ve şuanlık çok önemi yok kullanıcı adı ve şifrenin.

mysql server işini hallettiğimde ( ki halen free olanlarla geçiniyorum) şifreleri md5 olarak tutarım en azından ben de bilemem çalanda 

[mcuyan]

Hocam bu arada,
Query nesnesi ile insert append vs gibi işlemler yapmak yerine Insert Into ile Direk SQL kodu göndermeniz daha sağlıklı olacaktır.
Daha önceden aynı kullanıcı adı varmı yokmu yu ise o tabloya select çekip Recordcount<1 ile kontrol ederseniz daha hızlı sonuç alırsınız

[Mr.Developer]

(16-10-2018, Saat: 20:56)mcuyan Adlı Kullanıcıdan Alıntı: Hocam bu arada,
Query nesnesi ile insert append vs gibi işlemler yapmak yerine Insert Into ile Direk SQL kodu göndermeniz daha sağlıklı olacaktır.
Daha önceden aynı kullanıcı adı varmı yokmu yu ise o tabloya select çekip Recordcount<1 ile kontrol ederseniz daha hızlı sonuç alırsınız

aslında bu birazda alışkanlık meselesi gibi ve SQL kodlarına çok hakim değilim. öneriniz için teşekkür ederim.

bir deneyeyim hocam fırsat bulunca dediğinizi.