- •Федеральное агенство по образованию
- •Оглавление
- •Часть I
- •Часть II
- •Часть I
- •Лабораторная работа 1(2). Применение форм.
- •DoCmd.OpenForm "Номера групп"
- •Лабораторная работа 2(1) Создание и использование запросов с использованием vba.
- •Лабораторная работа 2(2). Создание и использование запросов.
- •Лабораторная работа №3. Создание отчетов.
- •Ход работы
- •Лабораторная работа №4. Разработка приложения на Visual Basic для ведения однотабличной бд.
- •Лабораторная работа №5 обработка нормализованной многотабличной структуры бд.
- •Лабораторная работа №6. Создание многостраничного web-приложения
- •Задание 1. Создайте новую базу данных.
- •Задание 2. Создание проекта и формы SwitchBoard
- •Создание нового приложения и Web-формы SwitchBoard
- •Задание 3. Добавление компонентов, необходимых для работы с бд.
- •Добавление к приложению компонентов для работы с бд
- •Создание Web-формы для ввода данных AddContact
- •Создание Web-формы Calls
- •Часть II
- •3. Создание файла таблицы данных
- •4. Разработка приложения для работы с таблицей данных
- •5. Структура проекта приложения
- •6. Пример реализации бд о студентах
- •7. Контрольные вопросы
- •8. Требования к отчёту
- •9. Перечень заданий
- •Лабораторная работа №2 создание windows-приложения для работы с базой данных. Генерация отчетов.
- •1. Порядок выполнения работы
- •2. Обработка информации однотабличной базы данных
- •3. Печать данных
- •4. Пример реализации программы расчёта средней оценки
- •4. Контрольные вопросы
- •5. Требования к отчёту
- •Лабораторная работа №3 обработка информации базы данных, имеющей структуру «master-detail». Изучение основ sql.
- •1. Порядок выполнения работы
- •2. Основные сведения о ссылочной целостности. Задание индексов.
- •3. Задание псевдонимов в bde Administrator.
- •4. Установка связей между компонентами и бд. Создание меню.
- •5. Поиск данных.
- •6. Контрольные вопросы
- •7. Требования к отчёту
- •Лабораторная работа №4
- •3. Управление базами данных
- •4. Язык баз данных sql
- •5. Хранимые процедуры
- •6. Связь бд с приложением
- •7.1 Создание mdi интерфейса
- •7.2 Создание модуля данных
- •7.3 Вызов дочерней формы
- •7.4 Форма «Студенты»
- •If q_Spr.State in[dsedit,dsinsert] then q_Spr.Post ; // выход из режима редактирования
- •If q_Spr.UpdatesPending then // если были изменния
- •If MessageDlg('Несохраненные данные будут потеряны. Закрыть? ',
- •7.5 Форма Журнал (j_Ved)
- •7.6 Форма Ведомость (Ved)
- •7.7 Отчет об успеваемости (Rep)
- •8. Контрольные вопросы
- •9. Требования к отчёту
- •Рекомендации к выполнению курсовоГо проекта по дисциплине «Базы данных»
- •Варианты заданий:
- •Рекомендуемая литература по дисциплине «Базы данных»
7.2 Создание модуля данных
File- New… - Data Module
Свойства формы
Name: DataModule3
Размещаемые компоненты
Database (закладка Data Access)
Свойства
AliasName: Test (ODBC драйвер)
DatabaseName: db_test (имя БД для компонент)
Params: USER NAME=sa (параметр соединения)
Connected: True (режим соединения )
Query (закладка Data Access )
Свойства
DatabaseName: db_test
Name: Q_for_Work
7.3 Вызов дочерней формы
Выбрать в меню главной формы Ведомость. В редакторе ввести код:
procedure TMain.N1Click(Sender: TObject);
begin
TJ_Ved.Create(Application);
end;
где J_ved - имя вызываемой формы
Аналогично сделать для Меню Студенты, Предметы ,Отчет. Для меню Выход вписать оператор Close.
Скомпилировать проект. Должна открыться главная форма с меню. При выборе элемента меню должна открыться соответствующая форма
7.4 Форма «Студенты»
Данная форма представляет интерфейс к таблице Kadr базы данных
Для работы необходимо подключить используемые модули (File – Use Unit… - FDataModule )
События
OnClose
Action := cafree;
OnShow
Q_Spr.Open;
Размещаемые компоненты
Query (закладка Data Access)
Свойства
Name: Q_spr
DatabaseName: db_test
SQL: select * from Kadr
UpdateObject : UpdateSQL1 (устанавливается после размещения компонента UpdateSQL на фор ме)
CachedUpdated: True
Active: true
UpdateSQL (закладка Data Access)
Свойства
DeleteSql : delete from Kadr where PN = :OLD_PN
InsertSQl : insert into Kadr (PN, FIO, Spec, FO, Gr) values (:PN, :FIO, :Spec, :FO, :Gr)
ModifySQl : update Kadr set PN= :PN, FIO= :FIO, Spec = :Spec, FO = :FO, Gr = :Gr where PN = :OLD_PN
DataSource (закладка Data Access)
Свойства
DataSet: Q_Spr
DBGrid (закладка Data Controls)
PopupMenu: PopupMenu1 (после размещения PopupMenu на форме )
DataSource: DataSource1 (значения из БД должны отразиться в таблице )
Columns: в редакторе выбрать Add All Fields. Для каждой колонки в свойстве Title- Caption указать имя
PopupMenu (закладка стандарт)
Подменю Добавить
Событие OnClick
IF Q_Spr.State in[dsedit,dsinsert] then Q_Spr.Post ;
Q_Spr.Insert; Подменю Редактировать
Событие OnClick
IF Q_Spr.State in[dsedit,dsinsert] then Q_Spr.Post ;
Q_Spr.Edit;
Подменю Удалить
Событие OnClick
IF Q_Spr.State in[dsedit,dsinsert] then Q_Spr.Post ;
Q_Spr.Delete;
Button (закладка стандарт)
Свойства
Caption: Ok
События OnClick
If q_Spr.State in[dsedit,dsinsert] then q_Spr.Post ; // выход из режима редактирования
If q_Spr.UpdatesPending then // если были изменния
Begin
Try // обработчик ошибок
Q_Spr.ApplyUpdates ; // принятие изменений
Except // реакция на ошибку
Showmessage('Нарушена ссылочная целостность!');
Q_Spr.CancelUpdates ; // отмена изменений
Abort ;
end ;
end ;
Close ; // закрытие формы
Button (закладка стандарт)
Свойства
Caption: Отмена
События OnClick
if Q_Spr.UpdatesPending then