chartcatuser wrote:k245 wrote:chartcatuser wrote:Клавиатура используется для ввода логина и пароля на терминале с сенсорным экраном
Вы создаете программы для терминалов? И часто заказывают?
Подскажи если не трудно вариант решения
Я прикладываю проект я не могу объединить два скрипта: суть в таблице определеные значения одной нопкой жмем и сразу всем присваиваеться статус checkboxa = 1 или 0 и автоматом ставиться дата тоже всем
У вас другая проблема: вы не можете сформулировать правильно вопрос.
В процедуре ChangeValues1() у вас дата ставится только, если передаваемый параметр = True, если передать False, то ваш скрипт выдаст ошибку. Вы с бизнес-логикой сначала разберитесь, а потом уже скрипты объединяйте.
Если же нужен скрипт без параметра, который ставит дату и присваивает значение полю isSmoke, то вот он:
procedure ChangeValues1;
var
i: integer;
begin
for i := 0 to Form1.GridEmployees.RowCount-1 do
begin
if Form1.GridEmployees.Selected[i] then
begin
SQLExecute('UPDATE employees SET DateOfBirth = '+Form1.dtDateOfBirth.sqlDate +', isSmoke = 1 WHERE id='+IntToStr(Form1.GridEmployees.dbIndexToID(i)));
end;
end;
Form1.GridEmployees.dbUpdate;
end;
Визуальное программирование:
блог и
телеграм-канал.