Kayıt arama ekranı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
a_self_lion
Üye
Mesajlar: 93
Kayıt: 01 Eki 2008 07:04

Kayıt arama ekranı

Mesaj gönderen a_self_lion »

Şimdi foruma bir adet edit1 ve bir adet edit2 ekledim.
Burda edit1 in sağında ... şeklinde üç nokta işareti nasıl koyabilirim.

Koyduktan sonra buna basınca veya F6 tuşuna basınca

bu şekide

KAYIT ARAMA EKRANI
FİLTRE FİLTRE

ADI KODU

ALİ MEHMET 1002
HÜSEYİN AKBAŞ 1003
MEHMET ALİ DUMAN 1004
KAZIM AKYILDIZ 1005
HİKMEK DİK 1006


bu şekilde bir kayıt ekranı nasıl yapabilirim ve getirebilirim. Bu kayıt arama ekranından istediğim ismi seçincede adı kısmında yazan değer edit1 e kodu kısmında yazan değerde edit2 ye nasıl alabilirim.

örnek olması için jpg olarak da ekledim.

Teşekkürler.
Dosya ekleri
kayıt arama.rar
Yukarıdaki sorunun jpg olarak gösterilmiş hali.
(30.56 KiB) 108 kere indirildi
Kullanıcı avatarı
Lost Soul
Üye
Mesajlar: 1064
Kayıt: 01 Nis 2007 02:55
Konum: mekan ANKARA toprak ELAZIĞ
İletişim:

Re: Kayıt arama ekranı

Mesaj gönderen Lost Soul »

1. sorunun cevabı jedi bileşenlerinden jvbuttonedit ile yapabilirsin.

2. sorunun cevabı kullandığın veritabanına göre değişir. ancak forumda arattırırsan istemediğin kadar döküman bulabilirsin.
a_self_lion
Üye
Mesajlar: 93
Kayıt: 01 Eki 2008 07:04

Re: Kayıt arama ekranı

Mesaj gönderen a_self_lion »

Lost Soul yazdı:1. sorunun cevabı jedi bileşenlerinden jvbuttonedit ile yapabilirsin.

2. sorunun cevabı kullandığın veritabanına göre değişir. ancak forumda arattırırsan istemediğin kadar döküman bulabilirsin.
Burda sql server 2000 kullanıyorum. araştırdım ama mantığını yapadım bir ipucu gösterirseniz sevinirim.
Teşekkürler
Kullanıcı avatarı
Lost Soul
Üye
Mesajlar: 1064
Kayıt: 01 Nis 2007 02:55
Konum: mekan ANKARA toprak ELAZIĞ
İletişim:

Re: Kayıt arama ekranı

Mesaj gönderen Lost Soul »

a_self_lion yazdı: Burda sql server 2000 kullanıyorum. araştırdım ama mantığını yapadım bir ipucu gösterirseniz sevinirim.
Teşekkürler

bu linkte birden fazla alana göre arama yapma için örnek var.

formuna koyacağın bir query ile bu örneğin uygulayabilirsin.
tesisatçı
Üye
Mesajlar: 9
Kayıt: 09 Tem 2008 11:03

Re: Kayıt arama ekranı

Mesaj gönderen tesisatçı »

hangi tarafını istiyorsun ıb konsul u mu ?= SQl tarafınımı
ib consul de wiew yazabilirsin
procedure yazabilirsin
triger yazabilirsin
daha da özelliklerini kullanabilirsin ?????
a_self_lion
Üye
Mesajlar: 93
Kayıt: 01 Eki 2008 07:04

Re: Kayıt arama ekranı

Mesaj gönderen a_self_lion »

tesisatçı yazdı:hangi tarafını istiyorsun ıb konsul u mu ?= SQl tarafınımı
ib consul de wiew yazabilirsin
procedure yazabilirsin
triger yazabilirsin
daha da özelliklerini kullanabilirsin ?????
sql tarafını bunu nasıl yapabilirim. formda yani F6 ya basınca bir girid veya listbox açılsın üstteki edit den ve grid in Adı alanında ben melsela MEHMET yazınca yazarken veya yazdıktan sonra MEHMET ve MEHTAP gibi kayıtlar alt alta sıralanması mümkün mü? Ve üzerine gelince aktif olan bilgileri
edit1 e edit2 edit3 ... gelsin istiyorum. Ama nasıl yapacağımı bulamadım.
Kullanıcı avatarı
y.kulac
Üye
Mesajlar: 276
Kayıt: 08 Kas 2003 12:03
Konum: serdivan/sakarya

Re: Kayıt arama ekranı

Mesaj gönderen y.kulac »

formda yani F6 ya basınca
object inspectorden formun KeyPreview = true yapınız.
bir dbgrid ve listbox koyunuz forma ve visible özelliklerini false yapınız.
sonra formun OnKeyDown olayına şunları yazınız. f6 tuşuna basınca listbox ve dbgrid görünür olacak.

Kod: Tümünü seç

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = vk_F6 then
begin
dbgrid1.visible := true;
listbox1.visible := true;
end;
end;
Adı alanında ben melsela MEHMET yazınca yazarken veya yazdıktan sonra MEHMET ve MEHTAP gibi kayıtlar alt alta sıralanması mümkün mü?
mükündür.
bir tane edit1 ekleyin forma ve onchange olayını şunları yazınız. tabi bu kodları kullandığınız veritabanına göre uyarlamanız lazım. ben temel olanı size yazayım.

Kod: Tümünü seç

query1.close;
query1.sql.clear;
query1.sql.add('select * from tablonuzun_adı');
query1.sql.add('where alan_adı LIKE '''+edit1.text+'%''');
query1.open;
burda edit1 e yazmaya başlayacağınız harfe göre veritabanındaki kayıtlar LIKE komutuyla yazdığınız harf ile başlayan karakter ile eşleşen kayıtları dbgride listeleyecektir.
Ve üzerine gelince aktif olan bilgileri edit1 e edit2 edit3
buda mümkün. şöyle yapabilirsiniz. dbgridin onMouseDown yordamına şu kodları yazabilirsiniz.

Kod: Tümünü seç

edit2.text := query1.FieldByName('alan_adı_1').asstring;
edit3.text := query1.FieldByName('alan_adı_2').asstring;
ben burda size dilimin döndüğünce ve sizin sorunuzdan anladığım kadarı ile acizane yol göstermeye çalıştım.
sizin bunları kendinize uyarlamanız lazım.
iyi çalışmalar.
Cevapla