Главная: Рефераты

Рефераты. Автоматизированный учет радиоточек передающего центра

Вывод:

Расчет показал, что использование разработанного программного обеспечение к дипломному проекту на тему «Автоматизированный учет радиоточек передающего центра» обеспечивает экономический эффект за четыре года использования ПС на 1 932 273 руб.

Затраты на его приобретение окупятся в первый год использования. Внедрение нового ПС позволит пользователю сэкономить на текущих затратах. Для пользователя в качестве экономического эффекта выступает лишь чистая прибыль, которая остается в его распоряжении.

Таким образом, разработка конкурентоспособна и может быть использована на предприятиях связи.

Литература

В.В. Брага, А.А. Левкин Компьютерные технологии в бухгалтерском учете на базе автоматизированных систем. М.: Финстатинформ, 2001 г., 218с.

Глушаков С.В. Базы данных. М.: Фолио АСТ, 2002 г., 493 с.

Microsoft Access 97. Шаг за шагом: Практ. Пособ./Пер. с англ. -М.: Издательство ЭКОМ, 2000. - 328с.

Маклаков С.В. «BPwin и Erwin CASE средства разработки информационных систем» - М.: издательство «Диалог-Мифи», 2001. - 304 с.

Вендров А.М. «Практикум по проектированию программного обеспечения экономических информационных систем: Учебное пособие» - М.: издательство «Финансы и статистика», 2002. - 192 с.

ГОСТ 12.1.003-83. ССБТ. Шум. Общие требования безопасности.

ГОСТ 12.1.005-88. ССБТ. Общие санитарно-гигиенические требования к воздуху рабочей зоны.

ГОСТ 12.1.012-90.ССБТ. Вибрационная безопасность. Общие требования.

СанПиН 9-131 РБ 2000.

ГОСТ 12.2.032-78. ССБТ. Рабочее место при выполнении работ сидя.

ГОСТ 12.1.030-81. ССБТ.

ГОСТ 6825-91. Лампы люминесцентные трубчатые для общего освещения.

ОНТП 24-8б. Определение категорий помещений и зданий по взрывопожарной и пожарной опасности. -- М.: ВНИИПО МВД СССР, 1988.

СНБ 2.04.05-98. Естественное и искусственное освещение.

СНиП 2.04.05-91.

СН 9-86 РБ-98

НПБ 5-2000

СанПиН 2.2.1.13-5-2006 «Гигиенические требования к проектированию, содержанию и эксплуатации производственных предприятий»

Челноков А.А. Охрана труда: учеб. пособие. - Мн.: Выш. шк., 2007

СНиП 2.2.1.13-5-2006

Приложение А Логическая модель (уровень сущностей)

Приложение Б Логическая модель (уровень ключей)

Приложение В Логическая модель (уровень атрибутов)

Приложение Г Физическая модель данных

Приложение Д Текст программы

- Модуль 1

Option Compare Database

Option Explicit

Public Otch_Per_Pr As Date

Public date_n, date_k As Date

Public vbr As Integer

Public lngX As Long

Function Oplata_aut()

On Error GoTo Oplata_aut_Err

DoCmd.SetWarnings False

Расчет оплаты по месячно перед переходом на следующий месяц

удаляем за данный период

DoCmd.RunSQL "DELETE DISTINCTROW Oplata_auto.*, Oplata_auto.Data_nach FROM Oplata_auto WHERE (((Oplata_auto.Data_nach)>[Forms]![Кнопочная форма]![Otch_per]));"

Подставляем сальдо на начало года как начисление 1 раз

DoCmd.RunSQL "INSERT INTO Oplata_auto ( Abon_opl, Data_nach, Sum_nach ) SELECT DISTINCTROW Partner.CODE, #12/31/2001# AS d1, Abs([Sum_saldo]) AS n FROM Partner INNER JOIN Saldo ON Partner.CODE = Saldo.Code_Ab WHERE (((Saldo.Sum_saldo)<0) AND ((Saldo.Mes)=#1/1/2002#));"

DoCmd.RunSQL "UPDATE DISTINCTROW Oplata_auto SET Oplata_auto.Sum_nach_perv = [Sum_nach];"

Вставляем начисления за период

DoCmd.OpenQuery "a0_1", acNormal, acEdit

DoCmd.OpenQuery "a0_2", acNormal, acEdit

DoCmd.OpenQuery "a0_3", acNormal, acEdit

Сохраняем в Backup

DoCmd.RunSQL "DELETE Oplata_backup.* FROM Oplata_backup;"

DoCmd.RunSQL "INSERT INTO Oplata_backup SELECT Oplata_auto.* FROM Oplata_auto;"

DoCmd.OpenQuery "a1_1", acNormal, acEdit

DoCmd.OpenQuery "a1_2", acNormal, acEdit

DoCmd.OpenQuery "a2_1", acNormal, acEdit

DoCmd.OpenQuery "a2_2", acNormal, acEdit

DoCmd.OpenQuery "a2_3", acNormal, acEdit

DoCmd.OpenQuery "a2_4", acNormal, acEdit

DoCmd.OpenQuery "a3_1", acNormal, acEdit

DoCmd.OpenQuery "a3_2", acNormal, acEdit

DoCmd.OpenQuery "a3_3", acNormal, acEdit

DoCmd.OpenQuery "a3_4", acNormal, acEdit

DoCmd.OpenQuery "a3_5", acNormal, acEdit

DoCmd.OpenQuery "_mes_opl", acNormal, acEdit 'Группировка месяц

DoCmd.OpenQuery "a4_1", acNormal, acEdit 'sort!!!

DoCmd.OpenQuery "a4_2", acNormal, acEdit

DoCmd.OpenQuery "a4_3", acNormal, acEdit

DoCmd.OpenQuery "a4_4", acNormal, acEdit

Удаляем из tempa

DoCmd.RunSQL "DELETE DISTINCTROW [_temp].* FROM _temp;"

Oplata_aut_Exit:

Exit Function

Oplata_aut_Err:

MsgBox Error$

Resume Oplata_aut_Exit

End Function

Function Saldo_new()

On Error GoTo Saldo_new_Err

DoCmd.SetWarnings False

'Расчет сальдо перед переходом на следующий месяц

DoCmd.OpenQuery "Z_Udal_Saldo", acNormal, acEdit

DoCmd.OpenQuery "R_Saldo_new", acNormal, acEdit

Saldo_new_Exit:

Exit Function

Saldo_new_Err:

MsgBox Error$

Resume Saldo_new_Exit

End Function

Function Rashet_nachisl()

On Error GoTo Rashet_nachisl_Err

DoCmd.SetWarnings False

DoCmd.OpenQuery "R_nach_ud", acNormal, acEdit

DoCmd.OpenQuery "R_nach", acNormal, acEdit

DoCmd.OpenQuery "R_nach_7", acNormal, acEdit

treb_begin

Rashet_nachisl_Exit:

Exit Function

Rashet_nachisl_Err:

MsgBox Error$

Resume Rashet_nachisl_Exit

End Function

Function Pech_reestr()

On Error GoTo Pech_reestr_Err

vbr = 2

DoCmd.OpenForm "Требования", acFormDS, "", "", acEdit, acNormal

Pech_reestr_Exit:

Exit Function

Pech_reestr_Err:

MsgBox Error$

Resume Pech_reestr_Exit

End Function

Function Pech_reestr_in()

On Error GoTo Pech_reestr_in_Err

vbr = 3

DoCmd.OpenForm "Требования", acFormDS, "", "", acEdit, acNormal

Pech_reestr_in_Exit:

Exit Function

Pech_reestr_in_Err:

MsgBox Error$

Resume Pech_reestr_in_Exit

End Function

'------------------------------------------------------------

' Требования

'

'------------------------------------------------------------

Function Pech_treb()

On Error GoTo Pech_treb_Err

vbr = 1

DoCmd.OpenForm "Требования", acFormDS, "", "", acEdit, acNormal

Pech_treb_Exit:

Exit Function

Pech_treb_Err:

MsgBox Error$

Resume Pech_treb_Exit

End Function

Function Pech_kol_usl()

On Error GoTo Pech_kol_usl_Err

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE DISTINCTROW SCHET.* FROM SCHET;"

DoCmd.OpenQuery "Z_Uslugi_vid_1", acNormal, acEdit

DoCmd.OpenQuery "Z_Uslugi_vid_2", acNormal, acEdit

DoCmd.OpenQuery "Z_Uslugi_vid_3", acNormal, acEdit

DoCmd.RunSQL "UPDATE DISTINCTROW abon_sys SET abon_sys.CODE = 5;"

run_exe

Pech_kol_usl_Exit:

Exit Function

Pech_kol_usl_Err:

MsgBox Error$

Resume Pech_kol_usl_Exit

End Function

Function Open_Dialog(stArg_d As String)

On Error GoTo Open_Dialog_Err

' DoCmd.SetWarnings False

DoCmd.OpenForm "Диалог", acNormal, "", "", acEdit, acNormal, stArg_d

Open_Dialog_Exit:

Exit Function

Open_Dialog_Err:

MsgBox Error$

Resume Open_Dialog_Exit

End Function

Function Open_Data_dialog() '(stArg_d As String)

On Error GoTo Open_Data_dialog_Err

' DoCmd.SetWarnings False

DoCmd.OpenForm "Ввод даты", acNormal, "", "", acEdit, acNormal ', stArg_d

Open_Data_dialog_Exit:

Exit Function

Open_Data_dialog_Err:

MsgBox Error$

Resume Open_Data_dialog_Exit

End Function

Function run_exe()

On Error GoTo Err_run_exe

Dim stAppName As String

stAppName = "C:\Abon\ABON_ORG.EXE"

Call Shell(stAppName, 3)

Exit_run_exe:

Exit Function

Err_run_exe:

MsgBox Err.Description

Resume Exit_run_exe

End Function

Function Откр_форму(Name_form As String)

On Error GoTo Откр_форму_Err

DoCmd.OpenForm Name_form, acFormDS, "", "", acEdit, acNormal

Откр_форму_Exit:

Exit Function

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.