Search options (Page 329 of 400)

Please, see an attach image for detail.

думаю так

procedure Files_OnShow (Sender: string; Action: string);
begin
   Files.DBFile1.dbCopyTo := 'Operators\' +FormatDateTime('yyyy', now)+'\'+FormatDateTime('mmmm', now)+'\'+FormatDateTime('dd', now)+'\Новости';
end;

в условии нужно убрать двоеточие, т.е. так

if Add_Zapis.PageControl1.ActivePageIndex = 0 then
     Files.DBFile1.dbCopyTo := 'Operators\' +FormatDateTime('yyyy', now)+'\'+FormatDateTime('mmmm', now)+'\'+FormatDateTime('dd', now)+'\Новости';

да, просто создайте событие OnClick у кнопки поиска, пример

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
        if ValidInt(Form1.Edit1.Text) then 
           Form1.TableGrid1.dbLimit := StrToInt(Form1.Edit1.Text) 
           else Form1.TableGrid1.dbLimit := 0;
end;

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

Augsberger
Это уже будет не так просто сделать SQL запросом, но возможно.

Я добавил свойство dbLimit для компонента TableGrid в бета версию 1.48, таким образом можно обойтись без SQL запроса.
https://www.dropbox.com/s/6rz92s72djtmv … 8.zip?dl=0

В скрипте между последними begin и end. напишите следующее

Form1.TableGrid1.dbLimit := 1000;

dbLimit
Позволяет задать максимальное количество записей, которое будет выведено в компонент.
Данное свойство работает только в том случае, когда в компонент выводится информация с помощью кнопки с действием "Поиск" или если используется опция компонента "Включить автовыполнение запроса"

menshikov-76
Спасибо за предложение, в этом нет необходимости )

atempbox

procedure ColoredGrid (TableGrid: string);
var
   i,c: integer;
   Grid: TdbStringGridEx;
begin
     Grid := nil;

     // ищем грид  на всех формах
     if Grid = nil then Grid := TdbStringGridEx( Form1.FindComponent(TableGrid) );
     if Grid = nil then Grid := TdbStringGridEx( Form2.FindComponent(TableGrid) );
     if Grid = nil then Grid := TdbStringGridEx( Form3.FindComponent(TableGrid) );

     if Grid=nil then exit; // если не нашли, выходим

     // раскрашиваем
     c := Grid.RowCount - 1;
     for i := 0 to c do
     begin
         if Grid.Cells[3,i] = 'Yes' then Grid.Cell[3,i].Color := clRed;
         if Grid.Cells[3,i] = 'No' then Grid.Cell[3,i].Color := clGreen;
     end;
end;


procedure Form1_GridEmployees_OnChange (Sender: string);
begin
    ColoredGrid(Sender);
end;

в принципе это можно сделать чуть проще, одно созданное событие может использоваться сразу многими компонентами, вам просто необходимо зайти на вкладку События и вставить напротив события OnChange название уже существующего события, например: Form1_GridEmployees_OnChange

Попробовал сделать тоже самое, у меня только один раз вызывается OnChange, возможно какие то другие скрипты принудительно его обновляют. (TableGrid1.dbUpdate;)

можете приложить файл скрипта, посмотрю в чем дело.

SELECT

lastname,
firstname

FROM employees

LIMIT CASE WHEN '{edLimit}'='' then 999999 else '{edLimit}' end;

где edLimit компонент TextBox на форме, если его оставить пустым, то будут выведены все записи (а именно не более 999999)

I made example for you.

Also you can send me your project to support@drive-software.com
or attach here zip file without exe and dll files

jazzitcool

В простейшем случае можно без скриптов, используя свойство ComoboBox-a, Filter написать туда условия для отбора мастеров, например:
id=2
или
id=2 or id=3
или
id=2 or id=3 or id=5

где цифры, это идентификатор мастера в базе, данный идентификатор можно увидеть, если добавить поле id в настройках грида GridMaster, на форме frmDict

к сообщению приложил доработанный проект

Это можно сделать скриптом, пожалуйста, приложите пожалуйста тестовый проект к сообщению, я его доработаю.

По умолчанию все программы как правило устанавливаются в папку Program Files, которая требует прав администратора для записи.

Если я сделаю инсталятор, который не будет запрашивать прав администратора, и после чего пользователи будут пытаться установить программу в привычное для них место (Program Files), они получать сообщение об ошибке привилегий.
Я считаю, в результате получиться больше проблем чем пользы.

Большинство программ с инсталятором запрашивают права администратора.

Установленную папку с программой вы можете перенести в удобное для вас место, это никак не повлияет на ее работу.