Burada PARTIH ve PARTIBI PARTİ Başlık ve Detay kısmıdır
BRECB ise REÇETE Tablomdur
PARTIH Tablosundaki KARISIM alanı ile BRECB Alanındaki MIKTAR2 Alanının çarpımı alınacak
PARTIBI Tablosundaki MIKTAR alanı ile BRECB Alanındaki MIKTAR1 Alanının çarpımı alınacak
AdoQuery kullanarak
Edit vasıtası ile PNO(Parti numarası mesela 000010 )Yazdığım zaman bana miktarlarla birlikte vermesini istiyorum PARTIH ile BRECB Tablolarını birleştirdim fakat PARTIBI Tablosunu birleştiremedim (yani üç tabloyu).
Şu sorgu ile BRECB i alabiliyorum.
Adoparti.Close;
Adoparti.SQL.Text:=’Select * From PARTIH where PNO=’+QuotedStr(trim(edit1.text));
Adoparti.Open;
Recete:=trim(adoparti.fieldbyname(‘BRNO’).asstring);
Adorecete.close;
Adorecete.SQL.Text:=’select * from BRECB where RNO=’+Quotedstr(recete);
Adorecete.open;
PARTIH
SIRKET----PNO------TARIH--BRNO---MAKINA-------KARISIM
01---------000010--------------4------BHT40C---------2500
01---------000020--------------5------BHT600C--------5750
01----------000030-------------6------BHT10C----------2610
01----------000040-------------7------BHT25C--------- 5400
PARTIBI
SIRKET------PNO------SATIR---MUSTERI-----MKOD----MIKTAR
01---------000010------1--------KO59--------15001-------330
01---------000010------2---------K059--------55001--------14
01---------000010------3---------KO59--------15001--------12
01---------000020------1---------KO58--------55001-------279
01---------000020------2---------K058--------15004-------276
01---------000030------1---------K059---------70001------400
BRECB
SIRKET------RNO-----SATIR----MKOD-----MIKTAR1--------MIKTAR2
01-------------2----------1--------K34-----------0,5---------------- 0
01-------------2----------2 -------K36-------------2-----------------0
01-------------2----------3--------BY213----------3---------------0,8
01-------------2----------4--------K35-------------0---------------5,4
01-------------3----------1--------K01-----------0,4-----------------0
01-------------3----------2--------K38-------------1------------0,154
01-------------3----------3--------BY2021-------0,5----------------0
01-------------3----------4--------K16--------------1-----------0,011
MIKTARI Kendi içinde şu şekilde toplattım ama MIKTAR1 ile nasıl çarptıracağım satırlar var satırları tek tek çarptırmalıyım.
Form1.AdoQuery1.Close;
Form1.AdoQuery1.SQL.Clear;
Form1.AdoQuery1.SQL.Add(‘SELECT SUM(MIKTAR) AS TOPLAM FROM PARTIBI’);
Form1.AdoQuery1.Open;
admin arkadaşımıza acemilikle gönderdiğim mesaj için özür dilerim ilk kez foruma yazıyorum ve acele gönderdim
