Search options (Page 2 of 5)

Дмитрий, добрый вечер !
Не могли бы вы подробнее описать новые функции , добавленные в версию 3.2
1. функция HTTPPost - ?
2. MessageBox - я так понимаю диалоговое окно ?
3. класс TPrinter - для взаимодействия с принтером ?

Ну и совсем было бы классно - простые примеры с использованием данных нововведений, можно все в одном ?!

Дмитрий, добрый вечер!
Столкнулся с проблемой. Вариант скрипта в SQLite :

procedure frmFile_Button4_OnClick (Sender: string; var Cancel: boolean);
var
   s,name: string;
begin
     s := SaveFileFromDataBase('TabFile', 'Files', frmFile.TableGrid1.dbItemID); 
     CopyFile(s, 'Image\'+ExtractFileName(s)); 
end;

Работает как надо.
А вот тот же самый скрипт, но в формате MySQL выдает ошибку : No such Table: TabFile .

Дмитрий, здравствуйте !
Не могли бы вы помочь с решением одного вопроса. Реализовать возможность назначения энного кол-ва задач нескольким исполнителям одновременно с frmNew. Все это счастье пытаюсь реализовать с помощью двух ComboBox-ов с использованием мультиселекта ну и скрипта. Одним словом ни черта не выходит.
За основу взят пример с форума SG_fixed.
Дмитрий если не сложно - посмотрите данный пример !

Здравствуйте Дмитрий и форумчане!
Столкнулся с такой проблемкой:

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

procedure Form1_GridEmployees_OnChange (Sender: string);
var
   i,c, q: integer;
begin
    q := 0;
    c := Form1.GridEmployees.RowCount - 1;
    for i := 0 to c do
    if ValidInt(Form1.GridEmployees.Cells[3, i]) then q := q + StrToInt(Form1.GridEmployees.Cells[3, i]);
    Form1.GridEmployees.Columns[3].Footer.Caption := IntToStr(q);// result
end;

begin
end.

Дмитрий здравствуйте!
Сразу к вопросу. Существует таблица данных (см. скриншот)

1. Запись в таблицу базы происходит по событию через скрипт

SQLExecute('INSERT INTO logs (NameUser, Action, PrefixOP, TabelN, DateTime) VALUES ("'+sUser+'", "Окончание смены", "'+sNameOP+'", "'+sTabelN+'", "'+ FormatDateTime('yyyy-MM-DD hh:mm:ss.000', now) +'"); ')

2. Далее мне необходимо вывести данные в текстовое поле, при определенных условиях поиска (см. запрос ниже ) . В данном запросе поиск выполняется по значениям переменных  sNameOP , sTabelN и
текущей датой с форматом Год,месяц,день  - (''' + FormatDateTime('yyyy-MM-DD ', now) + ''')

frmSearchOP.Edit11.Text := VarToStr( SQLExecute('SELECT DateTime FROM Logs WHERE (TabelN = ''' + sTabelN + ''')and(Action = ''Окончание смены'')and(''' + FormatDateTime('yyyy-MM-DD ', now) + ''');') );

Суть вопроса: Указанный скрипт по запросу из таблицы работает (ошибок не выдает) но выводит первую попавшуюся дату из таблицы учитывая значения двух переменных но игнорируя текущую дату. Где допущена ошибка в скрипте, помогите разобраться ?!