Delphi Forum

iki listbox kullanın, birisinde Görselde kullanacağınız "Caption" değeri, diğerinde de "FieldName" değeri...

Caption list'te seçilen ItemIndex in karşılığını FieldName ItemIndex değerini okuyabilirsiniz.

İyisimi Biz senaryoları bir kenara bırakalım :) Şimdi Editin altında ki Gride ekleme yapabilmek için Grid'in bağlı olduğu query Insert modunda olmalı... Senin anlattığın şekilde işleme devam edebilmek için procedure TForm14.Edit2KeyPress(Sender: TObject; var Key: Char); begin if (Key=#13) then begin...

Senaryo olarak; Ben arabayı servise getiriyorum. Arabayı servise alıp yağ değişimi, filtre değişimi, parça değişimi vs vs işlemler yapılıyor.. Bu işlemleri benim adıma düzenlenen servis fisine değişen parçaları hızlıca eklemek için bu yapıyı kurmaya çalışıyorsunuz... Servis fişi detaylarını eklemek ...

Bu işlemi yeni kayıt ( dm.IBQuery2.Insert ) ekleme yada kayıt düzenleme ( dm.IBQuery2.Edit ) modunda yapmalısınız...

Çok Güzel gitmişsiniz... procedure TForm14.Edit2KeyPress(Sender: TObject; var Key: Char); begin if (Key=#13) then begin dm.IBQuery2.FieldByName('ADI').AsString := DM.yhlistelesq.FieldByName('ADI').AsString; end; end; Arama yaptığınız Query'de ki ( DM.yhlistelesq ) veriyi INSERT / EDIT işlemi yaptığı...

Hatayı derlerken aldığınızı düşünüyorum... Yani daha exe derlenemiyor?

Uses satırına [ Data.DB ] ekleyip tekrar derlemeyi dener misiniz

Yazdığım uygulama Kodları yanımda değil,

Mantığını size yazdım, size sadece kendi yapınıza göre dizayn edip kodlamak kaldı...

Resmi görüntüleyemiyorum... Farkı bir alana yükleyebilir misiniz... bir de ST_TEST hangi component acaba?

Google arama ekranında ki gibi bir yapı sanırım kurmaya çalıştığınız? Edit nesnesi altında bir panel koyup, [Visible := False ] yapınız, Panel içine grid koyunuz Edit1.OnKeyUp özelliğinde Paneli görünüz Yapınız ve Gride bağlı olan query de sorgulama işlemini yapınız Edit1.OnKeyPress te de ENTER tuşu...

Ben 10.1 kullanıyırum, 10.1 de AsFloat kullanabiliyorum...

http://docwiki.embarcadero.com/RADStudi ... eld_Values

burada AsFloat kullanımı mevcut olduğunu belirtiyor...

ST_TEST query nesnesi ile ilgili farklı bir sorun olabilir!

Foreinkey tarafı için yorum yapamayacağım ancak Veritabanında AfterPost trigger ile hızlı bir şekilde UPDATE yapabilirsiniz...

Bir nevi ForeinKey yapacağı işi siz yapmış olaacksınız

Merhaba

ST_TEST.Parameters.ParamByName('vMIKTAR').Value:= 0.02127885; satırında " VALUE " yerine " ASFLOAT " denermisiniz...

İkinci linkte bu şekilde bir işlem yapılamayacağı bilgisi var!!!

https://social.technet.microsoft.com/Fo ... orum=sqltr

Sanırım MS-SQL Veritabanı kullanıyorsunuz.. http://abdulcebar-on.blogspot.com/2012/05/sql-coklu-guncelleme-sql-multiple.html Bu şekilde bir şey buldum... Ben PostgeSQL de denedim, ancak çalışmadı. MS-SQL de bu şekilde bir yapının çalışacağından çok emin değilim... Sonucu bizimle de paylaşırsanız mem...

Öyle bir imkan olsaydı bize gerek kalmadan programlar kendiliğinden oluşurdu