3. Создание таблицы.

Используя утилиту Database Desktop, создать файл данных (таблицу). Для этого выполните следующую цепочку действий: Пуск – Программы – Borland Delphi 7 – Database Desktop.

В появившемся окне Database Desktop выполните следующие команды: File – New – Table.

В появившемся окне Create Table выберите тип таблицы Paradox7 и нажмите на кнопке ОК. Появится окно Create Paradox 7 Table.

Рисунок 28.9

Введите следующие данные:

Рисунок 28.10

Нажмите на кнопке Save As… Сохраните таблицу в своей папке (Data) под именем rasteniya.

В окне Database Desktop выполните следующие команды: File – Open – Table. Откройте свою таблицу и заполните данными.

Рисунок 28.11

Для ввода данных нажмите на кнопке Edit Data, расположенной на панели инструментов окна Database Desktop. После заполнения таблицы данными закройте окно Table (подтвердите сохранение) и окно Database Desktop.

Создание базы данных Энциклопедия лекарственных растений (продолжение)

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

Создать программу работы с локальной базой данных «Энциклопедия лекарственных растений»

Пояснения: Новыми в этой работе являются использование компонент Table, DataSource, DBEdit, DBMemo, DBNavigator.

2. План разработки программы

1. Открыть новый проект. Дать форме название Лекарственные растения.

2. Разместить в форме компоненты в соответствии с рисунком 29.5.

Рисунок 29.5

3. Сохранить проект в отдельной папке под именем, например, Pr10.pas и Project10.dpr

4. Запустить программу.

5. В окне редактора кода в разделе uses включить слово jpeg. В разделе Var запишите:

ShowFoto:string;

BmpPath:string;

6. Выполните следующие действия:

Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
Label1	Параметры (Properties)	Caption	Лекарственное растение
		Autosize	False
		WordWrap	True
Label2	Параметры (Properties)	Caption	Латинское название растения
		Autosize	False
		WordWrap	True
Label3	Параметры (Properties)	Caption	Лечебные свойства
		Autosize	False
		WordWrap	True
Label4	Параметры (Properties)	Caption	Фото
		Autosize	False
		WordWrap	True
Table1	Параметры (Properties)	DatabaseName	lrasteniya
		TableName	rasteniya.db
		Active	True
	События (Events)	AfterScroll	If Form1.DBEdit3.Visible then Begin Form1.DBEdit3.Visible:=False; Form1.Label4.Visible:=False; end; If Form1.DBEdit3.Text<>'' Then ShowPhoto(Form1.DBEdit3.Text) Else Form1.Image1.Visible:=False;
		BeforeOpen	BmpPath:=ExtractFilePath(ParamStr(0))+'\';
DataSourcel	Параметры (Properties)	DataSet	Table1
DBEdit1	Параметры (Properties)	DataSource	DataSource1
		DataField	Лекарственное растение
DBEdit2	Параметры (Properties)	DataSource	DataSource1
		DataField	Латинское название
DBEdit3	Параметры (Properties)	DataSource	DataSource1
		DataField	Фото
	События (Events)	OnKeyPress	if (key=#13) then if Form1.DBEdit3.Text<>' ' then ShowPhoto(Form1.DBEdit3.Text) else Form1.Image1.Visible:=False;
DBMemo1	Параметры (Properties)	DataSource	DataSource1
		DataField	Лечебные свойства
DBNavigator1	Параметры (Properties)	VisibieButtons.nbDelete	False
		DataSource	DataSource1
	События (Events)	OnClick	case Button of nbinsert: begin Image1.Visible:=False;// скрыть область вывода иллюстрации DBEdit3.Visible:=True; // показать поле Фото Label4.Visible:=True; // показать метку Фото end; nbEdit: begin // редактирование записи DBEdit3.Visible:=True; // показать поле Фото Label4.Visible:=True; // показать метку Фото end; end;
Form1	События (Events)	OnCreate	Table1.Active:=True;
Image1	Параметры (Properties)	Stretch	True

Также включите в программу процедуру ShowFoto:

// выводит фотографию в поле Image1

procedure ShowPhoto(photo: string);

begin

try

Form1.Image1.Picture.LoadFromFile(BmpPath+photo);

Form1.Image1.Visible:=True;

except

on EFOpenError do

begin

MessageDlg('Файл иллюстрации '+photo+' не найден.',

mtinformation, [mbOk], 0) ;

end;

end;

end;

7. Измените интерфейс программы.

8. Сохраните проект окончательно и протестируйте его.

Методы контроля формируемых на СРС компетенций:

• Способность выполнить индивидуальное задание (студент должен выполнить индивидуаль­ное задание по получению определенных навыков, решению типовых задач);

Форма выполнения: выполнение заданий

Критерии выполнения: подготовить задания и защитить.

Сроки сдачи: студент должен своевременно выполнять и сдавать работы строго по календарному графику.

Критерии оценки: выполнение самостоятельной работы на составление задач оценивается в баллах по объему выполненного задания.

Литература:

1. С. И. Бобровский. Учебный курс Delphi7. Питер, 2006г.

2. Г.Г. Рапаков, С.Ю. Ржеуцкая. Программирование на языке Паскаль. Санкт-Петербург, 2005 г.

3. Н.Культин. Учебный курс Delphi Санкт-Петербург, 2005 г.

4. Н.Культин. Delphi в задачах и примерах. Санкт-Петербург, 2005 г.

5. Е.Р. Алексеев, О.В. Чесноков. Шаг за шагом. Москва, 2005 г.

Контроль

Вопросы:

1. Что такое данные?

2. Что такое база данных?

3. Что такое запись и таблица?

4. Дайте понятие СУБД.

5. Какие функции выполняет СУБД?

6. Какие два набора драйвером имеется в системе BDE?

7. Что представляет стандартный протокол ODBC?

8. Что такое структура и данные в базе данных?

9. Назначение утилиты DataBase DeskTop?

10. Как создать таблицу с помощью DataBase DeskTop?

11. Источник данных TDataSource, его назначение.

12. Таблица в СУБД (Table) и его свойства.

13. Компонент для отображения данных DBGrid.

14. Компонент навигатор (DBNavigator) .

15. Как создать приложение для работы с базой данных в BDE?

16. Создание фильтра по условию (компонент Table и его свойства Filter, Filtered).

17. Создание фильтра – диапазона.

Тесты: См. Сборник тестовых заданий по «Информатике», тема « Основы программирование языка Delphi»

- Общая оценка знаний

Преподаватель анализирует компетенций: знаний, практические навыки по данной теме, проводит разбор общих ошибок допущенных студентами при выполнении заданий. Затем преподаватель анализирует достижения и недостатки студента с выставлением итоговой оценки в журнал по двум параметрам (за знания и практические навыки).

Страница 171 из 171