kullanici sorgu hattası

[admin02]

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;

[brs]

(18-06-2017, Saat: 20:18)admin02 Adlı Kullanıcıdan Alıntı: 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;

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;

[admin02]

benim yazdim kodların neresinde sorun var bana hattami soylesiniz ona duzeltmeye calişsam

[yhackup]

Sorun bu kodlarda değil debug et uygulamanı

[admin02]

sizin ricam hocam uzaktan pcme bağlanıp bana ne yapacamı gosterirmsnz

[barutali]

Connection nesnen açıkken tekrardan açmaya çalışıyorsun..

[admin02]

o hatayı düzelti şöyle bi durum var hocam program açılışta kullanıci adı ve şifre istemiyorum onu nasıl yapabilirim peki

[CaglarCoskun]

OpenSource yazılım bu olsa gerek

[yhackup]

(19-06-2017, Saat: 19:33)CaglarCoskun Adlı Kullanıcıdan Alıntı: OpenSource yazılım bu olsa gerek

Evet hocam Aynen bu github'ı değil delphican'ı kullanıyor

[admin02]

kullaniyor derken anlamadım