Практическа работа – Проектиране в среда Delphi

Образователни: изучаване на съвременната технология за създаване на приложение чрез използване на компонентите на средата Delphi; изучаване на технологията ADO, която осигурява връзка с база данни на Microsoft Access; обучават как да проектират приложение и да осигурят достъп до базата данни на MS Access "Детска клиника".

Развитие: развива способността на учениците да анализират, да правят независими заключения, както и да развиват самоконтрол и взаимен контрол.

Образователни: насърчаване на формирането на такива личностни черти като отговорно отношение към възложената задача; внимателност, себеизразяване.

Оборудване: персонален компютър, препоръки за практическа работа, електронен учебник по Delphi7 за начинаещи.

Софтуер: Microsoft Access, Borland Delphi7, готова работеща база данни “Детска клиника”.

Задача: Създайте проект в Borland Delphi 7 и осигурете достъп до предварително създадената база данни на Microsoft Access „Детска клиника“, като използвате компоненти на средата на Delphi, вземете информация от базата данни и я представете под формата на таблица.

Базата данни „Детска клиника” е създадена в Microsoft Access и попълнена с информация (приложение).

Среда за разработка на проекти в Delphi

Delphi е среда за бърза разработка, която използва Delphi като език за програмиране. Delphi е строго типизиран обектно-ориентиран език, базиран на Object Pascal. Интегрираната среда ви позволява да създавате, компилирате, тествате и редактирате проект в една среда за програмиране [4].

Работата по нов проект,, както се нарича разработваното приложение в Delphi, започва със създаването на стартформи.

Форма (Форма)- основата на разработката, в нея се поставят необходимите компоненти и се създава програмният интерфейс. Свойствата на формуляра определят неговия външен вид: размер, позиция на екрана, текст на заглавие и др.

Ориз. 1. Основни елементи на средата за разработка в Delphi

Файлът на модула на формуляраUnit1.pas(фиг. 1) съдържа описание на класа на формуляра (разположение, поведение на компонентите и работа на манипулатори на събития) и се създава автоматично.

Всеки проект има поне шест файла (Таблица 1).

Основни файлове на проекта

ДестинацияОсновен файл на проекта (код на проекта) – PROGECT.DPRОсновната е програма на Pascal.Първи програмен модул (формуляр модул) UNIT.PASАвтоматично се появява в началото на работата, може да се нарича с всяко друго име. Съдържа текста на програмата Pascal.Главен файл на формуляра (описание на формуляра) – UNIT.DFMИзползва се за съхраняване на информация за външния вид на основната форма.Файл с описание на ресурса - PROGECT.RESСъдържа икона за проекта, създадена автоматично.Файл с опции на проекта – PROGECT.OPTТекстов файл за запазване на настройките, свързани с този проект.Модули - *.PASДопълнителни модули. Те съдържат текста на програмата на езика Pascal.

Разработката на приложението се състои от два етапа:

1. Създаване на интерфейса на приложението.

2. Определяне на функционалността на приложението.

За да създадете интерфейс, трябва да определите външния вид на проекта, да изберете необходимите компоненти по функционалност и да ги поставите във формуляра.

За да се гарантира функционалността на приложението, е необходимозадайте стойностите на свойствата и процедурите на обекти на събития в инспектора на обекти, напишете код за обработка на събития.

Трябва да зададете променените параметри на проекта, като използвате командата от менютоПроект/Изграждане на проект. Ако трябва да комбинирате няколко форми в едно начало, изпълнете командатаПроект/Опции.

Компилирането е задължителен процес - процесът на превод на цялата програма с последващо изпълнение. Този процес може да се извърши на всеки етап от разработването на проекта. Компилацията създава:

- готов за изпълнение файл (*exe),

- динамично заредена библиотека (*DLL).

Можете да стартирате проекта от средата на Delphi с командатаИзпълни / Изпълни (Изпълни),от средата на Windows(Име на приложението.exe).

Създаване на приложение за работа с база данни на Access

Работа по нов проект,е името на разработеното приложение в Delphi, започва със създаването на стартова форма.

Създаване на отметки в дизайнера на формуляри.

1. В инспектора на обекти променете параметрите на някои свойства: Align —> alClient, цвят—>clMoneyGreen, надпис—>Детска клиника, шрифт, име—>Формуляр (Фигура 1).

2. Създайте отметки в дизайнера на формуляри, като използвате компонента PageControl в раздела Win32 (Таблица 2) (Win32—>PageControl).

3. Създайте страница в прозореца на дървото на обектите (Контекстно меню—>Нова страница). В инспектора на обекти променете параметрите на името (Caption->Sick) (фиг.2).

Ориз. 2. Създайте отметки в дизайнера на формуляри

4. По подобен начин създайте отметки, чиито имена съответстват на имената на таблиците в схемата на базата данни на MS Access (фиг. 7).

5. Поставете компонент ADOConnection във формуляра (раздел ADO> ADOConnection) и го изпълнетенастройка (Таблица 2; Фиг. 3).

Стойности на свойството на компонента ADOConnection

Свойство	Забележка
PageControl	Комплект панели с отметки. Всеки панел може да съдържа свой собствен набор от интерфейсни елементи и се въвежда чрез щракване върху свързания с него раздел.
Раздел Win32	Съдържа интерфейсни елементи за 32-битови операционни системи Windows 2000.
LoginPromt	Невярно
ConnectionString	Щракнете върху бутона с три точки (разположен в полето за стойност на свойство). Щракнете върху бутона Build.

В раздела Доставчик на данни изберете Microsoft Jet 4.0 OLEDB доставчик.

В раздела Връзка посочете файла с база данни „Детска клиника“.

По избор задайте Разрешения: ReadWtite.

За да активирате асинхронен режим, задайте свойството ConnectOptions на компонента TADOConnection на coAsyncConnect. В този случай новите заявки ще бъдат изпълнени, без да се чака отговор от предишни заявки.

Фиг.3. Задаване на ADOConnection в опциите на инспектора на обекти

6. Поставете компонента ADOTable(ADODB) във формуляра (раздел ADO—>ADOTable ) и го конфигурирайте (Таблица 3; Фиг. 3).

ADOTable(ADODB) Стойности на свойствата на компонента

Свойство	Стойност	Забележка
Връзка	Името на компонента ADOConnection, който осигурява връзка към базата данни	Разгънете списъка в полето за стойност на свойството и изберете името на компонента
име на таблица	Команда, която предоставя информация от конкретна таблица на база данни	разширяване на списъка,разположен в полето за стойност на свойството, и изберете името на желаната таблица
Активен	Вярно
ADO технология	Това е синхронно / асинхронно изпълнение на операции с хранилището на данни. Използвайки свойството Connectoptions, можете да зададете режима на свързване с хранилището на данни
TADODataSet	Общите компоненти за работа с технологията ADO ви позволяват да изпълнявате команди на езика на доставчика на данни.
DataSource обект	Съхранение на данни.

7. Поставете компонента DataSource във формуляра (раздел Data Access —> DataSource) и го конфигурирайте (Таблица 4; Фиг. 3)

Стойности на свойството на компонента DataSource

Свойство	Стойност	Забележка
Връзка	Име на компонент ADODataSet	Разгънете списъка в полето за стойност на свойството и изберете името на компонента
DataSource обект	Съхранение на данни.

8. Поставете компонента DBGrid във формуляра (раздел Data Controls—> DBGrid) и го конфигурирайте (Таблица 5; Фиг. 3)

Стойности на свойството на компонент DBGr >
Свойство Стойност Забележка
източник на данни Източник на данни за име на Bean Разгънете списъка в полето за стойност на свойството и изберете името на компонента
Подравнете alClient
dbgrid Компонентът е предназначен за визуализация на данни, въвеждане и редактиране на данни.
редактиране Входен низ. Проектиран за въвеждане, показване или редактиране на един текстов ред.
бутон команден бутон. Обработчикът на събитие OnClick на този компонент обикновено се използва за изпълнение на някаква команда.

9. По същия начин създайте други колони от таблицата (на проекта „Детска клиника”). Фигура 4 показва резултата от правилно изпълнени действия на задачата.

10. В колона „Регистрирани инфекциозни заболявания” ще извършим справка по датите на прегледа.

За да направите това, добавете компонента ADOQuery(ADODB). Стойностите на този компонент съответстват на стойностите на свойствата на компонента ADOTable(ADODB). В параметрите на инспектора на обекти въведете SQL командата:

ADOQuery1.Add('SELECT DU.DU, DU_Address.DU, DU.Inf_Zab, DU.Data_obs');

ADOQuery1.Add('WHERE ((DU.Data_Obs) BETWEEN (DateValue(''' + Edit1.Text + ''')) AND (DateValue(''' + Edit2.Text + ''')) );');

12. Поставете компонента Button върху формата (фиг. 5).

13. Създайте процедура за обработка на събитието Click, което гарантира изпълнението на SQL командата Процедурата за обработка на събитието Click на бутона „Update Query“ (Button1):

процедура TF.OtClick(Подател: TObject);

ADOQuery1.SQL.Add('SELECT DU.DU, DU.Address_DU, DU.Inf_Zab, DU.Data_obs');

ADOQuery1.SQL.Add('WHERE ((DU.Data_Obs) BETWEEN (DateValue(''' + Edit1.Text +''')) AND (DateValue(''' + Edit2.Text + ''')));');

for i := 0 to ADOQuery1.SQL.Count-1 do Writeln(sqlfile, ADOQuery1.SQL.Strings[i]);

Фиг.5. Прозорец на дизайнера на формуляри. Отметка „Регистрирани инфекциозни заболявания

14. Последният етап. Създаване на изпълним файл - приложението Project1.exe с помощта на процеса на компилация (Project/Compile

). Компилаторът генерира изпълнима програма като конзолно приложение. Пример как работи програмата, т.е. изгледът на прозореца на програмата след изпълнение е показан на фиг.6.

Фиг.6. Изпълним файл - Приложение Project1.exe

Готовият проект - приложение в Delphi е представен в приложението.