Search options (Page 2 of 4)

procedure Form1_OnShow (Sender: string; Action: string);
begin
     frmLogin.edPassword.PasswordChar := '*';
     frmLogin.ShowModal; // показываем окно для авторизации
end;

NovayaForma.EdKod2.Text:=Copy ( NovayaForma.MemoKod2..Text,1,3); // с позиции 1 копировать 3 символа

Добрый день !
А есть ли у Вас в планах реализация компонента по обработке данных с СОМ порта ?

Добрый день!
К сожалению пришла пора, когда приходится отказываться от ряда задач под MVDb из за  отсутствия выхода на Com порт.
Сделал проект с использованием PS/2 для ввода параметрических данных от оборудования . Такой вариант показал некоторые неудобства
и отсутствие надежности в синхронизации работы оборудования . Да и очень узок спектр задач , которые можно решать через PS/2.
Использовал прием , когда данные из порта обрабатывал через промежуточный лог-файл , тоже не для задач реального времени .
В общем ПРОШУ добавить новый компонент ( типа   TRS232Edit ) для монитора порта ввода-вывода , который существенно расширит круг возможностей MVDb и сделает Ваш проект по сути весьма универсальным .

if Orders.EXW.Checked then Orders.CFR.Enabled :=False; < ---- уберите вот эту точку с запятой

Спасибо ! Работает.

В такой ситуации проект не запускается на сервере , а грузится на комп пользователя и там запускается.

procedure frmPrihodKolish_Button1_OnMouseDown (Sender: string; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
frmPrihodKolish.Panel2.Color := clRed;
end;

procedure frmPrihodKolish_Button1_OnAfterClick (Sender: string);
   frmPrihodKolish.Panel2.Color := clGreen;
   Beep(2000, 1000); // 2000 - Freq (Hz),  1000 - duration (ms)
end;

Вместо иконок я на кнопки нарезаю панельки и в процессе нажатия на кнопки изменяю цвет этих панелек.
Получаются светодиоды , которые меняют цвет. Полезно при работе по сети (удаленно) , т.е. нажал сохранить - загорелся красный - а потом зеленый.

Уточняю ! Просто открытый отчет базу не блокирует . Был у меня открыт через Инструменты фастрепорт.