1. Откройте новое приложение. Поместите на форму компоненты TTable, TDataSource, TDBGrid. Свяжите компонент TTable c таблицей Country_r или Country. Свяжите компоненты. Для компонента TTable определите свойство Name tblCountry (чтобы можно было использовать приведенный ниже код) и в свойстве Active оставьте значение False
2. Поместите на форме в верней части панель -компонент TPanel, задайте ее свойству Align значение alTop, а для объекта TDBGrid установите в свойстве Align значение alClient.
3. Для события формы OnCreate поместите код открытия таблицы:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
tblCountry->Open();
}
4. Поместите на панель объект TCheckBox и задайте значение Filter в свойстве Captiоn, в свойстве Name установите значение FFilter. Свяжите следующий метод с событием OnClick для флажка:Для этого перейтите на вкладку Events инспектора объектов и щелкните событие OnClick
void __fastcall TForm1::FFilterClick(TObject *Sender)
{
tblCountry->Filtered=FFilter->Checked;
}
5. Перейдите на вкладку Events (События) объекта TTable и свяжите следующую программу с событием OnFilterRecord:
void __fastcall TForm1::tblCountryFilterRecord(TDataSet *DataSet,
bool &Accept)
{
Accept=tblCountry->FieldByName("Continent")->AsString==DBEdit1->Text;
}
6. Чтобы поле TDBEdit содержало значение текущей записи, нужно установить в свойстве DataSource DataSource1, в свойстве DataField выберите из списка в конце строки значение Continent.
7. Поместите на панель кнопку TButton. Установите в свойстве Name значение FFindNext, а в свойстве Caption значение Find Next. Для события OnClick поместите код:
void __fastcall TForm1::FFindNextClick(TObject *Sender)
{
tblCountry->FindNext();
}
8. Запустите программу на выполнение. Проверьте действие фильтра.
Контрольные вопросы
1. Для чего создается псевдоним БД и в каких утилитах можно создать псевдоним БД?
2. Какие типы полей используются в Paradox? Как установить вторичный индекс?
3. С помощью каких компонент отобразить на форме данные из таблицы БД и какие свойства при этом используются?
4. С помощью каких функций производится поиск нужных записей?
5. Как установить фильтр?
