Методическая разработка по дисциплине Прикладное программирование комплекс лабораторных работ по разделу «Разработка приложения баз данных в среде программирования Delphi» (стр. 5 )

3) Для объекта Table1:

-  свойству Name присвоим значениеTableTovari;

-  свойству DataBaseName присвоим имя псевдонима БД;

-  свойству TableName присвоим имя таблицы - Tovari. DB;

-  свойству Active присвоим значение true.

-  в свойстве TableType – формат таблицы ttParadox.

4) Для объекта Table2:

-  свойству Name присвоим значение TableSendtovari;

-  свойству DataBaseName присвоим имя псевдонима БД;

-  свойству TableName присвоим имя таблицы - Sendtovari. DB;

-  свойству Active присвоим значение true;

-  Чтобы содержимое подчиненного набора соответствовало выбору записи в главном наборе подчиненную таблицу нужно связать с главной для этого нужно:

а) свойству MasterSource присвоим значение DS_Tovari;

б) щелкнуть два раза по полю ввода для свойства MasterFields в окне инспектора объектов, в появившемся окне редактора связей - Field Link Designer в списке Available Indexes выбрать NameGoods;

в) в списках Detail Fields и Master Fields выбрать поле связи – NameGoods;

г) нажать кнопку ADD для установки связи, после этого в списке Joined Fields появится надпись NameGoods -> NameGoods.

-  в свойстве TableType – формат таблицы ttParadox.

5) Для объекта DBGrid1:

-  свойству Name присвоим значение DBGridTovari;

-  свойству DataSource присвоим значение DS_Tovari;

6) Для объекта DBGrid2:

-  свойству Name присвоим значение DBGridSendtovari;

-  свойству DataSource присвоим значение DS_Sendtovari;

7) Для объекта DBImage1:

-  свойству Name присвоим значение DBImage;

-  свойству DataSource присвоим значение – DS_Tovari;

-  свойству DataField присвоим значение - Image;

-  свойству Stretch присвоим значение true;

-  свойству QuickDraw присвоим значение false.

8) Для объекта DBMemo1:

-  свойству Name присвоим значение DBMemo;

-  свойству DataSource присвоим значение – DS_Tovari;

-  свойству DataField присвоим значение - Note;

-  свойству ScrollBars присвоим значение ssBoth.

9) Для объекта DBNavigator1:

-  свойству Name присвоим значение DBNavigatorTovari;

-  свойству DataSource присвоим значение –DS_Tovari.

10) Для объекта DBNavigator2:

-  свойству Name присвоим значение DBNavigatorSendtovari;

-  свойству DataSource присвоим значение –DS_Sendtovari.

11) Для объекта SaveDialog1:

-  свойству Name присвоим значение SaveDialog.

-  свойству Filter: Filter Name присвоим значение – Текстовый файл (*.txt); Filter - *.txt.

12) Для объекта OpenPictureDialog1:

-  свойству Name присвоим значение OpenPictureDialog;

-  свойству DefaultExt присвоим значение bmp;

-  свойству Filter: Filter Name присвоим значение - Растровое изображение (*.bmp) ; Filter - *.bmp.

13) Для объекта OpenDialog1:

-  свойству Name присвоим значение OpenDialog;

-  свойству DefaultExt присвоим значение txt;

-  свойству Filter: Filter Name присвоим значение – Текстовый файл (*.txt) ; Filter - *.txt.

14) Для объекта BitBtn1:

-  свойству Name присвоим значение BSaveText;

-  свойству Caption присвоим значение – Сохранить.

15) Для объекта BitBtn2:

-  свойству Name присвоим значение BLoadText;

-  свойству Caption присвоим значение – Загрузить.

16) Для объекта BitBtn3:

-  свойству Name присвоим значение BLoadImage;

-  свойству Caption присвоим значение – Загрузить изображение.

В редакторе кода программы необходимо написать обработчик нажатия на кнопку BSaveText:

procedure TForm1.BSaveTextClick(Sender: TObject);

begin

if Sender = BSaveText then//Проверяем является ли инициатором события

begin // кнопка BSaveText.

SaveDialog. DefaultExt:='txt';

//устанавливаем значение расширения файла по умолчанию = txt.

If SaveDialog. Execute then DBMemo. Lines. SaveToFile(SaveDialog. FileName);

end;

if (Sender = BLoadText) and (OpenDialog. Execute) then

with TableTovari do

begin

Edit; // Перевод таблицы в режим редактирования.

DBMemo. Lines. LoadFromFile(OpenDialog. FileName);

Post; // Записать сделанные в таблице изменения.

end;

if (Sender = BLoadImage) and (OpenPictureDialog. Execute) then

with TableTovari do

begin

Edit; DBImage. Picture. LoadFromFile(OpenPictureDialog. FileName);

Post;

end;

end;

Остальным кнопкам: BloadText, BsaveImage, BloadImage в инспекторе объектов на странице Events событию OnClick присвоим значение BsaveTextClick.

На этом создание программы завершено, для ее запуска используйте команду главного меню Run/Run. Примерный вид запущенного приложения показан на рисунке.

Самостоятельно проанализировать работу программы. Описать принцип отображения связанных данных.

Контрольные вопросы:

1.  Каким образом организуется взаимосвязь между таблицами БД?

2.  Какие типы связей могут поддерживаться средой Delphi?

3.  Какие типы данных могут быть определены для значений полей в таблицах БД?

4.  Какие особенности хранения существуют для нетрадиционных типов данных?

Лабораторная работа № 6.

Создание приложений для БД типа MS Access. Технология ADO.

Цель работы:

Образовательные:

-  - знакомство с возможностями программной среды по созданию БД типа MS Access;

-  изучение принципов создания таблиц;

-  конструирования запросов и отчетов;

-  создание средств просмотра и печати отчета.

Воспитательные:

-  развитие навыков самостоятельного мышления;

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

-  формирование практических навыков при работе с ЭВМ.

Оборудование и оснащение работы:

Текст лабораторной работы; ЭВМ.

Теоретический материал:

СУБД MS Access является довольно распространенной средой создания информационных систем предприятий и организаций. Эта востребованность порождает спрос на разработку приложений к БД такого типа. Принципы создания таких приложений не требуют использования ранее изученного приложения Database Desktop. Они основаны на специальной технологии ADO. Соответственно меняются и понятия необходимые для построения. Структура баз данных, таблицы, связи формируются с помощью программы MS Access и сохраняются в папке разрабатываемого проекта. Понятие алиаса меняется на понятие путь к файлам баз данных, который прописывается для компонента компоненты ADOConnection со страницы ADO. Этот же компонент контролирует подключение к данным таблиц. Сами таблицы, как набор данных определяются компонентом ADOTable со страницы ADO. На этой же странице располагается компонент формирования запросов ADOQuery. Управление этими компонентами аналогичны компонентам управления БД созданных утилитой Database Desktop. Общими являются остальные компоненты необходимые для отображения и представления данных: DataSource с закладки Data Access; DBGrid, DBNavigator, DBEdit со страницы DataControls и т. д. Принцип настройки компонентов определен теми же правилами что и для БД созданных утилитой Database Desktop.

Задача:

Сформировать таблицу MS Access. Организовать форму для заполнения данных; просмотр данных в табличном режиме. Создать запрос на отбор данных по числовому полю. По запросу сформировать отчет в виде простого документа. Сформировать запрос на сортировку данных по строковым данным с выбором части полей и создать отчет, отображающий результат.

Ход работы:

1.Создать таблицу по схеме Товары (код_товара, наименование, дата поступления, срок годности, количество) с помощью программы СУБД MS Access. Сохранить таблицу в папке будущего проекта.

2.Разработка главной формы должна предусматривать возможность заполнения, просмотра данных, результатов запросов и отчетов.

3.Форма для заполнения организуется по принципу электронного бланка с отображением всех полей таблицы, а просмотр в табличном режиме должен исключить возможность ввода и редактирования данных (средствами навигатора).

4.Для организации доступа к данным на форме размещаются компоненты ADOConnection и ADOTable со страницы ADO, а так же компонент DataSource со страницы Data Access.

5.Компонент ADOConnection с закладки ADO палитры компонентов. Настроим соединение с сервером, которое должно быть прописано в свойстве ConnectionString. Для этого надо дважды щёлкнуть по строке ConnectionString и перед нами открывается окно. Щёлкаем кнопку Build и перед нами открываеться ещё одно окно, для доступа к базам данных MS Access используется драйвер «Microsoft Jet 4.0 OLE DB Provider». Переходим на закладку «Connection». надо ввести имя (если надо то и путь) базы данных в строку «Select or enter a database name». Как только выберешь базу данных, нажми кнопку Test Connection, чтобы протестировать соединение. Если всё указано правильно, то появится сообщение «Test connection succeeded».Теперь в свойствах компонента ADOConnection отключи свойство LoginPrompt, выставив его в False.

6.Компонент ADOTable с закладки ADO палитры компонентов предназначен для формирования набора данных по таблицам. В свойстве Connection и выбирается ранее установленный компонент ADOConnection.

7.Для отображения данных из таблицы надо ещё установить на форму компонент DataSource с закладки Data Access палитры компонентов. Теперь этому компоненту надо указать, какую именно таблицу он должен отображать.

8.Остальные компоненты для просмотра и управления данными стандартные и не зависят от типа БД.

Самостоятельно дорешать задачу.

Контрольные вопросы:

1.На какие принципы опирается технология ADO?

2.Какие компоненты используются для организации доступа в технологии ADO?

3.Какой тип БД определяет технология работы с базами данных ADO?

4.С помощью какого программного приложения формируется БД в технологии ADO?