Page 11 - 2581
P. 11
- Ім'я (fio2) - тип Alpha 30 - неключове
- По батькові (fio3) - тип Alpha 30 - неключове
- Група (group) - тип Alpha 10 - неключове
- Курс (kurs) - тип Number - неключове
2. Встановіть необхідність кожного поля, мову, мінімальне,
максимальне значення поля курс.
3. Встановіть таблицю синхронного перегляду (відкрийте
список Table gProperties і виберіть рядок Table Lookup) і ліворуч
виберіть поле group, справа таблицю group.db. Встановите
перемикачі Just Current Field і Help and Fill (тільки у полі
синхронної перевірки і читати дані з таблиці і підставляти).
4. Встановіть вторинні індекси (список Table Properties і
виберіть рядок Secondary Indexes), додайте усі поля окрім першого,
перенесіть поле Group вгору і натисніть кнопку ОК. Введіть ім'я
Index.
5. Збережіть таблицю.
Створення додатку «База цих студентів»
1. Запустіть Delphi, настройте вікно форми (назва і так далі).
2. Виберіть вкладку доступ до даних (Data Access) і
перенесіть два компоненти - DataSource і Table, вибрати вкладку
управління даними (Data Controls) - DBGrid.
3. Налаштування полів.
- DBGrid1.DataSource - DataSource1;
- DataSource1.DataSet - Table1;
- Table1.DataBaseName - DBDemos;
- Table1.TableName - group.db;
- Table1.Active - true
Після цього в сітці повинна відобразитися таблиця «група».
4. Збережіть проект, модуль.
5. Внесіть в таблицю 10 груп.
6. Клацніть правою кнопкою на об'єкті Table1 і виберіть
пункт Fields Editor... Додайте поле GROUP (Add - Ok). Після цього
встановіть поле Table1Group.DisplayLabel: Група. Закрити вікно
Table1 Fields.
7. Розмістіть на формі ще одну таку ж групу (DataSource,
Table, DBGrid).
10