Search options (Page 137 of 400)

larek.klaks
На форме frmClientLis в настройках кнопки Поиск в 1 пункте настроек у вас добавлен компонент TableGrid1, получается что вы одновременно его используете и как критерий поиска и как компонент для вывода результатов поиска.

В вашем случае данная кнопка Поиск не нужна, удалите ее, а в настройке компонента TableGrid1 поставьте галочку "Включить автовыполнение запроса"

Можно сделать например такую функцию, для создания уникального номера

function GetUniqNumber: string;
begin
    result := FormatDateTime('yymmddhhnnsszzz', now) + IntToStr(trunc(Random*9999));
end;

для создания уникального номера используется текущая дата, время и случайное число, что исключает повторов.

Если будут сложности с использованием функции, приложите ваш проект и опишите, где именно должен присваивается уникальный номер в вашем проекте.

Hello.

I have changed user agent for the browser. Please download latest beta version
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0

Also I made some changes in your project:

Another example for you.

этот блок должен быть в самом верху скрипта, на строке 1

var
   sUser: string = '';
   idUser: integer;
   isAdmin: boolean;  

Hello.

The Chart, radio button is planned.

Thanks.

Скачайте пожалуйста последнюю бета версию, исправил ошибку, которая не давала правильно производить поиск с использованием маски
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0

Ошибка также возникала из за этой строки

Podset.TableGrid1.dbPopupMenu.Items[2].OnClick := @frmNew;

т.к. в скрипте не определено, что такое frmNew

Исправленный проект:

Тогда можно поместить на форму TableGrid, в котором будет показана эта запись, но сам компонент скрыть (установить свойство Visible=False)

Затем для кнопки с действием "Показать запись" создать событие OnClick, в котором будет выбрана данная запись

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.TableGrid1.dbItemID := 1;
end;

Тогда можно воспользоваться функцией ShowRecord, но вы должны знать id записи, например id=1

ShowRecord(Form2, 'tablename', 1);

К сожалению не смог воспроизвести ошибку, тестировал в версии 1.44

Опишите пожалуйста точную последовательность действий, которые приводят к ошибке.

Значение суммы столбца можно пересчитать скриптом, пример

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    if Frac(Form1.TableGrid1.Columns[0].Footer.FormulaValue)>0 then
        Form1.TableGrid1.Columns[0].Footer.Caption := FloatToStr(Trunc(Form1.TableGrid1.Columns[0].Footer.FormulaValue)+1);
end;

Not yet.