Вот, убрал exe.

4 Мб, он говорит большой файл, сервер отклонил загрузку.

Почему-то перестали заноситься данные, при нажатии ОК выдает ошибку.

Почему-то перестали заноситься данные в уже готовые программы. Выдает: unable to open database file.
Не могу понять в чем причина.

5

(7 replies, posted in Russian)

DriveSoft wrote:
maksimzakharov wrote:

И еще один вопрос, что некорректно в данной части скрипта:

if StrToFloat(frmPoisk.tablRezultatPoiska.Cells[2,r]) < StrToFloat(frmPoisk.tablRezultatPoiska.Cells[3,r])
               and StrToFloat(frmPoisk.tablRezultatPoiska.Cells[4,r])=nil
               THEN frmPoisk.tablRezultatPoiska.Cell[2,r].Color := clRed;


попробуйте так

if (ValidFloat(frmPoisk.tablRezultatPoiska.Cells[2,r])) and 
   (ValidFloat(frmPoisk.tablRezultatPoiska.Cells[3,r])) then 
        if (StrToFloat(frmPoisk.tablRezultatPoiska.Cells[2,r]) < StrToFloat(frmPoisk.tablRezultatPoiska.Cells[3,r])) and
        (frmPoisk.tablRezultatPoiska.Cells[4,r]='') then frmPoisk.tablRezultatPoiska.Cell[2,r].Color := clRed;

Спасибо, работает.

6

(7 replies, posted in Russian)

И еще один вопрос, что некорректно в данной части скрипта:

if StrToFloat(frmPoisk.tablRezultatPoiska.Cells[2,r]) < StrToFloat(frmPoisk.tablRezultatPoiska.Cells[3,r])
               and StrToFloat(frmPoisk.tablRezultatPoiska.Cells[4,r])=nil
               THEN frmPoisk.tablRezultatPoiska.Cell[2,r].Color := clRed;

7

(7 replies, posted in Russian)

То есть сформулирую проще: можно ли в TableGrid установить в столбцах фильтры, по аналогии с Excel?

8

(7 replies, posted in Russian)

Ну например: у меня есть уже готовая и заполненная база данных, я вывожу в нее с помощью различных групп информацию, но мне необходимо еще фильтрануть в TableGride, допустим по цвету ячеек (у меня в скрипте прописана раскраска ячеек при определенных условиях).

9

(7 replies, posted in Russian)

Есть необходимость фильтрования выведенной информации в TableGrid (по аналогии как в Excel), есть ли такая программная возможность.

10

(21 replies, posted in Russian)

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

11

(21 replies, posted in Russian)

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

12

(21 replies, posted in Russian)

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

13

(21 replies, posted in Russian)

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

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

14

(21 replies, posted in Russian)

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

15

(21 replies, posted in Russian)

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

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

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

16

(21 replies, posted in Russian)

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

17

(21 replies, posted in Russian)

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

18

(21 replies, posted in Russian)

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

19

(21 replies, posted in Russian)

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

20

(21 replies, posted in Russian)

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

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;

21

(21 replies, posted in Russian)

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

22

(21 replies, posted in Russian)

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

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