With DataModule3.Q_for_Work do

Begin

Компоненты

Форма Ведомость (Ved)

Q_J_Ved.Open;

Q_J_Ved.Close;

Begin

With DataModule3.Q_for_Work do

From ved as v1

Select distinct N_G, Date_g,

Q_J_Ved.Open;

Q_J_Ved.Close;

Форма Журнал (J_Ved)

Q_Spr.CancelUpdates;

Close;

Скомпилируйте проект, откройте справочник Студенты и попробуйте ввести, отредактировать, удалить информацию из справочника.

Аналогично сделайте самостоятельно справочник Предметы.

События OnActivate

Query

Свойства SQL:

Predmet = isnull((select Predmet from Predmet as v2 where v2.Num_pred = v1.Num_Pred),''),

Gr = (select v2.Gr from Kadr as v2 where v1.PN= v2.PN)

Добавить

Событие OnClick: TVed.Create(Application);

Удалить

Событие OnClick

sql.Clear;

sql.add('set dateformat dmy Delete from Ved where N_G = '

+ Q_J_Ved.FieldbyName('N_G').AsString+' and Date_G = '

+ QuotedStr(Q_J_Ved.FieldbyName('Date_g').AsString));

ExecSQL;

end;

Событие OnActivate: DT_Date_G.date:= Now;

ComboBox (Cb_Predmet), ComboBox (CB_GR)

Событие OnDropDown (ссылка обоих объектов на одно событие)

var Str: string;

if (Sender as TComboBox).Name = 'CB_Predmet' then

Str:= 'select distinct Predmet from Predmet';

if (Sender as TComboBox).Name = 'CB_Gr' then

Str:= 'select distinct Gr from Kadr';

(Sender as TComboBox).Items.Clear;

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