1 (edited by kunar80 2021-09-17 08:43:45)

Topic: QR Code

Добрый вечер всем. Прошу помощи в отладке QRCode. При выводе на печать документа в коде должны быть данные из frm1.edBarcode. Но они там не появляются. Проект прилагаю.

Post's attachments

Attachment icon Нумератор v.2.0 — копия.zip 134.5 kb, 29 downloads since 2021-09-17 

Не боги горшки лепят!

Re: QR Code

Приложение дальше редактирования логина не открывается

Библиотека https://mvdlibrary.blogspot.com
Визуальное программирование https://createmyvisualdatabaseapp.blogspot.com

Re: QR Code

k245 wrote:

Приложение дальше редактирования логина не открывается

Спасибо. Перезалил.

Не боги горшки лепят!

Re: QR Code

Лучше не стало - теперь пишет о необходимости купить лицензию )))

Post's attachments

Attachment icon изображение_2021-09-17_124627.png 68.66 kb, 7 downloads since 2021-09-17 

Библиотека https://mvdlibrary.blogspot.com
Визуальное программирование https://createmyvisualdatabaseapp.blogspot.com

Re: QR Code

k245 wrote:

Лучше не стало - теперь пишет о необходимости купить лицензию )))

Странно. Сделано это в лицензионной версии, но довольно старой (1.52). Спасибо за участие. Уже вопрос снимаю.

Post's attachments

Attachment icon лицензия.png 160.61 kb, 6 downloads since 2021-09-17 

Не боги горшки лепят!

6 (edited by vovka3003 2021-09-17 22:37:03)

Re: QR Code

Поставьте в отчет QR-код, в его свойствах укажите DataSet и DataField

https://i.imgur.com/0jSrdNv.png

7 (edited by kunar80 2021-09-20 12:22:56)

Re: QR Code

Сделал другое приложение. Задача всё та же - регистрация справок, выдаваемых департаментом управления персоналом. Всё работает, но есть два "НО":
1) При входе в приложение пользователей 111 и 222 выскакивает сообщение о том, что обработчик событий должен быть процедурой. Хотя на работу приложения это никак не влияет. Не пойму, в чём причина? Скрипт перечитал уже несколько раз вдоль и поперёк.
2) Можно ли уменьшить размер QR кода на печати? Хотелось бы, чтобы он был не более 15х15мм. В настройках по умолчанию стоит 1,53х1,53, на печати выводится 2,8х2,8

Post's attachments

Attachment icon QRCodePrint 2.0.zip 875.66 kb, 36 downloads since 2021-09-18 

Не боги горшки лепят!

8 (edited by sparrow 2021-09-21 21:04:39)

Re: QR Code

kunar80 wrote:

Сделал другое приложение. Задача всё та же - регистрация справок, выдаваемых департаментом управления персоналом. Всё работает, но есть два "НО":
1) При входе в приложение пользователей 111 и 222 выскакивает сообщение о том, что обработчик событий должен быть процедурой. Хотя на работу приложения это никак не влияет. Не пойму, в чём причина? Скрипт перечитал уже несколько раз вдоль и поперёк.

Добрый ...
Вы не создали саму процедуру OnTimer

procedure OnTimer (Sender: TObject);
begin
...
end;

вот одна из ваших тем Обратите внимание на пример sibprogsistem
http://myvisualdatabase.com/forum/viewtopic.php?id=1197
Если таймер не нужен уберите

        Timer := TTimer.Create (Letters);
        Timer.Interval := 1000;
        Timer.Enabled := True;
        Timer.OnTimer := @OnTimer;

2) Можно ли уменьшить размер QR кода на печати? Хотелось бы, чтобы он был не более 15х15мм. В настройках по умолчанию стоит 1,53х1,53, на печати выводится 2,8х2,8

при попытке уменьшить размер QR кода значение сбрасывается на значение по умолчанию для Encoding: qrAuto. Около 2.5 см.
Для QR кода не рекомендуется делать размер меньше 2 х 2 см. в связи с плохой обработкой потом.
Можно поиграться значением PixelSize, (прикрепленное изображение).
Уменьшает, но что из этого получится ... ?

Post's attachments

Attachment icon fastr.jpg 25.58 kb, 4 downloads since 2021-09-21 

Re: QR Code

Спасибо огромное! Всё получилось. По второму пункту поставил значение PixelSize=1.5 (было 2). Размер QR кода уменьшился до 2,1, что вполне устраивает. При меньших значениях PixelSize QR код сканером не читается.

Не боги горшки лепят!

Re: QR Code

Посмотрите еще этот момент у себя

     // если пользователь обладает правами администратора,
          if s='1' then
          frmUsers.Show;
          frmUsers.TableGrid1.dbUpdate;                  
          frmUsers.TableGrid2.dbUpdate;         
          frmUsers.TableGrid3.dbUpdate;

     // если пользователь не обладает правами администратора,          
          if s='0' then
          Letters.Show;
          Letters.TableGrid1.dbUpdate;

После проверки условия if s= ...
выполняется только ....Show;
dbUpdate для форм выполняется подряд.

Возможно так ?

     // если пользователь обладает правами администратора,
          if s='1' then
          begin
            frmUsers.Show;
            frmUsers.TableGrid1.dbUpdate;                  
            frmUsers.TableGrid2.dbUpdate;         
            frmUsers.TableGrid3.dbUpdate;
          end;

     // если пользователь не обладает правами администратора,          
          if s='0' then
          begin
            Letters.Show;
            Letters.TableGrid1.dbUpdate;
          end;