Implementation
uses DataModuleUnit;
{$R *.dfm}
виділіть сітку «DBGrid1» та в властивості «DataSource» вкажіть
компонент «DataSource», дані якого повинні бути відображені в сітці (DataModule1.DataSource1).
перейдіть до модуля DataModule та налаштуйте відображення даних. Двічі
натисніть по компоненту BookTable та додайте до вікна, яке відчинеться, всі поля БД. Для цього треба натиснути по ньому правою кнопкою миші та в меню, яке з’явиться, обрати пункт «Add All Field» («Додати всі поля»).
зробіть поля, які є первинними ключами, невидимими. Для цього виділіть
цю властивість в об’єктному інспекторі та встановіть в властивості «Visible» значення «false».
відредагуйте довжину відображення стовпців. Для цього виділіть
властивість, наприклад, «ПІБ». За ширину стовпців відповідає властивість «DisplayWidth».
Є ще такі властивості:
DefaultExpression – за допомогою цієї властивості можна вказати значення за умовчуванням;
MaxValue – максимальне припустиме значення;
MinValue – мінімальне припустиме значення;
ReadOnly – поле лише для читання;
Required – якщо вказане значення «true», то поле є обов’язковим для заповнення.
для зміни тексту, який відображається в заголовках таблиці, використовується
властивість поля «DisplayLabel».
для редагування формату відображення дати використовується властивість
«DisplayFormat», значення якого дорівнює «dddddd».
для створення маски для введення дати використовується властивість
«EditMask» зі значенням «99/99/9999».
Якщо треба, щоб в логічному полі відображалися значення на російській
мові «Да» або «Нет», а не «true» або «false», треба скористатися властивістю «DisplayValues» зі значенням «Да;Нет»
створіть окрему таблицю в БД для зв’язка з зовнішніми ключами.
Для прикладу створимо таблицю «Справочник городов» з полями:
Key1 – лічильник (ключове поле);
Название города – текстове поле розміром в 30 символів.
Ця таблиця необхідна для зв’язка з зовнішнім ключом «Город» таблиці «Справочник», яка складається з таких полів:
Key1 – лічильник (ключове поле). Розмір поля - "Длинное целое". Індексоване поле - "Да (Співпадання не допускаються)".
Фамилия - текстовий. Розмір поля - 50. Індексоване поле - "Да (Співпадання допускаються)".
Имя - текстовий. Розмір поля - 50. Індексоване поле - "Да (Співпадання допускаються)".
Телефон - текстовий. Розмір поля - 20. Індексоване поле - "Да (Співпадання допускаються)".
e-mail - текстовий. Розмір поля - 30. Індексоване поле - "Да (Співпадання допускаються)".
Город - числовой. Розмір поля - Длинное целое. Індексоване поле - "Нет".
Дата – дата/час.
Мобільний телефон – логічний.
відчиніть проект створений в попередній частині та модуль
DataModuleUnit.
Додайте сюди компонент DataSource (назвіть його TownSource) та ADOTable (назвіть його TownTable). Після цього у компонента TownSource в властивості DataSet вкажіть таблицю TownTable.
Налаштуйте TownTable на відображення «Справочника городов». Для цього:
В властивості «Connection» вкажіть компонент ADOConnection1, який вказує на БД.
В властивості «TableName» вкажіть таблицю «Справочник городов».
Встановіть властивість «Active» в «True», щоб активізувати таблицю.
Увійдіть в редактор полів таблиці TownTable та додайте всі поля. Зробіть поле Key1 невидимим, тому що це лічильник та користувачу він взагалі не потрібний.
створіть нову форму для редагування «Справочника городов» та збережіть
форму в модулі під іменем TownBookUnit. Саму форму назвіть TownBookForm. Підключіть до нової форми модуль DataModuleUnit, щоб звідси можна було б отримати доступ до компонентів для роботи з БД. Для цього з меню File оберіть пункт Use Unit та в вікні, яке з’явиться, вкажіть модуль DataModuleUnit та натисніть ОК.
помістіть на форму сітку DBGrid та в властивості «DataSource» вкажіть
таблицю «Справочник городов» - DataModule1.TownSource. Додати на форму кнопки «Добавить», «Сохранить» та «Удалить» для додавання, знищення та збереження рядків довідника (рис. 1):
Рис. 1 Форма довідника міст
При натисканні кнопки «Добавить» треба написати наступний код:
procedure TTownBookForm.AddBtnClick(Sender: TObject);
begin
DataModule1.TownTable.Insert;
DBGrid1.SetFocus;
end;
Метод Insert таблиці TownTable додає новий рядок. У другому рядку викликається метод SetFocus нашої сітки, щоб фокус введення перейшов на нього. Після натискання кнопки «Добавить» фокус потрапляє на неї, але після додавання нового рядка, логічним буде перенести фокус на сітку, тому що користувач буде вводити ім’я міста для нового рядка.
При натисканні кнопки «Сохранить» треба написати наступний код:
procedure TTownBookForm.SaveBtnClick(Sender: TObject);
begin