Search options

Как скажите! Просто я подумал, что если кому надо, то выложу! Если нет, ну и ладно.

Всем привет! Если кому-то интересно, могу выложить программу для организации работы, связанной с монтажом наружной рекламы. Возможно кто-то адаптирует под себя или найдет ответы на какие-то вопросы. Делал для себя, есть конечно баги некоторые, но тем не менее уже пару лет помогает в работе. В программе осуществляется выдача заданий на монтаж рекламы, задание выдается на заказчика с указанием исполнителей и объектов работ. Также в зависимости от типа работ ведется учет ЗП исполнителей по этим заданиям, ЗП делится на количество исполнителей. Формируется бланк задания, есть множество отчетов как для заказчиков, так и для исполнителей. Стоимость работ для исполнителей определяется автоматически из прайса, может формироваться отдельно для каждого заказчика. В общем как-то так. Также буду рад советам по оптимизации, так как я не программист и строил функционал приложения так, как понимал, строго не судить!

Автор так и не появился?

В общем у меня заработало так:

procedure Picture1OnBeforePrint(Sender: TfrxComponent);
var
       s, drive, path: string;                                
begin
       drive:= 'W';                                          
       s := <Report."Макет">;
       if s<>'' then Delete(s, 1, 1);                    
       path := drive + s;                                  
       Picture1.FileLink:= path;                                                
end;

Базу использую MySQL, картинки в отдельной папке на сетевом диске. Скрипт пишется в самом отчете на вкладке "Code", отчет нужно открывать в дизайнере.
Вычисляемые поля в таблицу не добавлял, просто указал в запросе для отчета (у меня отчет запросом формируется) поле "photo_filename" (у вас может называться по другому, в зависимости от названия поля с картинкой).
Также в переменную пришлось занести букву диска, иначе путь без нее загружается. Может можно как-то более правильно сделать, но и такой варик у меня работает.

Инфа "сотка"? Если так, то печально!

Всем привет! Чтобы не плодить тем, спрошу тут.
Может ли кто-то подсказать, как отобразить картинку (DBImage) при выборе строки в гриде если используется MySQL, файл линкуется и копируется в папку?

Это вариант не работает (с MySQL), возникает ошибка. Если указываю поле с названием, ничего не происходит.

frmMain.imgPhotoRK.Clear;
frmMain.imgPhotoRK.LoadFromDatabase('Adres', 'photo', frmMain.tgAdresList.dbItemID);