Главная | Обратная связь | Поможем написать вашу работу!

Створення інтерфейсу користувача

В якості прикладу розглянемо створення елементів інтерфейсу користувача з використанням створеної процедури, що зберігаються, Insert_MarkKomp призначеною для додавання записів до таблиці «Маркетингова компанія». У середовищі Delphi 7 створюємо новий проект. Створюємо новий модуль даних DataModule. Розміщуємо на ньому компонент ADOConnection1 та виконуємо підключення до БД Gorbachenko. У полі DataModule розміщуємо компонент TADOTable, який буде відповідати за перегляд таблиці «Маркетингова компанія», та виконуємо наступні дії: у властивості Connection вказуємо ADOConnection1; у Table Name вказуємо назву таблиці «Маркетингова компанія»; у CursorLocation встановлюємо clUseServer; у Active встановлюємо True. Додаємо об’єкта ТDataSource та встановлюємо зв’язок з ADOTable через поле DataSet. Для звернення до процедури, що зберігається, використовуємо компонент ТADOStoredProc та задаємо наступні параметри: у властивості Connection обираємо ADOConnection1, а у ProcedureName вказуємо ім`я процедури, що зберігається, Insert_MarkKomp. Створений модуль даних DataModule зображено на рисунку 22.

Рис. 22. Вікно DataModule

В нашому проекті створюємо нову форму. Відкриваємо вікно тексту модуля форми та у розділі Uses вказуємо ім’я модуля DataModule. На формі розміщуємо компоненти TDBGrid та TDBNavigator. У властивості DataSource обираємо DataModule2.DataSource1. На формі розміщуємо вісім компонентів TLabel та TEdit попарно, тобто Label1 та Edit1 розміщуємо поряд. Властивість Text для усіх компонентів TEdit задаємо порожньою. У властивість Caption кожної з компонентів TLabel задаємо назву стовпця таблиці «Маркетингова компанія». На формі розташовуємо компонент TButton та у властивість Caption задаємо «Добавити». При натисканні на кнопку «Добавити» буде виконуватись додавання нового запису до таблиці «Маркетингова компанія». Для цього у процедуру, яка забезпечує виконання події при натисканні кнопки, додаємо наступний фрагмент:

If (Edit1.Text<> '') and (Edit2.Text<> '') and(Edit3.Text<> '') and

(Edit4.Text<> '') and (Edit5.Text<> '') and(Edit6.Text<> '') and

(Edit7.Text<> '') and (Edit8.Text<> '') then

Begin

DataModule2.ADOTable1.Active:=False;

DataModule2.ADOStoredProc1.Parameters[1].Value:=Edit1.Text;

DataModule2.ADOStoredProc1.Parameters[2].Value:=Edit2.Text;

DataModule2.ADOStoredProc1.Parameters[3].Value:=Edit3.Text;

DataModule2.ADOStoredProc1.Parameters[4].Value:=Edit4.Text;

DataModule2.ADOStoredProc1.Parameters[5].Value:=Edit5.Text;

DataModule2.ADOStoredProc1.Parameters[6].Value:=Edit6.Text;

DataModule2.ADOStoredProc1.Parameters[7].Value:=Edit7.Text;

DataModule2.ADOStoredProc1.Parameters[8].Value:=Edit8.Text;

DataModule2.ADOStoredProc1.ExecProc;

Edit1.Text:= '';

Edit2.Text:= '';

Edit3.Text:= '';

Edit4.Text:= '';

Edit5.Text:= '';

Edit6.Text:= '';

Edit7.Text:= '';

Edit8.Text:= '';

DataModule2.ADOTable1.Active:=True;

end;

Виконання наведеного фрагменту програми забезпечить додавання нового запису до таблиці, якщо у поля об’єктів Edit1...Edit8 будуть введені певні значення. Створена форма для введення записів до таблиці «Маркетингова компанія» подана на рис. 23.

Рис. 23. Форма для введення записів до таблиці «Маркетингова компанія»

За аналогією створюємо форми введення та редагування записів для усіх таблиць БД.

Висновки

Таким чином, розроблена БД та інтерфейс користувача забезпечить інформаційну підтримку проведення маркетингових досліджень з метою підвищення якості управлінських рішень. Створені представлення та процедури, що зберігаються, у поєднанні із запитами забезпечать реалізацію наступних функцій: визначення напрямків маркетингових досліджень; формування анкет; аналіз результатів дослідження; розрахунки витрат при проведенні досліджень. Ці компоненти забезпечать зменшення навантаження на швидкість виконання операцій при роботі з записами БД. Зручний та інтуїтивно зрозумілий інтерфейс забезпечать роботу з системою персоналу відділу маркетингу з мінімальною підготовкою в галузі комп’ютеризації.

РЕКОМЕНДОВАНА ЛІТЕРАТУРА

1. Роб Хоторн Разработка баз данных Microsoft SQL Server 2000 на примерах.: Пер. с англ. – М.: Издательский дом “Вильямс”, 2001. – 464 с.: ил.

2. Федоров А., Елманова Н. ADO в Delphi: Пер. с англ. – СПб.: БХВ-Петербург, 2003. – 816 с.: ил.

3. Microsoft Corporation Проектирование и реализация баз данных Microsoft SQL Server 2000. Учебный курс MCAD/MCSE, MCDBA/Пер. с англ. – 2-е изд., испр. – М.: Издательский дом „Русская редакция”, 2003. – 512 стр.: ил.

ДОДАТОК 1

Міністерство освіти і науки України

Національний університет харчових технологій

Кафедра інформаційних систем

⇐ Предыдущая 1 2 3 45