Особенности использования электронно-вычислительной техники в учете
Общая характеристика ключевых этапов разработки программного обеспечения "Автоматизация учета сведений о графике работы сотрудников и расчёт заработной платы". Знакомство с основными особенностями использования электронно-вычислительной техники в учете.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | дипломная работа |
Язык | русский |
Дата добавления | 08.12.2014 |
Размер файла | 362,7 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
"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
Подобные документы
Этапы автоматизации бухгалтерского учета в России. Требования к бухгалтерской системе. Использование электронно-вычислительной техники в учете. Назначение комплексов автоматизации учета. Кадровые документы учета рабочего времени. Расчетная ведомость.
контрольная работа [2,3 M], добавлен 01.02.2009Характеристика ООО "Евросеть", анализ места учета продаж товаров в его деятельности и использования вычислительной техники в учете. Особенности реализации задач автоматизации учета продажи товаров в ООО "Евросеть", оценка ее экономической эффективности.
дипломная работа [1,4 M], добавлен 30.08.2010Понятие и характеристика персонального компьютера, его основные части и их предназначение. Средства обучения информатики и особенности организации работы в кабинете вычислительной техники. Оборудование рабочих мест и применение программного обеспечения.
реферат [29,0 K], добавлен 09.07.2012Средства автоматизации управленческого и инженерно-технического труда. Средства организационной и вычислительной техники, используемые в обеспечении управленческой деятельности. Состав прикладного программного обеспечения вычислительной техники.
курсовая работа [29,5 K], добавлен 07.01.2011Примеры счетно-решающих устройств до появления ЭВМ. Суммирующая машина Паскаля. Счетная машина Готфрида Лейбница. "Аналитическая машина" Чарльза Бэббиджа, развитие вычислительной техники после ее создания. Поколения электронно-вычислительных машин.
презентация [1,2 M], добавлен 10.02.2015Характеритсика и роль автоматизации в бухгалтерском учете. Описание создания базы данных для расчета заработной платы сотрудников предприятия, вывода отчета. Выбор программного обеспечения, процедур и функций. Рассмотрение основ интерфейса программы.
курсовая работа [933,8 K], добавлен 19.04.2015Изучение зарубежной, отечественной практики развития вычислительной техники, а также перспективы развития ЭВМ в ближайшее будущее. Технологии использования компьютеров. Этапы развития вычислительной индустрии в нашей стране. Слияние ПК и средств связи.
курсовая работа [82,0 K], добавлен 27.04.2013Средства вычислительной техники появились давно, так как потребность в различного рода расчетах существовала еще на заре развития цивилизации. Бурное развитие вычислительной техники. Создание первых ПК, мини-компьютеров начиная с 80-х годов ХХ века.
реферат [32,3 K], добавлен 25.09.2008Ручной этап развития вычислительной техники. Позиционная система счисления. Развитие механики в XVII веке. Электромеханический этап развития вычислительной техники. Компьютеры пятого поколения. Параметры и отличительные особенности суперкомпьютера.
курсовая работа [55,7 K], добавлен 18.04.2012Разработка информационно-аналитической системы анализа и оптимизации конфигурации вычислительной техники. Структура автоматизированного управления средствами вычислительной техники. Программное обеспечение, обоснование экономической эффективности проекта.
дипломная работа [831,1 K], добавлен 20.05.2013