Birkaç Delphi Sorusu

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
dkadir
Üye
Mesajlar: 40
Kayıt: 04 Oca 2014 06:44

Birkaç Delphi Sorusu

Mesaj gönderen dkadir »

Selamun Aleyküm
Çok mühim bir projede bazı yerlerde takıldım.Yardımcı olursanız çok sevinirim.
1.Soru ComboBox,LookupCombobox vs kullanırken içinde kayıtlı olmayan birşey yazıldığı zaman Böyle bir kayıt yok eklensin mi diye sorması.
verilerini veritabanına kaydetmesi çok güzel olur.
Ayrıca aynı kayıtları ve boş kayıtları göstermemesi lazım

2. Soru İki tarih arası filtreleme yapmam lazım normalde filtrelemeyi şu şekilde yapıyorum.

Kod: Tümünü seç

  if AdvOfficeCheckBox14.Checked then DM.ADOTable1.Filter:='düsüm_durumu like '+'%'+edit14.Text+'%';
      DM.ADOTable1.Filtered:=True;
if DM.ADOTable1.Fields.Fields[1].Value= null then
showmessage('Aradığınız Kişi Kayıtlarda Yok');
end;
Bunu iki tarih arasına nasıl dönüştürürüm ?

3.Soru Ado bağlantısını alias tanımlayarak yaptım çünkü Normal bağlantı yaptığımda veritabanı şifresizken sıkıntı olmuyor ancak veri tabanına şifre koyduğum da özel kullanımda açık durumda hatası veriyor.bunu nasıl halledebilirim.
Teşekkürler Saygılar..
hakanoguzer
Üye
Mesajlar: 44
Kayıt: 15 Kas 2013 10:22

Re: Birkaç Delphi Sorusu

Mesaj gönderen hakanoguzer »

2. sorun için bunu query ise sql olarak yapmalısın

örnek

STR:='';

if edt_tarihi1.TEXT <> ' ' then
STR:=STR+' and tarihi >='+ gfs_strtostr(edt_tarihi1.TEXT) ;

if edt_tarihi2.TEXT <> ' ' then
STR:=STR+' and tarihi <='+ gfs_strtostr((edt_tarihi2.TEXT) ;

qry_data.close;
qry_data.SQL.text:='';
qry_data.SQL.text:='select * from TABLOADIN where 1=1 '+ STR+' ORDER BY 1';
qry_data.Open;
dkadir
Üye
Mesajlar: 40
Kayıt: 04 Oca 2014 06:44

Re: Birkaç Delphi Sorusu

Mesaj gönderen dkadir »

ADOTable kullanıyorum
yusuf simsek
Üye
Mesajlar: 330
Kayıt: 09 Mar 2004 11:18
Konum: Konya
İletişim:

Re: Birkaç Delphi Sorusu

Mesaj gönderen yusuf simsek »

Aleyküm Selam,

1. Soru için

ComboBok ONEXIT olayına

Kod: Tümünü seç

  if Trim( Combobox.Text ) <> '' then // Combobox.Text Boş Değilse
    if Combobox.Items.IndexOf( Combobox.Text ) = -1 then //  Combobox.Text , Combobox.Items içinde yoksa
      if Application.MessageBox( PChar( Combobox.Text +' Eklensin mi?' ), 'ONAY', MB_YESNO + MB_ICONQUESTIONS ) = mrYes then
        Begin
        	// INSERT INTO ile tanımı ekle ve Combobox tekrar doldur...
        end;
2. Soru için

Kod: Tümünü seç

DM.ADOTable1.Filter:= DM.ADOTable1.Filter:= + ' AND Tarih >= '''+'Tarih1.Text+''' AND Tarih <= '''+'Tarih2.Text+'''';
deneyebilirsin...

3. Soru için

AdoTable nesnesinin bağlı olduğu ADOConnection da LOGINPROMP özelliğini FALSE yaparak Parola Sormamasını sağlayabilirsin.
Bugün bir kez daha,
Hiç Birşey Bilmediğimi Öğrendim!!!

https://extrayazilim.com
Cevapla