Search options (Page 384 of 400)

i think you have wrong path to file, please try to open this on Explorer:
\\AIRMITI$\AIRPF001\Z:\WIP\WIP.accdb

it's works?

Обновить данные с помощью скрипта в гриде можно методом dbUpdate, пример
Form1.TableGrid1.dbUpdate

но тут нужно придумать механизм, который будет обновлять автоматически данные в гридах, при изменении данных в базе данных, первое что приходит на ум, это создать еще одну таблицу в базе данных, и вешаем скрипт на кнопку Сохранить, чтобы она писала в эту таблицу случайное число. Так же в скрипте необходимо создать объект TTimer, который будет периодически читать это случайное число из таблицы БД и запоминать его, в случае если оно изменилось, то вызывать метод dbUpdate у необходимого грида.

Вы это вполне сможете реализовать если знакомы с Delphi.

это можно сделать только с помощью скрипта, пример:

// событие OnAfterClick кнопки поиска
procedure Form1_bSearch_OnAfterClick (Sender: string); 
var
   i,c: integer;
begin
     c := Form1.TableGrid1.RowCount-1; // получаем количество строк в гриде
     for i := 0 to c do // цикл перебора всех строк
     begin
          // красим ячейку в зависимости от текста в ней, в колонке 7
          if Form1.TableGrid1.Cells[7,i] = 'Принято' then Form1.TableGrid1.Cell[1,i].Color := clYellow;
          if Form1.TableGrid1.Cells[7,i] = 'Ремонтируется' then Form1.TableGrid1.Cell[1,i].Color := clRed;
          if Form1.TableGrid1.Cells[7,i] = 'Готов' then Form1.TableGrid1.Cell[1,i].Color := clGreen;
     end;

end;

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

перед использование данного скрипта, скачайте последнюю неофициальную версию 1.41
https://www.dropbox.com/s/fr76z69sc69l1 … 201.41.zip

carlo_dj

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

Извиняюсь, допустил ошибку, попробуйте так

procedure OborudAdd_ButtonAddDoc_OnClick (Sender: string; var Cancel: boolean);
var
   id: integer;
begin
     id := OborudAddDoc.OborudAddDocTab.dbItemID;
     SQLexecute('UPDATE Oborud SET id_DocS = '+ IntToStr(BD.TabDoc.dbItemID) +' WHERE id = ' + IntToStr(id) );
     OborudAddDoc.ButtonCancel.Click;
end;

закрыть форму
OborudAddDoc.Close;

Syntax is correct, do you get any message of error?

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

id := OborudAddDoc.OborudAddDocTab.dbItemID;
SQLexecute('UPDATE Oborud SET id_DocS = '+ cbDocs.dbItemID +'  WHERE id = ' +  IntToStr(id) );

где cbDocs это комбобокс с нужным выбранным значением документа или TableGrid

Hello,

1. Please, send me project folder, where you can't save picture.
support@drive-software.com

2. In current version you can make export from TableGrid to Excel using button with action "Open in Excel"
For create report, you should use SQL query, in the future it will be possible without SQL.

Thanks.

2. it automatically work with doubleclick or rightclick and choose the "Show Record" if you have button with action "Show Record"
I think it is logical to have a button for editing.

4.  You can make footer in tablegrid, please see images for details:
http://myvisualdatabase.com/forum/myfil … search.png
http://myvisualdatabase.com/forum/myfil … r_grid.png

also you can download project with footer grid:
http://myvisualdatabase.com/database_ex … nvoice.zip

you should not keep the sum of purchases in database, it is not correct, it should always be calculated.

Hello,

You can use freeware program SQLiteStudio for import data from dBase(DBF), also you can make first export to universal format CSV and then make import also by using SQLiteStudio

Да..  в данном случае сортировка поможет

SELECT
"Оборудование, всего",
Count(Oborud.id),
-1 as "id"
FROM Oborud
UNION

SELECT
StatusObS.statusob,
Count(Oborud.id),
StatusObS.id
FROM Oborud
LEFT OUTER JOIN StatusObS ON Oborud.id_StatusObS = StatusObS.id
GROUP BY StatusObS.statusob ORDER BY id;

In current version, you can do it only using script with SQL query.