Kayıt buldurma !!!!

[ozcank]

Arkadaşlar kayıt yaptırırken DBGrid ekranında hangi satıra cift tıklıyorsam alanlarda görünüyor ve düzeltme yapılarak kaydediliyor;

Kod: Tümünü seç

Button10.Enabled:=True;
Edit15.Text:=Table9STOKKODU.AsString;
DBEdit15.Text:=Table9STOKADI.AsString;
CEdit1.Value:=Table9ADET.AsCurrency;
CEdit2.Value:=Table9BFIYATI.AsCurrency;
CEdit3.Value:=Table9TOPFIYATI.AsCurrency;
Edit2.Text:=Table9DEPOGIR.AsString;
DBEdit24.Text:=Table9DELMKOD.AsString;
DBEdit18.Text:=Table9DEPOGRP.AsString;

fakat bu satır "Table9STOKKODU.AsString:=Edit15.Text;"
ilk kayda konumlandığı için kodu ilgili kayıt için değilde ilk kayıt için kaydediyor ve dolayısıyla yanlış kayıt yapılmış oluyor bana nasıl yardımcı olabilirsiniz?

Kod: Tümünü seç

Table9.Edit;
Table9STOKKODU.AsString:=Edit15.Text;
Table9STOKADI.AsString:=DBEdit15.Text;
table9ADET.AsCurrency:=round(CEdit1.value);
table9BFIYATI.AsCurrency:=round(CEdit2.value);
table9TOPFIYATI.AsCurrency:=round(CEdit3.value);
Table9DEPOGRP.AsString:=DBEdit18.Text;
If Edit2.Text='G' Then
Table9STOKKODU.AsString:=DBEdit2.Text;
Table9DEPOGIR.AsString:=Edit2.Text;
Table9.Post;
Button9.Enabled:=False;
Button13.Enabled:=False;
end;

[bobasturk]

merhaba,

grid üzerinde çift tıklarken hangi kodu kullanıyorsun verirsen yardımcı olunabilir heralde. zira bende aynı şekil çift tıklama ile ilgili formu açtırıp ve ilgili ibdataseti conumlandırıp işlem yaptırıyorum.

kolay gelsin.

[ozcank]

Cift tıklayarak kullandığım kodlar bunlar;

Kod: Tümünü seç

Button10.Enabled:=True; 
Edit15.Text:=Table9STOKKODU.AsString; 
DBEdit15.Text:=Table9STOKADI.AsString; 
CEdit1.Value:=Table9ADET.AsCurrency; 
CEdit2.Value:=Table9BFIYATI.AsCurrency; 
CEdit3.Value:=Table9TOPFIYATI.AsCurrency; 
Edit2.Text:=Table9DEPOGIR.AsString; 
DBEdit24.Text:=Table9DELMKOD.AsString; 
DBEdit18.Text:=Table9DEPOGRP.AsString; 

Düzeltmek için buttona bastığım zaman ki kodlar;

Kod: Tümünü seç

Table9.Edit; 
Table9STOKKODU.AsString:=Edit15.Text; 
Table9STOKADI.AsString:=DBEdit15.Text; 
table9ADET.AsCurrency:=round(CEdit1.value); 
table9BFIYATI.AsCurrency:=round(CEdit2.value); 
table9TOPFIYATI.AsCurrency:=round(CEdit3.value); 
Table9DEPOGRP.AsString:=DBEdit18.Text; 
If Edit2.Text='G' Then 
Table9STOKKODU.AsString:=DBEdit2.Text; 
Table9DEPOGIR.AsString:=Edit2.Text; 
Table9.Post; 
Button9.Enabled:=False; 
Button13.Enabled:=False; 
end;

Düzenleyen @coderlord: code taglarını kapatırken dikkat edelim. Bazı kodlar tag dışında kaldığı için düzgün görüntülenemiyor.

[bobasturk]

merhaba,

benim kullandığım yöntem şöyle. bir veri girdiğim sayfam var birde sorgulama yaptığım sayfa. bu sorgulama sayfasında sonuç olarak dökülen veri üzerine çift tıkladığımda veri girişi yapılan ibdataset e o verinin anahtar alanı ile locate yapıyor ve veri giriş sayfasını locate olmuş vaziyette açıyor ve güncellemyi kullanıcı yapıyor.

burada size tavsiye olarak ilgili ibdataset ile locate yapıp dönen sonucu editlere dökmeniz gerekli güncellemeden sonra ayrı bir button ile ibdatasete edit modunda kaydı yapmalısın

kolay gelsin

[ozcank]

Kod: Tümünü seç

Table9STOKKODU.AsString:=Edit15.Text;

ben bu satırı bulduramazmıyım?

[bobasturk]

merhaba,

yazdığın bu edit leme kodun dan önce düzeltme yapacağın alana konumlanma kodunu yazman lazım diye düşünüyorum. önce konumlanıp sonra düzeltme,

Kod: Tümünü seç

dm1.ArsIBDSet.Locate('ILCE_NO',edit15.text,[]);
dm1.arsibdataset.edit;
......

gibi.
kolay gelsin