Для того чтобы удалить запись о сотруднике нажимается кнопка “корзина”.
Для того чтобы добавить должность нажимаем на кнопку “ДОБАВИТЬ ДОЛЖНОСТЬ”
После окончания работы с данной формой нажимаем кнопку выхода из формы.
ЗАКЛЮЧЕНИЕ
В деловой или личной сфере часто приходится работать с данными из разных источников, каждый из которых связан с определённым видом деятельности. Для координации всех этих данных необходимы определённые знания и организационные навыки. Microsoft Access объединяет сведения из разных источников в одной реляционной базе данных. Создаваемые формы, запросы и отчёты позволяют быстро и эффективно обновлять данные, получать ответы на вопросы, осуществлять поиск нужных данных, анализировать данные, печатать отчёты.
В базе данных сведения из каждого источника сохраняются в отдельной таблице. При работе с данными из нескольких таблиц устанавливаются связи между таблицами. Для поиска и отбора данных, удовлетворяющих определённым условиям, создаётся запрос. Запросы также позволяют обновить или удалить одновременно несколько записей, выполнить встроенные и специальные сообщения.
Для просмотра, ввода или изменения данных прямо в таблице применяются формы. Форма позволяет отобрать данные из одной или нескольких таблиц и вывести их на экран, используя стандартный или созданный пользователем макет.
Для анализа данных или распечатки их определённым образом используются отчёты. Например, можно создать отчёт, группирующий данные и подводящий итоги.
В окне базы данных можно работать со всеми её объектами. Для просмотра объектов определённого типа следует выбрать соответствующую вкладку. С помощью кнопок можно открывать и изменять существующие объекты и создавать новые.
Разработанная база данных позволяет быстро и эффективно работать автосалону. Удобный интерфейс программы, с одной стороны, позволяет легко ориентироваться в программе, не требуя от сотрудников каких-либо специальных навыков работы с электронно-вычислительными машинами, с другой стороны предоставляет пользователю оперативную информацию . Данные сведения позволяют проводить достаточно глубокие маркетинговые исследования, на основе которых можно анализировать текущее состояние автосалона и планировать его дальнейшую деятельность.
Разработанный программный продукт был предложен руководству ООО “Автосалон Алмаз” в г. Салавате, одобрен им, и в скором времени будет внедрен для использования в ООО “Автосалон Алмаз” после прохождения испытательного срока и последующей доработки непосредственно для нужд автосалона.
СПИСОК ЛИТЕРАТУРЫ
Кренке Д. Теория и практика построения баз данных. – 8-е изд. – СПб.: Питер, 2003. 800с.
Бакаревич Ю.Б., Пушкина Н.В. Самоучитель Microsoft Access 2002. – СПб.: БХВ-Петербург, 2002. – 720 с.
Microsoft Access 2000. Шаг за шагом: Практическое пособие / Пер. с англ. – М.: ЭКОМ, 2000. – 352 с.
Информатика. Базовый курс / Под ред. С.В. Симоновича.– СПб.: Питер, 2001. – 640 с.
Приложение А
(обязательное)
Листинг разработанного программного обеспечения.
Форма Автомобили (в наличии)
Option Compare Database
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
DoCmd.GoToRecord , , acNewRec
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
Private Sub Кнопка25_Click()
On Error GoTo Err_Кнопка25_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , 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
DoCmd.Close
Exit_Кнопка26_Click:
Form_Форма1.Refresh
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.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Кнопка27_Click:
Exit Sub
Err_Кнопка27_Click:
MsgBox Err.Description
Resume Exit_Кнопка27_Click
End Sub
Форма Автосалон
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Автомобили (в наличии)1"
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 = "Продажа1"
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
stDocName = "Продажа"
DoCmd.OpenReport stDocName, acPreview
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
stDocName = "Запрос на остаток машин1"
DoCmd.OpenReport stDocName, acPreview
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 = "Форма1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Сотрудники"
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.Quit
Exit_Кнопка8_Click:
Exit Sub
Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click
End Sub
Форма Должность
Option Compare Database
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
DoCmd.GoToRecord , , acNewRec
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
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
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
DoCmd.ShowAllRecords
DoCmd.Close
Exit_Кнопка4_Click:
Form_Сотрудники.Refresh
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Форма подчиненная Автомобили (в наличии)
Option Compare Database
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
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.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click
End Sub
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
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.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка27_Click:
Exit Sub
Err_Кнопка27_Click:
MsgBox Err.Description
Resume Exit_Кнопка27_Click
End Sub
Форма Продажа
ption Compare Database
Sub Form_Load()
On Error GoTo Form_Load_Err
If ParentFormIsOpen() Then Forms![Автомобили (в наличии)2]!ToggleLink = True
Form_Load_Exit:
Exit Sub
Form_Load_Err:
MsgBox Error$
Resume Form_Load_Exit
End Sub
Sub Form_Unload(Cancel As Integer)
On Error GoTo Form_Unload_Err
If ParentFormIsOpen() Then Forms![Автомобили (в наличии)2]!ToggleLink = False
Form_Unload_Exit:
Exit Sub
Form_Unload_Err:
MsgBox Error$
Resume Form_Unload_Exit
End Sub
Private Function ParentFormIsOpen()
ParentFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Автомобили (в наличии)2") And acObjStateOpen) <> False
End Function
Форма Продажа1
Option Compare Database
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click
End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.Close
Exit_Кнопка22_Click:
Exit Sub
Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click
End Sub
Private Sub Кнопка23_Click()
Код_автомобиля.SetFocus
'DoCmd.RunSQL "INSERT INTO Продажа (Код_автомобиля,Дата_продажи,Фамилия_покупателя,Имя_покупателя,Отчество_покупателя,Город,Адрес,Паспортные_данные,Телефон) VALUES (Val(" + Код_автомобиля + "),CDate(" + Дата_продажи + ")," + Фамилия_покупателя + "," + Имя_покупателя + "," + Отчество_покупателя + "," + Город + "," + Адрес + ",Val(" + Паспортные_данные + "),Val(" + Телефон + "))"
On Error GoTo Err_Кнопка23_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Dim stDocName As String
stDocName = "Продажа"
DoCmd.OpenReport stDocName, acPreview
DoCmd.RunSQL "DELETE FROM [Автомобили (в наличии)] WHERE Код_автомобиля=Val(" + Код_автомобиля.Text + ")"
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click
End Sub
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
DoCmd.GoToRecord , , acNewRec
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
Private Sub подчиненная_форма_Автомобили__в_наличии_1_Enter()
End Sub
Форма Производитель
Option Compare Database
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
DoCmd.GoToRecord , , acNewRec
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
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
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
DoCmd.Close
DoCmd.ShowAllRecords
Exit_Кнопка4_Click:
Form_Форма1.Refresh
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Форма Сотрудники
Option Compare Database
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click