База данных по гарантийным талонам

 

Список используемой литературы

 

1. Бекаревич Ю.Б., Пушкина Н.В. Самоучитель Access 2010 (+ CD-ROM). - СПб.: БХВ-Петербург, 2011.
2. Бондарева Г.А., Сахарова Е.В., Королькова Л.Н., Информатика. Методические указания. Ставрополь, СТИС, 2006
3. В.А. Благодатских, В.А. Волнин, К.Ф. Поскакалов «Стандартизация разработки программных средств», Москва «Финансы и статистика», 2003.- 288с.
4. Вендров А.М. Проектирование программного обеспечения экономических информационных систем. — М.: Финансы и статистика, 2000.
5. Гончаров А. Ю. Access 2003. Самоучитель с примерами., -М.:, 2004г.
6. Григорьев В.А., Ревунков В.И. Банки данных. Учебник для вузов. – М.: изд. МВТУ им. Баумана, 2002.
7. Мейер М. Теория реляционных баз данных. – М.: Мир, 1987.
8. Симонович С. В., Евсеев Г. А., Алексеев А. Г. Специальная информатика: Учебное пособие. – М.: АСТ-ПРЕСС: Инфорком-Пресс, 2000.
9. Хаббард Дж. Автоматизированное проектирование баз данных. – М.: Мир, 1984.
10. Харитонова И., Вольман Н. Программирование на Access 2002. Учебный курс. –СПб.: BHV, 2002.

 

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

 

Листинг кодов кнопок формы Главная и Поставщики

Листинг кодов кнопок форм Главная и Поставщики.

Программный код кнопки Поставщики

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

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

 

    Dim stDocName As String

    Dim stLinkCriteria As String

 

    stDocName = ChrW(1055) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1097) & ChrW(1080) & ChrW(1082) & ChrW(1080)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка5_Click:

   Exit Sub

 

Err_Кнопка5_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка5_Click

   

End Sub

 

Программный код кнопки Продукты

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

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

 

    Dim stDocName As String

    Dim stLinkCriteria As String

 

    stDocName = ChrW(1055) & ChrW(1088) & ChrW(1086) & ChrW(1076) & ChrW(1091) & ChrW(1082) & ChrW(1090) & ChrW(1099)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка6_Click:

    Exit Sub

 

Err_Кнопка6_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка6_Click

   

End Sub

 

Программный код кнопки Работа с  данными

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

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

 

    Dim stDocName As String

    Dim stLinkCriteria As String

 

    stDocName = ChrW(1044) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка19_Click:

    Exit Sub

 

Err_Кнопка19_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка19_Click

   

End Sub

 

Программный код кнопки Закрыть  форму

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

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

 

 

    DoCmd.Close

 

Exit_Кнопка7_Click:

    Exit Sub

 

Err_Кнопка7_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка7_Click

   

End Sub

 

Программный код кнопки Найти запись

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

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

 

 

    Screen.PreviousControl.SetFocus

    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

 

Exit_Кнопка13_Click:

    Exit Sub

 

Err_Кнопка13_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка13_Click

   

End Sub

 

Программный код кнопки Добавить запись

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

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

 

 

    DoCmd.GoToRecord , , acNewRec

 

Exit_Кнопка14_Click:

    Exit Sub

 

Err_Кнопка14_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка14_Click

   

End Sub

 

 

Программный код кнопки Сохранить  запись

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

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

 

 

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

 

Exit_Кнопка15_Click:

    Exit Sub

 

Err_Кнопка15_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка15_Click

   

End Sub

 

Программный код кнопки Удалить  запись

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

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

 

 

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

 

Exit_Кнопка17_Click:

    Exit Sub

 

Err_Кнопка17_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка17_Click

   

End Sub

 

Программный код кнопки Поставки

Sub ToggleLink_Click()

On Error GoTo ToggleLink_Click_Err

 

    If ChildFormIsOpen() Then

        CloseChildForm

    Else

        OpenChildForm

        FilterChildForm

    End If

 

ToggleLink_Click_Exit:

    Exit Sub

 

ToggleLink_Click_Err:

    MsgBox Error$

    Resume ToggleLink_Click_Exit

 

End Sub