Загрузка...
Учебная работа. Курсовая работа: Разработка базы данных Автосалон АЛМАЗ с помощью программы Microsoft Access
Разработка базы данных “Автосалон АЛМАЗ” при помощи программки Microsoft Access.
Примечание:
Объяснительная записка обязана быть оформлена в редакторе Microsoft Word в согласовании с требованиями ЕСКД, ЕСПД, ГОСТ 19.003-80 “Схемы алгоритмов и программ”.
В объяснительной записке должны содержаться последующие разделы:
информационная модель;
структура базы данных;
описание применяемого программного обеспечения;
листинг разработанного программного обеспечения;
формы входных и выходных данных;
контрольный пример;
управление юзера;
перечень применяемой литературы.
Основой для учета, контроля и планирования служат различные картотеки, регистрационные журнальчики, списки и т.д. Они равномерно скапливаются и обновляются. При большенном объеме инфы поиск и обобщение нужных сведений, осуществляемых вручную, представляют собой достаточно трудозатратный процесс.
С возникновением ЭВМ и внедрением их для обработки инфы возникла возможность заавтоматизировать решение почти всех информационно — справочных и расчетных задач.
Сначало для скопления и хранения инфы на ЭВМ применялись локальные массивы (либо файлы), при всем этом для каждой из решаемых многофункциональных задач создавались собственные файлы начальной и результатной инфы. Это приводило к значительному дублированию данных, усложняло их обновление, затрудняло решение взаимосвязанных проблемных задач.
Равномерно с развитием программного обеспечения ЭВМ возникли идеи сотворения управляющих систем, которые дозволяли бы копить, хранить и обновлять взаимосвязанные данные по целому комплексу решаемых задач, к примеру при автоматизации бухгалтерского учета на предприятии. Эти идеи отыскали свое воплощение в системах управления базами данных (СУБД
). СУБД ведут взаимодействие не с локальными, а взаимосвязанными по инфы массивами, именуемыми базами данных. С возникновением индивидуальных компов СУБД
стают более пользующимся популярностью средством обработки табличной инфы. Они являются инструментальным средством проектирования банков данных при обработке огромных размеров инфы.
Программное обеспечение для работы с базами данных употребляется на индивидуальных компах уже достаточно издавна. К огорчению, эти программки или были простыми диспетчерами хранения данных и не имели средств разработки приложений, или были так сложны и трудны, что даже отлично разбирающиеся в компах люди избегали работать с ними до того времени, пока не получали полных, нацеленных на юзера приложений.
Microsoft Access
— это функционально полная реляционная СУБД
. В ней предусмотрены все нужные для вас средства для определения и обработки данных, также для управления ими при работе с большенными размерами инфы. Что касается легкости использования, то Microsoft Access
сделал тут реальный переворот, и почти все для сотворения собственных собственных баз данных и приложений обращаются конкретно к нему.
Система управления базами данных предоставляет для вас возможность надзирать задание структуры и описание собственных данных, работу с ними и компанию коллективного использования данной информацией. СУБД
также значительно наращивает способности и упрощает каталогизацию и ведение огромных размеров лежащей в бессчетных таблицах инфы. СУБД
содержит в себе три главных типа функций: определение (задание структуры и описание) данных, обработка данных и управление данными. Все эти многофункциональные способности полностью реализованы в Microsoft Access
. В практике, как правило, нужно решать и задачки с внедрением электрических таблиц и текстовых микропроцессоров. к примеру, опосля подсчета либо анализа данных нужно их представить в виде определенной формы либо шаблоны. В итоге юзеру приходится сочетать программные продукты для получения нужного результата. В этом смысле все значительно упростят способности, предоставляемые Microsoft Access
. Предлагается разглядеть эти способности.
Раздел 1 Описание применяемого программного обеспечения
Microsoft Access – это система управления базами данных (СУБД), созданная для сотворения и обслуживания баз данных, обеспечения доступа к данным и их обработки.
база данных (БД) представляет собой организованную структуру, применяемую для хранения данных, т.е. всех сведений о явлениях, действиях, действиях и т.д. Данные несут внутри себя информацию о событиях, происходящих в вещественном мире, и, на самом деле, являются зарегистрированными сигналами, появившимися в итоге этих событий. Данные стают информацией, если юзер обработает их и осмыслит, применив при всем этом адекватные сиим данным способы. сейчас большая часть СУБД располагают в собственных структурах не только лишь данные, да и способы (программные коды), потому можно утверждать, что Microsoft Access – это СУБД, предлагающая широкий спектр средств для хранения инфы и действенного управления данной информацией.
Базы данных содержат разные объекты, главными из которых являются таблицы. структура простейшей базы данных соответствует структуре её двухмерной таблицы, содержащей столбцы и строчки. Их аналогами в структуре простейшей базы данных являются поля и записи.
Главными качествами полей являются имя поля, тип поля, его размер, определяющий предельную длину данных, размещаемых в этом поле, и др.
При работе с Microsoft Access 2000 и Microsoft Access 2002 употребляются последующие типы данных:
текстовый – тип данных, применяемый для хранения обычного неформатированного текста, число знаков в каком не обязано превосходить 255;
поле MEMO – особый тип данных, используемый для хранения огромных объёмов текста (до 65 535 знаков);
числовой – тип данных для хранения чисел;
дата/время – тип данных для хранения значений даты и времени;
валютный – тип данных для хранения валютных значений (длина поля 8 б);
счётчик – особый тип данных, применяемый для автоматической нумерации записей;
логический – для хранения логических данных, которые могут иметь одно из 2-ух вероятных значений Да либо Нет;
поле объекта OLE – особый тип данных, созданный для хранения объектов OLE (электрических таблиц Microsoft Excel, документов Microsoft Word, звукозаписей и др.);
ссылка – особое поле для хранения адресов URL Web-объектов;
мастер подстановок – тип данных, запускающий мастер подстановок, что дозволяет выбирать данные из раскрывающегося перечня, а не вводить их в поле вручную.
Числовые поля могут иметь последующие размеры:
б (Byte) – целые числа от 0 до 255 (1 б);
целое (Integer) – целые числа от минус 32768 до +32767 (2 б);
длинноватое целое (Long Integer) – целые числа от минус 2147483648 до +2147483647 (4 б);
одинарное с плавающей точкой (Single) – числа от минус 3,4´1038 до +3,4´1038 с точностью до 7 символов (4 б);
двойное с плавающей точкой (Double) – числа от минус 1,797´10308 до +1,797´10308 с точностью до 15 символов (8 б).
база данных может состоять из нескольких таблиц, содержащих различную информацию. Эти таблицы соединены меж собой любым определённым полем, именуемым главным полем. Ключевое поле дозволяет совершенно точно идентифицировать каждую запись таблицы, т.е. каждое иной. Связи меж таблицами дают возможность вместе употреблять данные из разных таблиц. к примеру, одна таблица содержит информацию о проф деятель служащих компании (таблица Сотрудник), иная таблица – информацию о их месте жительства (таблица адресок). Допустим, на основании этих 2-ух таблиц нужно получить результирующую таблицу, содержащую поля Фамилия и инициалы, Должность и адресок проживания. Причём поле Фамилия и инициалы быть может в обеих таблицах, поле Должность – в таблице Сотрудник, а поле адресок проживания – в таблице Адресок. Ни одно из перечисленных полей не может являться главным, т. к. оно совершенно точно не описывает каждую запись. В качестве главного поля в этих таблицах можно употреблять поле Код типа Счётчик, автоматом создаваемое Access при разработке структуры таблицы, либо в каждой таблице задать поле Табельный номер, по которому потом связать таблицы. Таблицы при всем этом будут соединены так именуемым реляционным отношением. Последовательность действий юзера при разработке таблиц Сотрудник и адресок рассмотрена в пп. 9.1.2 и 9.1.3.
Взаимосвязанные двухмерные таблицы, являющиеся объектами СУБД, именуются реляционными таблицами, а сами СУБД – реляционными базами данных.
СУБД Microsoft Access 2000 и Microsoft Access 2002 нацелены на работу с объектами 7 разных типов: таблицами, запросами, формами, отчётами, страничками, макросами, модулями.
Таблицы – это главный объект базы данных, в каком хранятся все данные, имеющиеся в базе, также структура базы (поля, их типы, характеристики).
Запросы разрешают выбирать данные из одной либо нескольких связанных таблиц. Результатом выполнения запроса является результирующая таблица, которая вместе с иными таблицами быть может применена при обработке данных. При помощи запросов можно также обновлять, удалять либо добавлять данные в таблицы.
Формы служат для ввода и просмотра данных в комфортном для юзера виде, который соответствует обычному для него документу. При выводе данных при помощи форм можно использовать особые средства дизайна.
Отчёты предусмотрены для формирования выходных документов и вывода их на печать. По своим свойствам и структуре отчеты почти во всем подобны формам. Основное их отличие состоит в том, что в отчёте показываются все данные и в их предусмотрена возможность группировать данные по разным аспектам. отчеты в отличие от форм могут содержать особые элементы дизайна, соответствующие для печати документов: колонтитулы, номера страничек и т.д.
Странички – это особые объекты баз данных, реализованные в версиях Access 2000 и Access 2002. В наиболее ранешних версиях Access такие странички доступа к данным отсутствуют. Эти странички являются диалоговыми Web-страницами, т.е. производят интерфейс меж клиентом, сервером и базой данных, размещённой на сервере.
Макросы предусмотрены для автоматизации циклических операций при работе с СУБД. Макрос является программкой, которая содержит описание последовательности определенных действий юзера. Любому действию соответствует определённая макрокоманда. Формируются макросы в диалоговом режиме путём выбора подходящих макрокоманд.
Модули создаются юзером путём внедрения встроенной среды объектно-ориентированного программирования Visual Basic for Applications (VBA). Главный мыслью объектно-ориентированного программирования является объединение данных и оперирующих ими функций в один объект. Данные в VBA рассматриваются как совокупа объектов (таблиц, форм, отчётов и т. д.), имеющих характеристики и способы, реализующие заблаговременно определённые деяния над объектами.
Раздел 2 база данных
Схема данных
Сделанная база данных имеет схему данных, показанную на рисунке 1.
Набросок 1 – Схема данных
Таблицы
В разработанной базе данных сотворено 5 таблиц, связанных меж собой так, как показано в схеме данных. Все таблицы сделаны при помощи конструктора.
Таблица «Авто (в наличии)» имеет последующие поля и надлежащие им типы данных выставленные в таблице 1. В данной таблице хранятся данные о карах имеющихся в наличие в автомобильном салоне.
Таблица 1 – Авто (в наличии)
имя поля
Тип данных
*Код кара
Числовой
Марка
Текстовый
№ кузова
Текстовый
№ мотора
Текстовый
№ ПТС
Текстовый
цвет
Текстовый
Дата выпуска
Дата/время
Дата прихода
Дата/время
Комплектация
Текстовый
Производитель
Текстовый
Стоимость
Валютный
Таблица «Должность» имеет последующие поля и надлежащие им типы данных выставленные в таблице 2. Данная таблица содержит перечень должностей служащих работающих в автомобильном салоне.
Таблица 2 – Должность
имя поля
Тип данных
*Должность сотрудника
Текстовый
Таблица «Продажа» имеет последующие поля и надлежащие им типы данных выставленные в таблице 3. Данная таблица не содержит никаких сведений, потому что она сотворена для сотворения формы «Продажа».
Таблица 3 – Продажа
имя поля
Тип данных
Код кара
Числовой
Дата реализации
Дата/время
Фамилия покупателя
Текстовый
имя покупателя
Текстовый
Отчество покупателя
Текстовый
город
Текстовый
Адресок
Текстовый
Паспортные данные
Числовой
телефон
Числовой
Таблица «Производитель» имеет лишь одно ключевое поле – Производитель с текстовым типом данных. Данная таблица содержит перечень производителей, имеющихся в автомобильном салоне, машин.
И в конце концов таблица «Сотрудники» имеет последующие поля и надлежащие им типы данных представленных в таблице 4.
Таблица 4 – Сотрудники
имя поля
Тип данных
Фамилия сотрудника
Текстовый
имя сотрудника
Текстовый
Отчество сотрудника
Текстовый
Должность сотрудника
Текстовый
адресок сотрудника
Текстовый
телефон сотрудника
Числовой
Запросы
В сделанной базе данных имеются 3 запроса, сделанных в режиме конструктора.
Два из этих запросов соединены с таблицами так, как показано на рисунке 1.
1-ый запрос – запрос на подборку «Авто в (наличии)» не несет никакого самостоятельного значения, он сотворен для отчета «Продажа». Данный запрос представлен на рисунке 2.
Набросок 2 – запрос «Авто в (наличии)»
2-ой запрос на подборку — «Запрос на общее количество каждой марки», подсчитывает количество каров схожей марки и их общую стоимость. Данный запрос представлен на рисунке 3.
Набросок 3 – «Запрос на общее количество каждой марки»
И в конце концов 3-ий запрос на подборку – «Запрос на остаток машин» сотворен также для отчета «Остаток машин». Данный запрос представлен на рисунке 4.
Набросок 4 – «Запрос на остаток машин»
Формы
В разработанной базе данных сотворено 10 форм. Они все сделаны в режиме конструктора.
Форма «Автосалон» является главной формой, которая автоматом возникает при запуске базы данных. Подробнее она будет рассмотрена в руководстве юзера.
Форма «Должность» является подчиненной и заходит в состав формы «Сотрудники» и дозволяет добавлять новейшие должности. Данная форма представлена на рисунке 5.
Набросок 5 – Форма «Должность»
Форма «подчиненная форма Авто (в наличии)» также является подчиненной и в прогуливается в состав главной формы.
Формы «Продажа» и «Продажа подчиненная форма» являются подчиненными и входят в состав формы «Продажа1».
Форма «Продажа1» является сложной формой и заходит в состав главной формы. Подробнее о работе данной форме будет поведано в руководстве юзера.
Форма «Производитель» заходит в состав формы «Форма1» и дозволяет добавлять новейших производителей. Данная форма представлена на рисунке 6.
Набросок 6 – Форма «Производитель»
Форма «Сотрудники» заходит в состав главной формы.
И в конце концов крайняя форма «Форма 1» также заходит в состав главной формы.
отчеты
В сделанной базе данных составлено, при помощи конструктора 2 отчета.
1-ый отчет – «Запрос на остаток машин», представлен на рисунке 7.
Набросок 7 – отчет по остатку машин
2-ой отчет – отчет «Продажа» представляет из себя чек о продаже кара. Данный отчет показан на рисунке 8.
Набросок 8 – отчет «Продажа»
Раздел 3 Управление юзера
На диске вложенном в курсовую работу хранится файл — Автосалон Алмаз.mdb. При запуске данного файла юзера встречает кнопочная форма «Автосалон», представленная на рисунке 9.
Набросок 9 – Форма «Автосалон»
Данная форма дает юзеру последующие деяния:
Просмотр имеющихся каров в наличии;
Просмотр отчета по остатку машин;
Воплощение реализации;
Просмотр служащих автомобильного салона;
Выход из базы данных.
Разглядим поочередно все эти деяния:
Просмотр имеющихся каров в наличииреализован формой «Форма1», представленной на рисунке 10.
Набросок 10 – Форма «Форма1»
В данной форме имеются способности выполнить поиск по выделенному столбцу, добавить новейший кар и добавить производителя.
Для прибавления новейшего кара вызывается форма «Авто (в наличии)», представленная на рисунке 11. Потом заполняются все поля и нажимается клавиша “СОХРАНИТЬ”. Если необходимо добавить очередной кар нажимается клавиша “ДОБАВИТЬ” и проделываются подобные деяния. Опосля того как необходимое количество каров было добавлено нажимается клавиша “НАЗАД” для возврата на форму «Форма1».
Набросок 11 – Добавление новейшего кара
Для прибавления новейшего производителя вызывается форма «Производитель». На которой вписывается новейший производитель и нажимается клавиша сохранить. Для прибавления еще 1-го производителя нажимается клавиша добавить и производятся подобные деяния. Для возврата на форму «Форма1» нажимается клавиша выхода.
Просмотр отчета по остатку машин. Для просмотра отчета по остатку машин нажимается соответственная клавиша, опосля нажатия на дисплее возникает данный отчет.
Воплощение реализации.Данная операция реализуетсяформой «Продажа1», представленной на рисунке 12.
Набросок 12 – Форма «Продажа1»
Для того чтоб реализовать кар заполняются все поля, при всем этом опосля того как мы внесем код кара в таблице, входящей в состав формы возникают все нужные для реализации данные о этом каре. Опосля наполнения всех полей жмем на клавишу “ЧЕК” и возникает уже заполненный чек, реализованный при помощи отчета «Продажа». Опосля того как чек будет написан проданный кар удаляется из базы данных.
Просмотр служащих Автомобильного салона.Данная операция реализована с помощью формы «Сотрудники», представленной на рисунке 13.
Набросок 13 – Форма «Сотрудники»
На данной форме может быть: добавить новейшего сотрудника, выполнить поиск нужного сотрудника, удалить запись о сотруднике и добавить новейшую должность.
Для того чтоб добавить новейшего сотрудника нажимается клавиша добавить и заполняются все нужные поля опосля что нажимается клавиша сохранить.
Для того чтоб удалить запись о сотруднике нажимается клавиша “корзина”.
Для того чтоб добавить должность жмем на клавишу “ДОБАВИТЬ ДОЛЖНОСТЬ”
Опосля окончания работы с данной формой жмем клавишу выхода из формы.
ЗАКЛЮЧЕНИЕ
В деловой либо личной сфере нередко приходится работать с данными из различных источников, любой из которых связан с определённым видом деятель. Для координации всех этих данных нужны определённые познания и организационные способности. 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(» + Дата_продажи + «),» + Фамилия_покупателя +