Инфоурок / Информатика / Другие методич. материалы / Лабораторная работа в Delphi
Обращаем Ваше внимание: Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии (2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации).

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Законы экологии», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

ПРИЁМ ЗАЯВОК ТОЛЬКО ДО 21 ОКТЯБРЯ!

Конкурс "Законы экологии"

Лабораторная работа в Delphi

библиотека
материалов

Лабораторная работа № 16

Тема: Создание объектов баз данных. Создание приложения к БД.

Программное обеспечение: CodeGear RADStudio Delphi 2009

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

  1. Создайте в своей папке Мои документы папку ЛР_16_Фамилия. Все файлы в данной работе сохраняйте в эту папку.

  2. Скопируйте базу данных с именем Biblioteka.mdb к себе в папку ЛР_16_Фамилия.

  3. Таблица Книги имеет следующую схему:

Авторы имеет следующую схему:

Запустите CodeGear RAD Studio 2009.

Создайте новое приложение File → New → VCL Forms Application → Delphi.

Рhello_html_5b1cc093.gif
ис.1

  1. В свойстве Caption формы введите название приложения "Библиотечный каталог".

Рhello_html_m777ea001.gif
ис.2

  1. Создайте модуль данных (File → New → OtherDelphi Files → Data Module).

Рhello_html_128fcf7a.gif
ис.3

  1. В свойстве Name напишите fDM, а сам модуль сохраните как DM.pas (File → Save As ).

  2. Сразу же перейдите на главную форму Unit1.pas (Форма Библиотечный каталог) и с помощью File Use unit свяжите ее с DM.

  3. Разместите на DM компоненты ADOConnection и ADOTable с раздела dbGo (раздел находится в окне Tool Palette с правой стороны рабочего пространства).

Рhello_html_m2515235.gif
ис.4

  1. С помощью свойства Connection String компонента ADOConnection подключитесь к базе данных Biblioteka.mdb, используя провайдер MS Jet 4.0 OLE DB Provider. (Use Data Link File –> Build –> Microsoft Jet 4.0 OLE DB Provider.) Убедитесь, что пользователь Admin, пароль пустой.


Рис.5hello_html_72077f33.gif

  1. В свойстве Connection компонента ADOTable выберите ADOConnection1.

  2. В свойстве TableName компонента ADOTable выберите название таблицы Books. Для этого сначала введите пароль Admin, затем нажмите Ок.

  3. В свойстве Name компонента ADOTable введите название компонента Tbooks. Так как у нас в приложении будет более одной таблицы, желательно каждой из них дать осмысленное имя, чтобы потом не запутаться.

  4. Установите на DM компонент DataSource с раздела Data Access. Имя компонента Name изменим на DS1, чтобы было покороче. В свойстве DataSet выберем таблицу Tbooks.

  5. Перейдите на главную форму Библиотечный каталог. Установите компонент MainMenu (главное меню) с раздела Standart. При двойном щелчке мыши по компоненту откроется окно редактирования пунктов меню, где в свойстве Caption указываются названия пунктов меню. Создайте следующие пункты:

Файл - Выход

Редактирование - Добавить книгу, Добавить автора

Сортировка - По автору, По названию книги

Помощь - О программе

Рhello_html_m371953ac.gif
ис.6

Рhello_html_699fa204.gif
ис.7.

  1. Закройте окно редактирования пунктов меню.

  2. Теперь установите компонент Panel из раздела Standart, свойству Align присвойте alTop, чтобы она заняла весь верх, свойство Caption очистите и разместите на нее два компонента Label, один под другим. В свойстве Caption первой напишем: "Всего книг:", на второй – "На общую сумму:". Как следует из названий, эти данные мы будем выводить на панель.

Рhello_html_db2b272.gif
ис.8

  1. Ниже установите компонент DBGrid с вкладки Data Controls. Свойство Align переведите в alClient. В свойстве DataSource выберите DS1. Свойство ReadOnly переведите в True, так как для редактирования данных у нас будут другие инструменты, сетка нужна только для просмотра.

  2. Теперь перейдите на окно DM, выделите компонент с таблицей TBooks и откройте ее, установив Active в True. На главной форме сетка должна отображать данные таблицы, пока еще пустые.

  3. Однако заголовки столбцов не очень привлекательны с точки зрения клиента. Исправим это. Выделите таблицу TBooks, и дважды щелкните по нему. Должно появиться окно редактора полей:

Рhello_html_66e5cd83.png
hello_html_3cb8538c.png
ис.9

  1. Теперь щелкните правой кнопкой по этому окну, и выберите команду Add all fields (добавить все поля).

  2. Выделите поле Key1. Оно нам нужно только как счетчик записей, так что пользователю его можно не отображать. Спрячьте его, установив его свойство Visible в False. Поле исчезло с сетки, но не потерялось – оно по-прежнему присутствует в таблице.

  3. Далее выделите поле Avtor. Здесь нас интересуют два свойства: DisplayLabel и DisplayWidth. Первое отвечает за выводимый текст названия колонки, напишите здесь "Автор". Второе отвечает за ширину колонки. Установите 5, так как у нас здесь будут только цифры.

У поля Nazvanie измените выводимый текст на "Название книги".

У поля Exemp измените выводимый текст на "Количество экземпляров".

У поля Cena измените выводимый текст на "Цена".

У поля Date измените выводимый текст на "Дата поступления".

  1. Наконец, поля Prim и Graphic спрячьте так же как поле Key1.

  2. На данном этапе форма Библиотечный каталог выглядит следующим образом:

Рhello_html_m1cecc635.gif
ис.10

Создание формы для редактирования авторов

  1. Разместите компоненты ADOTable из раздела dbGo и DataSource из раздела Data Access в окно DM. Таблицу переименуйте в Tavtors, а DataSource – в DS2.

  2. Для таблицы Tavtors в свойстве Cоnnection выберите ADOConnection1.

  3. Далее, у таблицы в свойстве TableName выберите таблицу avtors.

  4. У компонента DS2 в свойстве DataSet выберите компонент Tavtors.

  5. Создайте новую форму File →New → Form-Delphi, в свойстве Name формы введите fAvtors, в свойстве Caption введите Авторы, свойство BorderStyle переведите в bsDialog.

  6. С помощью File – Use Unit добавьте к форме модуль DM.

  7. Выполните действие File → Save AS Avtors.

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

1) Label — напишите на ней следующий текст: "Впишите Фамилию И.О. автора:"

2) Edit — очистите у него свойство Text, а в свойстве MaxLength (максимальная длина) укажите 30. Именно такой размер мы указали у поля FIO при проектировании таблицы.

3) Button ниже устанавливаем две кнопки, на которых пишем: "Добавить" и "Удалить текущую запись".

4) Еще ниже – сетку DBGrid, в свойстве DataSource которой нужно выбрать DS2.

  1. Аналогично заданиям 22-25 задайте новые заголовки столбцам. Поле Key2 прятать не нужно, просто в заголовке столбца укажите "№". А в заголовке второго столбца – "Фамилия И.О.".

  2. Все, приготовления окончены, можно переводить таблицу TAvtors в активное состояние (Active переводим в True). У вас должна получиться форма, показанная на рисунке 12:

Рhello_html_593b8dc.gif
ис.11

  1. Кнопку Добавить сделайте пока недоступной: в свойстве Enabled кнопки Добавить выберите False. Мы будем давать пользователю доступ к ней тогда, когда он что-нибудь введет в поле Edit.

  2. Сохраните файл с расширением .exe в папку С:\temp\. Для этого перейдите по ссылке Project → Options → Delphi Compiler → Output Directory → C:\Temp\

  3. Попробуйте запустить проект, нажав кнопку Run (F9).

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


Самые низкие цены на курсы переподготовки

Специально для учителей, воспитателей и других работников системы образования действуют 50% скидки при обучении на курсах профессиональной переподготовки.

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

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 25 октября. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru

Общая информация

Номер материала: ДБ-079556

Похожие материалы