<<
>>

Пример создания простой формы

В качестве примера разработаем форму для просмотра и редактирования инфор­мации, содержащейся в таблице Физические лица. Данная таблица содержит следу­ющие поля:

? Код — используется в качестве первичного ключа и имеет тип Integer;

? Фамилия, Имя, Отчество, Телефон, Индекс, Страна, Город, Адрес — текстовые поля;

? Дата рождения — поле типа TDateField;

? Пол — поле типа Boolean.

Для отображения текстовых полей и поля Дата рождения будем использовать ком­поненты TDBEdit. Логические поля удобнее отображать с помощью флажков — ком­понентов TDBCheckBox. Кроме того, на форму необходимо поместить компонент TDBNavigator для навигации по набору данных, а также несколько компонентов TLabel, с помощью которых мы будем пояснять назначение полей ввода. Последовательность действий при создании простых форм будет примерно следу­ющей.

1. Для создания нового приложения выполните команду File ► New ► VCL Forms Application. Так как мы работаем только с одной таблицей, то использовать мо­дуль не имеет смысла, и компоненты доступа к данным можно поместить пря­мо на форму.

2. Разместите на форме компонент ТТаЫе. Затем перейдите в палитре компонен­тов на вкладку Data Access и установите на форму KOMnoHeHTTDataSource. Послед­ний необходим для связи набора данных с компонентами визуализации данных.

3. Теперь подключите к компоненту ТТаЫе таблицу Физические лица базы данных Sales. Как это сделать, описано в главе 9.

4. Выделите на форме компонент ТТаЫе и в поле ввода свойства TableName в инс­пекторе объектов укажите имя используемой таблицы — Физические лица.

Следующий этап — настройка источника данных TDataSource. Чтобы связать ис­точник данных с набором данных, используется свойство DataSet.

5. С помощью инспектора объектов укажите в свойстве DataSet имя объекта ТТаЫе (по умолчанию — Table!).

6. Разместите на форме необходимые элементы управления и выполните их на­стройку. Примерный вариант размещения компонентов показан на рис. 10,5.

Рис. 10.5. Пример размещения элементов управления на простой форме

7. Для настройки элементов визуализации полей базы данных (девять полей DBEdit и флажок TDBCheckBox) и элемента навигации по набору данных (TDBNa- vigator) отредактируйте в инспекторе объектов их свойство DataSource. Затем укажите имя источника данных (по умолчанию — DataSourcel) и имя поля набора данных, с которым связывается элемент отображения и редактирова­ния данных.

Осталось написать процедуры открытия и закрытия набора данных. Набор дан­ных должен открываться при запуске приложения и закрываться при его за­вершении. Для открытия набора данных используется метод Open класса ТТаЫе, для закрытия — метод Close того же класса.

8. Вызовите метод Open в обработчике события OnShow главной формы, а метод Close — в обработчике OnClose. Текст модуля разработанной формы приведен в листинге 10.1.

9. Откомпилируйте и запустите программу. Внешний вид окна программы при­веден на рис. 10.6.

Листинг 10.1. Главный модуль приложения с простой формой для ввода данных

unit Unitl:

interface

uses

Windows. Messages. SysUtils. Classes. Graphics, Controls. Forms, Dialogs, ExtCtrls, DBCtrls. StdCtrls, Mask, Db;

type

TfrmSimple = class(TForm)

Label 1: TLabel:

DBEditl: TDBEdit:

DBEdit2: TDBEdit:

DBEdit3: TDBEdit;

Label2: TLabel:

Label3: TLabel:

DBEdit4: TDBEdit:

DBCheckBoxl: TDBCheckBox;

Label4: TLabel:

DBEdit5: TDBEdit:

DBEdit6: TDBEdit:

DBEdit7: TDBEdit:

DBEdit8: TDBEdit:

. DBEdit9: TDBEdit;

Tablet: TTable;

DataSourcel: TDataSource:

DBNavigatorl: TDBNavigator; procedure FormShowCSender: TObject); procedure FormCloseCSender: TObject; var Action:TCloseAction); private

{ Private declarations } public

{ Public declarations } end;

var

frmSimple: TfrmSimple: implementation {$R *.DFM}

procedure TfrmSimple.FormShowCSender: TObject): begin

Tablet.Open; end:

procedure TfrmSimple.FormCloseCSender: TObject;

var Action: TCloseAction): begin

Tablet.Close end:

end.

<< | >>
Источник: Избачков Ю. С., Петров В. Н.. Информационные системы. 2006

Еще по теме Пример создания простой формы:

  1. Простой пример.
  2. III. 1. 1. Простейшие формы вербальных описаний.
  3. Простой пример из обычной жизни. Авторское отступление.
  4. Простой пример из обычной жизни. Авторское отступление.
  5. Простой пример графической ректификации, используя карту страны
  6. § 7 Совершение брака. – Необходимость определительной формы брака. – Римская форма. – Христианское венчание. – Германские народные формы брака. – Неопределительность формы брака и брачного суда на Западе. – Новый взгляд на брак в лютеранской церкви. – Постановление Тридентского собора о форме брака. – Церковный обряд брака у лютеран. – Начало гражданской формы брака в Англии. – Шотландские браки. – Гражданский брак во Франции. – Принятие этой формы в других государствах. – Гражданская форма брач
  7. Примеры жестокости по отношению к другим (эти примеры более всего относятся к семейной жизни):
  8. 3. Формы, порядок совершения завещания Формы завещания:
  9. § 37 История вотчинной записки в России. – Явка актов в приказах. – Справка. – Юридическое и финансовое ее значение. – Аналогия нашей формы с западными. – Изменение старой формы при Петре I. – Новый крепостной порядок и новое значение справки и отказа. – Форма нового отказа и ввода во владение
  10. § 68 Личная и вещественная ответственность по взысканию. – Сущность закладного права. – Первые его формы у римлян. – Меновая форма залога в новых законодательствах. – Ипотека. – Форма ее в римском и в новых законодательствах. – Ручной заклад. – Английские формы залога. – Одностороннее удержание движимого имущества в обеспечение
  11. § 60 Сущность договора о сообществе. – Формы римского права и новых законодательств. – Полное и неполное общение. – Участие и соотношение членов. – Ответственность. – Действие смерти и несостоятельности. – Выход членов. – Расторжение. – Главные формы нового права. – Полное товарищество. – Отношение членов. – Раздел прибылей. – Товарищество на вере. – Закрытое товарищество.
  12. § 8 Значение формы в договоре. – Римская стипуляция и правила иностранных законодательств. – Историческое значение формы в русском законодательстве. – Правила о совершении актов. – Отсутствие руководящего начала. – Колебания судебной прак- тики и наклонность ее к формализму. – Значение явки в актах договора. – Домашние акты. – Словесные соглашения. – Можно ли доказывать их свидетелями? – Гербовый сбор.
  13. 1. Виды простых товариществ
  14. 14.8.2. Традиция создания инструментов
  15. §10. СОЗДАНИЕ ЮРИДИЧЕСКОГО ЛИЦА
  16. 1. Условия договора простого товарищества
  17. 2. Создание и управление учреждением
  18. 5.4. НЕ СДЕРЖИВАЙТЕСЬ, А ПРОСТО ОТКЛЮЧАЙТЕ!
  19. ПОЛЬЗУЙТЕСЬ ПРОСТЫМ ЯЗЫКОМ
  20. 2. Простое торговое (коммерческое) товарищество