Особенности использования электронно-вычислительной техники в учете

"KOL_RAB_DN" INTEGER,

PRIMARY KEY ("NOM_MES"));

CREATE TABLE "MES_PREP"

("NOM" INTEGER NOT NULL,

"NOM_PREP" INTEGER NOT NULL,

"NOM_MES" INTEGER NOT NULL,

"KOL_CH_M" INTEGER,

"STAVKA_CH" NUMERIC(9, 0),

"PODOH" DOUBLE PRECISION,

PRIMARY KEY ("NOM"));

ALTER TABLE "MES_PREP" ADD FOREIGN KEY ("NOM_MES") REFERENCES MESYACI ("NOM_MES");

ALTER TABLE "MES_PREP" ADD FOREIGN KEY ("NOM_PREP") REFERENCES PREPODY ("NOM_PREP");

Создаём триггеры на обновление, удаление и добавление. На дочернею таблицу делаем только один триггер на добавление:

CREATE TRIGGER "DOBA" FOR "PREPODY"

ACTIVE BEFORE INSERT POSITION 0

as

begin

new.nom_prep=gen_id(dob, 1);

end

CREATE TRIGGER "OBN" FOR "PREPODY"

ACTIVE BEFORE UPDATE POSITION 0

AS

BEGIN

IF (OLD.nom_prep <> NEW.nom_prep)

THEN UPDATE mes_prep

SET nom_prep = NEW.nom_prep

WHERE nom_prep=OLD.nom_prep;

END

CREATE TRIGGER "UD" FOR "PREPODY"

ACTIVE AFTER DELETE POSITION 0

AS

BEGIN

DELETE FROM mes_prep

WHERE mes_prep.nom_prep = prepody.nom_prep;

END

CREATE TRIGGER "DOBAVLEN" FOR "MESYACI"

ACTIVE BEFORE INSERT POSITION 0

as

begin

new.nom_mes=gen_id(dobi, 1);

end

CREATE TRIGGER "OBNOV" FOR "MESYACI"

ACTIVE BEFORE UPDATE POSITION 0

AS

BEGIN

IF (OLD.nom_mes <> NEW.nom_mes)

THEN UPDATE mes_prep

SET nom_mes = NEW.nom_mes

WHERE nom_mes=OLD.nom_mes;

END

CREATE TRIGGER "UDAL" FOR "MESYACI"

ACTIVE AFTER DELETE POSITION 0

AS

BEGIN

DELETE FROM mes_prep

WHERE mes_prep.nom_mes = mesyaci.nom_mes;

END

CREATE TRIGGER "DOBAVLENI" FOR "MES_PREP"

ACTIVE BEFORE INSERT POSITION 0

as

begin

new.nom=gen_id(dobb, 1);

end

Делаем на все таблицы генераторы:

CREATE GENERATOR "DOB"

SET GENERATOR DOB to 1

CREATE GENERATOR "DOBB";



Приложение Б

Разработка приложения

Процедуры, в результате действия которых, заполняется форма необходимыми компонентами:

procedure Tvvod.RadioGroup1Click(Sender: TObject);

begin

case radiogroup1.ItemIndex of

0:begin

ComboBox1.Visible:=False;

BitBtn2.Visible:=False;

Label2.Visible:=False;

Label3.Visible:=false;

DBNavigator1.Visible:=false;

DBGrid1.Visible:=false;

Image1.Visible:=false;

StringGrid1.Visible:=true;

Label1.Visible:=true;

BitBtn3.Visible:=true;

end;

1:begin

Label3.Visible:=false;

StringGrid1.Visible:=False;

Label1.Visible:=false;

BitBtn3.Visible:=false;

DBNavigator1.Visible:=false;

DBGrid1.Visible:=false;

Image1.Visible:=false;

ComboBox1.Visible:=true;

BitBtn2.Visible:=true;

Label2.Visible:=true;

end;

2:begin

ComboBox1.Visible:=False;

BitBtn2.Visible:=False;

Label2.Visible:=False;

Label1.Visible:=false;

Image1.Visible:=false;

DBGrid1.Visible:=true;

DBNavigator1.Visible:=true;

StringGrid1.Visible:=false;

Label3.Visible:=true;

BitBtn3.Visible:=false;

end;

end;

end;

procedure Tvvod.FormActivate(Sender: TObject);

var

i,j:integer;

begin

ComboBox1.Visible:=False;

BitBtn2.Visible:=False;

Label2.Visible:=False;

Label3.Visible:=false;

DBNavigator1.Visible:=false;

DBGrid1.Visible:=false;

StringGrid1.Visible:=False;

Label1.Visible:=False;

BitBtn3.Visible:=False;

Image1.Visible:=true;

stringgrid1.Cells[1,0]:='Ф.И.О. преподавателя';

stringgrid1.Cells[2,0]:='Стаж';

stringgrid1.Cells[3,0]:='Категория';

stringgrid1.Cells[4,0]:='Экология';

for i:=1 to 10 do

stringgrid1.Cells[0,i]:=inttostr(i);

combobox1.Items.Clear;

dm.Prepody.First;

while not dm.Prepody.Eof do

begin

combobox1.Items.Add(dm.PrepodyFIO.Value);

dm.Prepody.Next;

end;

end;

Процедура сохранения новых данных о преподавателе:

procedure Tvvod.BitBtn3Click(Sender: TObject);

var

i,j:integer;

begin

i:=1;

while StringGrid1.Cells[1,i]<>'' do

begin

dm.Prepody.Append;

dm.PrepodyNOM_PREP.Value:=0;

dm.PrepodyFIO.Value:=StringGrid1.Cells[1,i];

dm.PrepodySTAJ.Value:=strtoint(StringGrid1.Cells[2,i]);

dm.PrepodyKATEGORIYA.Value:=StringGrid1.Cells[3,i];

dm.PrepodyEKOL.Value:=strtoint(StringGrid1.Cells[4,i]);

dm.Prepody.Post;

dm.Prepody.Refresh;

dm.Prepody.Last;

for i:=1 to 10 do

begin

dm.mes_prep.Append;

dm.Mes_prepNOM.Value:=0;

dm.Mes_prepNOM_MES.Value:=i;

dm.Mes_prepNOM_PREP.Value:=dm.PrepodyNOM_PREP.Value;

dm.Mes_prep.Post;

dm.Mes_prep.Refresh;

end;

i:=i+1;

end;

for i:=1 to 4 do

for j:=1 to 10 do

stringgrid1.Cells[i,j]:='';

combobox1.Items.Clear;

dm.Prepody.First;

while not dm.Prepody.Eof do

begin

combobox1.Items.Add(dm.PrepodyFIO.Value);

dm.Prepody.Next;

end;

end;

Процедура добавления записи в ComboBox:

procedure Tvvod.ComboBox1Change(Sender: TObject);

begin

dm.Prepody.First;

while ComboBox1.Text<>dm.PrepodyFIO.Value do

dm.Prepody.Next;

end;

Процедура удаления записи (преподавателя) из базы данных:

procedure Tvvod.BitBtn2Click(Sender: TObject);

begin

dm.Prepody.Delete;

combobox1.Items.Clear;

dm.Prepody.First;

while not dm.Prepody.Eof do

begin

combobox1.Items.Add(dm.PrepodyFIO.Value);

dm.Prepody.Next;

end;

ComboBox1.Text:='';

end;

Процедура ввода количества отработанных часов, предварительно заполнив компонент ComboBox, для выбора преподавателя:

procedure TOtrab_ch.ComboBox1Change(Sender: TObject);

begin

dm.Prepody.First;

while ComboBox1.Text<>dm.PrepodyFIO.Value do

dm.Prepody.Next;

end;

procedure TOtrab_ch.FormActivate(Sender: TObject);

begin

combobox1.Items.Clear;

dm.Prepody.First;

while not dm.Prepody.Eof do

begin

combobox1.Items.Add(dm.PrepodyFIO.Value);

dm.Prepody.Next;

end;

end;

end.

Процедуры создания вычисляемых полей:

procedure TDM.Mes_prepCalcFields(DataSet: TDataSet);

begin

dm.Mes_prepnach_otrab.Value:=dm.Mes_prepSTAVKA_CH.Value*dm.Mes_prepKOL_CH_M.Value;

dm.Mes_prepitogo_n.Value:=dm.Mes_prepnach_otrab.Value+dm.PrepodyEKOL.Value;

dm.Mes_preppension.Value:=dm.Mes_prepitogo_n.Value*10/100;

dm.Mes_prepitogo_v.Value:=dm.Mes_prepPODOH.Value+dm.Mes_preppension.Value;

dm.Mes_prepna_ruki.Value:=dm.Mes_prepitogo_n.Value-dm.Mes_prepitogo_v.Value;

end;

procedure TDM.mes_prCalcFields(DataSet: TDataSet);

begin 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;

dm.Mes_prpension.Value:=dm.Mes_pritogo_n.Value*10/100; dm.Mes_pritogo_v.Value:=dm.Mes_prPODOH.Value+dm.Mes_prpension.Value;

dm.Mes_prna_ruki.Value:=dm.Mes_pritogo_n.Value-dm.mes_pritogo_v.Value;

end;

Процедура расчёта подоходного налога и расчёта ставки за час:

procedure Tnachis.FormActivate(Sender: TObject);

begin

dm.Mes_pr.First;

while not dm.Mes_pr.Eof do

begin

dm.Mes_pr.Edit;

if dm.mes_pritogo_n.Value<=12000

then dm.Mes_prPODOH.Value:=dm.mes_pritogo_n.Value*7/100

else

if (dm.mes_pritogo_n.Value>12000) and (dm.mes_pritogo_n.Value<=20000) then

dm.Mes_prPODOH.Value:=dm.mes_pritogo_n.Value*9/100

else

if (dm.mes_pritogo_n.Value>20000) and (dm.mes_pritogo_n.Value<=30000) then

dm.Mes_prPODOH.Value:=dm.mes_pritogo_n.Value*11/100

else dm.Mes_prPODOH.Value:=dm.mes_pritogo_n.Value*13/100;

if (dm.PrepodySTAJ.Value<=5) and (dm.PrepodyKATEGORIYA.Value='II')

then dm.mes_prSTAVKA_CH.Value:=150

else

if (dm.PrepodySTAJ.Value>5) and (dm.PrepodySTAJ.Value<=10) and (dm.PrepodyKATEGORIYA.Value='II')

then dm.mes_prSTAVKA_CH.Value:=160

else

if (dm.PrepodySTAJ.Value>10) and (dm.PrepodyKATEGORIYA.Value='II')

then dm.mes_prSTAVKA_CH.Value:=170

else

if (dm.PrepodySTAJ.Value<=5) and (dm.PrepodyKATEGORIYA.Value='I')

then dm.mes_prSTAVKA_CH.Value:=170 else

if (dm.PrepodySTAJ.Value>5) and (dm.PrepodySTAJ.Value<=10) and (dm.PrepodyKATEGORIYA.Value='I')

then dm.mes_prSTAVKA_CH.Value:=180 else

if (dm.PrepodySTAJ.Value>10) and (dm.PrepodyKATEGORIYA.Value='I')

then dm.mes_prSTAVKA_CH.Value:=200 else

if (dm.PrepodySTAJ.Value<=5) and (dm.PrepodyKATEGORIYA.Value='в')

then dm.mes_prSTAVKA_CH.Value:=200

else

if (dm.PrepodySTAJ.Value>5) and (dm.PrepodySTAJ.Value<=10) and (dm.PrepodyKATEGORIYA.Value='в')

then dm.mes_prSTAVKA_CH.Value:=220

else

if (dm.PrepodySTAJ.Value>10) and (dm.PrepodyKATEGORIYA.Value='в')

then dm.mes_prSTAVKA_CH.Value:=250;

dm.Mes_pr.Post;

dm.Mes_pr.Refresh;

dm.Mes_pr.Next;

end;

dm.Mes_pr.Close;

dm.Mes_pr.Open;

end;

end.

1. Размещено на Allbest.ru