Лабораторная работа №7 Работа с одной таблицей. Создание подключения к базе данных

Цель работы:

- научиться разрабатывать приложения с одной таблицей базы данных, устанавливать связи между компонентами;

- изучить методы Open и Close компонента TADOTable.

Ход работы

Задание 1. Разработка приложения на основе собственной таблицы базы данных

1. Создайте в своей папке с названием «РиЭУБД» папку с названием «ЛР_11», а в ней папку 7.1.

2. Запустите утилиту Database Desktop.

3. Выберите команду File → New → Table.

4. В списке типов форматов таблиц выберите тип формата dBase for Windows или dBaseIV.

5. Создайте таблицу следующего вида:

6. Щелкните по кнопке Save As… и укажите место сохранения таблицы (например, свою папку на диске Student).

7. Сохраните таблицу в выбранном месте под именем Books.dbf

8. Выйдите из утилиты Database Desktop.

9. Запустите среду Delphi 7.

10. Присвойте свойству Caption формы название «Работа с одной таблицей. Создание подключения к собственной базе данных».

11. Установите в свойстве BorderIcons значение False для свойств biMinimize и biMaximize.

12. Установите свойство формы BorderStyle как bsSingle

13. П оместите на форму следующие компоненты:

• TADOConnection (вкладка ADO);

• TADOTable (вкладка ADO);

• TDataSource (вкладка Data Access);

• TDBGrid (вкладка Data Controls);

• TDBNavigator (вкладка Data Controls).

П римерный вид приложения приведен на Рис.7.2.

14. Выберите у компонента ADOConnection1 свойство ConnectionString и щелкните на многоточие в строке свойства. Откроется окно, как на Рис.7.3.

15. В ыберите строку Use Connection String, а затем нажмите кнопку Build (Построить).

16. В открывшемся окне (Рис.7.4) оставляем значение Misrosoft OLE DB Provider for ODBC Drivers и нажимаем «Далее».

17. В окне «Подключение» в пункте «Источник данных» в строке «Использовать имя источника данных» (Рис.7.5) укажите значение «Файлы dBase».

18. Выберите пункт «Использовать строку подключения» и нажмите кнопку «Сборка».

19. В открывшемся окне на вкладке «Файловый источник данных» в строке «Папка» укажите папку с таблицей базы данных.

20. Перейдите на вкладку «Источник данных компьютера» и укажите тип данных «Файлы dBase».

21. Нажмите ОК.

22. В открывшемся окне (Рис.7.6) выделите папку с лабораторной работой в правом окне. В левом окне отображается таблица базы данных (по умолчанию она недоступна, т.к. мы указываем не источник данных, а лишь его местоположение).

23. Установите флажок «Пустой пароль» в пункте «Для входа на сервер использовать» (Рис.7.7).

24. У становите начальный каталог из списка в пункте «Установите начальный каталог» (Рис.7.8).

25. Нажмите на кнопку «Проверить подключение». Будет осуществлена проверка подключения к базе данных. О результатах проверки выйдет диалоговое сообщение.

26. Нажмите ОК и закройте все диалоговые окна свойства Connection String, нажимая на ОК.

27. Установите остальные свойства расположенных компонентов согласно Таблице 7.1.

Таблица 7.1. Свойства компонентов приложения«Работа с одной таблицей. Создание подключения к собственной базе данных».

Компонент	Свойство	Значение
ADOConnection1	LoginPrompt	False
ADOTable1	Connection	ADOConnection1
	TableName	Books
	Active	False
DataSource	DataSet	ADOTable1
DBGrid1	DataSource	DataSource1
DBNavigator	Align	alTop
	DataSource	DataSource1

28. Выберите с помощью дерева объектов объект Form1.

29. В Инспекторе Объектов активизируйте вкладку Events и запишите обработчик события OnCreate (событие, которое происходит при создании формы в приложении):

procedure TForm1.FormCreate(Sender:TObject);

begin

ADOTable1.Open;

end;

30. Запишите обработчик события OnDestroy (событие, которое происходит при разрушении формы в момент закрытия приложения) для формы:

procedure TForm1.FormDestroy(Sender:TObject);

b egin

ADOTable1.Close;

end;

31. Сохраните проект в своей папке.

32. Запустите проект на выполнение.

Примечание. При запуске приложения во время проектирования отладчик может выдать сообщение об ошибке (Рис.7.9).

Если же запустить скомпилированный exe-файл, то ошибка исчезает.

33. Выйдите из среды Delphi 7, и, запустив exe-файл, проверьте работоспособность приложения.

34. Для русификации заголовков таблицы измените обработчик события OnCreate следующим образом:

procedure TForm1.FormCreate(Sender: TObject);

begin

ADOTable1.Open;

DBGrid1.Columns[0].Title.caption:='Издательство';

DBGrid1.Columns[1].Title.caption:='Книга';

DBGrid1.Columns[2].Title.caption:='Автор';

DBGrid1.Columns[3].Title.caption:='Тираж';

DBGrid1.Columns[4].Title.caption:='Обложка';

DBGrid1.Columns[5].Title.caption:='Магазин';

DBGrid1.Columns[6].Title.caption:='Цена';

end;

35. Для возможности внесения русифицированных данных (т.е. данные, внесенные на русском языке, должны сохраняться в базе данных) необходимо задать языковой драйвер для таблицы базы данных в утилите Database Desktop. Для этого:

- запустите утилиту Database → Desktop;

- выполните команду File → Open → Table и откройте созданную вами таблицу;

- выберите команду Table → Restructure;

- в открывшемся окне в колонке справа выберите пункт Table Language (Рис.7.10);

- нажмите на кнопку Modify и для русского языка выберите значение dBASE RUS cpp866.

36. Вид работающего приложения приведен на Рис.7.11.

Задание 2. Разработка приложения на основе заимствованной таблицы базы данных

1. Создайте в папке «ЛР_7» папку 7.2.

2. Запустите среду Delphi 7.

3. Присвойте свойству Caption формы название «Работа с одной таблицей. Создание подключения к заимствованной базе».

4. Установите в свойстве BorderIcons значение False для свойств biMinimize и biMaximize.

5. Установите свойство формы BorderStyle как bsSingle

6. Поместите на форму следующие компоненты:

7. TADOConnection (вкладка ADO);

8. TADOTable (вкладка ADO);

9. TDataSource (вкладка Data Access);

10. TDBGrid (вкладка Data Controls);

11. TDBNavigator (вкладка Data Controls).

П римерный вид приложения приведен на Рис.7.12.

12. В ыберите у компонента ADOConnection1 свойство ConnectionString и щелкните на многоточие в строке свойства.

13. В открывшемся окне выберите строку Use Connection String, а затем нажмите кнопку Build (Построить).

14. В открывшемся окне (Рис.7.13) выбираем значение Misrosoft Jet 4.0 OLE DB Provider и нажимаем «Далее».

15. В следующем окне выберите путь к демонстрационной базе данных пакета Microsoft Office «Борей.mdb» (C:\Program Files\Microsoft Office\Office11\ Samples\ Борей.mdb) (Рис.7.14).

16. Нажимаем OK и выходим из окна задания свойства компонента ADOConnection1.

17. Установите остальные свойства расположенных компонентов согласно Таблице 7.2.

Таблица 7.2. Свойства компонентов приложения «Работа с одной таблицей. Создание подключения к заимствованной базе»

Компонент	Свойство	Значение
ADOConnection1	LoginPrompt	False
ADOTable1	Connection	ADOConnection1
	TableName	Сотрудники
	Active	False
DataSource	DataSet	ADOTable1
DBGrid1	DataSource	DataSource1
DBNavigator	Align	alTop
	DataSource	DataSource1

18. Выберите с помощью дерева объектов объект Form1.

19. В Инспекторе Объектов активизируйте вкладку Events и запишите обработчик события OnCreate (событие, которое происходит при создании формы в приложении):

procedure TForm1.FormCreate(Sender:TObject);

begin

ADOTable1.Open;

end;

20. Запишите обработчик события OnDestroy (событие, которое происходит при разрушении формы в момент закрытия приложения) для формы:

procedure TForm1.FormDestroy(Sender:TObject);

b egin

ADOTable1.Close;

end;

21. Сохраните проект в своей папке.

22. Запустите проект на выполнение. Вид работающего приложения на Рис.11.15.

Задание 3. Заполните базу Books.dbf в соответствии с данными, приведенными в Таблице 12.3.

Таблица 12. Данные таблицы базы данных «Книги»

Издательство	Книга	Автор	Тираж	Обложка	Магазин	Цена
Марко	Сто лет одиночества	Маркес Г.	10000	Твердая	10 книг	562
Марко	Шестерки умирают первыми	Маринина А.В.	100	Мягкая	Барвинок	45
Витязь	Красивым жить не запретишь	Куликова Г.А.	1000	Твердая	Мир книги	121
ФОРУМ	Занимательное в физике	Рубинштейн Л.Г.	4000	Мягкая	Физический мир	160
ЭКСМО	Паскаль и Дэлфи	Попов В.Б.	10000	Твердая	Техкнига	301
БХВ-Петербург	Turbo Pascal: освой на примере	Потопахин В.В.	20000	Мягкая	Мир книги	130
ЭКСМО	HTML: просто как 2*2	Рева О.Н.	15000	Мягкая	Мир книги	60
ЭКСМО	JavaScript: просто как 2*2	Рева О.Н.	15000	Мягкая	Мир книги	75
Питер	Photoshop: для тех, кто знает	Романиэлло С.В.	100	Мягкая	10 книг	572
ИНФРА-М	Информационная безопасность	Попов И.И., Партыка Т.Л.	2000	Твердая	10 книг	300
БХВ-Петербург	Visual Basic в примерах	Сафронов И.К.	100	Мягкая	Мир книги	80
ЭКСМО	Алгоритмы: просто как 2*2	Красиков И.В.	30	Мягкая	Барвинок	60
Феникс	Алгоритмизация	Микрюков В.Ю.	500	Твердая	Мир книги	180
Питер	Три мушкетера	Дюма А.	1000	Твердая	Мир книги	450
Витязь	Королева Марго	Дюма А.	1000	Твердая	Мир книги	450
ИНФРА-М	Основы компьютерных сетей	Виснадул Б.Д.	500	Твердая	Барвинок	275
Витязь	Технология разработки ПО	Виснадул Б.Д., Гагарина Л.Г.	240	Твердая	Физический мир	370
Питер	Delphi 7. Учебный курс	Бобровский С.И.	50	Мягкая	Физический мир	500
Марко	Убийца поневоле	Маринина А.В.	1000	Твердая	Барвинок	130