1 Topic by maksimzakharov (edited by maksimzakharov 2014-12-10 09:14:09)

  • Registered: 2014-12-10
  • Posts: 22

Topic: Вопрос по программе

Реализована БД оборудования. Заглавная страница является поисковиком и таблицей с выводом информации. Каким образом реализовать очистку полей поиска и таблицы вывода после выполнения поиска, не затрагивая запись в БД.

Все смотрят и никто ничего не пишет, неужели никто не знает?

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

Re: Вопрос по программе

Расположите кнопку на форме и создайте для нее событие OnClick
как создавать событие, можете прочитать здесь
http://myvisualdatabase.com/help_ru/scr … rview.html


procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Edit1.Clear;
    Form1.ComboBox1.dbItemID := -1;
    Form1.TableGrid1.ClearRows;
end;
Dmitry.
  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

Спасибо, короче с помощью скрипта, просто у меня Ваша Free версия где еще нет скрипта.

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

Re: Вопрос по программе

Скачайте пожалуйста эту версию 1.46, она бесплатная и есть скрипты
https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0

Dmitry.
  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

Все вроде правильно, но не работает?

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.edName.Clear;
    Form1.edPolar.Clear;
    Form1.edDiap.Clear;
    Form1.edKU.Clear;
    Form1.edVert.Clear;
    Form1.edHoriz.Clear;
    Form1.edElectr.Clear;
    Form1.edParam.Clear;
    Form1.edProizv.Clear;
    Form1.Table1.ClearRows;
end;

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

Re: Вопрос по программе

maksimzakharov
пришлите пожалуйста ваш проект на support@drive-software.com
посмотрю где ошибка.

Dmitry.
  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

Заново переписал скрипт и все заработало, не понял правда в чем была причина, вроде все было также, только теперь сделал копипаст с конкретных TextView в Properties.

  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

Да кстати еще вопрос: при задании поиска обязательно пользоваться % при неполном описании и как можно реализовать, чтобы при неполном написании значения поиска он выдавал результат по тому что есть?

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

Re: Вопрос по программе

maksimzakharov
у компонента TextBox есть свойство Filter, выберите в нем значение %s%

Dmitry.
  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

Спасибо огромное.
Еще один вопрос: в уже готовой проге скорее всего внутри уже есть прописанный скрипт для моей кнопки поиск, как его найти и в каком файле, чтобы выдернуть и просто скопипастить для ячейки Textbox, чтобы при нажатии на кнопку Enter выполнялся тот же самый поиск, что и при нажатии на кнопку поиск.

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

Re: Вопрос по программе

Вам необходимо перенести настроенную кнопку из одного проекта в другой? Вы можете сделать это через буфер обмена, нажав по кнопке правой кнопкой мыши и выбрать "Copy", и вставть в другом проекте "Paste"

Dmitry.
  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

Нет я просто хочу чтобы при занесении данных в поля поиска можно было не пользоваться кнопкой поиск (как сейчас реализовано), а выполнялся поиск по нажатии допустим кнопки Enter.

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

Re: Вопрос по программе

Для этого,у необходимых текстовых полей необходимо создать событие OnKeyDown

procedure Form1_Edit1_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if Key=13 then Form1.ButtonSearch.Click; // 13 - это код клавиши Enter
end;
Dmitry.
  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

Я на все Textbox реализовал скрипт

procedure Form1_edName_OnEnter (Sender: string);
begin
Form1.Button1.OnClick;              (на этой кнопке забинден ПОИСК)
end;

но он не работает

  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

Попробовал Ваш метод, но он почему-то тоже не работает

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

Re: Вопрос по программе

замените Form1.Button1.OnClick;     на   Form1.Button1.Click;

Dmitry.
  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

В этом случае поиск срабатывает при установке маркера ввода в поле, а мне надо, чтобы при нажатии Enter.

Кстати при реализации OnKeyPress все работает, при вводе поиск прорабатывается при каждом новом нажатии и все бы было прекрасно, но он запаздывает на шаг: т.е. я ввожу первый знак (допустим 8) и у меня происходит пустой поиск, ввожу второй знак допустим 7 и прорабатывается поиск по 8. Было бы круто убрать запаздывание на 1 шаг и было бы реализована отработка поиска при введении данных.

  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

Нашел бегущий поиск получился при OnChange

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

Re: Вопрос по программе

Вы все перепутали )
посмотрите еще раз более внимательней мой пример.


Если вам необходимо, чтобы поиск работал по мере набора текста, у компонента TextBox есть свойство Increm. Search, где вы можете указать кнопку Поиска, более подробней об этом можно прочитать здесь:
http://myvisualdatabase.com/help_ru/com … earch.html

Dmitry.
  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

Спасибо большое, действительно, надо учить матчасть.
P.S. smile но все -таки и с OnChange происходит тоже самое.
Единственное, получается кнопка поиска как таковая не нужна, но необходима, чтобы ее использовать для назначения.

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

Re: Вопрос по программе

В этом случае кнопку Поиска можете скрыть, используя ее свойство Visible

Dmitry.

22 Reply by maksimzakharov (edited by maksimzakharov 2014-12-11 11:45:34)

  • Registered: 2014-12-10
  • Posts: 22

Re: Вопрос по программе

Как много нужно еще узнать smile. Спс.