значение

Label

Name

Label1

WordWrap

True

RadioButton

Name

RadioButton1

Button

Name

Button1

Caption

Далее

OpenDialog

Name

OpenFile

3. Для формы выбрать событие Create и ввести код для создания массива радиокнопок и объявить необходимые переменные:

For i:=1 to 4 Do

Begin

otv[i] := TRadioButton.Create(RadioButton1) ;

otv [i].Parent := Form1;

otv[i].Left := RadioButton1.Left;

otv[i].Top:= RadioButton1.Top+i*40;

otv [i].Visible :=true;

otv [i].Width := RadioButton1.Width ;

otv [i].Height := RadioButton1.Height ;

otv [i].Color := RadioButton1.Color ;

otv[i].Checked :=false;

otv[i].Font := RadioButton1.font;

end;

RadioButton1.Visible :=false;

4. Добавить на форму меню из двух пунктов Файл / Открыть и Выход

5. Для пункта Открыть ввести код:

If openfile.Execute Then

Begin

assignfile(f1,openfile.FileName);

reset(f1);

readln(f1,s);

form1.Caption :=s; {тема теста}

verno:=0;//кол-во верных ответов

n:=0; //номер текущего вопроса

button1.Enabled :=true;

label1.Caption :='';

for i:=1 to 4 do

begin

otv[i].Caption :='';

otv[i].Checked :=false;

end;

end;

6. Для кнопки Далее ввести код:

if n>0 then {проверим ответ на предыдущий вопрос}

for i:=1 to 4 do

if (otv[i].Checked =true) and (otv[i].tag=1) then verno:=verno+1;

if eof(f1) then {если тест закончен}

begin

showmessage(' кол-во верных ответов='+inttostr(verno));

closefile(f1);

button1.Enabled :=false;

exit;

end;

n:=n+1;

{ччитаем следующий вопрос}

readln(f1,s);

delete(s,1,1);

label1.Caption :=s;

for i:=1 to 4 do {варианты ответов}

begin

readln(f1,s);

otv[i].Checked :=false;

otv[i].Tag:=0;

if s[1]='+' then otv[i].Tag:=1;{запомним верный ответ}

delete(s,1,1);

otv[i].Caption :=s;

end;;

7. Проверить работу приложения.

8. Модернизировать приложение: вывод каждого вопроса должен сопровождаться отображением картинки, имя графического файла для каждого вопроса записать в строке, следующей за вопросом.

9. Результат показать преподавателю.

ПРАКТИЧЕСКАЯ РАБОТА № 15

Тема Разработка приложения для базы данных

Цель работы: Получить навыки создания приложения для базы данных.

Пояснения к работе

Для работы с базами в Delphi есть несколько наборов компонент, каждый из них подходит для решения определенного круга задач и использует разные технологии доступа к данным, отличаются по возможностям.

Краткий обзор средств доступа к базам данных

ВкладкаData Access	Содержит основные компоненты доступа к данным, они общие для всех и могут использоваться совместно с другими группами компонентов
Вкладка Data Controls	Содержит компоненты для отображения и редактирования данных в таблицах, они используются вне зависимости от используемой технологии доступа к данным.
Вкладка BDE	Содержит компоненты, позволяющие получать доступ к базам данных по технологии BDE (Borland Database Engine, разработана фирмой Borland). Эта технология хорошо работает с устаревшими типами баз данных: Paradox, dBase, FoxPro, в настоящее время фирма Borland ее не поддерживает.
Вкладка DBEXpress	Содержит компоненты, поддерживающие технологию DBEXpress, которая хорошо подходит для программирования клиент-серверных приложений, использующих базы данных Oracle, DB2, MySQL
Вкладка ADO	Содержит компоненты, поддерживающие технологию ADO (Active Data Objects),разработанную Microsoft. Их желательно использовать при работе с базами данныхMS Access и MS SQL Server.

Компоненты вкладки BDE

Table	Обеспечивает доступ к таблицам БД, создает набор данных, который передает все данные из физической таблицы БД с помощью BDE
Query	Предназначен для формирования набора данных их физической таблицы в соответствии с определенным запросом на языке SQL
StopedProc	Делает доступными процедуры, хранимые на сервере
Database	Устанавливает связь с БД
BatchMove	Для групповых операций переноса данных из одного набора в другой
Session	Текущий сеанс работы с БД, для общего управления связью приложения с БД . Генерируется автоматически

Компоненты вкладки Data Access

DataSource	Источник данных, предназначен для связи компонентов типа Table и Query с компонентами отображения данных. Этот компонент исполняет роль посредника между элементами интерфейса приложения и наборами данных.
Остальные компоненты служат для связи с XML-документами, кеширования и работы с пакетами

Компоненты вкладки Data Controls

DBGrid	Сетка - для вывода таблицы с данными БД
DBNavigator	Навигатор - для управления работой БД
DBText	Надпись - для вывода строкового значения из поля таблицы БД
DBEDIT	Однострочный редактор - для вывода и редактирования строкового значения поля
DBMemo	Многострочный редактор - для вывода значения поля типа Memo
DBImage	Для вывода значения графического образа
DBListBox	Простой список - для вывода списка строковых значений поля
DBComboBox	Комбинированный список - для вывода списка строковых значений поля
DBCheckBox	Независимый переключатель - для вывода значения поля типа CheckBox
DBRadioGroup	Группа зависимых переключателей
DBLookupListBox	Простой список, формируемый по полю набора данных
DBRichEdit	Полнофункциональный текстовый редактор
DBCtrlGrid	Модифицированная сетка
DBChart	Диаграмма - для вывода графиков по данным БД

Компоненты ADO

ADOConnection	Для управления соединением с базой данных и передачи запросов поставщику данных
ADOCommand	Для управления информацией о запросе к базе или команде
ADORecordset	Содержит таблицу, которая является результатом запроса к базе данных
ADOField	Содержит описание поля в таблице, возращенной поставщиком данных.

Модуль данных (data modul) - это объект класса TDataModule, который, как и обычная форма, предназначен для размещения компонентов. Отличие состоит в том, что в них размещаются невизуальные компоненты. Это удобно для централизованного хранения в проекте компонентов Table и др. компонентов, используемых для организации доступа к базам данных.

Постановка задачи

В СУБД Access создана база данных «Телефонный справочник» (файл db_Telefon.mdb). База данных содержит одну таблицу, структура таблицы представлена на рисунке.

Используя технологию ADO, разработать приложение, которое будет работать с этой базой.

Порядок выполнения

1 часть

1. Создать новый проект, с вкладки dbGo поместить на форму компонент TADOConnection;

2. Настроить соединение с сервером:

· Дважды щелкнуть по компоненту ADOConnection

· В окне выбрать переключатель Use Connection String и щелкнуть Build (вызов мастера)

· На вкладке Поставщик данных выбрать драйвер доступа к данным Microsoft Jet 4.0OLE DB Provider и нажать Далее;

· На вкладке Подключение в строке Выберите или введите имя базы данных введите имя db_Telefon.mdb

Примечание : если база и исполняемый файл будут хранится в одной папке, путь указывать необязательно

· Щелкнуть по кнопке Проверить подключение. Если все указано верно, то выводится сообщение. Нажмите ОК.

· Закройте окно создания строки подключения Ок, закрыть редактор строки подключения ОК.

3. Продолжить настройку приложения:

· Для компонента ADOConnection отключить свойство LoginPromt - false(для того, чтобы при обращении к базе не запрашивался пароль)

· Для свойства Connected задать значение True, чтобы произошло соединение с базой

4. Для получения доступа к таблице базы:

· Установить на форме компонент ADOTable, изменить имя на BookTable

· Для свойства Connection из списка выбрать ADOConnection1

· В свойстве TableName выбрать имя таблицы

· Для свойства Active установить значение True

5. Для отображения данных из таблицы :

· Установить на форму компонент DataSource (вкладка Data Access),для свойства DataSet выбрать BookTable (указали какую таблицу отображать)

· Установит компонент DBGrid (вкладка Data Controls), для свойства DataSource Выбрать DataSource1.

6. Приложение готово. Запустите его, добавьте новые строки, отредактируйте существующие строки, удалите что-нибудь (Ctrl/Del). Для вставки строки используйте Ins.

Управление отображением данных

2 часть

7. Модифицировать таблицу в базе данных, добавив еще два поля Дата и Мобильник (файл взять у преподавателя).

8. Перенести компоненты доступа к базе в специальное окно:

· Выделить компоненты ADOConnection1, DataSource1 и BookTable и вырезать в буфер обмена (Edit /Cut)

· Выбрать в меню File/New/Other, выбрать категорию Delphi Files, выбрать Data Module, выполнить Edit/Paste

· Сохранить новый модуль под именем DataModuleUnit

9. Отобразить на экране менеджер проектов New / Project Manager

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

· Выбрать в меню File / Use Unit, выбрать в окне DataModuleUnit, Ок.

· Проверьте теперь в редакторе кода после слова Implementation появилась запись uses DataModuleUnit

· Для компонента DBGrid1 изменить свойство DataSource, выбрав DataSource1.

11. Перейти в модуль DataModuleUnit и настроить отображение данных:

· Дважды щелкнуть по BookTable, отобразиться окно для редактирования полей базы, пока оно пустое

· Щелкните в окне правой кнопкой мыши и выберите Add All Field

· Выделить поле Key1 и убрать у него видимость, перейдите на главную форму, убедитесь, что поле не отображается

· Отредактировать ширину колонок: выделить поле Фамилия, свойству DisplayWidth дать значение 15, сократите ширину для поля Имя.

· Выделите поле Дата, для свойства DisplayLabel укажите значение Дата рождения (имя поля не меняется, только подпись), для свойства DisplayFormat указать dddddd, для свойства EditMask указать маску ввода 99/99/99.

· Выделите поле Мобильник, для свойства DisplayValues указать значение Да;Нет

12. Просмотрите, как изменилось отображение данных.

Поисковые поля

3 часть

13. В поле Город отображается числовое значение (номер города), а пользователю нужно показывать название города. Создадим отдельную таблицу Справочник городов в нашей базе, включив в нее поля: Key1 (счетчик, ключевое поле) и Название города (текстовое поле размер 30). Базу данных взять у преподавателя.

14. В модуль DataModuleUnit добавитькомпонент DataSource (назвать TownSource) и ADOTable (назвать TownTable), у компонента TownSource в свойстве DataSet указать TownTable.

15. Настроить отображение справочника городов:

· В свойстве Connection указать компонент ADOConnection1

· В свойстве TableName указать таблицу Справочник городов

· Для свойства Active значение True

· Дважды щелкнуть по TownTable, добавить все поля, поле Key1 сделать невидимым.

16. Создать новую форму (name - TownBookForm )для редактирования справочника, сохранить ее в модуле под именем TownBookUntil

17. Подключить к новой форме модуль DataModuleUnit, выполнив File / Use Unit, выбрать DataModuleUnit, Ок

18. Добавить на форму сетку DBGrid, в свойстве DataSource указать таблицу Справочник городов - DataModule1.TownSource.

19. Доработать интерфейс формы Справочник городов:

· Добавить меню

Редактирование Назад

сохранить

добавить

удалить

· Для пункта Добавить ввести код

DataModule1.TownTable.Insert;

dbGrid1.SetFocus;

· Для пункта Сохранить ввести код

If DataModule1.TownTable.Modified Then

DataModule1.TownTable.Post;

· Для пункта Удалить ввести код

DataModule1.TownTable.Delete

20. Перейти на главную форму, создать меню:

Файл Редактирование Справочники Выход

Справочник городов

21. Для пункта Справочник городов ввести код:

TownBookForm.ShowModal;

22. Загрузить программу, вызвать Справочник городов и добавить несколько строк. Закрыть программу.

23. Для компонента DBGrid1 на главной форме для свойства Options / dgEditing установить значение False (редактирование данных запрещено).

24. В пункт меню Редактирование добавить подпункты: Добавить запись, Редактировать запись, Удалить запись

25. Создать панель с кнопками для быстрого доступа к пунктам меню

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

27.

Name - EditFormUnit,

BorderStyle - bsSingle,

Position - poMainFormCenter

форму сохранить по именем EditFormUnit.

28. Подключить к новой форме модуль с данными

29. Привести форму в соответствие с образцом:

· Поля для ввода брать на вкладке Data Control.

· Чтобы компонент видел данные из нужного поля, указать у него в свойстве DataSource нужную таблицу (DataModule1.DataSource1, также как это делали с сеткой редактирования), в свойстве DataField указать поле, которое надо редактировать (самостоятельно).

· Для выбора города добавить компонент DBLookupComboBox, для свойства DataSource указать основную таблицу DataModule1.DataSource1, в свойстве DataField указать поле Город, в свойстве ListSource указать DataModule1.TownSource, свойстве ListField указать Название города, в свойстве KeyField указать поле Key1.

30. Для кнопки Сохранить ввести код:

If DataModule1.BookTable.Modified Then

DataModule1.BookTable.Post;

31. Для кнопки Отмена ввести код:

DataModule1.BookTable.Cancel

32. Перейти на главную форму и для пункта меню Добавить запись ввести код:

DataModule1.BookTable.Insert;

EditRecordForm.ShowModal;

33. Для пункта меню Редактировать запись ввести код:

EditRecordForm.ShowModal;

34. Загрузить программу, создать новую запись, в поле Город выбрав какое-нибудь значение из справочника, нажмите Сохранить. Просмотрите сетку.

35. Результат показать преподавателю

36. Для пункта меню Удалить запись ввести код:

If Application.MessageBox(PChar(`Вы действительно хотите удалить'+DataModule1.BookTableDSDesigner.AsString), `Внимание!!!', MB_OkCancel)=id_Ok then DataModule1.BookTable.Delete;

Примечание:

DataModule1 имя модуля

BookTableDSDesigner имя поля с фамилией (дважды щелкнуть по BookTable и смотреть свойство поля Фамилия, если имя отличается, скорректировать код)

AsString метод, возвращающий значение в виде строки

37. В сетке на главной форме город отображается в виде индекса строки в справочнике городов, исправим недостаток, для этого:

· Перейти в модуль DataModule1, выделить компонент

· Сделать его неактивным (Active False)и дважды по нему щелкнуть

· Создать новое поле: щелкнуть в окне, выбрать New Field

· В окне заполнить поля следующим образом:

Name - Town, Type - String,

FieldType - Lookup (поисковое поле),

KeyField - Город,

DataSet - TownTable (таблица, где нужно искать)

Lookup Keys - Key1 (по этому полю надо искать),

Result Field - Название города, нажать Ок

· Появилось новое поле, перетащить его ближе к полю Город

· Сделать таблицу BookTable вновь активной загрузить программу, просмотреть результат.

38. Сделать поле Город невидимым, чтобы не видеть числа, а над полем Town написать надпись Город (самостоятельно)

Сортировка и фильтрация данных

4 часть

Поиск данных и сортировка выполняются по индексным полям. В телефонном справочнике чаще ищут информацию по номеру телефона или фамилии. В таблице Справочник для полей Фамилия и Телефон свойство Индексированное поле имеет значение Да(допускаются совпадения).

39. Добавить в меню пункт Сортировка и подпункты

По телефону, по Фамилии

40. для подпунктов ввести соответствующий код:

DataModule1.BookTable.IndexFieldMNames:='Фамилия';

DataModule1.BookTable.IndexFieldMNames:='Телефон';

41. Реализовать функцию поиска данных, для этого:

· добавить на форму панель, на нее метку Найти и TEdit с именем FindEdit

· ввести следующий код:

procedure TForm1.FindEditChange(Sender:TObject);

begin

if Length(FindEdit.Text)>0 then

DataModule1.BookTable.Filtered:=true

Else DataModule1.BookTable.Filtered:=false;

DataModule1.BookTable.Filter:='Фамилия>'''+FindEdit.Text+'''';

end;

42. Проверить работу программы.

Фильтры в ADO работают плохо, но в Delphi можно расширить возможности фильтрации.

43. Перейти в модуль DataModule1, для компонента BookTable выбрать событие OnFilterRecord и ввести код:

Accept:=false;

if copy(BookTableDSDesigner.AsString,1,Length(Form1.FindEdit.Text))=Form1.FINDedit.Text then

Accept:=true; {строка соответствует фильтру, ее можно отображать}

end;

44. Проверить работу программы.

ПРИЛОЖЕНИЕ 1

Образец оформления титульного листа отчета

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ

Федеральное государственное автономное образовательное учреждение высшего профессионального образования

«Национальный исследовательский ядерный университет «МИФИ»

Волгодонский инженерно-технический институт -

филиал федерального государственного автономного образовательного учреждения высшего профессионального образования «Национальный исследовательский ядерный университет «МИФИ»

(ВИТИ НИЯУ МИФИ)

Специальность «Прикладная информатика (по отраслям)»

Технология разработки программного продукта

ОТЧЕТ

по практической работе № ___

Тема работы

«________»

Самостоятельное задание №__

Выполнил студент гр.ПрИн-6.11 Петров И.В

Проверил преподаватель Янковская И.А.

ПРИЛОЖЕНИЕ 2

Процедуры и функции Delphi

(краткое изложение)

Математические

	Назначение	Пример использования
ABS	Возвращает абсолютное значение	Y:=ABS(X);
ROUND	Округление к ближайшему целому	Y:=ROUND(X)
TRUNC	Округление в меньшую сторону	Y:=TRUNC(X)
INT	Возвращает целую часть вещественного числа	Y:=INT(X)
FRAC	Возвращает дробную часть числа	Y:=FRAC(X)
SQR	Возвращает квадрат указанного значения	Y:=SQR(X)
SQRT	Возвращает квадратный корень	Y:=SQRT(X)
RANDOM	Возвращает случайное число из области, ограниченной заданным значением	Y:=RANDOM(100)
RANDOMIZE	Позволяет задать случайное начальное значение для функции RANDOM	RANDOMIZE
TAN	Возвращает тангенс указанного числа	Y:=TAN(X)

Для работы с датами и временем

	Назначение	Пример использования
CurrentYear	Возвращает текущий год	Label2.Caption := IntToStr(CurrentYear)
Date	Возвращает текущую дату	Label2.Caption:= DateToStr(Date)
DayOfWeek	Возвращает число от 1 до 7,которое определяет день недели	If DayOfWeek(Date)=1 then Label2.Caption :='воскресенье';
DecodeDate	Преобразует дату в раздельные составляющие: год, месяц, день	DecodeDate(Date,Year,Moth,Day);
Time	Возвращает текущее время в формате TDateTime	Label2.Caption :=TimeToStr(Time);
DecodeTime	Преобразует время в раздельные составляющие: час, минуту, секунду, миллисекунду	DecodeTime(Time,H,M,Sec,MSec);
IncMonth	Возвращает дату, отстоящую от заданной даты на указанное число месяцев	s:=IncMonth(Date,4);

Диалоговые

	Назначение	Пример использования
ShowMessage	Позволяет отобразить информационное окно с предустановленной кнопкой Ok
ShowMessage(`Error ')
InputBox	Позволяет создавать окно диалога для ввода пользовательской информации
S:=InputBox('Вход в систему','Ваш пароль','777');
MessageDlg	Позволяет отобразить информационное окно с набором кнопок
If MessageDlg('Вы уверены? ',mtConfirmation,[mbYes,mbNo],0) = mrYes Then Exit;

Преобразование типов

	Назначение	Пример использования
VAL	Преобразование строки в целое или вещественное число	VAL(STROKA,Y,CODE)
STR	Преобразование целого или вещественного числа в строку	STR(Y,STROKA)
DateToStr	Преобразование даты в строку	Label2.Caption:= DateToStrDate(Date)
StrToDate	Преобразование строки в дату	S:=StrToDate(Edit1.text);
TimeToStr	Преобразование строки во время	Label2.Caption :=TimeToStr(Time);

Для работы с символами и строками

	Назначение	Пример использования
CHR	Возвращает символ по указанному коду ASCII	S:=CHR(X)
INSERT	Позволяет вставить одну строку в другую, начиная с заданного символа	Insert(context,stroka,3)
COPY	Возвращает заданную часть строки	S:=COPY(stroka,1,5)
LENGTH	Возвращает число символов строки	K:= LENGTH(stroka)
POS	Возвращает позицию вхождения указанной последовательности символов в заданную строку	K:=POS(context,stroke)
UpperCase	Возвращает строку, все строчные латинские буквы в которой преобразованы к прописным.	S2:= UpperCase(S1)
LowerCase	Возвращает строку, все прописные латинские буквы в которой преобразованы к строчным.	S2:= LowerCase(S1)
DELETE	Позволяет получить строку, из которой удалена заданная часть	DELETE(stroka,2,4)
TRIM	Возвращает строку, в которой удалены пробелы с обеих сторон	S2:=TRIM(s1)

ПРИЛОЖЕНИЕ 3

Именованные константы в Delphi

Именованные константы тип TColor

Константа	Цвет	Константа	Цвет
clBlack	Черный	clSilver	Серебристый
clMaroon	Каштановый	clRed	Красный
clGreen	Зеленый	clLime	Салатный
clOlive	Оливковый	clBlue	Синий
clNavy	Темно-синий	clFuchsia	Ярко-розовый
clPurple	Розовый	clAqua	Бирюзовый
clTeal	Зелено-голубой	clWhite	Белый
clGray	Серый

Именованные константы, определяющие стиль линии

Константа	Вид линии
psSolid	Сплошная линия
psDash	Пунктирная линия, длинные штрихи
psDot	Пунктирная линия, короткие штрихи
psDashDot	Пунктирная линия, чередование длинного и короткого штрихов
psDashDotDot	Пунктирная линия, чередование одного длинного и двух коротких штрихов
psClear	Линия не отображается (используется, если не надо изображать границу области, например, прямоугольника)

Именованные константы, определяющие стиль заполнения замкнутого контура

Константа	Тип заполнения (заливки) области
bsSolid	Сплошная заливка
bsClear	Область не закрашивается
bsHorizontal	Горизонтальная штриховка
bsVertical	Вертикальная штриховка
bsFDiagonal	Диагональная штриховка с наклоном линий вперед
bsBDiagonal	Диагональная штриховка с наклоном линий назад
bsCross	Горизонтально-вертикальная штриховка, в клетку
bsDiagCross	Диагональная штриховка, в клетку

Размещено на Allbest.ru

...