• Registered: 2016-09-06
  • Posts: 36

Topic: Очистка параметров поиска.

Добрый день.
Есть пример обнуления поиска? Или как это проще сделать.
Задача состоит в том чтобы была кнопка очистки ранее введенных данных для поиска по базе.

  • Registered: 2014-04-17
  • Posts: 64

Re: Очистка параметров поиска.

Добавь кнопку со свойством Новая запись

  • Registered: 2016-09-06
  • Posts: 36

Re: Очистка параметров поиска.

Новая запись должна открывать новую форму.
А нужно просто очистит параметры в текущей.
Тем более при открытии нового окна, параметры поиска не изменятся.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Очистка параметров поиска.

Пример

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Edit1.Clear;
    Form1.ComboBox1.dbItemID := -1;
    Form1.DateTimePicker1.Checked := False;
end;
Dmitry.
  • Registered: 2016-09-06
  • Posts: 36

Re: Очистка параметров поиска.

Спасибо.
Все получилось.

6 Reply by shiriyev20 (edited by shiriyev20 2018-09-02 05:56:30)

  • Registered: 2018-09-01
  • Posts: 7

Re: Очистка параметров поиска.

Добрый вечер..Спасибо за такую программу..   Я самоучка методом тыка , Уже как пару дней не получается сделать кнопку с функцией очистки  Texbox. Если вам не трудно сможете сделать примерный проект. не могу понять что я не правильно вставляю.что после нажатия  на  Button1.. TextBox не очищается. Зарание большое спасибо
https://ibb.co/iZBzpe

  • Registered: 2017-06-11
  • Posts: 25

Re: Очистка параметров поиска.

shiriyev20 wrote:

Если вам не трудно сможете сделать примерный проект. не могу понять что я не правильно вставляю.что после нажатия  на  Button1.. TextBox не очищается.

Вот, скачайте пример: https://drive.google.com/file/d/1q5uFUQ … sp=sharing

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,673

Re: Очистка параметров поиска.

Hello Shiriyev20,
Посмотрите прилагаемый пример и снимок экрана.
Вам нужно связать «button1» с «событием» (в этом примере, дважды щелкнув событие «onclick»).
Когда вы это сделаете, в скрипте автоматически создается пустая процедура. Затем вы добавляете свой код между «begin» и «end» в рамках процедуры.
Надеюсь, это поможет.
Дерек
(с переводчиком google)

Post's attachments

Attachment icon shiriyev.zip 495.89 kb, 324 downloads since 2018-09-02 

9 Reply by shiriyev20 (edited by shiriyev20 2018-09-02 14:03:25)

  • Registered: 2018-09-01
  • Posts: 7

Re: Очистка параметров поиска.

derek wrote:

Hello Shiriyev20,
Посмотрите прилагаемый пример и снимок экрана.
Вам нужно связать «button1» с «событием» (в этом примере, дважды щелкнув событие «onclick»).
Когда вы это сделаете, в скрипте автоматически создается пустая процедура. Затем вы добавляете свой код между «begin» и «end» в рамках процедуры.
Надеюсь, это поможет.
Дерек
(с переводчиком google)



Спасибо за ответ все получилось но есть небольшой нюанс.  В данной ситуации у меня 4 TextBox-а  при вписывания
этого кода

procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
begin
  form1.edit1.Clear;
  form1.edit1.setfocus;

end;
Очистка  происходит только в первом Textbox .
Как правильно прописать код что бы очищались все 4 textBox .
Спасибо за такой быстрой ответ успехов вам

  • Registered: 2017-06-11
  • Posts: 25

Re: Очистка параметров поиска.

shiriyev20 wrote:

Спасибо за ответ все получилось но есть небольшой нюанс.  В данной ситуации у меня 4 TextBox-а  при вписывания
этого кода

procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
begin
  form1.edit1.Clear;
  form1.edit1.setfocus;

end;
Очистка  происходит только в первом Textbox .
Как правильно прописать код что бы очищались все 4 textBox .

Просто допишите в код с новой строки:

form1.edit2.Clear;
form1.edit2.setfocus;

form1.edit3.Clear;
form1.edit3.setfocus;

form1.edit4.Clear;
form1.edit4.setfocus;

NB! Вместо edit1, edit2, edit3, edit4 впишите имена ваших компонентов (как вы их назвали).

  • Registered: 2018-09-01
  • Posts: 7

Re: Очистка параметров поиска.

shiriyev20 wrote:
derek wrote:

Hello Shiriyev20,
Посмотрите прилагаемый пример и снимок экрана.
Вам нужно связать «button1» с «событием» (в этом примере, дважды щелкнув событие «onclick»).
Когда вы это сделаете, в скрипте автоматически создается пустая процедура. Затем вы добавляете свой код между «begin» и «end» в рамках процедуры.
Надеюсь, это поможет.
Дерек
(с переводчиком google)



Спасибо за ответ все получилось но есть небольшой нюанс.  В данной ситуации у меня 4 TextBox-а  при вписывания
этого кода

procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
begin
  form1.edit1.Clear;
  form1.edit1.setfocus;

end;
Очистка  происходит только в первом Textbox .
Как правильно прописать код что бы очищались все 4 textBox .
Спасибо за такой быстрой ответ успехов вам


Спасибо но уже сам исправил .. думаю такой вариант правильный.
begin
  form1.edit1.Clear;
  form1.edit2.Clear;
  form1.edit3.Clear;
  form1.edit4.Clear;
  //form1.edit1.setfocus;
  end;
Только одно не могу понять, для чего нужно ?
form1.edit1.setfocus;

12 Reply by derek (edited by derek 2018-09-02 14:19:10)

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,673

Re: Очистка параметров поиска.

Hello,
Попробуй это.
Теперь вы можете очистить все 4 поля с помощью кнопки 1 или каждого поля отдельно.
form1.edit1.setfocus помещает курсор обратно в edit1 (вы можете сделать это, щелкнув мышью, но это лучше для пользователя, я думаю).
Но вы можете удалить form1.edit1.setfocus из сценария, если вы этого не хотите
С уважением,
Derek.
Извините TroNaDor - я не видел, что вы уже ответили

Post's attachments

Attachment icon shiriyev 2.zip 496.71 kb, 320 downloads since 2018-09-02