Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Листинг разработанного программного обеспечения.


⇐ ПредыдущаяСтр 9 из 18Следующая ⇒

Форма Автомобили (в наличии)

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


 

СОДЕРЖАНИЕ

стр.

ВВЕДЕНИЕ 3

Раздел 1 Описание используемого программного обеспечения 5

Раздел 2 База данных 9

2.1 Схема данных 9

2.2 Таблицы 9

2.3 Запросы 11

2.4 Формы 13

2.5 Отчеты 14

Раздел 3 Руководство пользователя 17

ЗАКЛЮЧЕНИЕ 22

СПИСОК ЛИТЕРАТУРЫ 24

Приложение А


⇐ Предыдущая45678910111213Следующая ⇒
Поделиться с друзьями:
mylektsii.su - Мои Лекции - 2015-2024 год. (0.07 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал