Бутаков С.В. Методические указания к практическим работам по курсу Высокоуровневые методы программирования
Подождите немного. Документ загружается.
31
№ Задание
1. Дан текст, определить в нем количество слов и долю заданного пользова-
телем символа в каждом слове.
2. Дан текст, определить в нем количество слов начинающихся с заданного
пользователем символа.
3. Дан текст, найти все слова, в которых заданный пользователем символ
встречается не менее чем заданное число раз.
4. Дан текст, найти все слова, в которых заданный пользователем символ
встречается наибольшее число раз.
5. Дан текст, найти слова, которые встречаются в тексте более одного раза.
6. Дан текст, найти слова, начинающиеся и заканчивающиеся одним симво-
лом
7. Дан текст, найти все слова, оканчивающиеся тем же символом, с которого
начиналось слово с номером, заданным пользователем.
8. Дан текст, найти в нем все слова не содержащие букв из последнего сло-
ва.
9. Дан текст, заменить в нем все вхождения заданной пользователем под-
строки на ее «перевертыш». Например, есть текст «Двоечник опять полу-
чил двойку». Пользователь задает подстроку «дво», и в результате полу-
чаем «Овдечник опять получил овдйку».
10. Дан текст, найти все слова, которые не содержат одинаковых символов.
Например, для текста «Мама мыла раму» это два последних слова.
11. Дан текст, заменить в нем все вхождения заданной пользователем под-
строки на другую заданную пользователем подстроку. Например, есть
текст «Двоечник опять получил двойку». Пользователь задает подстроки
«дво» и «тро», и в результате получаем «Троечник опять получил трой-
ку».
12. Дан текст, для каждого слова определить, сколько раз оно встречается в
тексте.
13. Дан текст, напечатать все различные слова.
14. Дан текст, найти все слова, начинающиеся с того же символа, которым
заканчивалось слово с номером, заданным пользователем.
15. Дан текст, удвоить вхождение заданной пользователем подстроки. На-
пример, был текст «Привет, как дела?». Пользователь задал подстроку
«е» и получаем: «Привеет, как деела?».
16. Дан текст, напечатать символы, которые встречаются в тексте один раз.
17. Дан текст, для каждого слова с нечетной длиной удалить средний символ.
18. Дан текст, удалить из него подстроки, находящиеся между символами «(«
и «)».
19. Дан текст, удалить из него заданную пользователем последовательность
символов.
20. Дан текст, определить есть ли в нем симметричные слова и если да, то
напечатать их (например, слова «Алла» и «wwwRwww» являются сим-
метричными).
32
•••••••••••• •••••• • 4. ••••••••••• •••••••••••-
••• •••••••••• ••••••••• • ••••• ••••••.
Технические характеристики занятия
Занятие предусмотрено объемом 4 часа (в компьютерном классе).
Цели занятия
Приобрести практические навыки организации взаимодействия при-
ложения с однотабличной баз ой данных.
Задачи занятия
• Изучить наборы компонентов «Data Access», «ADO» и «Data
Controls».
• Отработать технологию дополнения, удаления и коррекции записей в
таблице.
• Закрепить навыки организации взаимодействия форм.
Указания по выполнению работы
Среда программирования Borland Delphi 5 представляет максимально
широкие возможности организации взаимодействия пользователя с базами
данных. Данное взаимодействие осуществляется по схеме, приведенной на
Рис. 22 . Следу ет отметить, что база данных может быть использована не-
сколькими приложениями.
Приложение BDE
Драйвер ODBC
БД
Другое
приложение
Другое
приложение
Компоненты
ADO
Рис.
22
. Взаимодействие приложения с БД.
Для многих баз данных в BDE и в ADO предусмотрены свои собст-
венные драйверы, позволяющие обходиться без ODBC. В данной работе
взаимодействие с базой данных будем строить через компоненты ADO
33
(ActiveX Data Objects) – технология Microsoft для доступа не только к ба-
зам данных, но и многим другим объектам.
Как и в работе № 2 задачей будет разработка простейшего ежеднев-
ника. Этапы работы:
− создать базу данных при помощи MS-Access;
− организовать работу приложения с данной базой данных.
Задание к выполнению
1. Запустите MS-Access: Пуск
\
Программы
\Microsoft Access.
2. Выберите Создание базу данных
\
Новая база данных.
3. Укажите папку для создания базы данных Lab4 на Вашем диске, имя
базы данных db1.mdb.
4. Далее выберите Создание таблицы в режиме конструктора .
5. Создайте таблицу следующего вида:
Имя поля Тип данных Формат
DateS Дата/время Краткий формат даты
FromTime Дата/время Краткий формат времени
ToTime Дата/время Краткий формат времени
Comment Поле МЕМО
Phone Текстовый 30 символов
Имя таблицы установите MainData, ключевые поля не задавайте и
введите в нее три записи, как показано на Рис. 23.
Рис.
23
. Таблица
MainData.
6. Закройте MS-Access.
7. Запустите Delphi 5: Пуск
\
Программы
\Borland Del-
phi 5\Delphi 5.
Создайте новый проект. Сохраните его в папку
Lab4 на Вашем диске под именем Lab4.
8. Для эффективной работы с данными следует создать специальный мо-
дуль данных (Data Module) – File / New / Data Module. В данный мо-
дуль, на закладку Components добавьте компоненту ADOTable из
группы компонент ADO (Рис. 24).
34
9. В свойстве ConnectionString компоненты ADOTable вызовите диалог
формирования строки соединения (Connection String) и нажмите в
нем Built…, далее укажите тип данных - Microsoft Jet OLE DB Pro-
vider (драйвер для доступа к базам данных MS-Access) - Рис. 25. На
закладке Connection в первой строке впишите db1.mdb (имя Вашей
базы данных). Протестируйте соединение, установите флажок Blank
Password и закройте диалог.
Рис.
24
. Создание модуля данных.
10. Также установите для ADOTable1 следующие свойства: Active – True,
TableName –MainData.
Рис.
25
. Настройка свойств соединения с БД.
11. Для организации отображения данных следует включить в модуль
данных (DataModule2) еще одну компоненту – Источник данных
(Data Source), он находится на закладке Data Access панели компо-
нент. Установите для него в свойстве DataSet значение ADOTable1.
35
Компонента DataSource служит передаточным звеном между базой
данных и элементами их отображения.
12. Перейдите к редактированию модуля Unit1 и в разделе Uses добавьте
Unit2 – т.к. созданный модуль данных будет использоваться в форме
Form1.
13. Р азместите на форме Form1 компоненту DBGrid (закладка Data Con-
trols). Установите ее свойство DataSource в
DataModule2.DataSource1. В результате на форме должна быть таб-
лица с открытой в ней БД (Рис. 26).
Рис.
26
. Вид формы
Form1
с размещенной на ней
компонентой
TDBGrid.
14. Для компоненты DBGrid1 зайдите в редактор свойства Columns, до-
бавьте в таблиц пять колонок и изменяя у них свойство Title \ Caption
сформируйте заголовки. Кроме того, удалите колонку, соответствую-
щую полю Comment (Рис. 27).
Рис.
27
.Установка заголовков колонок.
36
15. Добавьте на форму Form1 компоненту TDBMemo. Установите для нее
свойства DataSource = DataModule2.DataSource1 и DataField =
Comment.
16. В модуле данных нажмите на правую кнопку на элементе Fields, вхо-
дящем в DataSource1 (Рис. 28). Выберите пункт Add all fields.
Рис.
28
. Настройка элемента
Fields.
17. Для полей FromTime и ToTime установите в свойстве DisplayFormat
значение hh:nn (часы:минуты).
18. Добавьте на форму Form1 главное меню с пунктами Файл (Выход),
Поиск (По дате, По Телефону, Сброс фильтра) и Событие (Доба-
вить, Удалить, Редактировать).
19. Добавьте в форму Form1 обработку подтверждения о выходе из про-
граммы и установите неизменяемый размер у этой формы.
20. Сохраните, запустите проект и проверьте его работу. Продемонстри-
руйте результат преподавателю. Пример результата – см. Рис. 29.
Рис.
29
. Пример формы
Form1.
37
21. Создайте форму для ввода и редактирования записей по образцу, при-
веденному на Рис. 30. Создав новую форму, впишите в ее раздел Uses
модуль Unit2 (напомним, что это модуль данных). Для строк ввода ис-
пользуйте компоненту TDBEdit (закладка Data Controls) и установите
для них свойство DataField требуемое поле БД.
Рис.
30
. Форма ввода / коррекции событий.
22. Общая схема работы с данной формой представления на Рис. 31. В
соответствии с этой схемой скорректируйте процедуру обработки на-
жатия пункта меню Событие \ Добавит ь следующим образом:
procedure
TForm1.N7Click(Sender: TObject);
begin
{добавили запись в таблицу}
DataModule2.Adotable1.Insert;
{устанавливаем значения дат и времени в новой записи}
DataModule2.Adotable1.FieldByName('DateS').Value:=
Date();
DataModule2.Adotable1.FieldByName('FromTime').Value:=
Date();
DataModule2.Adotable1.FieldByName('ToTime').Value:=
Date();
if
Form3.ShowModal=mrOK
then
{фиксируем изменения}
DataModule2.ADOTable1.Post
else
{удаляем запись}
DataModule2.ADOTable1.Delete;
end;
38
Выбран пункт меню
«
Добавит ь
»
Выбран пункт меню
«
Редактировать
»
Добавить пустую
запись в таблицу
Открыть форму
редактирования текущей
записи (
Form3)
Открыть форму
р
едактирования текущей
записи (
Form3)
«
ОК
» ?
Удалить
добавленну ю запись
из таблицы
Зафиксировать
изменения в
таблице
Завершить
Нет Да
«
ОК
» ?
Зафиксировать
изменения в
таблице
Завершить
Нет Да
Рис.
31
. Алгоритм процедур добавления и корректировки
записей.
23. Скорректируйте процедуры обработки нажатия пунктов меню Собы-
тие \ Удалить и Событие \ Корректировать следующим образом:
procedure
TForm1.N8Click(Sender: TObject);
// Событие / Удалить
begin
{Удаление записи}
DataModule2.ADOTable1.Delete;
end
;
procedure
TForm1.N9Click(Sender: TObject);
// Событие / корректировать
begin
if
Form3.ShowModal=mrOK
then
{фиксируем изменения}
DataModule2.ADOTable1.Post
else
DataModule2.ADOTable1.Cancel;
end;
39
24. Сохраните, запустите проект и проверьте его работу. Добавьте не-
сколько записей в таблицу MainData. Откройте базу данных db1.mdb
в MS-Access и посмотрите на внесенные изменения.
25. Обработайте пункты меню «Поиск» формы Form1 путем установки
фильтров на таблицу. Для этого создайте еще две формы по образцам,
представленным на Рис. 32.
Рис.
32
. Формы для установки фильтров (
Form4
и
Form5).
26. Впишите в модуле Unit1 в разделе Uses модули Unit4 и Unit5. Сфор-
мируйте обработчики событий меню Поиск:
procedure
TForm1.N5Click(Sender: TObject);
begin
// Фильтруем по дате
if
Form4.ShowModal=mrOK
then
begin
with
DataModule2.ADOTable1
do
begin
Filter := 'DateS='+
DateToStr(Form4.MonthCalendar1.Date);
Filtered := True;
end
end
;
end
;
procedure
TForm1.N6Click(Sender: TObject);
// Фильтруем по телефону
begin
if
Form5.ShowModal=mrOK
then
begin
with
DataModule2.ADOTable1
do
40
begin
Filter := 'Phone = '+Form5.Edit1.Text;
Filtered := True;
end
end
;
end
;
procedure
TForm1.N10Click(Sender: TObject);
// снимаем фильтры
begin
DataModule2.ADOTable1.Filter := '';
DataModule2.ADOTable1.Filtered := False;
end
;
27. Сохраните, запустите проект и проверьте его работу. Продемонстри-
руйте результат преподавателю.
После выполнения задания к выполнению Вам необ-
ходимо знать:
1. Порядок создания модулей данных.
2. Назначение и свойства основных компонент доступа к данным.
3. Назначение и свойства основных компонент отображения данных.
4. Методы написания добавления и удаления записей таблицы.
5. Технологию установки фильтров на таблицы и их снятия.
6. Порядок получения справочной информации по свойствам и методам.
Самостоят ельна я работа.
1. Создайте новый проект (File \ New … \ Application).
2. Сохраните проект под именем lab4b в Вашу папку.
3. Разработайте программу, в соответствии с Вашим заданием (см.
лаб. работу № 2, табл. 2). Обязательная особенность заданий –
возможность поиска записей по основным полям.
4. Сохраните, запустите проект и проверьте его работу. Продемонст-
рируйте результат преподавателю.
5. Составьте отчет по работе № 4 и представьте его к защите.