Delphide Kullacını Girişi Sorunu :/

29/May/08 10:30

Kısayol

Şikayet

Özel Mesaj

HighNitro

Kayıt Tarihi: 21/Ağustos/2005

arkadaşlar şimdi bir edit1 var be birde edit2

edit1 : k.adı

edit2 : şifre

birde button 1 war button1'in kodu da..

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls;

type
TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
GIR:INTEGER;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
GIR:=3;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IF GIR=1 THEN BEGIN
SHOWMESSAGE('UZGUNUM, HAKKINIZ BITTI');
HALT;
END;
GIR:=GIR-1;
TABLE1.First;
WHILE NOT TABLE1.Eof DO
BEGIN
IF (EDIT1.Text=TABLE1KUL_ADI.Value) AND (EDIT2.Text=TABLE1SIFRE.Value) THEN
BEGIN
FORM2.SHOWMODAL;
FORM1.Close;
END;
TABLE1.Next;
END;
SHOWMESSAGE('YANLIŞ GİRİŞ YAPTINIZ, '+inttostr(GIR)+' 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.jpg

bunu ö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 ? :/

Alıntı yap

29/May/08 11:04

Kısayol

Şikayet

Özel Mesaj

İnce Memed
ComputerWolf

Kayıt Tarihi: 26/Mart/2003

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 !

Alıntı yap

29/May/08 11:42

Kısayol

Şikayet

Özel Mesaj

HighNitro

Kayıt Tarihi: 21/Ağustos/2005

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

Alıntı yap

29/May/08 13:59

Kısayol

Şikayet

Özel Mesaj

İnce Memed
ComputerWolf

Kayıt Tarihi: 26/Mart/2003

http://www.speedyshare.com/206920916.html

Al 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 !

Alıntı yap

29/May/08 19:42

Kısayol

Şikayet

Özel Mesaj

HighNitro

Kayıt Tarihi: 21/Ağustos/2005

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 :)

Alıntı yap

29/May/08 20:34

Kısayol

Şikayet

Özel Mesaj

tarzan

Kayıt Tarihi: 30/Mart/2007

bende de windows sorunlu açamıyorum..

ama elimdeki dökü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 (Şayet exe dosyasını çalıştırırsanız hata
mesajı vermez. Anlaşılmayan bir husus varsa hata yakalama bölümüne tekrar
bakınız.). 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(Sender: TObject);
var
deger:TRegistry;
pass:Integer;
begin
deger:=TRegistry.Create;//yarat
deger.RootKey:=HKEY_CURRENT_USER;
try
   deger.OpenKey('Prestige\Gazi',false);//okuma modunda aç
   pass:=deger.ReadInteger('password');//şifreyi oku
except//şifreyi bulamazsa işler
   deger.CloseKey;//kapat
   deger.RootKey:=HKEY_CURRENT_USER;
   deger.OpenKey('prestige\Gazi',true);//yazma modunda aç
   deger.WriteString('kullaniciadi','Nihat Demirli');//ekle
   deger.WriteInteger('password',2222);//değişken ekle
   deger.CloseKey;
end;end;
procedure TForm2.Button1Click(Sender: TObject);
var
sifre:Integer;
ad:AnsiString;
deger:TRegistry;
begin
deger:=TRegistry.Create;
deger.RootKey:=HKEY_CURRENT_USER;
deger.OpenKey('prestige\Gazi',false);
sifre:=deger.ReadInteger('password');//oku
ad:=deger.ReadString('kullaniciadi');//oku
deger.CloseKey;
if (Edit1.Text<>ad) or (StrToInt(Edit2.Text)<>sifre) Then//yanlışsa
   begin
    ShowMessage('Kullanıcı Bilgileri Yanlış Yeniden Deneyin');
    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 sizi
tebrik edecektir.

---

işte böle 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

Alıntı yap