Несоответствие типов данных в выражении условия отбора

[Аватар]

Танцы с бубнами и приколы with. И пример того, что к именам переменных и параметров нужно поосторожней подходить. Замени имя параметра Name на другое, а то код туда тупо имя формы подставляет. А так все Ok

[Serge_Bliznykov]

Сообщение от Аватар

имя параметра Name на другое, а то код туда тупо имя формы подставляет.

ТОЧНО!!!
у меня со вчерашнего дня свербит, что Name - это как-то влияет на работу, что это ключевое слово, что так нельзя и т.д.
но сформилировать я не смог.
полностью согласен с Аватар. Явно name берётся какое-то другое (скорее всего FlowOfFounds_Query.Name)! (причём, СТРОКА!!!, а запрос ожидает ЧИСЛО!)

TC, измени переменную Name на непересекающиеся имя и всё будет хорошо!

procedure TMain_Form.AddToBook(ID:integer;cost:real; OformitelCod : integer);
begin
try
with Unit1.DataModule1.FlowOfFounds_Query do
    begin
    Close;
    sql.Clear;
    SQL.Add('INSERT INTO [Книга учета] ([ID посетителя], [Дата оплаты], Уплачено, Оформляющий) VALUES (:i, :d, :c, :n)');
    Parameters.ParamByName('i').Value:=id;
    Parameters.ParamByName('d').Value:=now;
    Parameters.ParamByName('c').Value:=cost;
    Parameters.ParamByName('n').Value:= OformitelCod;

[Аватар]

скорее всего FlowOfFounds_Query.Name

Ну да, а то я в #11 имя формы написал