kullanıcı adı ve şifre ekranı

[sarp_halit]

merhaba arkadaşlar. kolay gelsin. belki basit bir soru olacak ama ben takıldım. bu yüzden de doğru bilgiye doğru adresten ulaşmak istedim. progamı kullanıcı adı ve şifre ile başlatmak istiyorum. ama birinci form olarak bu bilgilerin girileceği formu ayarladığımda bu formu kapatıp diğerini başlatmaya çalıştığımda prog kapatıyor. ana form çıkmadan önce bunu nasıl sağlayabilirim. yani kul adı ve şifre formu ana formdan öne nasıl gelecek.

herkese kolay gelsin. iyi çalışmalar

[unicorn64]

kullanıcı adı ve şifre soracağın form ana form olmamalı tabiki. sorgu formunu ana formun create inde oluşturup,gösterir ve verileri alıp kontol ettikten sonra uygunsa programı açara değilse terminate edebilirsin

[aslangeri]

projevt menüsünden viewsource kısmında
application.run dan önce kullanıcı formunu showmodal edebilirsin.
kolay gelsin.

[ishak27]

Öncelikle Böyle mini bir Form Oluşturabilirsin



Daha Sonra

Button1 olan Tamam Butonuna Şu Kodlar Yazılabilir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='ishak27'  then
if edit2.Text='123456' then
showmessage('Tebrikler Kullanıcı Adınızı ve Şifrenizi Başarı İle Girdiniz.');//Bu Mesajın Yerine Ana Formunuzun Kodunu YazaBilirsiniz Örn: form2.show gibi 
begin
if edit1.Text='' then
if edit2.Text='' then
showmessage('Lütfen Kullanıcı Adı ve Şifrenizi Giriniz');
end;
end;
end.

İptal Butonuna

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
close;//Formu Kapatır.
end;

Temizle Butonuna

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Clear;//Edit1'nin içini temizler
edit2.Clear;//Edit2'nin içini temizler
end;

end.

[/b]

[conari]

Kullanıcı formunda geçerli koşul gerçekleştiğinde

Form2.showmodal
Kullanıcıform.visible=false;

yapabilirsin.

[y.kulac]

ben şu şekilde yaptım.
şifre formunun BorderStyle = none yaptım, ki başlıları görünmesin ve kapatılamasın. daha sonra ana formun OnActive olayına;

Kod: Tümünü seç

procedure TfrmAna.FormActivate(Sender: TObject);
begin
 frmSifre.ShowModal;
end;

burada önce ana form açılır. sonra şifre formu ana formun üzerine ShowModal olarak açılır ki; şifre formu kapanmadan ana forma geçilemesin. daha sonra gerekli kontorlleri yaptırdım. eğer kontrol doğruysa şifre formunu close ettim. direk ana forma geçildi.

bu mantık doğrumudur bilmiyorum.

[iqprog]

C:\Program Files\Borland\Delphi6\Demos\Db\MastApp projesinin dpr'sindeki splash kodundan esinlenebilirsin.

[danaci]

ayrı bir formda şifre sordurmak yerine aynı form içine koyacağınız notebook ile işi kolayca halledebilirsiniz.
Başlangıç olarak notebookun pageindex=0 olan sayfasına şifreyle ilgili ekran düzenleyin, kullanıcı bu bilgileri doğru girerse notebookun diğer sayfalarına geçiş yaparsınız. Böylece yeni bir form hazırlamanıza gerek kalmaz.

[baypipox]

Kendi yaptığım bir şifre sorgulama ve akabinde yapılan işler vs.. belki sana fikir verebilir.

kolay gelsin...

Kod: Tümünü seç

procedure TForm1.SpeedButton7Click(Sender: TObject);
var
kul_ad,sifre,grup:string;
a:integer;
begin

     SBYeni.Enabled:=false;
     SBKaydet.Enabled:=false;
     SBEdit.Enabled:=false;
     SBSil.Enabled:=false;

     sifre:='';
        dm.DSUsers.Close;
        dm.DSUsers.SelectSQL.Clear;
        dm.DSUsers.SelectSQL.Add('select kullanici_adi, kullanici_sifre, kullanici_grup from users');
        dm.DSUsers.SelectSQL.Add('where (1=1)');
        dm.DSUsers.SelectSQL.Add('and kullanici_adi='+#39+edit3.Text+#39);
        dm.DSUsers.SelectSQL.Add('and kullanici_sifre='+#39+edit4.Text+#39);
        dm.DSUsers.open;

        kul_ad:=dm.DSUsers.Fields[0].AsString;
        sifre:=dm.DSUsers.Fields[1].AsString;
        grup:=dm.DSUsers.Fields[2].AsString;

        if grup='' then
        begin
           a:=5;
        end
        else
         begin
          a:=strtoint(grup);
        end;



        if dm.DSUsers.Fields[0].isnull then
        begin
           kul_ad:='15695000134600899';
        end;

        if dm.DSUsers.Fields[1].IsNull then
        begin
           sifre:='15695000134600899';
        end;

    //    ShowMessage(dm.DSUsers.Fields[0].AsString);
    //    ShowMessage(dm.DSUsers.Fields[1].AsString);


   if (kul_ad=edit3.Text) and (sifre=edit4.Text) then
         begin
            form1.Panel1.Visible:=true;
            edit3.Text:='';
            edit4.Text:='';
            form1.Panel5.Visible:=false;
            if a=1 then
                begin
                  SBYeni.Enabled:=true;
                  SBKaydet.Enabled:=true;
                  SBEdit.Enabled:=true;
                  SBSil.Enabled:=True;
                  label17.Visible:=true;
                  DBText1.Visible:=true;
                  Label12.Caption:='ADMİN PANELİ';
                end;
            if a=2 then
                begin
                  SBYeni.Enabled:=true;
                  SBKaydet.Enabled:=true;
                  Label12.Caption:='MODERATOR PANELİ';
                end;

         end
         else
         begin
            ShowMessage('Lütfen Kullanıcı Adı ve Şifrenizi Kontrol Ediniz...'+#13+'       Destek tameriminator@hotmail.com');
            edit3.Text:='';
            edit4.Text:='';
         end;
end;

[trolojik]

Neden project optionsdan Main formu şifre sorgulaması yapılan form olarak göstermiyorsunuz ?

[sarp_halit]

her şeyden önce herkese teşekkür ederim ama sanırım ben anlatamadım derdimi.

programın başlangıcında bir karşılama splash formu var zaten ama o kapanır kapanmaz ana form devreye girmeden ben şifre ekranının devreye girmesini istiyorum. bunu yapıyorum ama her seferinde anaform da gözüküyor. yani anaformun şifre ve kullanıcı adı doğru girilirse görünmesini istiyorum.

bunu nasıl sağlayabilirim.

bu arada delphi 7 kullanıyorum.

[ALUCARD]

hocam şifre formunu anaform olarak yapmışsan

ve kullanıcı şifresini falan doğru girdiyse

formu kapatma

Kod: Tümünü seç

form1.hide;
form2.show;

yap bence

[sarp_halit]

ALUCARD,

o dediğinizi denedim ama o da olmadı. sanırım en iyisi şifre ekranını kaldırmak olacak. ama bu benim için gerekliydi. arkadaşlar, bu konu üzerinde farklı yorumları olan yok mu? gerçekten önemli. lütfeeeennn

[aslangeri]

projevt menüsünden viewsource kısmında
application.run dan önce kullanıcı formunu showmodal edebilirsin.
kolay gelsin.

[tatu]

Ben mainformun onshowunda login form olarak showmodal açtırıyorum.
şifre doğru girilirse main forma geçiyor. aksi durumda login formu kapndığında main form açılmadan programdan çıkılıyor.