prep=OLD.nom_prep; TRIGGER UD FOR PREPODY AFTER DELETE POSITION 0FROM mes_prepmes_prep.nom_prep=prepody.nom_prep; TRIGGER DOBAVLEN FOR MESYACI BEFORE INSERT POSITION 0
new.nom_mes=gen_id (dobi, 1);
endTRIGGER OBNOV FOR MESYACI BEFORE UPDATE POSITION 0 (OLD.nom_mes lt; gt; NEW.nom_mes) UPDATE mes_prepnom_mes=NEW.nom_mesnom_mes=OLD.nom_mes; TRIGGER UDAL FOR MESYACI AFTER DELETE POSITION 0FROM mes_prepmes_prep.nom_mes=mesyaci.nom_mes; TRIGGER DOBAVLENI FOR MES_PREP BEFORE INSERT POSITION 0
new.nom=gen_id (dobb, 1);
end
Робимо на всі таблиці генератори:
CREATE GENERATOR DOB GENERATOR DOB to 1 GENERATOR DOBB raquo ;;
Додаток Б
Розробка програми
Процедури, в результаті дії яких, заповнюється форма необхідними компонентами:
procedure Tvvod.RadioGroup1Click (Sender: TObject); radiogroup1.ItemIndex of
:begin.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=true;;
:begin.Visible:=false;.Visible:=False;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=true;;
:begin.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=false;.Visible:=true;.Visible:=false;;;;Tvvod.FormActivate(Sender: TObject);,j:integer;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=true;.Cells[1,0]:=laquo;Ф.И.О. преподавателяraquo;;.Cells[2,0]:=laquo;Стажraquo;;.Cells[3,0]:=laquo;Категорияraquo;;.Cells[4,0]:=laquo;Экологияraquo;;i:=1 to 10 do.Cells [0, i]:=inttostr (i) ;. Items.Clear; .Prepody.First; not dm.Prepody.Eof do.Items.Add (dm.PrepodyFIO.Value) ;. Prepody.Next ;;;
Процедура збереження нових даних про викладача:
procedure Tvvod.BitBtn3Click (Sender: TObject) ;, j: integer;:=1; StringGrid1.Cells [1, i] lt; gt; do.Prepody.Append;.PrepodyNOM_PREP.Value:=0;.PrepodyFIO.Value:=StringGrid1.Cells[1,i];.PrepodySTAJ.Value:=strtoint(StringGrid1.Cells[2,i]);.PrepodyKATEGORIYA.Value:=StringGrid1.Cells[3,i];.PrepodyEKOL.Value:=strtoint(StringGrid1.Cells[4,i]);.Prepody.Post;.Prepody.Refresh;.Prepody.Last;i:=1 to 10 do.mes_prep.Append;.Mes_prepNOM.Value:=0;.Mes_prepNOM_MES.Value:=i;.Mes_prepNOM_PREP.Value:=dm.PrepodyNOM_PREP.Value;.Mes_prep.Post;.Mes_prep.Refresh;;:=i+1;;i:=1 to 4 doj:=1 to 10 do.Cells [i, j]:= raquo ;;. Items.Clear; .Prepody.First; not dm.Prepody.Eof do.Items.Add (dm.PrepodyFIO.Value ) ;. Prepody.Next ;;;
Процедура додавання запису в ComboBox:
procedure Tvvod.ComboBox1Change (Sender: TObject) ;. Prepody.First; ComboBox1.Text lt; gt; dm.PrepodyFIO.Value do.Prepody.Next;
end;
Процедура видалення запису (викладача) з бази даних:
procedure Tvvod.BitBtn2Click (Sender: TObject) ;. Prepody.Delete; .Items.Clear; .Prepody.First; not dm.Prepody.Eof do.Items.Add (dm.PrepodyFIO.Value ) ;. Prepody.Next ;;. Text:= raquo ;;
end;
Процедура введення кількості відпрацьованих годин, попередньо заповнивши компонент ComboBox, для вибору викладача:
procedure TOtrab_ch.ComboBox1Change (Sender: TObject) ;. Prepody.First; ComboBox1.Text lt; gt; dm.PrepodyFIO.Value do.Prepody.Next ;; TOtrab_ch.FormActivate (Sender: TObject);.Items.Clear; .Prepody.First; not dm.Prepody.Eof do.Items.Add (dm.PrepodyFIO.Value) ;. Prepody.Next ;;;
end.
Процедури створення обчислюваних полів:
procedure TDM.Mes_prepCalcFields (DataSet: TDataSet);.Mes_prepnach_otrab.Value:=dm.Mes_prepSTAVKA_CH.Value*dm.Mes_prepKOL_CH_M.Value;.Mes_prepitogo_n.Value:=dm.Mes_prepnach_otrab.Value+dm.PrepodyEKOL.Value;.Mes_preppension.Value:=dm.Mes_prepitogo_n.Value*10/100;.Mes_prepitogo_v.Value:=dm.Mes_prepPODOH.Value+dm.Mes_preppension.Value;.Mes_prepna_ruki.Value:=dm.Mes_prepitogo_n.Value-dm.Mes_prepitogo_v.Value;;TDM.mes_prCalcFields(DataSet: TDataSet); dm.mes_prnach_otrab.Value:=dm.Mes_prSTAVKA_CH.Value * dm.Mes_prKOL_CH_M.Value; dm.Mes_pritogo_n.Value:=dm.Mes_prnach_otrab.Value+dm.PrepodyEKOL.Value;.Mes_prpension.Value:=dm.Mes_pritogo_n.Value*10/100; dm.Mes_pritogo_v.Value:=dm.Mes_prPODOH.Value+dm.Mes_prpension.Value;.Mes_prna_ruki.Value:=dm.Mes_pritogo_n.Value-dm.mes_pritogo_v.Value;;
Процедура розрахунку ...
