Kod: Tümünü seç
procedure TYerlestirmeFormu.BitBtn1Click(Sender: TObject);
var
tercihnoartir,t,y,listboxtut,i,x:integer;
tcno2,ilk,son,z,tcnotut:string;
puan:Double;
begin
dm.QTercihler.SQL.Text:='Select * From TERCIHLER';
dm.QTercihler.Open;
dm.QBolumler.SQL.Clear;
x:=dm.QTercihler.RecordCount;
for i:=1 to x do
begin
tcnotut:=Dm.QTercihlerTCNO.Value;
ListBox1.Items.Add(TCnotut);
listboxtut:=ListBox1.Items.Count;
for y:=1 to listboxtut do
begin
for t:=1 to 24 do
begin
ilk:=copy(inttostr(dm.QTercihlerTercih1.Value),1,3);
son:=Copy(inttostr(dm.QTercihlerTercih1.Value),4,4);
//dm.QBolumler.SQL.Text:='Select * from BOLUMLER where BOLUMID=:BOLUMID and UNIVERSITEID=:UNIVERSITEID';
dm.QBolumler.SQL.Text:=('Select EnKucukPuan,KalanKontenjan From BOLUMLER where (BOLUMID = :BOLUMID) and (UNIVERSITEID = :UNIVERSITEID)');
dm.QBolumler.Parameters[0].Value:=son;
dm.QBolumler.Parameters[1].Value:=ilk;
dm.QBolumler.open;
puan:=dm.QBolumlerEnKucukPuan.Value;