Peki hoca sen bu formda paradox db ile baglanti kurdunmu?Evde olsam Delphi IDE'nin basina gecip bakarim ama kafa bimilyon... Hata yapma oranini dusurmek icin, TextBox yerine DBEdit Boxlar, DBEdit Boxlarin databasename ve field name lerini, paradox veritabanindaki alanlarla iliskilendir... Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

http://www.speedyshare.com/206920916.htmlAl haci access ile istedigin seyi yaptim, kodlari gorursen kavrarsin zaten... Veritabanina baglanti hatasi verirse, form uzerindeki ado connectiondan veritabanini tekrar build etmen gerek. Gerci direk C surucusunun icerisine atarsan hata vermeden calisir. Takildigin yer olursa sor. Ozellikle sen paradoxla yapacaksan, Benim ADOQuery1. kontrlu icin yazdigim sorguya dikkat et. Sen orada Paradox icin Query nesnesi yerlestirirsen Query1. ile baslicaksin. Giris sifreleri :kadi ve sifre - compi compi ve tahribat tahribat gir. Zaten access db den kendin deger girersin. Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

arkadaşlar şimdi bir edit1 var be birde edit2edit1 : k. adıedit2 : şifrebirde button 1 war button1'in kodu da.. unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, StdCtrls;type TForm1 = class Edit1: TEdit; Edit2: TEdit; Button1: TButton; DataSource1: TDataSource; Table1: TTable; procedure FormCreate ; procedure Button1Click ; private public end;var Form1: TForm1; GIR:INTEGER;implementationuses Unit2; procedure TForm1. FormCreate ;begin GIR:=3;end;procedure TForm1. Button1Click ;beginIF GIR=1 THEN BEGINSHOWMESSAGE ;HALT;END;GIR:=GIR-1;TABLE1. First;WHILE NOT TABLE1. Eof DOBEGINIF (EDIT1. Text=TABLE1KUL_ADI. Value) AND (EDIT2. Text=TABLE1SIFRE. Value) THENBEGINFORM2. SHOWMODAL;FORM1. Close;END;TABLE1. Next;END;SHOWMESSAGE('YANLIŞ GİRİŞ YAPTINIZ, '+inttostr +' HAKKINIZ KALDI');end;end. bu.. şimdi ben KUL_ADI ve SIFRE diye paradox db de field olşturdum bilgide girdm içine ama yinede hata weriyor.. hatada bu : http://img225.imageshack. us/my. php?image=dfym9. jpgbunu rnek olark bizm hoja vermişti bize ben kendi programımda kullancam db'mde yine aynı tabloları kullandım aliası feln ayarlardım ama gene hata werio şimdi bu kodları kendi projemde nasıl çalıştırırm nereye ney yazarak? :/

abü ewt db ile bağladım ama çok ufak çok basit bişey ama mk hata werio :D

bende de windows sorunlu açamıyorum.. ama elimdeki dkümanlarda bu var belki işine yarayan olur.. Şimdi kullandığımız method ve zellikleri rnek üzerinde izah edelim. Yapacağımız rnekte program ilk çalıştığı anda "Registry" ye şifreyi yazacak, kullanıcı şifreyi bilemeden ikinci formu kesinlikle açamayacaktır. Aşağıdaki form tasarımını oluşturunuz. Programı ilk çalıştırdığınız zaman Registry de "password" değerini bulamayacağı için hata mesajı verecektir . Except ten sonra yazdığınız kod işleyerek "Registry" ye Kullanıcı adı ve Password değeri yazdırılacaktır. Aşağıdaki kod bloğunu Unit pencerenize ekleyiniz. uses Registry, Unit3; //Eklemeyi unutmayınız. procedure TForm2. FormCreate ; var deger:TRegistry; pass:Integer; begin deger:=TRegistry. Create;//yarat deger. RootKey:=HKEY_CURRENT_USER; try deger. OpenKey ;//okuma modunda aç pass:=deger. ReadInteger ;//şifreyi oku except//şifreyi bulamazsa işler deger. CloseKey;//kapat deger. RootKey:=HKEY_CURRENT_USER; deger. OpenKey ;//yazma modunda aç deger. WriteString ;//ekle deger. WriteInteger('password',2222);//değişken ekle deger. CloseKey; end;end; procedure TForm2. Button1Click ; var sifre:Integer; ad:AnsiString; deger:TRegistry; begin deger:=TRegistry. Create; deger. RootKey:=HKEY_CURRENT_USER; deger. OpenKey ; sifre:=deger. ReadInteger ;//oku ad:=deger. ReadString ;//oku deger. CloseKey; if (Edit1. Text<>ad) or (StrToInt(Edit2. Text)<>sifre) Then//yanlışsa begin ShowMessage ; Edit1. Clear; Edit2. Clear; Edit1. SetFocus; end else begin Form3. Show;//diğer formu aç end;end;Program çalıştıktan sonra şifre giriş formu karşınıza gelecektir. Kullanıcı adını ve şifrenizi yazıp "Giriş" isimli buttona tıklayın. Şayet şifreyi doğru girerseniz ana formunuz açılacak ve sizitebrik edecektir. işte ble bişey.. Çalışmadan, yorulmadan, ğrenmeden rahat yaşama yollarını itiyat haline getiren milletler; nce haysiyetlerini, sonra istikballerini daha sonra da hürriyetlerini kaybetmeye mahkumdurlar. M. Kemal Atatürk

abüm sağol :) projeye yeni başlamıştım.. bugün 5de teslim edecektim delphi dersinden hocaya.. amma velakin baya tırmaladım bu olay olmadı diye olduğu gibi bıraktım projeyi 30 puandan oldum.. ama bu gece bi ark. var o msn e gelirse onla beraber yaparız aslına hiç aksamadan akşam bitecekti de sanırım benim ark. ın işi çıktı online olmadı.. yarın hojaya teslim ederim 1 gün farkıyla 20 puanda werse üni hayatında yeter bize :) ama unutmadın, uğraştın çok sağol indirip en azından mantığı kavramaya çalışıcam :)