Tarih ve kontrollu otomatik veri girişi

[ALUCARD]

Nasıl anlatacağımı bile çözemezken programsal olarak nasıl yapacağım bilemiyorum

1. tablom

Kod: Tümünü seç

tblKurslar

id
OgretmenID
kursadi
bastamatarihi
bitistarihi
pazartesi
sali
carsamba
persembe
cuma
cumartesi
pazar

bu tablodaki haftanın günlerinde öğretmenin o gün gireceği ders saati sayısı var

2. tablom

Kod: Tümünü seç

tblEkDersler

id
OgretmenID
bir
iki
uc
dort
bes
.
.
.
yirmidokuz
otuz
otuzbir

yapmak istediğim kurslar tablosunda girilen günlerdeki ders saatlerini ekders tablosuna denk gelen güne yazmak

mesela kurs tablosundaki bir kaydı değerlendirelim

id : 1
OgretmenID : 1
kursadi : Bilgisayar İşletmenliği
bastamatarihi : 01/02/2012
bitistarihi : 20/04/2012
pazartesi : 4
sali : 4
carsamba : 4
persembe : 4
cuma : 4
cumartesi :
pazar :


bu verilere göre nisan ayındaki Ekders tablosunda 20/04/2012 tarihine kadar hafta içi günlere yukardaki ders saati sayısını yazdırmak istiyorum

Umarım derdimi anlatabilmişimdir.
konuyla ilgili fikri olan arkadaş paylaşırsa sevinirim.

[ALUCARD]

Kod: Tümünü seç

var
gun : integer ;
gunadi : string ;
i: integer;
begin

gun := DayOfTheWeek(DMHemMaas.ADOTDonemBaslamaTarihi.Value);
for i :=0  to DaysInMonth(DMHemMaas.ADOTDonemBaslamaTarihi.AsDateTime)-1 do
begin

case gun of
     1 : gunadi :=  'Pazartesi';
     2 : gunadi :=  'Salı';
     3 : gunadi :=  'Çarşamba';
     4 : gunadi :=  'Perşembe';
     5 : gunadi :=  'Cuma';
     6 : gunadi :=  'Cumartesi';
     7 : gunadi :=  'Pazar'
     end;
//showmessage(gunadi);
              gun := gun + 1 ;
                    if gun > 7 then
                    begin
                    gun := gun div 7  ;
                    end;

bu kod yardımıyla bağlı olduğu aydaki tüm günleri saydırabiliyorum.
yani hangi gün ve günün adı nedir bulabiliyorum.

Ama bu aydaki Pazartesi günlerine kurs tablosunda Pazartesi bölümünde yazan sayıyı nasıl atayacağımı bulamadım.