ARKADAŞLAR ..
Form1le aşağıdaki kodlarla kullanıcı giriş yapıp form2 sayfasına yönlendirilecek.
procedure TForm1.Button1Click(Sender: TObject);
var
kul_ad,ad:ansistring;
kul_sif,sifre:Integer;
begin
ad:='Ali';
sifre:=1234;
kul_ad:=InputBox('Giriş','Kullanıcı Adını Giriniz', '');
kul_sif:= StrtoInt(InputBox('Sisteme Giriş','Şifreyi Giriniz',''));
if(kul_ad=ad)and (kul_sif=sifre)then
begin
showmessage('Girişiniz Onaylandı');
form2.show;
form1.Hide;
end
else
showmessage('Kullanıcı Adı veya Şifre Yanlış');
end;
end.
Ardından Form2de 6 tane numara tanımlanacak..
Kullanıcı ismi girip NUMARADAN BUL butonuna tıkladığında tanımlanan numaralardan kişinin İsmi, Numarası ve Adresi yan tarafındaki Labelda yazıcak
aynı işlem numarayı girip İSİMDEN BUL butonuna tıkladığımızdada geçerli olucak.
Form2 deki butonların kodlarını yazamadım lütfen yardım edermisiniz....
Form1le aşağıdaki kodlarla kullanıcı giriş yapıp form2 sayfasına yönlendirilecek.
procedure TForm1.Button1Click(Sender: TObject);
var
kul_ad,ad:ansistring;
kul_sif,sifre:Integer;
begin
ad:='Ali';
sifre:=1234;
kul_ad:=InputBox('Giriş','Kullanıcı Adını Giriniz', '');
kul_sif:= StrtoInt(InputBox('Sisteme Giriş','Şifreyi Giriniz',''));
if(kul_ad=ad)and (kul_sif=sifre)then
begin
showmessage('Girişiniz Onaylandı');
form2.show;
form1.Hide;
end
else
showmessage('Kullanıcı Adı veya Şifre Yanlış');
end;
end.
Ardından Form2de 6 tane numara tanımlanacak..
Kullanıcı ismi girip NUMARADAN BUL butonuna tıkladığında tanımlanan numaralardan kişinin İsmi, Numarası ve Adresi yan tarafındaki Labelda yazıcak
aynı işlem numarayı girip İSİMDEN BUL butonuna tıkladığımızdada geçerli olucak.
Form2 deki butonların kodlarını yazamadım lütfen yardım edermisiniz....
