mrmarman hocam case blokuna kod yazıyorum fakat bir türlü işletemiyorum
5 tane tablom ve bu tabloların her birinde alan adı olarak haftanın 7 gün adı var(pazartesi ,salı çarşamba....)
tablo1 (1.hafta )
Pazartesi-Salı-Çarşamba-Perşembe-Cuma-Cumartesi-Pazar
tablo2 (2.hafta )
Pazartesi-Salı-Çarşamba-Perşembe-Cuma-Cumartesi-Pazar
tablo3 (3.hafta )
Pazartesi-Salı-Çarşamba-Perşembe-Cuma-Cumartesi-Pazar
.....................................
................
Hocam verileri katarmak istediğim başka bir aktarmatablom var 1den......................31 e kadar alan adı olan
haftası 1 olan ve ilk günden başlayarak örneğin Cuma 1.hafta ve 1.gün cuma ise tablo1 den cuma verisini al aktarmatablomun 1. alanına,2.gün tablo1 den cumartesi verisini al aktarmatablom dan 2.alana .................1 hafta bitip
2. haftaya geçtiğinde ki ilk günü pazartesi (4.gün) bu sefer tablo2 den pazartesi verisini al aktarmatablom dan 4.alana yaz.............
Kod: Tümünü seç
Var
Tarih : TDate;
i : Word;
begin
Tarih := MonthCalendar1.date;
Memo1.Clear;
for i := DayOf( StartOfAMonth( YearOf(Tarih), MonthOf(Tarih) )) to DayOf( EndOfAMonth( YearOf(Tarih), MonthOf(Tarih) )) do
begin
Tarih := EncodeDate( YearOf(Tarih), MonthOf(Tarih), i);
Memo1.Lines.Add( Format('%s - HaftaNo : %d - %s', [ DateToStr(Tarih), HaftaNo(Tarih), HaftaninGunu( Tarih ) ]) );
case HaftaNo(Tarih) of
1: // Hafta no 1 olan zaman yapılacaklar..
if HaftaninGunu(Tarih)='Pazartesi' then //ilkgün pazartesi ise 1.tablodan veri alışı
IBDataSet7.edit;
IBDataSet7.FieldByName('1').AsString:=IBDataSet1.FieldByName('PZT').AsString;
IBDataSet7.FieldByName('2').AsString:=IBDataSet1.FieldByName('SAL').AsString;
IBDataSet7.FieldByName('3').AsString:=IBDataSet1.FieldByName('CRB').AsString;
IBDataSet7.FieldByName('4').AsString:=IBDataSet1.FieldByName('PRB').AsString;
IBDataSet7.FieldByName('5').AsString:=IBDataSet1.FieldByName('CUM').AsString;
IBDataSet7.FieldByName('6').AsString:=IBDataSet1.FieldByName('CMT').AsString;
IBDataSet7.FieldByName('7').AsString:=IBDataSet1.FieldByName('PAZ').AsString;
IBDataSet7.post ;
end;
if HaftaninGunu(Tarih)='Salı' then // ilkgün salı ise
begin
IBDataSet7.edit;
IBDataSet7.FieldByName('1').AsString:=IBDataSet1.FieldByName('SAL').AsString;
IBDataSet7.FieldByName('2').AsString:=IBDataSet1.FieldByName('CRB').AsString;
IBDataSet7.FieldByName('3').AsString:=IBDataSet1.FieldByName('PRB').AsString;
IBDataSet7.FieldByName('4').AsString:=IBDataSet1.FieldByName('CUM').AsString;
IBDataSet7.FieldByName('5').AsString:=IBDataSet1.FieldByName('CMT').AsString;
IBDataSet7.FieldByName('6').AsString:=IBDataSet1.FieldByName('PAZ').AsString;
IBDataSet7.post ;
end;
..............
.............
2: // Hafta no 2 olan zaman yapılacaklar..
if HaftaninGunu(Tarih)='Pazartesi' then //ilkgün pazartesi ise 2.tablodan veri alışı
IBDataSet7.edit;
IBDataSet7.FieldByName('8').AsString:=IBDataSet2.FieldByName('PZT').AsString;
IBDataSet7.FieldByName('9').AsString:=IBDataSet2.FieldByName('SAL').AsString;
IBDataSet7.FieldByName('10').AsString:=IBDataSet2.FieldByName('CRB').AsString;
IBDataSet7.FieldByName('11').AsString:=IBDataSet2.FieldByName('PRB').AsString;
IBDataSet7.FieldByName('12').AsString:=IBDataSet2.FieldByName('CUM').AsString;
IBDataSet7.FieldByName('13').AsString:=IBDataSet2.FieldByName('CMT').AsString;
IBDataSet7.FieldByName('14').AsString:=IBDataSet2.FieldByName('PAZ').AsString;
IBDataSet7.post ;
end;
if HaftaninGunu(Tarih)='Salı' then // ilkgün salı ise
begin
IBDataSet7.edit;
IBDataSet7.FieldByName('8').AsString:=IBDataSet2.FieldByName('SAL').AsString;
IBDataSet7.FieldByName('9').AsString:=IBDataSet2.FieldByName('CRB').AsString;
IBDataSet7.FieldByName('10').AsString:=IBDataSet2.FieldByName('PRB').AsString;
IBDataSet7.FieldByName('11').AsString:=IBDataSet2.FieldByName('CUM').AsString;
IBDataSet7.FieldByName('12').AsString:=IBDataSet2.FieldByName('CMT').AsString;
IBDataSet7.FieldByName('13').AsString:=IBDataSet2.FieldByName('PAZ').AsString;
IBDataSet7.post ;
end;
..............
.............
End; end; end;
IBDataSet7 alanlar memodaki tarihle eşleşerek başka bir tablodan veri alacak.1. hafta olanları tablo1 den,2.hafta olanları tablo 2 den. alcak.......................
İşin içinden bir türlü çıkamadım hocam yaa
azar
