Проектирование интерфейса пользователя

Для создания интерфейса понадобиться Microsoft Access и Delphi 7.

На главной форме располагаем изображение по данной тематике. Находим изображение для фона в интернет источнике, заходим на вкладку Additional > Image и располагаем в удобном для нас размере.

Переходим на вкладку Properties > Picture > Load > Ok и загружаем наше изображение.

Заходим на закладку Standard > MainMenu и располагаем на форме иконку. Нажимаем по ней два раза, появляется Form1. mm1 и на ней вписываем поля Меню и Функции. В поле Меню добавляем подполе Выход. В поле Функции добавляем «Внесение сотрудников предприятия», «Редактирование клиентов», «Редактировать заказ», «Просмотреть услуги», «Просмотреть дополнительные услуги», «Просмотреть ассортимент». Прописываем код для открытия других форм:

Добавляем плеер. Щелкаем по закладке System > MediaPlayer и переносим на форму. Добавляем из вкладки Standard > Button и переносим на форму. Из вкладки Dialog переносим OpenDialog. Прописываем код в кнопке Button:

procedure TForm1. Button1Click (Sender: TObject);

begin.

MediaPlayer1.Close;

if OpenDialog1. Execute then.

begin.

MediaPlayer1.FileName:=OpenDialog1.FileName;

MediaPlayer1.Open;

end.

end;

procedure TForm1. img1Click (Sender: TObject);

begin.

end;

procedure TForm1. DBImage1Click (Sender: TObject);

begin.

end;

end.

Скрываем код.

Добавляем из вкладки Standard > Label1 и располагаем на главной форме. В закладке Properties > Caption прописываем WELCOME! Затем данный Label перетаскиваем вверхний угол формы.

Итог:

Для того чтобы при нажатии закладки Функции открывались другие формы, нам нужно создать эти формы (Form2,Form3, Form4, Form5, Form6, Form7, Form8).

Создаём форму, кликаем на кнопку New Form и появляется Form2. Данная форма будет выполнять учет заказов, редактирование и поиск.

Приступаем к оформлению формы: установим связь между БД и нашим приложением.

Из вкладки ADO > ADOConncetion, ADOTabel, а из вкладки DataAccess> DataSource и располагаем их на форме (такое проделываем для каждой формы). Теперь подключаем ADOConnection с нашей базой данных в Access. Для этого щелкаем по ADOConnection два раза, кликаем по кнопке Build выбираем в Поставщике данных — Microsoft Jet.4.0 OLE DB Provider, затем по вкладке Соединение и выбираем нашу базу данных. Проверяем соединение:

Рисунок 7. Проверка соединения.

Соединение установлено:

Рисунок 8. Оповещение.

Переходим на форму кликаем по ADOConnection, заходим в закладку Properties, находим поле LoginPromt и отключаем его (False). Это нужно проделывать в каждой форме. И так, далее нажимаем на иконку ADOTable, заходим в Properties, в поле Connectionи выбираем ADOConnection, затем выбираем таблицу Заказы, поднимаемся выше и кликаем по полю Active и выбираем True. Нажимаем на иконку DataSource, переходим на вкладку Properties и ставим значения как показано на скриншоте >

Рисунок 9. Свойства.

Теперь из вкладки DataControls нажимаем на DBGrid и растягиваем по форме. Нажимаем на DBGrid и в Properties в поле DataSource выставляем предлагаемый источник :

Дальше переносим кнопки на форму из вкладки Standard. Полсе того перенесли на форму, в Properties в поле Caption переименовывайте их в Добавить, Удалить, Поиск, Выход. Затем из закладки DataControls переносим на форму DBNavigator и растягиваем его по длине таблицы. Затем переносим из закладки DataControls > DBEdit, это то, где будет отображться информация и то где будем ее прописывать. Из вкладки Standard переносим на форму GroupBox.

Приступим к подключению кнопок. Прописываем код для кнопки «Добавить»:

procedure TForm2. Button1Click (Sender: TObject);

begin.

tbl1.Append.

end;

Прописываем код для кнопки «Удалить» :

procedure TForm2. Button2Click (Sender: TObject);

begin.

tbl1.Delete;

end;

Прописываем код для кнопки «Поиск»:

procedure TForm2. Button3Click (Sender: TObject);

begin.

if length (edit1.Text)>0 then.

begin.

tbl1.Filter:=ФИО_клиента like ' + ' ''' + edit1. Text + '%' + ''' ';

tbl1.Filtered := true;

end.

else.

tbl1.Filtered := false;

end;

Кнопка Выход, прописываем код:

procedure TForm2. Button4Click (Sender: TObject);

begin.

Form2.Close;

end;

Подключаем DBNavigator с таблицей. Нажимаем на него и в вкалдке Properties в поле DataSource выставляем предолженный источник > .

Рисунок 11. Форма «Заказы».

Для вкладок «Внесение нового сотрудника», «Редактирование клиентов» происходит аналогичное действие.

Для входа на форму Персонал, вводим Login и Password. Для создания формы «Входа в таблицу Персонал», создаем новую форму, переносим Label из влкдаки Standard в поле Caption прописываем «Введите логин и пароль», переносим два Label и в Caption прописываем Login, в другом Password. Из закладки переносим два Edit-а. Нажимаем два раза по форме и прописываем :

procedure TForm8. btn1Click (Sender: TObject);

begin.

if edt1. text='admin' then l:=1 else l:=0;

if edt2. text='adm' then p:=1 else p:=0;

if (p+l)>1 then.

begin.

form8.Close;

Form4.Visible:=True;

end.

end;

end.

Результат >

Рисунок 12. Форма защиты ИС.

Теперь нужно сделать формы «Просмотр услуг», «Просмотр дополнительных услуг», «Просмотр ассортимента».

Создадим форму «Просмотр дополнительных услуг». Открываем новую форму, затем переносим все компоненты, которые нужны для переноса таблицы.

Но для этой формы понадобиться еще один элемент из закладки ADO, это ADOQuery. Для соединения его с таблицей перейдем на вкладку Properties и в поле Connection выставляем наш источник, так же в поле DataSource > .

Переходим на вкладку, и прописываем SQL-запрос:

Рисунок 13. SQL Запрос.

В поле Active выбираем True >

Переносим две кнопки «Button» из закладки Standard и располагаем на форме. В вкладке Properties>Caption прописываем для одной кнопки Поиск для другой Выход.

Код для кнопки Выход:

procedure TForm6. Button1Click (Sender: TObject);

begin.

Form6.Close;

end;

Теперь прописываем код для кнопки Поиск:

procedure TForm6. Button2Click (Sender: TObject);

begin.

if length (edit1.Text)>0 then.

begin.

tbl1.Filter:='Наименование like ' + ' ''' + edit1. Text + '%' + ''' ';

tbl1.Filtered := true;

end.

else.

tbl1.Filtered := false;

end;

Далее переносим DBNavigator, и соединяем его с таблицей. Для этого перейдем на вкладку Properties > DataSource и выбираем источник и располагаем его по длине нашей таблицы.

Так же на форме располагаем два DBEdit .

В одном будет располгаться результаты поиска, в другом итогвая сумма за все услуги.

Код для поля, в котором подсчитывается итоговая сумма:

procedure TForm6. DBEdit1Change (Sender: TObject);

begin.

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add ('select sum (Цена) from Дополнительные_услуги;

ADOQuery1.Open;

DBEdit1.Text:=ADOQuery1.Fields[0]. AsString;

end;

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

Итог >

Рисунок 14. Форма «Дополнительные услуги».

Создаем справку пользователя, в верхнем меню для пользователя. Устанавливаем на свой персональный компьютер данно приложение.

В нем создаем вот такой файл >

Рисунок 15. Справка пользователя.