Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 1/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
kullanici sorgu hattası
#1
yazdım avukat programın kullanıcı giriş kısımını haziyordum kod bi hatta olmasına ragmen resim gördünüz hattayı verıyor 


yazdım kodlar

procedure TFormkullanicigirisi.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'Select * from kullanicisorgu where kullanici='+#39+Editkadi.Text+#39+' and sifre='+#39+Editsifre.Text+#39;
ADOQuery1.Open;
if (ADOQuery1.RecordCount > 0) then
begin
  Form1.Show;
exit;
end
else
ShowMessage('Kullanıcı adınız veya şifreniz yanlış,lütfen kontrol ediniz.');
end;


vpRzdA.png
HIZLI VEGAS BİLİŞİM WEB YAZILIM HİZMETLERİ
WWW
Cevapla
#2
(18-06-2017, Saat: 20:18)admin02 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olyazdım avukat programın kullanıcı giriş kısımını haziyordum kod bi hatta olmasına ragmen resim gördünüz hattayı verıyor 


yazdım kodlar

procedure TFormkullanicigirisi.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'Select * from kullanicisorgu where kullanici='+#39+Editkadi.Text+#39+' and sifre='+#39+Editsifre.Text+#39;
ADOQuery1.Open;
if (ADOQuery1.RecordCount > 0) then
begin
  Form1.Show;
exit;
end
else
ShowMessage('Kullanıcı adınız veya şifreniz yanlış,lütfen kontrol ediniz.');
end;


vpRzdA.png



procedure TForm1.BtnGirisClick(Sender: TObject);
begin
 With FDQueryUser do
   try
     Connection := FDConnecMain;
     Close;
     SQL.Clear;
     SQL.Add('Select * From USERS Where USERNAME=:NAME and USERPASS =: PSS');
     ParamByName('NAME').AsString := EditUser.Text;
     ParamByName('PSS').AsString := EditPassword.Text;
     Prepared := True;
     Open;
     if Not IsEmpty then
     begin
       Timer.Enabled := False;
       Form1.Visible := False;
       UName := FieldByName('USERNAME').AsString;
       UPas := FieldByName('USERPASS').AsString;
       UYetki := FieldByName('YETKI').AsString;
       Form2.ShowModal;
     end
     else
     begin
       TextM.Caption := 'Kullanıcı adı veya şifre hatalı!';
       ImageListUser.GetIcon(3, ImageUser.Picture.Icon);
     end;
   finally
     FDQueryUser.Close;
   end;
end;
Cevapla
#3
benim yazdim kodların neresinde sorun var bana hattami soylesiniz ona duzeltmeye calişsam
HIZLI VEGAS BİLİŞİM WEB YAZILIM HİZMETLERİ
WWW
Cevapla
#4
Sorun bu kodlarda değil debug et uygulamanı
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#5
sizin ricam hocam uzaktan pcme bağlanıp bana ne yapacamı gosterirmsnz
HIZLI VEGAS BİLİŞİM WEB YAZILIM HİZMETLERİ
WWW
Cevapla
#6
Connection nesnen açıkken tekrardan açmaya çalışıyorsun..
Amatör Küme Bilgisayar Programcısı
WWW
Cevapla
#7
o hatayı düzelti şöyle bi durum var hocam program açılışta kullanıci adı ve şifre istemiyorum onu nasıl yapabilirim peki
HIZLI VEGAS BİLİŞİM WEB YAZILIM HİZMETLERİ
WWW
Cevapla
#8
OpenSource yazılım bu olsa gerek
Cevapla
#9
(19-06-2017, Saat: 19:33)CaglarCoskun Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlOpenSource yazılım bu olsa gerek

Evet hocam Aynen bu github'ı değil delphican'ı kullanıyor Smile
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#10
kullaniyor derken anlamadım
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
  buton yardımı ile url açmak ve kullanıcı girişi sahin4169 1 205 07-12-2017, Saat: 15:19
Son Yorum: SimaWB
  Resim ekleme hattası(Çözüldü Çözümü Paylaşıldı) admin02 15 984 22-09-2017, Saat: 17:55
Son Yorum: admin02
  kullanıcı bilgisi düzenleme ve güncelleme ( ÇÖZÜLDÜ) admin02 8 718 04-09-2017, Saat: 13:01
Son Yorum: admin02
  delphi klavye hattası admin02 3 397 03-09-2017, Saat: 20:38
Son Yorum: hyperxman
  Kullanıcı arayüzünü nasıl tasarlıyorsunuz ? boreas 8 603 29-07-2017, Saat: 19:22
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi