Автоматизация учета плательщиков и расчет транспортного налога для физических лиц

Автор работы: Пользователь скрыл имя, 10 Марта 2011 в 14:31, дипломная работа

Краткое описание

Одной из функции отдела камеральных проверок ИФНС России является учет налогоплательщиков и расчет транспортного налога для физических лиц.

Содержание работы

Введение…………………………………………………………………………..2
Специальная часть………………………………………………………………6
Постановка задачи ………………………………………………………………..6
Формализация……………………………………………………………………..7
Описание среды программирования……………………………………………..9
Требование к техническому обеспечению……………………………………..13
Требование к программному обеспечению……………………………………13
Методика разработки программы………………………………………………14
Алгоритмизация задачи…………………………………………………………14
Описание алгоритма……………………………………………………………..14
Схема данных…………………………………………………………………….20
Программирование………………………………………………………………21
Аномалии и защитное программирование……………………………………..21
Тестирование и отладка…………………………………………………………22
Анализ результатов решения……………………………………………………25
Инструкция пользователю………………………………………………………26
Экономическая часть………………………………………………………….36
Заключение……………………………………………………………………...42
Литература………………………………………………………………………43
Приложение……………………………………………………………………..44

Скачать целиком (337.35 Кб) Сколько стоит заказать работу?
Содержимое работы - 1 файл

Диплом.doc

— 690.00 Кб (Скачать файл)

       

    End Sub

    Private Sub Кнопка20_Click()

    On Error GoTo Err_Кнопка20_Click

        Dim stDocName As String

        Dim stLinkCriteria As String

        stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(1099)

        DoCmd.OpenForm stDocName, , , stLinkCriteria

    Exit_Кнопка20_Click:

        Exit Sub

    Err_Кнопка20_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка20_Click

       

    End Sub

    Форма «Сведения о налогоплательщиках»

    Приложение 2.

    Private Sub Кнопка25_Click()

    On Error GoTo Err_Кнопка25_Click 
 

        Screen.PreviousControl.SetFocus

        DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 

    Exit_Кнопка25_Click:

        Exit Sub 

    Err_Кнопка25_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка25_Click

       

    End Sub

    Private Sub Кнопка26_Click()

    On Error GoTo Err_Кнопка26_Click 
 

        Screen.PreviousControl.SetFocus

        DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 

    Exit_Кнопка26_Click:

        Exit Sub 

    Err_Кнопка26_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка26_Click

       

    End Sub

    Private Sub Кнопка27_Click()

    On Error GoTo Err_Кнопка27_Click 
 

        DoCmd.GoToRecord , , acNewRec 

    Exit_Кнопка27_Click:

        Exit Sub 

    Err_Кнопка27_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка27_Click

       

    End Sub

    Private Sub Кнопка28_Click()

    On Error GoTo Err_Кнопка28_Click 
 

        DoCmd.Close 

    Exit_Кнопка28_Click:

        Exit Sub 

    Err_Кнопка28_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка28_Click

       

    End Sub

    Private Sub Кнопка29_Click()

    On Error GoTo Err_Кнопка29_Click 
 

        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 

    Exit_Кнопка29_Click:

        Exit Sub 

    Err_Кнопка29_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка29_Click

       

    End Sub

    Private Sub Кнопка34_Click()

    On Error GoTo Err_Кнопка34_Click 

        Dim stDocName As String 

        stDocName = ChrW(1057) & ChrW(1074) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103) & ChrW(32) & ChrW(1086) & ChrW(32) & ChrW(1085) & ChrW(47) & ChrW(1087)

        DoCmd.OpenReport stDocName, acPreview 

    Exit_Кнопка34_Click:

        Exit Sub 

    Err_Кнопка34_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка34_Click

       

    End Sub 

 

     Форма «Транспорт физических лиц»

    Приложение 3.

    Private Sub Кнопка29_Click()

    On Error GoTo Err_Кнопка29_Click 
 

        Screen.PreviousControl.SetFocus

        DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 

    Exit_Кнопка29_Click:

        Exit Sub 

    Err_Кнопка29_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка29_Click

       

    End Sub

    Private Sub Кнопка30_Click()

    On Error GoTo Err_Кнопка30_Click 
 

        DoCmd.GoToRecord , , acNewRec 

    Exit_Кнопка30_Click:

        Exit Sub 

    Err_Кнопка30_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка30_Click

       

    End Sub

    Private Sub Кнопка31_Click()

    On Error GoTo Err_Кнопка31_Click 
 

        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 

    Exit_Кнопка31_Click:

        Exit Sub 

    Err_Кнопка31_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка31_Click

       

    End Sub

    Private Sub Кнопка32_Click()

    On Error GoTo Err_Кнопка32_Click 
 

        DoCmd.Close 

    Exit_Кнопка32_Click:

        Exit Sub 

    Err_Кнопка32_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка32_Click

       

    End Sub

    Private Sub Кнопка33_Click()

    On Error GoTo Err_Кнопка33_Click 

        Dim stDocName As String 

        stDocName = ChrW(1058) & ChrW(1088) & ChrW(1072) & ChrW(1085) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1088) & ChrW(1090) & ChrW(32) & ChrW(1060) & ChrW(1051)

        DoCmd.OpenReport stDocName, acPreview 

    Exit_Кнопка33_Click:

        Exit Sub 

    Err_Кнопка33_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка33_Click

       

    End Sub 

    Форма «Расчет налога»

    Приложение 4.

    Private Sub Кнопка21_Click()

    On Error GoTo Err_Кнопка21_Click 
 

        Screen.PreviousControl.SetFocus

        DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 

    Exit_Кнопка21_Click:

        Exit Sub 

    Err_Кнопка21_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка21_Click

       

    End Sub

    Private Sub Кнопка22_Click()

    On Error GoTo Err_Кнопка22_Click 

        Dim stDocName As String 

        stDocName = ChrW(1058) & ChrW(1088) & ChrW(1072) & ChrW(1085) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1088) & ChrW(1090) & ChrW(32) & ChrW(1060) & ChrW(1051)

        DoCmd.OpenReport stDocName, acPreview 

    Exit_Кнопка22_Click:

        Exit Sub 

    Err_Кнопка22_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка22_Click

       

    End Sub

    Private Sub Кнопка23_Click()

    On Error GoTo Err_Кнопка23_Click 
 

        DoCmd.Close 

    Exit_Кнопка23_Click:

        Exit Sub 

    Err_Кнопка23_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка23_Click

       

    End Sub

    Private Sub Кнопка28_Click()

    On Error GoTo Err_Кнопка28_Click 

        Dim stDocName As String 

        stDocName = ChrW(1082) & ChrW(1074) & ChrW(1080) & ChrW(1090) & ChrW(1072) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1080)

        DoCmd.OpenReport stDocName, acPreview 

    Exit_Кнопка28_Click:

        Exit Sub 

    Err_Кнопка28_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка28_Click

       

    End Sub

    Private Sub Кнопка29_Click()

    On Error GoTo Err_Кнопка29_Click 

        Dim stDocName As String 

        stDocName = "1231231231"

        DoCmd.OpenReport stDocName, acPreview 

    Exit_Кнопка29_Click:

        Exit Sub 

    Err_Кнопка29_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка29_Click

       

    End Sub

    Private Sub Кнопка30_Click()

    On Error GoTo Err_Кнопка30_Click 

        Dim stDocName As String 

        stDocName = ChrW(1082) & ChrW(1074) & ChrW(1080) & ChrW(1090) & ChrW(1072) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1080)

        DoCmd.OpenReport stDocName, acPreview 

    Exit_Кнопка30_Click:

        Exit Sub 

    Err_Кнопка30_Click:

        MsgBox Err.Description

        Resume Exit_Кнопка30_Click

       

    End Sub

 

     Форма «Форма для  отчета по дате»

    Приложение 5.

    Private Sub Report_Open(Cancel As Integer) 

    End Sub 

    Private Sub ВерхнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer) 

    End Sub 

    Private Sub ЗаголовокОтчета_Format(Cancel As Integer, FormatCount As Integer) 

    End Sub 

    Private Sub НижнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer) 

    End Sub 

    Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer) 

    End Sub 

    Private Sub ПримечаниеОтчета_Format(Cancel As Integer, FormatCount As Integer) 

    End Sub 
 

Информация о работе Автоматизация учета плательщиков и расчет транспортного налога для физических лиц