Mesaj Sayısı
Rep Gücü
Bu kod aranilan kisinin bilgilerini listbox da gösterir...
alntı
- 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ı
