KULLANICI ADI VE ŞİFRESİ İLE İLGİLİ YARDIM ...

[Master_19]

Merhaba Arkadaşlar Kulay Gelsin. Programa Girerken Şu Kodları Kullanıyorum ..
Kullanıcı Adı Ve Şifresi İçin...

Bu Koda Bir Şey İlave Edmek İstiyorum ...
Admin Kullanıcı Ve Şifresi Bunu İçin Kodun Neresine Nasıl Bir Kod Ekleme Gerek.

Derdimi Anlatabildim mi.
Yardımcı Olabilirseniz Sevinirim. Çok Önemli Arkadaşar Yardımlarınızı Bekliyorum...

KOLAY GELSİN...


procedure TForm18.BitBtn1Click(Sender: TObject);
var
I:integer;
K_ADI,K_SIFRE:string;
begin
if Edit1.Text='' then
begin
ShowMessage('Lütfen Kullanıcı Adini Giriniz');
exit;
end;
if Edit2.Text='' then
begin
ShowMessage('Lütfen Şifre Giriniz');
exit;
end
else
begin
K_SIFRE:=Edit2.Text;
K_ADI:=Edit1.Text;

if Table1.Locate('K_ADI;K_SIFRE',VarArrayOf([Edit1.Text,Edit2.Text]),[locaseinsensitive]) then

begin
Gauge1.MaxValue := 100;
Gauge1.Progress := 0;
for I := 1 to 100 do
begin
Gauge1.Progress := Gauge1.Progress+1;
Sleep(15);
end;

Form18.Hide;
Form19.show;
Edit1.Text:='';
Edit2.Text:='';
end
else
begin
ShowMessage('Kullanıcı Adinı veya Şifresini Yanlış Girdiniz...!');
Edit1.SetFocus;
Edit1.SelectAll;
Edit1.Text:='';
Edit2.Text:='';
end;


end;
end;

[mussimsek]

Merhaba,

lütfen forum kurallarını okuyalım...2.

Kolay gelsin.

[ender_arslanturk]

Merhaba

Kuralları okuduğunuzu düşünerek kodu veriyorum....

Kod: Tümünü seç

procedure TForm18.BitBtn1Click(Sender: TObject); 
var 
   I:integer; 
begin 
   if Edit1.Text='' then 
   begin 
        ShowMessage('Lütfen Kullanıcı Adini Giriniz'); 
        Edit1.SetFocus;
   end
   else
   if Edit2.Text='' then 
   begin  
        ShowMessage('Lütfen Şifre Giriniz'); 
        Edit2.SetFocus;
   end 
   else 
   begin 
        if (Edit1.text='ADMIN') and (Edit2.Text='ADMIN')then
        begin
           if Table1.Locate('K_ADI;K_SIFRE',VarArrayOf([Edit1.Text,Edit2.Text]),[]) then 
           begin 
                Gauge1.MaxValue := 100; 
                Gauge1.Progress := 0; 
                for I := 1 to 100 do 
                begin 
                      Gauge1.Progress := Gauge1.Progress+1; 
                      Sleep(15); 
                end; 
                Form18.Hide; 
                Form19.show; 
                Edit1.Text:=''; 
                Edit2.Text:=''; 
           end ;
        end
        else 
        begin 
             ShowMessage('Kullanıcı Adinı veya Şifresini Yanlış Girdiniz...!'); 
             Edit1.SetFocus; 
             Edit1.SelectAll; 
             Edit1.Text:=''; 
             Edit2.Text:=''; 
        end; 
   end; 
end;

Ayrıca yazdığına göre yapmak istediğinin ne olduğunu tam olarak açıklayabilirsen daha iyi yardımcı olabiliriz ....

Saygılarımla,