dbgridden seçili bir kaydı edite yollama

[selman]

Arkadaşlar;
Herkese kolay gelsin
dbgiridden seçtiğim bir kaydı başka formda bulunan edit1 eyollayacağım
bu kaydı yollarken stok adına göre yallayacak mesela stok adı anakart
açıklama anakartın modeli olsun edite debu stok adını açıklamasını aktaracak yani stok adı anakart sa stok açıklama model
stok adı kasa ise ksanın modelini bunun gibi Saygılarımla

[aslangeri]

S.A.
Bu işlemi iki şekilde yapabilrsin.
1. İkinci formdaki kontrolleri dbedit e çevirip datasorucesini dbgrid ile aynı yaparsın.
2. ikinci formu show yaptığın yerde (form2nin onshowunda yada form2 yi çağırdığın yerde) editlerin text ine değer aktarabilirsin.
Kolay gelsin.

[selman]

aslan geri nin gönderdiği bilgiler benim işime yaramıyor çünkü ben dbgridden seçtiğim bir kaydı edit1 e yollayayacak
mesela
dbgridde kodu,stok grubu,açıklama gibi bölümlerim var
ben kodu a1 girdim
stok grubu anakart girdim
açıklama ya da
a7v8x girdim
ikinci bir kayıtta koduna
k1 girdim
stok grubuna kasa girdim
açıklamaya da atx kasa girdim şimdi benim istediğim kodu a1 olan stoğu dbgridde iken tıkladım ve form2 de bulunan dbedit1e atacak
ve kodu k1 olan stoğa tıkladığımda form2 de ki dbedit2 nin içine atacak
benim istediğim bu şekilde ;
herkese iyi çalışmalar

[yusuf simsek]

S.A.

kolay gelsin

dbgrid double click olayında baglı olduğu datasetten ürünün numarasını alabilirsin. bu numarayı sorgulatıp istediklerini de 2. formdaki editlere gönderebilirsin...

Kod: Tümünü seç

procedure Tform1.DBGrid1DblClick(Sender: TObject);
begin
dm.query1.Close;
dm.query1.Params[0].AsInteger:=dbgrid1.Columns[0].Field.value;
dm.query1.Open;
end;

form2.edit1.text:=query1GRUP.value;
form2.edit2.text:=query1ACIKLAMA.value;
form2.show;

eğer dbedit nesnelerine göndermek istersen

Kod: Tümünü seç

form2.edit1.text:=query1GRUP.value; 

yerine

Kod: Tümünü seç

query2GRUP.Value:=query1GRUP.value;

yapabilirsin diye düşünüyorum.

Kolay gelsin...

Bu arada ASLANGERİ kardeşime ve diğer arkadaşlara da tekrar teşekkür ederim.Artık PARAMS özelliğini kullanabiliyorum...

[aslangeri]

tekrar mrb.

aslan geri nin gönderdiği bilgiler.....

aslangeri bitişik yazılıyor.

ben dbgridden seçtiğim bir kaydı edit1 e yollayayacak
...............
tıkladım ve form2 de bulunan dbedit1e atacak
......dbedit2 nin içine atacak
herkese iyi çalışmalar

form2dekiler dbeditmi yoksa editmi?
Program bilgileri Form2 de dbedit1 emi yoksa dbedit2 yemi gönderecek. Neye göre bilecek?
form2de ayrı bir tabloya insert yapmak mı gerekiyor?

dbgrid in ondoubleclick ine aşağıdaki gibi bi kod yazarak halledebilirsin.

Kod: Tümünü seç

if form2.showing then
begin
  form2.edit1.text:=TStokKodu.asstring;
end;

form2nin create edilmiş olduğunu varsayıyorum. Stok tablosuna TStok tablosu ile ulaşıyoruz.
umarım bu sefer işine yarıyacak bir şeyler göndermişimdir.
Kolay gelsin.

[selman]

Aslangeri hocamın gönderdiği bilgiler için teşekkür ederim....Abi şimdi
sizin gönderdiğiniz kod
alıntı

if form2.showing then
begin
form2.edit1.text:=TStokKodu.asstring;
end;
bunu ben yaptığım zaman diyelim form2 de 4 veye 5 tane edit
olduğu zaman durm karışıyor Zira ben dbgridde seçtiğim bilgiyi edit1 eyolladım o öylece sabit kalsın
dbgridden yine bir kayıt seçtiğim zaman o da 2.edit nesnesinde kasın
yani bir kayıt seçtiğim de 2 editede birden atmasını istemiyorum
Kolay gelsin....

[aslangeri]

Program bilgileri Form2 de dbedit1 emi yoksa dbedit2 yemi gönderecek. Neye göre bilecek?

şöle bişi olabilir.

Kod: Tümünü seç

if form2.showing then
begin
if form2.edit1.text='' then form2.edit1.text:=TStokKodu.asstring else
if form2.edit2.text='' then form2.edit2.text:=TStokKodu.asstring else
......
if form2.editN.text='' then form2.editN.text:=TStokKodu.asstring; 
end;

şimdu burda bir kaç soru(n) ortaya çıkıyor.
Kaçtane edit olacağını neye göre belirliyorsun?
Sadece stokkodlarını göstermek yetiyormu?
İlerde bu seçilen stok kodları ile işlem yapılacakmı?

bu soruların cevabını bilmediğim için benim verdiğim cevaplar senin problemini çözüyor gibi görünsede senin asıl yapmak istediğin şeyin üstüne örtü çekiyor olabilir ona göre.
Kolay Gelsin.

[selman]

İyi çalışmnalar

Ana formumuzda parça modelleri ve fiyatları var biz burada yazılı olan parça ve fiyatlarını dbgrid içinden seçerek 2.forma atarak toplamak istiyoruz Yani ben stok grubunda Kasa ,
anakart ,işlemci gibi gruplar var
ben bu gruplardan Anakart ve İşlemci Modelini seçip 2.formda fiyatlarını toplamak istiyorum.....
Kolay gelsin............

Kod: Tümünü seç

[aslangeri]

S.A.

form2de ayrı bir tabloya insert yapmak mı gerekiyor?

kardeş ne yapmak istediğini en başta söylesende bizi burda yıpratmasan
dbgridden seçilen malzemeleri tutmak için bir tablo oluştur. bu tablo geçici bir tabloda olabilir eğer daha sonra kime ne fiyat vermişiz diye görmek isteyeceksen tabloyu ona göre oluştur.
dbgridden stoğu seçtiği zaman (fiyatı stok tablosunda tuttuğunu varsayıyorum)

Kod: Tümünü seç

  TGeciciTablo.insert;
  TGeciciTabloStokKodu.asstring:=TStokKodu.asstring;
  TGeciciTabloFiyat.ascurrency:=TStokFiyat.ascurrenct;
  TGeciciTablo.Post;

TgecicTablo yeni oluşturduğumuz tablo. Form2 de bir düğmeyle fiyatları toplatırsın. (yada ne zaman toplamasını istiyorsan ona göre bi ayar verirsin.)
Kolay gelsin.