Как закрыть форму поиска по базе данных?

← →
Нулевой © (2005-02-11 12:29) [0]

При нажатии на кнопку (на главн. форме) появляется форма поиска.
В edit водят чего-то...далее код формы поиска примерно так:
procedure TFormSearch.SearchBtnClick(Sender: TObject);
FormSearch.Hide;
FormSearch.Close;
DataSet.Close;
SQL.Add;
....
DataSet.Open;
...
end;
сама форма поиска создается так
procedure FormSearch_Show;
var
Frm: TForm;
begin
Frm := TForm.Create(Application);
try
Frm.ShowModal;
finally
Frm.Free;
end;
end;
Проблема в том, что при нажатии кнопки НАЙТИ
форма исчезает на половину, добавлял перед Close - Update формы
результат нулевой.
В случае без FormSearch.Hide форма висит - кнопка вдавлена.
Как правильно обработать эту ситуацию?
Хотелось бы чтоб при нажатии кнопки НАЙТИ
форма исчесла сразу // вопрос ??? как !?
курсор часы // понятно как
после DataSet.Open вернуть курсор //здесь понятно
Правда в базе примерно 100000 записей. FB1.5-FBPLUS
Когда записей немного проблем нет. Все быстро.
Помогите кто чем может. Спасибо.

← →
Ega23 © (2005-02-11 12:32) [1]

Вставь операции поиска после Frm.ShowModal. При этом анализируй ModalResult.

← →
Jay1982 © (2005-02-11 12:33) [2]

Frm.Destroy ?

← →
Jay1982 © (2005-02-11 12:34) [3]

Frm.Destroy ?

← →
Нулевой © (2005-02-11 13:00) [4]

Frm.Destroy - не помогат.

Ega23
т.е. как я понял так
try
Frm.ShowModal;
//добавить
DataSet.Close;
SQL.Add;
....
DataSet.Open;
//
finally
Frm.Free;
end;

← →
Нулевой © (2005-02-11 13:03) [5]

Frm.Destroy - не помогат.

Ega23
т.е. как я понял так
try
Frm.ShowModal;
//добавить
DataSet.Close;
SQL.Add;
....
DataSet.Open;
//
finally
Frm.Free;
end;

← →
Ega23 © (2005-02-11 13:12) [6]

т.е. как я понял так
try
Frm.ShowModal;
//добавить
DataSet.Close;
SQL.Add;
....
DataSet.Open;
//
finally
Frm.Free;
end;

Ага. Только
try Frm.ShowModal; if Frm.ModalResult=mrOK then ....

← →
DesWind © (2005-02-11 13:16) [7]

Тока кнопкам на форме в свойстве ModalResult тож нада проставить mrOk и mrCancel соответственно

← →
Ega23 © (2005-02-11 13:27) [8]

Тока кнопкам на форме в свойстве ModalResult тож нада проставить mrOk и mrCancel соответственно

Само-собой.
Только я предпочитаю только кнопке "Отмена" ModalResult выставлять.
На "ОК" ("Применить", "Найти" и т.п.) обычно следующий код идёт:

begin if not Проверка_На_Дурака then Exit; // смотрим, чтобы везде стояли адекватные значения if not ConfirmMessage then Exit; Do Something; ModalResult:=mrOK; end;

Я эт вешаю на CloseQuery

Можно и так...

Стормозил...
Мне подошло проще ГлавнФорма.Update, чё сразу не увидел, закипел.
Кнопки в проекте левые Свойства ModalResult - нет.
Спасибо всем!

Как закрыть форму поиска по базе данных? Найти похожие ветки