Список використаних джерел
1. “Системы управления базами данных и знаний“ справочное издание под редакцией А.Н. Наумова, Москва: “Финансы и статистика“, 1991
2. Конспект лекцій зі спеціальності “Організація баз даних та баз знань“
3“Microsoft Access 2003 Эффективный самоучитель“, СанктПерербург: НиТ, 2006
4“Teach Yourself Microsoft Access 2002 Programming in 24 Houres“, Paul Kimmel, Москва – Санкт-Перебург - Киев: “Вильямс“, 2002
5Moscow MS Access USER Group, http://www.arissoft.ru/msaccess/
6Microsoft Access Information, http://www.dykbits.com/acc97.htm
Додаток А. Програмний код бази даних для меблевої фірми
Програмний код форми “МЕБЕЛЬ”:
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1084) & ChrW(1084) & ChrW(1077)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1084) & ChrW(1084) & ChrW(1077)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1044) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1088)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click
End Sub
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1048) & ChrW(1079) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1080) & ChrW(1077)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1052) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1080) & ChrW(1072) & ChrW(1083)
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(1050) & ChrW(1072) & ChrW(1083) & ChrW(1100) & ChrW(1082) & ChrW(1091) & ChrW(1083) & ChrW(1103) & ChrW(1094) & ChrW(1080) & ChrW(1103)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Private Sub Кнопка8_Click()
On Error GoTo Err_Кнопка8_Click
DoCmd.Close
Exit_Кнопка8_Click:
Exit Sub
Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(1099) & ChrW(32) & ChrW(1080) & ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1099)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Програмний код форми “О программе”:
Option Compare Database
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
DoCmd.Close
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Програмний код форми “Заказчик”:
Option Compare Database
Private Sub Form_Load()
Имя_фирмы.Enabled = False
Факс.Enabled = False
Название_банка.Enabled = False
МФО.Enabled = False
ОКПО.Enabled = False
Расчетный_счет.Enabled = False
Form.Caption = "Заказчик"
End Sub
Private Sub Группа34_BeforeUpdate(Cancel As Integer)
If Группа34 = 1 Then
Имя_фирмы.Enabled = False
Факс.Enabled = False
Название_банка.Enabled = False
МФО.Enabled = False
ОКПО.Enabled = False
Расчетный_счет.Enabled = False
Серия_паспорта.Enabled = True
№_паспорта.Enabled = True
Контактный_телефон.Enabled = True
End If
If Группа34 = 2 Then
Серия_паспорта.Enabled = False
№_паспорта.Enabled = False
Контактный_телефон.Enabled = False
Имя_фирмы.Enabled = True
Факс.Enabled = True
Название_банка.Enabled = True
МФО.Enabled = True
ОКПО.Enabled = True
Расчетный_счет.Enabled = True
End If
End Sub
Public Sub ДобавитьЗапись_Click()
On Error GoTo Err_ДобавитьЗапись_Click
Фамилия.SetFocus
If (Фамилия.Text <> "") Then
Имя.SetFocus
If (Имя.Text <> "") Then
Отчество.SetFocus
If (Отчество.Text <> "") Then
Адрес.SetFocus
If (Адрес.Text <> "") Then
Телефон.SetFocus
If (Телефон.Text <> "") Then
If (Группа34 = 1) Then
Серия_паспорта.SetFocus
If (Серия_паспорта.Text = "") Then
GoTo Err_ДобавитьЗапись_Click
End If
Else
If (Группа34 = 2) Then
Имя_фирмы.SetFocus
If (Имя_фирмы.Text = "") Then
GoTo Err_ДобавитьЗапись_Click
End If
End If
End If
End If
End If
End If
End If
End If
Фамилия.SetFocus
DoCmd.GoToRecord , , acNewRec
Группа34.Enabled = True
Exit_ДобавитьЗапись_Click:
Exit Sub
Err_ДобавитьЗапись_Click:
If (Err.Description <> "") Then
Фамилия.SetFocus
If (Фамилия.Text <> "") Then
Имя.SetFocus
If (Имя.Text <> "") Then
Отчество.SetFocus
If (Отчество.Text <> "") Then
Адрес.SetFocus
If (Адрес.Text <> "") Then
Телефон.SetFocus
If (Телефон.Text <> "") Then
If (Группа34 = 1) Then
Серия_паспорта.SetFocus
If (Серия_паспорта.Text <> "") Then
№_паспорта.SetFocus
MsgBox "Не все поля заполнены!!! Введите значение в поле № паспорта"
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Серия паспорта"
End If
End If
If (Группа34 = 2) Then
Имя_фирмы.SetFocus
If (Имя_фирмы.Text <> "") Then
Факс.SetFocus
If (Факс.Text <> "") Then
Название_банка.SetFocus
If (Название_банка.Text <> "") Then
МФО.SetFocus
If (МФО.Text <> "") Then
ОКПО.SetFocus
If (ОКПО.Text <> "") Then
Расчетный_счет.SetFocus
MsgBox "Не все поля заполнены!!! Введите значение в поле Расчетный_счет"
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле ОКПО"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле МФО"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Название банка"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Факс"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Имя фирмы"
End If
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Телефон"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Адрес"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Отчество"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Имя"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Фамилия"
End If
End If
Resume Exit_ДобавитьЗапись_Click
End Sub
Private Sub Серия_паспорта_Exit(Cancel As Integer)
If (Серия_паспорта.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub №_паспорта_Exit(Cancel As Integer)
If (№_паспорта.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Контактный_Телефон_Exit(Cancel As Integer)
If (Контактный_телефон.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Имя_фирмы_Exit(Cancel As Integer)
If (Имя_фирмы.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Факс_Exit(Cancel As Integer)
If (Факс.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Название_банка_Exit(Cancel As Integer)
If (Название_банка.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub МФО_Exit(Cancel As Integer)
If (МФО.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub ОКПО_Exit(Cancel As Integer)
If (ОКПО.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Расчетный_счет_Exit(Cancel As Integer)
If (Расчетный_счет.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Кнопка43_Click()
On Error GoTo Err_Кнопка43_Click
DoCmd.Close
Exit_Кнопка43_Click:
Exit Sub
Err_Кнопка43_Click:
MsgBox "Ошибка при закрытии формы"
Resume Exit_Кнопка43_Click
End Sub
Програмний код форми “Договор”:
Option Compare Database
Private Sub Добавить_Click()
On Error GoTo Err_Добавить_Click
DoCmd.GoToRecord , , acNewRec
Exit_Добавить_Click:
Exit Sub
Err_Добавить_Click:
№_договора.SetFocus
If (№_договора.Text <> "") Then
Код_заказчика.SetFocus
If (Код_заказчика.Text <> "") Then
Дата_заключения.SetFocus
If (Дата_заключения.Text <> "") Then
Срок_к_установке.SetFocus
If (Срок_к_установке.Text <> "") Then
Дата_окончания_гарантии.SetFocus
If (Дата_окончания_гарантии.Text <> "") Then
Код_заказчика.SetFocus
MsgBox "Клиент с таким Кодом заказчика не зарегистрирован в базе данных!!!"
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Дата окончания гарантии"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Срок к установке"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Дата заключения"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Код заказчика"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле № договора"
End If
Resume Exit_Добавить_Click
End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
DoCmd.Close
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click
End Sub
Програмний код форми “Изделие”:
Option Compare Database
Private Sub Добавить_Click()
On Error GoTo Err_Добавить_Click
DoCmd.GoToRecord , , acNewRec
Exit_Добавить_Click:
Exit Sub
Err_Добавить_Click:
Наименование.SetFocus
If (Наименование.Text <> "") Then
Сложность.SetFocus
MsgBox "Не все поля заполнены!!! Введите значение в поле Сложность"
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Наименование"