DBGrid1ColExit

zengin · Mesaj gönderen **zengin** » 02 Ağu 2004 05:18

merhaba delphiturkiye üyeleri sizleri rahatsız ettigim icin önce özür dilerim
sorunum ise DBGrid1ColExit bu kodları yazmam dogrumudur
mastır detail kullanıyorum Query1 ve table1 kullanmaktayım
dbgridin icinde alta ve bir üst kolana giderken titreme yapıyor eger
yanlış ise nasıl bir uygulama ile bana yardımcı olabirmisiniz lütven bu konoda yardımlarınızı bekliyorum

procedure TMHAREKET.DBGrid1ColExit(Sender: TObject);
begin
MHtable1.Edit;
if (dbgrid1.SelectedIndex=0) and(dbgrid1.fields[0].text='')then
MHtable1tarih.Text:=datetostr(date);// boş geçildiğinde tarih yazıyor
MHtable1toplam.Value:=MHTable1Brfiyat.Value*MHtable1miktar.Value;
MHTable1Plaka.Text:=MKART.MKquery1plaka.Text;
begin
if (dbgrid1.SelectedIndex=0) and(dbgrid1.fields[7].text='')then
MHTable1kalanbakiye.Text:=MKART.mkquery1kalan.Text;
end;

Mesaj gönderen **lazio** » 02 Ağu 2004 05:27

merhaba,
bu tür işlemleri tablonun before insert gibi olaylarında yapmanı tavsiye ederim..
kolay gelsin

Mesaj gönderen **aslangeri** » 02 Ağu 2004 05:45

Merhaba...

Kod: Tümünü seç

procedure TMHAREKET.DBGrid1ColExit(Sender: TObject); 
begin 
MHtable1.Edit; 
if (dbgrid1.SelectedIndex=0) and(dbgrid1.fields[0].text='')then 
MHtable1tarih.Text:=datetostr(date);// boş geçildiğinde tarih yazıyor 
MHtable1toplam.Value:=MHTable1Brfiyat.Value*MHtable1miktar.Value; //her collexit olayında yaptırma. colonu kontrol et ona göre hesaplat (brfiyat yada miktar kolonlarından çıkılıyorsa
MHTable1Plaka.Text:=MKART.MKquery1plaka.Text; //bu ne için? bu işlemi bir kere yaptırman yeterli her colexitte .....
begin //neyin begini eğer tarihalanı içinse then den sonra olmalıydı.
if (dbgrid1.SelectedIndex=0) and(dbgrid1.fields[7].text='')then 
MHTable1kalanbakiye.Text:=MKART.mkquery1kalan.Text; 
end;

hesaplama işlemlerini calc alan tanımlayıp öyle yap.
tarih için onnewrecord yada after insertte varsayılan olarak günün tarihini ata vatandaşın boş geçmesini bekleme.
Önce kodun yapmasını istediğin şeyleri bir kağıda yaz. sonra bunları adım adım uygula.
kolay gelsin.

zengin · Mesaj gönderen **zengin** » 02 Ağu 2004 07:23

degerli arkadaşlarım
Şüpelerime yanıt bulmama yardımcı olduğunuz için teşekkür ederim.

hatanın neresinden döner isen o kar benim şimdi bu kodları düzelmem icin bana
yardımcı olun lütven siteden örnek master detail olan kodları inceledim fakat
cözemedim sizleride rahatsız ettigim icin kusura kalmayın burada benim
ne yapmam lazım
siz degerli üstatlardan biraz daha ayrıntılı bilgi almalıyım sanırım

Mesaj gönderen **lazio** » 03 Ağu 2004 09:27

merhaba yazdığın koddan anladığım kadarıyla..
MHTable1 in before post olayına

Kod: Tümünü seç

if MHTable1Tarih.Text = '' then // tarih boş geçildiyse
  MHTable1Tarih.Text := datetostr(date);
if MHTable1Plaka.Text = '' then // plaka boş geçildiyse
  MHTable1Plaka.Text:=MKART.MKquery1plaka.Text; 
MHTable1Toplam.Value := MHTable1Brfiyat.Value * MHTable1Miktar.Value; // toplam fiyatı hesapla
MHTable1kalanbakiye.Text:=MKART.mkquery1kalan.Text; // bunun ne olduğunu anlamadım ama sanırım buraya yazılabilir...

kolay gelsin

zengin · Mesaj gönderen **zengin** » 10 Ağu 2004 12:31

merhaba arkadaşlar MHtable1.Edit; olayını hala cözemedim

MHtable1.Edit; kullandıgım dbgrid icinde sanki işlem yaparken sıkıyor

procedure TMHAREKET.DBGrid1ColExit(Sender: TObject);
begin

MHtable1.Edit;

if MHTable1Aciklama.text <> '' then
MHtable1toplam.Value:=MHTable1Brfiyat.Value*MHtable1miktar.Value;
MHTable1Plaka.Text:=MKART.MKquery1plaka.Text;

kusura kalmayın sizleride rahatsız ediyorum fakat bu kodları düzeltmem
lazım bana bu konuda yardımlarınızı bekliyorum saygılarımla