merhabalar projemde aşağıdaki hatanın nedenini bulamadım acaba neden çalışmıyor yardım edebilirmisiniz teşekkürler
hatanın nedeninini bulamadım
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Re: hatanın nedeninini bulamadım
QuoteStr değil QuotedStr,
IntoStr değil IntToStr.
IntoStr değil IntToStr.
There's no place like 127.0.0.1
Re: hatanın nedeninini bulamadım
teşekkrü ederim ama
onları düzelttim ama hala devam ediyor
complie edemiyor
[Error] Unit4.pas(40): Missing operator or semicolon
[Fatal Error] Unit1.pas(64): Could not compile used unit 'Unit4.pas'
onları düzelttim ama hala devam ediyor
complie edemiyor
[Error] Unit4.pas(40): Missing operator or semicolon
[Fatal Error] Unit1.pas(64): Could not compile used unit 'Unit4.pas'
Re: hatanın nedeninini bulamadım
Kod: Tümünü seç
var tc,sifre:string;
var sonuc:integer;
begin
tc:=edit1.text;
sifre:=edit2.text
bag.PersonelADOQ1.Close;
bag.PersonelADOQ1.SQL.Clear;
bag.PersonelADOQ1.SQL.Add('select * from personel where tc='+QuotedStr(tc));
bag.PersonelADOQ1.SQL.Add('and sifre='+QuotedStr(sifre));
bag.PersonelADOQ1.Open;
sonuc:=bag.PersonelADOQ1.RecordCount;
label1.Caption:=IntToStr (sonuc);
Re: hatanın nedeninini bulamadım
sifre:=edit2.text
sonunda noktalı virgül yok!
sonunda noktalı virgül yok!
There's no place like 127.0.0.1
Re: hatanın nedeninini bulamadım
teşekkür ederim bu arada sitenizde çok güzel
şifreli giriş ekranıydı bu
belki birinininin ihtiyacı olur
kodları paylaşalım
şifreli giriş ekranıydı bu
belki birinininin ihtiyacı olur
kodları paylaşalım
Kod: Tümünü seç
procedure Tsifregiris.Button1Click(Sender: TObject);
var tc,sifre:string;
var sonuc:integer;
begin
tc:=edit1.text;
sifre:=edit2.text;
bag.PersonelADOQ1.Close;
bag.PersonelADOQ1.SQL.Clear;
bag.PersonelADOQ1.SQL.Add('select * from personel where tc='+QuotedStr(tc));
bag.PersonelADOQ1.SQL.Add('and sifre='+QuotedStr(sifre));
bag.PersonelADOQ1.Open;
sonuc:=bag.PersonelADOQ1.RecordCount;
label1.Caption:=IntToStr (sonuc);
if (sonuc > 0) then
begin
girisfrm.showmodal;
end;