Добавление товара на склад

[Serge_Bliznykov]

В этом случае Insert тоже не нужен? Как тогда добавить товар если такого нет на складе?

зависит от логики работы приложения. Я просто к тому, что если пользователь редактирует товар, который есть на складе, то у Вас есть ItemID и вы по нему обновляете данные.
Если товара нет, пользователь его может добавить, в этом случае у Вас НЕТ ItemID и в этом случае Вы должны выполнить Insert (тогда, раз у Вас не автоинкремент {кстати, почему нет?!}) ItemID Вам придётся вычислять/формировать самостоятельно.

[W. Aron]

(тогда, раз у Вас не автоинкремент {кстати, почему нет?!})

Можно назвать это моей причудой
Хех. Наверно замучил Вас вопросами)
Поля ID и ItemCount(переименовал) имеют тип Short. Вот код добавления к существующему товару.

 Query4.close;
 if not Query4.prepared then Query4.prepare;
 if (edit3.text <> '') AND (edit5.text <> '') then
 BEGIN
 Query4.ParamByName('ItemID').Value:= Edit3.Text;
 Query4.ParamByName('ItemCount').Value := edit5.text;
 END else
 Begin
 ShowMessage('Введены не все поля');
 Exit;
 end;
 Query4.ExecSQL;

Я точно уверен что неправильно написаны строки с Edit'ами., поскольку перебрал все что думал. А где найти объяснение уже не знаю.
Upd.

Query4.ParamByName('ItemID').AsFloat:=StrToInt(Edit3.Text);
 Query4.ParamByName('ItemCount').AsFloat :=StrToInt(Edit5.Text);

Теперь проблема в том, что он просто обнуляет ItemCount.

[Serge_Bliznykov]

попробуйте так:

  Query4.ParamByName('ItemID').Value:= StrToInt(Edit3.Text);
  Query4.ParamByName('ItemCount').Value := StrToInt(edit5.text);

[W. Aron]

В Вашем случае вылетает ошибка 'Type mismatch in expression'.

[Serge_Bliznykov]

Сообщение от W. Aron

В Вашем случае вылетает ошибка 'Type mismatch in expression'.

покажите содержимое запроса в Query4.
кстати, Вы все параметры заполнили?

[W. Aron]

Запрос как Вы и написали выше:

Update storage
   Set ItemCount = ItemCount + :Itemcount
   Where ItemId = :Itemid

Ну так как я проверяю пока только Update, то параметры заполнены только для него. ItemName уже пропишу, когда буду переключаться на запрос добавления.

[Serge_Bliznykov]

увидел ваше "частичное решение"

попробуйте написать так:

Query4.ParamByName('ItemID').AsInteger:= StrToInt(Edit3.Text);
Query4.ParamByName('ItemCount').AsInteger := StrToInt(edit5.text);

[W. Aron]

Таблица storage справа.

Кстати когда Вы написали код с определенными числами (я только поставил в ItemID 10) то он прибавлял нормально.
Замена на AsInteger приводит к ошибке "Type mismatch in expression".
Да, забыл написать... в Edit'ы потом пропишу, чтобы вводились только числа.

[Serge_Bliznykov]

не-не.. меня структура таблицы интересует.

[W. Aron]

Блин) Думал ведь о BD Desctop'е)

Upd. Заметил вот еще что: уже писал выше если указать Value и конкретные числа, то прибавляет. НО, после закрытия проекта если его снова открыть возвращается первоначальное значение... по-моему это тоже ненормально.