Arkadaşlar daha önceki projeme yapmıştım ama bu projeme yapamadım. kullanıcı adı ve şifre doğru ise ana form açılacak ve şifre formu kapatılacak(veya gizlenecek ana form çalışacak) eğer kişi 3 kez üstüste kullanıcı adı veya şifreyi yanlış girerse program komple kapatılacak.
Form1 ve Form2 diye 2 tane formun olduğunu düşünelim.Form2 üzerinde şifre kutusu (edit-PasswordChar Özelliğine '*' Verelim), 2 tanede button olsun(Caption özellikleri Tamam ve İptal olan düğmeler)Tamam düğmesinin ModalResult özelliğine MrOk,İptal düğmesinin ModalResult özelliğine MrCancel Verelim.
form2 nin kod bölümüne yazılacaklarımız
var
Form2: TForm2;
hak:Integer;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
Caption:='Şifrenizi Giriniz';//Formun Başlığı
hak:=3;//Şifre Hakkı Olsun
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
if edit1.text='abc' then //Şifremiz abc Olsun
begin
ModalResult:=MrOk;//Şİfre Bilinirse MrOk gitsin
End
Else
Begin
//Şifreyi Bilemediyse
hak:=hak-1;// hakkını 1 azalsın
ModalResult:=MrRetry;//Yeniden Denemesi İçin
if hak=0 then // hakkı bittiyse
Begin
Showmessage('Programa Giriş İzniniz Yok');
//Hakkı Bittiyse İptal Düğmesi Tıklanmış Gibi Olacak
ModalResult:=MrCancel;
end;
End;
end;
Project-Options menüleri ile açılan pencereden
Auto-Create Forms listesinden Form2 Yi seçelim ve > düğmesine basıp Available forms listesine (sağ tarafa) alalım.
Project Menüsünden View Source Seçeneği ile Kaynak kodunun olduğu kısma (pencereye) geçelim. Aşağıda Kalın Olarak Yazılan Yazıları Kodlarımıza Ekleyelim.
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
var
islem:Integer;
{$R *.res}
begin
Application.Initialize;
form2:=Tform2.Create(nil);
Repeat
İslem:=form2.ShowModal;
if islem:=2 then //mrcancel
Begin
form2.free;
halt;
end;
Until islem=1;//mrok
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Kolay Gelsin