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. Создание фильтра – диапазона.

Специальность: Общая медицина, Стоматология

Кафедра: Медбиофизики, информатики и математической физики