Разработка формы «Поиск записей» в документе. «Заявление на потребительский кредит»

Создаем новую форму New Form, в его свойствах укажем следующее: св-во Caption Поиск записей, NamefPoick.

На форму установить следующие компоненты:

Страница «Standard».

Выделяем компоненту Button1 и в его свойстве Caption укажите «НАЙТИ», а в Button2- Очистить поиск записей.

Выделяем компоненту ComboBox1 и в его свойстве Items составим список полей таблицы, по которым будет осуществляться поиск записей.

Рис 4.9 Окно поиска записей

Выделяем компоненту MaskEdit1 и в его свойстве EditMask создадим маску для поля дата договора, выбрав Date.

Рис 4.10 Окно маски ввода

Выделив компоненту Button1, в Object Inspertor на странице Events вызовите событие OnClick двойным нажатием правой кнопкой мыши.

При поиске записей работает метод Locateпоиск по произвольным полям.

В метод Locate необходимо передать список полей, по которым будет идти поиск (параметр KeyFields, имена полей разделяются точкой с запятой), их требуемые значения (параметр KeyValues, значения разделяются запятой) и настройки поиска (параметр options) /28/.

В случае успеха поиска курсор набора данных устанавливается на найденной записи, а метод возвращает значение True.

Обработчик события для поиска записей следующий:

void __fastcall TfPoick: Button1Click (TObject *Sender).

{.

TLocateOptions SearchOptions;

SearchOptions;

if (ComboBox1->Text=="Заемщик").

fZavka->ADOZavka->Locate («FIO», Edit1->Text, SearchOptions);

if (ComboBox1->Text=="Дата").

fZavka->ADOZavka->Locate («Data», MaskEdit1->Text, SearchOptions);

if (ComboBox1->Text=="№ Заявления").

fZavka->ADOZavka->Locate («Nomer», Edit2->Text, SearchOptions);

fPoick->Close ();

}.

Форму сохранить под именем Poick.pas.

автоматизация потребительский кредит коммерческий банк.