Список литературы.
Создание базы данных в Microsoft Access "Автосалон Алмаз"
Private Sub подчиненная_форма_Автомобили__в_наличии1_Enter (). Листинг разработанного программного обеспечения. Форма подчиненная Автомобили (в наличии). DoCmd. DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, acMenuVer70. DoCmd. DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, acMenuVer70. DoCmd. DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, acMenuVer70. DoCmd. DoMenuItem acFormBar… Читать ещё >
Список литературы. Создание базы данных в Microsoft Access "Автосалон Алмаз" (реферат, курсовая, диплом, контрольная)
- 1. Кренке Д. Теория и практика построения баз данных. — 8-е изд. — СПб.: Питер, 2003. 800с.
- 2. Бакаревич Ю. Б., Пушкина Н. В. Самоучитель Microsoft Access 2002. — СПб.: БХВ-Петербург, 2002. — 720 с.
- 3. Microsoft Access 2000. Шаг за шагом: Практическое пособие / Пер. с англ. — М.: ЭКОМ, 2000. — 352 с.
- 4. Информатика. Базовый курс / Под ред. С. В. Симоновича.- СПб.: Питер, 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.
DoCmd.GoToRecord, , acNewRec.
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.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70.
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70.
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.Close.
Exit_Кнопка15_Click:
Exit Sub.
Err_Кнопка15_Click:
MsgBox Err.Description.
Resume Exit_Кнопка15_Click.
End Sub.
Private Sub Кнопка16_Click ().
On Error GoTo Err_Кнопка16_Click.
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70.
Exit_Кнопка16_Click:
Exit Sub.
Err_Кнопка16_Click:
MsgBox Err.Description.
Resume Exit_Кнопка16_Click.
End Sub.
Private Sub Кнопка17_Click ().
On Error GoTo Err_Кнопка17_Click.
Dim stDocName As String.
Dim stLinkCriteria As String.
DoCmd.ShowAllRecords.
stDocName = «Должность» .
DoCmd.OpenForm stDocName,, , stLinkCriteria.
Exit_Кнопка17_Click:
Exit Sub.
Err_Кнопка17_Click:
MsgBox Err.Description.
Resume Exit_Кнопка17_Click.
End Sub.
Форма Форма1.
Option Compare Database.
Private Sub Кнопка2_Click ().
On Error GoTo Err_Кнопка2_Click.
Screen.PreviousControl.SetFocus.
DoCmd.DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70.
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.
Screen.PreviousControl.SetFocus.
DoCmd.DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70.
Exit_Кнопка3_Click:
Exit Sub.
Err_Кнопка3_Click:
MsgBox Err.Description.
Resume Exit_Кнопка3_Click.
End Sub.
Private Sub Кнопка5_Click ().
On Error GoTo Err_Кнопка5_Click.
Dim stDocName As String.
Dim stLinkCriteria As String.
DoCmd.ShowAllRecords.
stDocName = «Автомобили (в наличии)1» .
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.
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5,, acMenuVer70.
Exit_Кнопка6_Click:
Exit Sub.
Err_Кнопка6_Click:
MsgBox Err.Description.
Resume Exit_Кнопка6_Click.
End Sub.
Private Sub Кнопка7_Click ().
On Error GoTo Err_Кнопка7_Click.
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70.
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70.
Exit_Кнопка7_Click:
Exit Sub.
Err_Кнопка7_Click:
MsgBox Err.Description.
Resume Exit_Кнопка7_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.
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5,, acMenuVer70.
Exit_Кнопка9_Click:
Exit Sub.
Err_Кнопка9_Click:
MsgBox Err.Description.
Resume Exit_Кнопка9_Click.
End Sub.
Private Sub Кнопка13_Click ().
On Error GoTo Err_Кнопка13_Click.
Dim stDocName As String.
Dim stLinkCriteria As String.
stDocName = «Производитель» .
DoCmd.OpenForm stDocName,, , stLinkCriteria.
Exit_Кнопка13_Click:
Exit Sub.
Err_Кнопка13_Click:
MsgBox Err.Description.
Resume Exit_Кнопка13_Click.
End Sub.