Search options (Page 3 of 3)

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

Скрипт такой

procedure Login_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer); // определение пользователя, пароля

var
str : integer;
begin
    str := Login.TableGrid1.SelectedRow;                //определяем выбранную строку в таблице
    Login.Edit1.Text:= Login.TableGrid1.Cells[0,str];// записываем в текстовое поле данные с колонок по выбранной строке
    Login.Edit2.Text:= Login.TableGrid1.Cells[2,str];
    sUser:= Login.TableGrid1.Cells[1,str];

end;

procedure Login_Button1_OnClick (Sender: string; var Cancel: boolean);  // вход по паролю
var
pas, pas1 : string;
begin
    pas:= Login.Edit2.Text;
    pas1:= Login.Edit3.Text;

    if pas = pas1 then Login.Close else MessageDlg('Пароль не верен', mtError, mbOk, 0);
end;

на пароль реагирует адекватно (при неверно введенном выдает ошибку ввода) но после входа переменная sUser:string; определяется как 1, ответственно разделение прав не работает

переменную назначаю в самом начале скриптов

При запуске из версии 3.0 неверно определяется пользователь и выходят ошибки. В 2.8 всё работает.

Шаловливые ручки покою не дают. Попробую объяснить вопрос - есть база ТО приборов (парк ~3000 позиций) у каждого прибора ежемесячное ТО, в базе плановая дата и фактическая. Необходимо 31 января очищать все фактические даты и пересчитывать плановые на +1 год. Как возможно сделать? Проект во вложении но он рассчитан на MySQL

Форма ТОиППР пароль администратора $

Спасибо, всё работает.
Назрел ещё один вопрос. У меня по чек-боксу срабатывает скрипт который меняет значение DateTimePicker.
При изменении данного DateTimePicker срабатывает скрипт но срабатывает только при ручном изменении.
Как сделать что-бы после сработки первого скрипта запускался второй? объединить в один не вариант так-как они достаточно громоздкие.

Не правильно сформулировал вопрос. Не импорт файла в базу, а сохранение файла в базу.

И ещё вопрос, как связать три таблици SI->posit->apparats->plan_gp ?

Спасибо за помощь.
Нашёл ещё ошибку (или я что-то не так делаю ), сделал связанные списки, на SQLite работает, на MySQL выходят ошибки главной таблици

Изображение вынес в отдельную таблицу-справочник.
Теперь при добавлении возникает такая ошибка (во вложении).

если ещё актуально

DecodeDate(si.DateTimePicker2.DateTime, YY, MM, DD);  // декодируем дату поверки
     si.Edit6.Text := (IntToStr(MM));  // извлекаем месяц
     si.Edit8.Text := (IntToStr(YY));  // извлекаем год
     m := StrToInt (si.Edit6.Text);
     y := StrToInt (si.Edit8.Text);

     if  (m >=1) and (m <=3)  then si.Edit7.Text := '1'; // определяем квартал
     if  (m >=4) and (m <=6)  then si.Edit7.Text := '2';
     if  (m >=7) and (m <=9)  then si.Edit7.Text := '3' ;
     if  (m >=10) and (m <=12)  then si.Edit7.Text := '4';

И ещё вопрос.
Добавляю в основную базу поле ИЗОБРАЖЕНИЕ, при открытии формы для редактирования или просмотра записи появляется ошибка - #42S22Unknown column 'SI.foto_filename' in 'field list'
Добавляю в любой справочник - всё нормально