Forum.St| Enteresen Bir Forum Sitesi

Lütfen Sitemize Üye Olunuz Üyeliğiniz Varsa Lütfen Giriş Yapın...

Bağlı değilsiniz. Bağlanın ya da kayıt olun

Aranilan kaydin listboxda görüntülenmesi

Aşağa gitmek  Mesaj [1 sayfadaki 1 sayfası]

1 Aranilan kaydin listboxda görüntülenmesi Bir Paz Kas. 01, 2009 5:20 pm

CyberDuck

avatar
Varlığımızı Bilmeyenlere Yokluğumuz Kapak Olsun..!
Varlığımızı Bilmeyenlere Yokluğumuz Kapak Olsun..!
Bu kod aranilan kisinin bilgilerini listbox da gösterir...

Kod:

   PHP Kodu:
   <div class="alt2" dir="ltr" style="
      margin: 0px;
      padding: 5px;
      border: 1px inset;
      width: 640px;
      height: 498px;
      text-align: left;
      overflow: auto">
      
         
procedure*TForm1.Edit3KeyPress(Sender:*TObject;*va  r*Key:*Char);

begin

if*ord(key)=13*then*begin

tut:=0;

listbox1.Items.Clear;

listbox2.Items.Clear;

listbox3.Items.Clear;

listbox4.Items.Clear;

listbox5.Items.Clear;

table1.First;

while*not*table1.Eof*do*begin

if(edit3.Text=Table1No.Text)then*begin

tut:=tut+1;

edit1.Enabled:=true;

edit2.Enabled:=true;

edit3.Enabled:=true;

edit4.Enabled:=true;

edit5.Enabled:=true;

listbox1.Items.Add(Table1AD.Text);

listbox2.Items.Add(Table1Soyad.Text);

listbox3.Items.Add(Table1No.Text);

listbox4.Items.Add(Table1Telefon.Text);

listbox5.Items.Add(Table1Email.Text);

end;

table1.Next;

end;

if*tut=0*then*begin

showmessage(''+edit3.Text+'numaralı*bir*kişi*bulun  mamaktadır..');

edit3.Text:='';

edit3.SetFocus;

end

else*if*tut0*then*begin

listbox1.SetFocus;

end;

end;

end;*ü

alntı





Designer­s[Resimleri görebilmek için üye olun veya giriş yapın.]CyberDuck[Resimleri görebilmek için üye olun veya giriş yapın.]

%100 Netlebi Forum [Resimleri görebilmek için üye olun veya giriş yapın.] Kalitesiyle Her Hakkı Saklıdır!
Söz Uçar Yazı Kalır..!
Kullanıcı profilini gör http://sanalkolik.forum.st

Sayfa başına dön  Mesaj [1 sayfadaki 1 sayfası]

Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz