Опубликован: 17.08.2010 | Доступ: свободный | Студентов: 999 / 59 | Оценка: 4.11 / 3.89 | Длительность: 29:38:00

Самостоятельная работа 15: Создание СУБД средствами BDE (на примере протокола экзамена кандидатов в водители)

Настройка управляющих элементов пользовательского интерфейса

Настроим помещенные на форму компоненты.

  • Настройте свойства самой формы, как приведено в следующей таблице свойств
    Свойства главной формы TForm
    Свойство Значение
    Name MainForm
    Caption Протокол экзамена
    Width 900
    Height 700
  • Настройте (пока приблизительно) свойства меню главной формы. Для этого двойным щелчком по помещенному на форму компоненту TMainMenu вызовите редактор меню.
  • Установите следующие свойства пунктов меню
    Свойства меню TMainMenu
    Элемент управления Свойство Значение
    TMainMenu Name Menu

    Caption Файл
    Name File
    Caption Открыть
    Name FileOpen
    Caption Закрыть
    Name FileClose

    Caption Редакция
    Name Edit
    Caption Вырезать
    Name EditCut
    Caption Копировать
    Name EditCopy
    Caption Вставить
    Name EditPaste

    Caption Окно
    Name Window
    Caption Список
    Name WindowList
    Caption Поля
    Name WindowField
  • Установите свойства панели управления
    Свойства панели управления TControlBar
    Свойство Значение
    Name ControlBar
    Align alTop
    AutoSize true
    BevelOuter bvNone
  • Настройте панель инструментов, определяемую компонентом TToolBar. На панели должна находиться хоть одна кнопка TSpeedButton, чтобы настроить ее высоту.

    Свойства панелей инструментов TToolBar
    Свойство Значение
    Name ToolBar1
    Align alTop
    AutoSize true
    EdgeInner esNone
    EdgeOuter esNone
    Height 24
    Name ToolBar2
    Align alTop
    AutoSize true
    EdgeInner esNone
    EdgeOuter esNone
    Height 24

    Компонент TPageControl представляет собой контейнер многостраничной панели, каждая страница которой может иметь свое индивидуальное содержание. Чтобы добавить или удалить новую страницу этого компонента, нужно щелкнуть на нем правой кнопкой мыши и выполнить команду New Page или Delete Page соответственно. Каждая добавленная страница является объектом класса TTabSheet и представляет собой панель, на которую можно размещать любые элементы управления. Свойства каждой добавленной страницы настраиваются отдельно через инспектор объектов.

    Свойства многостраничной панели-контейнера TPageControl
    Свойство Значение
    Name PageControl
    Align alClient
    TabPosition tpBottom
  • Через контекстное меню контейнера TPageControl добавьте в него две страницы со следующими свойствами
    Свойства страниц TTabSheet
    Свойство Значение
    Name PageList
    Caption Список
    Name PageField
    Caption Поля
  • Выделите невизуальный компонент TTable и настройте его так
    Свойства поставщика данных TTable
    Свойство Значение Пояснения
    Name Table1 Имя экземпляра класса
    DatabaseName BaseGai Псевдоним нашей базы, созданный ранее
    TableName Base0.dbf Файл с подключаемыми данными
    Active false Флаг установки немедленного соединения с данными
  • Выделите невизуальный компонент TDataSource, который играет роль связующего элемента между поставщиком данных TTable и компонентом визуализации данных TDBGrid, и настройте его так
    Свойства источника данных TDataSource
    Свойство Значение Пояснения
    Name DataSource1 Имя экземпляра класса
    DataSet Table1 Имя компонента - поставщика данных
  • Выделите страницу PageList ("Список") контейнера TPageControl и поместите на нее визуальный компонент TDBGrid из вкладки Data Controls оболочки. Этот компонент будет отображать данные на форме. Настройте его так
    Свойства элемента представления данных TDBGrid
    Свойство Значение Пояснения
    Name DBGrid1 Имя экземпляра класса представления данных
    DataSource DataSource1 Имя промежуточного компонента - источника данных
    Align alClient Распахнуть на всю страницу контейнера TPageControl
  • Настройте объект Table1 так, чтобы он читал все поля базы. Для этого через контекстное меню объекта Table1 (или двойным щелчком на этом компоненте) вызовите редактор полей Fields Editor. В контекстном меню редактора полей выполните команду Add all fields, чтобы читались все поля

  • Отредактируйте заголовки полей объекта DBGrid1. Для этого через контекстное меню объекта DBGrid1 (или двойным щелчком на этом компоненте) вызовите редактор колонок Fields Columns. Щелкните на нем правой кнопкой мыши (или на кнопке панели инструментов редактора) и через контекстное меню выполните команду Add All Fields

  • Редактор колонок заполнится списком полей таблицы. Выделяйте последовательно каждое поле в редакторе колонок и задавайте свойства и подсвойства в соответствии с таблицей (поля, выделенные красным фоном, удалите из элемента визуализации). Это будут заголовки полей, отображаемые для пользователя на экране.
    Заголовки полей в представлении таблицы Base0.dbf
    Field Title/Caption Title/Alignment Title/Font/Size Title/Font/Style/fsBold
    Number № п/п taCenter 10 true
    Name ФИО taCenter 10 true
    Birth Год taCenter 10 true
    Kategor Категория taCenter 10 true
    School Учебная орг. taCenter 10 true
    First_PDD Попытка ПДД taCenter 10 true
    Passed_PDD Результат ПДД taCenter 10 true
    First_DRV Попытка вожд. taCenter 10 true
    Passed_DRV Результат вожд taCenter 10 true
    F1_DRV taCenter 10 true
    P1_DRV taCenter 10 true
    Decision Присвоено taCenter 10 true
    NNN taCenter 10 true
    Exam_Date Дата taCenter 10 true
    Supper taCenter 10 true
Александр Даниленко
Александр Даниленко
Стоит Windows 8 Pro, Visual Studio 2010 Express Edition .