V. Підведення підсумків заняттяпоставляемого по договору № _______ от «__» __________ 2013 года
г. Обнинск «__» __________ 2013 года
Мы, нижеподписавшиеся, от лица Поставщика – ________________________________________, с одной стороны, и от лица Получателя – генеральный директор ОАО «Агентство инновационного развития – центр кластерного развития Калужской области» Сотников А.А., с другой стороны, составили настоящий Акт в том, что Поставщик выполнил пуско-наладочные работы, а Покупатель принял данные работы. Стороны констатируют, что не имеют претензий друг к другу по исполнению ими взаимных обязательств по настоящему договору и считают его полностью завершенным с момента подписания настоящего Акта.
Література 1. «Работа с базами данных в Delphi» - Гофман В. Э., Санкт-Петербург: БХВ, 2001 2. «Программирование баз данных в Delphi 7. Учебный курс», В. В. Фаронов 3. «Delphi 5 руководство разработчика баз данных» - Шумаков, В. В. Фаронов 4. «Delphi 2005 Разработка приложений для баз данных и Интернета» - В. В. Фаронов, Питер, 2006 р. Хід заняття І. Організаційний момент а) готовність групи до заняття; б) перевірка присутніх.
ІІ. Актуалізація опорних знань студентів а) повідомлення теми та мети заняття; б) повідомлення девізу, під яким будете працювати; в) відповіді на запитання раніше вивченних лекцій.
ІІІ. Виклад нового матеріалу План 1. Робота з компонентами ADOTable та DataSource та з редактором їх полів. 2. Створення процедури для додавання нових даних в DBGrid через кнопку. 3. Створення процедури для збереження нових даних в DBGrid через кнопку. 4. Створення процедури для знищення даних в DBGrid через кнопку. 5. Додавання нових даних до БД через виклик пункта меню та відповідної форми на додавання. 6. Редагування даних БД через виклик пункта меню та відповідної форми на редагування. 7. Знищення даних з БД через виклик пункта меню та відповідного повідомлення на підтвердження або скасування знищення.
ІV. Узагальнення та систематизація знань V. Підведення підсумків заняття VІ. Домашнє завдання:вивчити матеріал лекції, знати відповіді на такі питання лекції: 1. Які властивості треба використовувати для налаштування компонента ADOTable? 2. Які властивості треба використовувати для налаштування компонента DataSource? 3. Як здійснити виклик редактору полів для таблиці? 4. Для чого викликається метод Insert при написанні процедури на додавання нового запису до таблиці БД? 5. Для чого викликається метод SetFocus при написанні процедури на додавання нового запису до таблиці БД? 6. Для чого призначений метод Post при написанні процедур? 7. Для яких цілей використовується компонент MainMenu? 8. Як зробити неможливим редагування даних в сітці DBGrid? 9. Для чого обирається значення poMainFormCenter властивості Position при роботі з формами в Delphi? 10. Які властивості треба налаштовувати для компонента DBEdit? 11. Які властивості треба налаштовувати для компонента DBCheckBox? 12. Які властивості треба налаштовувати для компонента DBLookupComboBox?
Настав час попрацювати з полем Город, яке має числовий тип та жодним чином не може доки ще зберігати дані про міста. Для цього треба створити окрему таблицю в БД з полями: 1.Key1 – лічильник (ключове поле); 2. Название города – текстове поле розміром в 30 символів.
Рис. 1.1 Таблиця «Справочник городов»
Збережіть нову таблицю з ім’ям «Справочник городов». Тепер БД складається з двох таблиць: 1. Справочник; 2. Справочник городов.
Відчиніть проект створений в попередній частині та модуль DataModuleUnit. Додайте сюди компонент DataSource (назвіть його TownSource) та ADOTable (назвіть його TownTable). Після цього у компонента TownSource в властивості DataSet вкажіть таблицю TownTable. Налаштуйте TownTable на відображення «справочника городов». Для цього: 1. В властивості Connection вкажіть компонент ADOConnection1, який вказує на нашу БД. 2. В властивості TableName вкажіть таблицю Справочник городов. 3. Встановіть властивість Active в True, щоб активізувати таблицю.
Увійдіть в редактор полів таблиці TownTable та додайте всі поля. Зробіть поле Key1 невидимим, тому що це лічильник та користувачу він взагалі не потрібний.
Рис. 1.2 Редактор полів таблиці Створіть нову форму для редагування «справочника» та збережіть форму в модулі під іменем TownBookUnit. Саму форму назвіть TownBookForm. Підключіть до нової форми модуль DataModuleUnit, щоб звідси можна було б отримати доступ до компонентів для роботи з БД. Для цього з меню File оберіть пункт Use Unit та в вікні, яке з’явиться, вкажіть модуль DataModuleUnit та натисніть ОК.
Рис. 1.3 Додавання модуля DataModuleUnit
Помістіть на форму сітку DBGrid та в властивості DataSource вкажіть таблицю «справочника городов» - DataModule1.TownSource. Можна все це діло красиво оформити та додати кнопку ОК, для зачинення вікна «справочника». Вікно редактору «справочника городов» зображене на рис. 1.4.
Рис. 1.4 Вікно «справочника городов»
Для більшої красоти можна додати на форму кнопки «Добавить», «Сохранить» та «Удалить» для додавання, знищення та збереження рядків довідника.
Рис. 1.5 Оновлена форма довідника При натисканні кнопки «Добавить» треба написати наступний код:
procedure TTownBookForm.AddBtnClick(Sender: TObject); Begin DataModule1.TownTable.Insert; DBGrid1.SetFocus; end; Метод Insert таблиці TownTable додає новий рядок. У другому рядку викликається метод SetFocus нашої сітки, щоб фокус введення перейшов на нього. Після натискання кнопки «Добавить» фокус потрапляє на неї, але після додавання нового рядка, логічним буде перенести фокус на сітку, тому що користувач буде вводити назву міста для нового рядка.
При натисканні кнопки «Сохранить» треба написати наступний код:
procedure TTownBookForm.SaveBtnClick(Sender: TObject); Begin
|