Отчет об успеваемости (Rep)

Q_Ved.CancelUpdates;

Except

Q_Ved.ApplyUpdates;

Try

Begin

If Q_Ved.UpdatesPending then

Q_Ved.Post;

Q_Ved.Open;

Q_Ved.Close;

Begin

Else

If IsEmpty then

Begin

With DataModule3.Q_for_Work do

Begin

Order by v1.pn

From ved as v1 join Kadr as v2

Select v1.NzapVed, v1.pn, v2.FIO, v1.Mark

Where

Set

Update ved

End

Begin

While not eof do

Begin

If not IsEmpty then

Begin

sql.Clear;

sql.add(Str);

Open;

First;

(Sender as TComboBox).Items.add(fields[0].AsString);

Next;

end;

end;

end;

UpdateSql

Свойство ModifySql

Mark =:Mark

NzapVed =:OLD_NzapVed

Query (Q_Ved)

Свойство SQL:

on v1.PN = v2.PN

where v2.Gr =:Gr and v1.Num_Pred =:Num_Pred

and v1.n_g =:n_g and v1.Date_g =:Date_g

Button (Добавить список Студентов)

Событие OnClick

var Num_Pred: integer;

N_G: integer;

Date_G:string;

N_G:= strtoint(ME_NG.text);

Date_G:= datetostr(DT_Date_G.Date);

// получение номера предмета по его названию

sql.Clear;

sql.add('select Num_Pred from predmet where Predmet='

+ QuotedStr(CB_Predmet.text));

Open;

ShowMessage('Введен несуществующий предмет')

// Добавление в ведомость списка студентов выбранной группы

Num_Pred:= fields[0].asinteger;

sql.Clear;

sql.add(' set dateformat dmy '+

' Insert into ved (N_G, Date_G, PN, Num_Pred)'+

' select N_G ='+ME_NG.Text+', Date_G = '

+ QuotedStr(datetostr(DT_Date_G.date))+', PN,'+

' Num_Pred = '+inttostr(Num_Pred)+

' from Kadr where Gr = '+QuotedStr(CB_Gr.text));

ExecSQL;

Q_Ved.ParamByName('Gr').AsString:= CB_Gr.Text;

Q_Ved.ParamByName('Num_Pred').AsInteger:= Num_Pred;

Q_Ved.ParamByName('N_G').AsInteger:= N_G;

Q_Ved.ParamByName('Date_G').Asstring:= Date_G;

end;

end;

end;

Button (Ок)

Событие OnClick

IF Q_Ved.State in[dsedit,dsinsert] then

Showmessage('Нарушена ссылочная целостность!');

Abort;

end;

end;

Close;

Компоненты:

ComboBox (CB_FIO)

Событие OnChange

// запуск хранимой

Дата добавления: 2014-12-27