 |
Листинг 1. Главный модуль приложения с простой формой для ввода данных
|
|
|
|
Пример создания простой формы
В качестве примера разработаем форму для просмотра и редактирования информации, содержащейся в таблице «Физические лица». Данная таблица содержит следующие поля:
· «Код» - используется в качестве первичного ключа, тип Integer;
· «Фамилия», «Имя», «Отчество», «Индекс», «Страна», «Город», «Адрес», «Телефон» - текстовые поля;
· «Дата рождения» - поле типа TDateField;
· «Пол» - поле типа Boolean;
Для отображения текстовых полей и поля «Дата рождения» будем использовать компоненты TDBEdit. Логические поля удобнее отображать с помощью флажков — компонентов TDBCheckBox. Кроме того, на форму необходимо поместить элемент TDBNavigator для обеспечения навигации по набору данных, а также несколько обычных элементов TLabel, с помощью которых будем пояснять назначение полей ввода.
Последовательность действий при создании простых форм будет примерно следующей:
1. Для создания нового приложения выполните команду File > New Application. Tак как мы работаем только с одной таблицей, то использовать модуль не имеет смысла и компоненты доступа к данным можно поместить прямо на форму. Как было указано ранее, при работе с базами данных MS Access для доступа к данным удобнее всего использовать технологию ADO.
2. Используя вкладку ADO палитры компонентов, разместите на форме компонент TADOTable. Затем перейдите в палитре компонентов на вкладку Data Access и установите на форму компонент TdataSource. Последний необходим для связи набора данных ADO с компонентами визуализации данных.
Теперь необходимо подключить к компоненту TADOTable таблицу «Физические лица» базы данных Sales.mdb.
3. Выделите на форме компонент TADOTable и щелкните на кнопке с многоточием в поле ввода свойства ConnectionString в инспекторе объектов.
|
|
|
4. В открывшемся окне диалога ConnectionString выберите переключатель Use Connection String и щелкните на кнопке Build.
5. На вкладке Provider открывшегося окна диалога Data Link Properties задайте вид соединения с базой данных — Microsoft Jet 4.0 OLE DB Provider
6. Укажите имя подключаемой базы данных в поле ввода Select or enter a database name на вкладке Connection окна диалога Data Link Properties и щелкните на кнопке ОК (предварительно можно щелкнуть на кнопке Test Connection, чтобы убедиться, что база данных подключена корректно).
Теперь, после подключения базы данных, необходимо указать используемую таблицу.
7. Выделите на форме компонент TADOTable и затем в поле ввода свойства TableName в инспекторе объектов укажите имя используемой таблицы — Физические лица.
Следующий этап — настройка источника данных TDataSource. Чтобы связать источник данных с набором данных, используйте свойство DataSet.
8. С помощью инспектора объектов укажите в свойстве DateSet имя объекта TADOTable (по умолчанию — ADOTable1).
9. Разместите на форме необходимые элементы управления и выполните их настройку. Примерный вариант размещения компонентов показан на рис. 10.8.
10. Для настройки элементов визуализации полей базы данных (девять полей ввода TDBEdit и флажок TDBCheckBox) и элемента навигации по набору данных (TDBNavigator) отредактируйте в инспекторе объектов их свойство DataSource. Затем укажите имя источника данных (по умолчанию — DataSourcel) и имя поля набора данных, с которым связывается элемент отображения и редактирования данных.
Осталось реализовать процедуры открытия и закрытия набора данных. Набор данных должен открываться при запуске приложения и закрываться при его завершении. Для открытия набора данных используется метод Open класса TADOTable, для закрытия — метод Close того же класса.
11. Вызовите метод Open в обработчике события OnShow главной формы, а метод Close — в обработчике OnClose.
Текст модуля разработанной формы приведен в листинге 1.
|
|
|
Листинг 1. Главный модуль приложения с простой формой для ввода данных
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Db, ADODB;
type
TForm - class(TForm)
Label1: TLabel:
DBEditl: TDBEdit;
DBEd1t2: TDBEdit;
DBEditS: TDBEdit:
Label2: TLabel:
Label3:TLabel:
DBEdit4: TDBEdit:
DBCheckBoxl: TDBCbeckBox;
Label4: TLabel:
DBEditS: TDBEdit:
DBEdit6: TDBEdit:
DBEdit7: TDBEdit:
DBEditS: TDBEdit:
DBEdit9: TDBEdit:
ADOTablel: TADOTable;
DataSourcel: TDataSource:
DBNavigatorl: TDBNavigator;
procedure FormShow(Sender: TObject):
procedure FormClose(Sender: TObject;var Action:TC1oseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form: TForm;
implementation
{$R *.DFM}
procedure TForm.FormShowCSender: TObject);
begin
ADOTablel.Open:
end;
Procedure TForm.FormClose(Sender: TObject; var Action: TCloseActlon):
begin
ADOTable1.Close
end;
end.
Откомпилируйте и запустите программу.
|
|
|
