Search options (Page 385 of 400)

Hello,

I think that is possible, but maybe I'm wrong you understand please do a project, so I can clearly see what you need.

1. На форме SotrudnikiAdd у гридов UsersComputer и TableGrid2 просто снимите галочку в настройках: "Включить автовыполнение запроса (показать все записи в таблице)"

2. Сводный грид сделать получиться только с помощью SQL запроса, в котором необходимо объединить 5 таблиц с помощью команды UNION, подробней об этом можно прочитать здесь http://www.sql.ru/docs/sql/u_sql/ch14.shtml

3. просто в грид добавить поле с данными о мониторе, т.о. в таблице будут данные вида:
Иванов А. А.   Монитор №345234534
Иванов А. А.   Монитор №754674567

atempbox
пока точно не могу ответить, возможно есть какой либо способ, но я пока не выяснил.

Воспользуйтесь событием кнопки OnClick

Срабатывает при нажатии кнопки
Данное событие имеет переменную Cancel, которая позволяет предотвратить выполнение действия, которое было назначено для кнопки, например если кнопка имеет действие Сохранить запись, вы можете выполнить проверку, все ли необходимые поля на форме заполнены, и если это не так, присвоить переменной Cancel значение True, что в свою очередь предотвратит выполнение действия Сохранить запись.

пример:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
   if Form1.Edit1.Text='' then
   begin
      ShowMessage('Незаполнено обязательное поле.');
      Cancel := True;
   end;
end;

Добавил для этого свойство SelectedRow
Скачайте 1.41 версию
https://www.dropbox.com/s/fr76z69sc69l1 … 201.41.zip

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    
   ShowMessage(Form1.GridSearch.Cells[1,Form1.GridSearch.SelectedRow]);

end;

здесь показывается сообщение с текстом ячейки в 1 колонке выбранной строки грида.

Спасибо за идеи

Владислав Косяков

Если изменяется таблица, которая выводится в грид с авто выполнением, то это отслеживается и обновляется автоматически, но в данном случае изменятся другая, связанная таблица, поэтому придется обновить самостоятельно:
Form1.TableGrid1.dbUpdate;

этот метод я только что добавил, скачайте последнюю версию по этой ссылке:
https://www.dropbox.com/s/fr76z69sc69l1 … 201.41.zip

Sorry for delay.

Example how to change background cell and text color
Form1.TableGrid1.Cell[0, 0].Color:= clRed;
Form1.TableGrid1.Cell[0, 0].TextColor:= clGreen;

But first, please download unofficial 1.41 version
https://www.dropbox.com/s/fr76z69sc69l1 … 201.41.zip

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

djon.home

Тогда думаю только UNION поможет, заголовки можно задать в двух запросах одинаковые, с помощью псевдонимов, SELECT field as "fieldname" и в каждом отдельном запросе завести дополнительное поле, в котором будет содержать некий идентификатор, чтобы различать  в отчете данные от какого запроса пришли, например

SELECT "01" as "idsql", field...

UNION

SELECT "02"  as "idsql", field...

а далее в отчетах можно уже воспользоваться скриптом при необходимости, чтобы различить данные, от какого запроса пришли, с помощью поля idsql

Вам нужна связь многие ко многим?
когда компьютер может иметь несколько пользователей, а пользователь может иметь несколько компьютеров?