cxGrid de Başka bir tablodan otomatik değer alma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
mudipasa
Üye
Mesajlar: 169
Kayıt: 13 Tem 2004 02:25
Konum: Batman

cxGrid de Başka bir tablodan otomatik değer alma

Mesaj gönderen mudipasa »

S.A.
Uzun zamandır kafamı kurcalıyordu bende karıştırdım ama içinden çıkamadım. cxGrid de islem tabloma bir harket ekliyorum. Grid üzerinde yeni bir kayıt ekleyerek yapıyorum. burda urun tablosundan bilgi çekmesini istiyorum. Yani URUNADI sütununu LookupCombobox olarak gösteriyorum ve Listsource olarak ta urun tablosunu ayarlıyorum. ama islem harketine ait diğer bilgileri örneğin Birim fiyatı, KDV oranını, Satış fiyatını vs. yani ürün kartında kayıtlı olan diğer bilgileri otomatik olarak islem tablosunun değerlerine aktarsın istiyorum. Biraz uzun bir soru oldu ama inşallah sorunumu iyice anlatabilmişimdir ? :)
Kullanıcı avatarı
mudipasa
Üye
Mesajlar: 169
Kayıt: 13 Tem 2004 02:25
Konum: Batman

Mesaj gönderen mudipasa »

bu arada örnek program olarak KTSPro diye Cari programı söyleyebilirim.
Kullanıcı avatarı
undefined
Moderator
Mesajlar: 565
Kayıt: 06 Eki 2003 12:01
Konum: Bursa
İletişim:

Mesaj gönderen undefined »

LookUpCombobox'ın onChange şu şekilde bir kod yazabilirsin.

Kod: Tümünü seç

var
   sonuc:Variant;
  Urun_id:integer;
begin

  Urun_id := qryIslem['urun_id']; // Bu değerin LookupCombobx tarafından otomatik atanadığını varsayıyıorum.

  sonuc := qryUrunler.Lookup('urun_id',Urun_id,'BirimFiyati;KDV;SatisFiyati');
  if not varisNull(sonuc) then  
  begin
    qryIslem.fieldbyname('BirimFiyat').Asdouble := sonuc[0];
    qryIslem.fieldbyname('KDV').Asinteger := sonuc[1];
    qryIslem.fieldbyname('SatisFiyati').Asdouble := sonuc[2];
  end;

end;
Kullanıcı avatarı
mudipasa
Üye
Mesajlar: 169
Kayıt: 13 Tem 2004 02:25
Konum: Batman

Mesaj gönderen mudipasa »

S.A.
undefinde ustam teşekkürler. ancak ben cxGrid in üzerinde yapacam bunu. ben bir türlü uyarlayamadım yada bulamadım Onchange olayını. istediğim kayıt satırındaki bir hücrenin LookUpcombobox olayındaki değişiklik. Birde Firebird de yeniyim. IBDataset ile yapıyorum. biraz daha ayrıntılı bilgi verirsen sevinirim.
ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 10:13

Mesaj gönderen ikutluay »

cx grid çok bilmiyorum ancak varsa col enter ve col exit olaylarında gerekli aktarım kodlarını yazabilirsin. undefined kod örneği vermiş zaten
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
Kullanıcı avatarı
undefined
Moderator
Mesajlar: 565
Kayıt: 06 Eki 2003 12:01
Konum: Bursa
İletişim:

Mesaj gönderen undefined »

Merhaba,
1- İhtiyacın olan kolonu (Column) lookupcombobox şeklinde ayarla Bunu kolonun bir özelliği olan properties'ten seç. Seçtikten sonra lookupcombobox'a ait ayarlar gelecek.
2- O ayarlardan Lookupcombobox'ın veri bağlantılarını ayarla.
3- Events sayfasına geç ordan properties'ten onchange olayını bul.
4- Kendi işinin mantığına göre kodları düzenle.

Hangi aşamada takıldığını yazarsan ona göre yardımcı olmaya çalışırım.
Cevapla