Разработка приложения «Автомагазин» для БД

На данном этапе создается код программы в объектно-ориентированном языке программирования Delphi. Сначала опишем основные требования к интерфейсу пользователя. Интерфейс пользователя должен иметь:

• Ш модуль главного меню, в котором осуществляется навигация по программе;
• Ш модуль ввода и редактирования данных всех таблиц;
• Ш модуль просмотра БД.

Программный интерфейс должен быть снабжен подсказками и аннотациями, ввод данных должен быть защищен от ошибок. Программный модуль должен «сворачиваться» в иконку рабочего стола Windows. Все должно быть максимально просто, удобно и не вызывать сложностей у пользователей программного продукта.

Наше приложение будет содержать семь связных форм. Первая — для модуля главного меню, остальные пять будут отображать соответствующие таблицы из базы данных автомагазина. Шестая предназначена для связи с базой данных. (dm).

Запускаем Delphi. Выбираем File -> New-> VCL Forms Application.

Сохраняем модуль Unit1 и проект приложения под именем Avtoshop. dpr в своей папке. В эту же папку помещаем файл БД Страховая компания.accdb.

Сделаем нашу форму главной MDI формой (многодокументный интерфейс). Для этого в инспекторе объектов в свойствах Form1.

FormStyle установим в fsMDIForm. Форма стала стартовой.

В свойстве Caption главной формы пишем «Информационная система автомагазина».

Добавим к нашему приложению еще 6 форм, которые назовем «Клиенты», «Характеристики авто» «Сотрудники», «Заказы», «Автомобили», «Комплектующие». Знакомим все эти формы. Т. е. главная форма должна «знать» о существовании других семи форм, а те, в свою очередь, должны знать о существовании главной. Это нужно для того, чтобы мы могли из главной формы вызвать другую форму. Знакомим Form1 и Form2. Делаем активной Form1 (щелкнем по Unit1, а затем по форме). Далее File-> Use Unit. (Использовать модуль), где в контекстном меню выбираем Unit2 и жмем OK. Теперь форма Form1 знает о существовании Form2, в коде Unit1 в разделе implementation прописалась строка (проверяем это нажав F12). То же самое проводим и для других форм. Формы познакомлены.

На главной форме располагаем семь кнопок Button1-Button7 (из вкладки Standart), придаем им название по созвучию вызываемой таблицы из базы данных. Для красоты изображения вставляем компонент XPManifest (вкладка вкладке Win32). Внешний вид главной формы приведен на рисунке.

Рисунок 16 Внешний вид главной формы приложения Для реакции на нажатия кнопок по вызову других форм в Unit1 пишем следующий код:

uses Unit1, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}.

procedure TForm1. Button1Click (Sender: TObject);

begin.

Form2.Show // показать содержимое формы.

end;

procedure TForm1. Button2Click (Sender: TObject);

begin.

Form3.Show.

end;

procedure TForm1. Button3Click (Sender: TObject);

begin.

Form4.Show.

end;

procedure TForm1. Button4Click (Sender: TObject);

begin.

Form5.Show.

end;

procedure TForm1. Button5Click (Sender: TObject);

begin.

form6.Show.

end;

Привязка БД «Автомагазин.accdb» к приложению Командой File / New / Data Module (в категории Delphi Files) добавляем в проект новый модуль данных. Дадим ему имя dm (для краткости) и сохраняем его как DatMod. pas в папку приложения.

Положим на модуль dm компонент ADOConnection (в закладке dbGo). Компонент ADOConnection1 позволит привязать БД Страховая компания. accdb к приложению. Настраивая компонент ADOConnection, дважды щелкнем на этом компоненте. В открывшемся окне установите источник связи, выбрав Use Connection String.

Рисунок 17 Окно модуля данных Нажимаем на кнопку Build…, переходим на закладку «Поставщик данных» и выбираем Microsoft Office 12.0 Access Database Engine Provider. Нажмаем кнопку Далее.

Рисунок 18 Окно свойств связи с данными Переходим на закладку Соединение, введём в строку Источник данных имя нашей БД. Если для доступа к БД необходим пароль и идентификатор пользователя, то их надо указать (по умолчанию к БД, созданной в MS Access, доступ есть у пользователя Admin, но пароль не нужен). После этого нажимаем кнопку Проверитьподключение, чтобы проверить подключается ли БД Страховая компания.accdb. Если будет дан ответ «Проверка подключения выполнена», то щелкаем по кнопке ОК закрыть все окна.

Рисунок 19 Подключение БД к приложению Установим свойства ADOConnection в Инспекторе объектов:

• — LoginPrompt = False — запрос имени и пароля пользователя отключен.
• — Mode = cmShareDenyNone.
• — Connected = True — подключение к базе активировано.

Связывание таблиц БД с приложением Положим на модуль данных dm компоненты ADOTable (закладка.

dbGo) и DataSource (закладка DataAccess).

Для удобства работы назовём их TabAvto и dsAvto, соответственно. Для этого в инспекторе объектов ADOTable1 в свойство Name записываем TabAvto, а в инспекторе объектов DataSource1 в свойство Name записываем dsAgent.

Подключим таблицу TabAvto к компоненту ADOConnection1 и к одноименной таблице «Автомобили» нашей БД.

В инспекторе объектов таблицы TabAvto устанавливаем свойства:

• — Connection = ADOConnection1.
• — TableName = Агенты.
• — Active = True (! это свойство устанавливать в последнюю очередь).

Рисунок 20 Установка свойств компонента (ADOTable1).

В инспекторе объектов компонента dsAvto (бывшая DataSource1).

установиv свойство DataSet = TabAvto.

Рисунок 21 Установка свойств компонента (DataSource1).

После определения свойств исчезнут красные знаки вопроса слева от компонентов в окне Stucture, что говорит о готовности компонента к работе.

Двойным щелчком на компоненте TabAgent откроем Окно редактора полей, щелкнем в окне правой кнопкой мыши и в контекстном меню выберем команду Add all fields. Окно редактора заполнится списком всех полей таблицы Заказы. Если щелкнуть на любом поле в окне редактора полей, то в окне инспектора объектов станут доступными свойства объекта-поля.

Рисунок 22 Добавление полей в компонент Поступая аналогичным образом, установиv в модуль dm соответствующие компоненты для таблиц «Клиенты» (компоненты TabKlient, dsKlient),.

Сохраняем проект — File -> Save All.

!!! База данных Страховая компания. accdb подключена к клиентскому приложению, и все таблицы привязаны к компонентам Delphi.

Знакомим Form1 и Form2 с модулем DatMod.

Положим на Form2 компонент GroupBox (закладка Standard) и используя свойства Caption дадим ему заголовок «Автомобили» (для GroupBox1),.

Положив в GroupBox1 сетку DbGrid1 (закладка Data Controls), для.

DbGrid1 связываем свойство DataSource с источником данных dsAvto. В Окне редактора полей (двойной клик по DbGrid1) выберите команду Add all fields.

Проделаем ту же операцию для остальных форм.

Сохраняем (File -> Save All) и компилируем (F9) проект.

Положим в GroupBox1 под сетку DbGrid1 компонент DBNavigator.

(закладка Data Controls). В инспекторе DBNavigator свойство DataSource = dsAgent.

Проделаем ту же операцию для остальных форм.

Рисунок 23 Внешний вид формы «Клиенты».

Рисунок 24 Внешний вид формы «Автомобили».

Рисунок 25 Внешний вид формы «Заказы».

Рисунок 26 Внешний вид формы «Комплектующие».

Рисунок 27 Внешний вид формы «Характеристики автомобилей».