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

[Serge_Bliznykov]

ну да, вроде бы, всё нормально...
если есть возможность, то попробуйте тип Short заменить на тип "Long Integer" (этот тип обозначается буквой I)

либо написать что-то вроде:

var t :  Smallint;
.....
t := StrToInt(Edit3.Text);
Query4.ParamByName('ItemID').AsInteger:= t;
t := StrToInt(Edit5.Text);
Query4.ParamByName('ItemCount').AsInteger := t;

[W. Aron]

Радость-счастье)
Сменил на "Long Integer", как Вы и сказали и вместо AsFloat написал AsInteger.
Все прекрасно работает и по выходу не сбрасывает.
Спасибо большое. Очень выручили)
Теперь буду писать добавление записи в случае когда такого товара нету.
Upd. Проведу проверку Table4.Locate по ID если истина то запрос обновления, иначе добавления.

[Dozent]

эм простите я понимаю что ТС решил проблему, всю тему не прочитал но можно было сделать так,

	INSERT IGNORE INTO Storage(ItemID, ItemName, ItemCount) VALUES (:id, :name, 0);
	UPDATE `Storage` SET `ItemCount` = `ItemCount` + :Count WHERE ItemID= :id;

Предварительно выставить ключ на ади или на ади и имя, и ни надо никаких проверок писать сначало добавит итем с нулевым количеством если его нет а если есть то проапдейтит

[Serge_Bliznykov]

Сообщение от Dozent

эм простите я понимаю что ТС решил проблему,

	INSERT IGNORE INTO Storage(ItemID, ItemName, ItemCount)

Paradox поддерживает Insert ignore ?! впервые про такое слышу!

а по поводу проверки - вроде бы уже разобрались, не нужна она. Если у Вас есть ID (кстати, Вы при вашем Insert какое ID поставите, откуда новый ID у Вас возьмётся в вашем случае?), то нужно делать Update, если запись нужна новая (ID нет), тогда нужно выполнять Insert. примерно так.

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

Upd. Проведу проверку Table4.Locate по ID если истина то запрос обновления, иначе добавления.

Погодите. Я не могу понять простой логики. Откуда у Вас берётся ID для новой записи?! Вы что, доверяете пользователю вводить/редактировать ID ?!! Это категорически противопоказано. Ключевые поля не должны вводится пользователем вручную (и уж тем более, редактироваться!!)!

[W. Aron]

Погодите. Я не могу понять простой логики. Откуда у Вас берётся ID для новой записи?! Вы что, доверяете пользователю вводить/редактировать ID ?!! Это категорически противопоказано. Ключевые поля не должны вводится пользователем вручную (и уж тем более, редактироваться!!)!

Пока что все выглядит так, как Вы и говорите (но разумеется ключевое не редактируется, а только добавляется).

Если у Вас есть ID, то нужно делать Update, если запись нужна новая (ID нет), тогда нужно выполнять Insert.

Вот поэтому мне и нужна проверка. Так как запросы находятся в разных Query, мне нужен механизм их вызова, которым и выступает Locate-проверка по ID. Выглядит все это вот так.

procedure TForm1.Button2Click(Sender: TObject);    {ДОБАВЛЕНИЕ ТОВАРА НА СКЛАД}
begin

 if (edit3.text = '') OR (edit4.text = '') OR (edit5.text = '') then
  Begin
   ShowMessage('Введены не все поля');
   Exit;
  end;

   If SearLog1=true then             {Если активен запрос на поиск...}
   Table4.DatabaseName:='Computer';
   DataSource4.DataSet:=Table4;
   Table4.Active:=True;

 if Table4.Locate('ItemID', Edit3.Text, []) then
  Begin

   Table4.Active:=False;
   Table4.DatabaseName:='';
   DataSource4.DataSet:=Query4;

   Query4.close;
   if not Query4.prepared then Query4.prepare;
   Query4.ParamByName('ItemID').AsInteger:=StrToInt(Edit3.Text);
   Query4.ParamByName('ItemCount').AsInteger:=StrToInt(Edit5.Text);
   Query4.ExecSQL;
   ShowMessage('Количество товара на складе успешно обновлено')
  End else

  Begin

   Table4.Active:=False;
   Table4.DatabaseName:='';
   DataSource4.DataSet:=Query5;

   Query5.close;
   if not Query5.prepared then Query5.prepare;
   Query5.ParamByName('ItemID').AsInteger:=StrToInt(Edit3.Text);
   Query5.ParamByName('ItemName').AsString:=Edit4.Text;
   Query5.ParamByName('ItemCount').AsInteger:=StrToInt(Edit5.Text);
   Query5.ExecSQL;
   ShowMessage('Товар успешно добавлен на склад')
  End;

 Table4.DatabaseName:='Computer';
 DataSource4.DataSet:=Table4;
 Table4.Active:=True;
 Edit3.Clear;
 Edit4.Clear;
 Edit5.Clear;
 SearLog1:=false;

end;

[eval]

if Table4.Locate('ItemID', Edit3.Text, []) then

дальше можно не смотреть... все выкинуть и переписать

[W. Aron]

дальше можно не смотреть... все выкинуть и переписать

То есть Вы знаете более удобный способ вызова запросов из двух разных Query?
Я повторюсь, для меня - это переключатель между запросами добавления к существующему и добавления всей записи. Он либо найдет такой ID (А он не автоинкрементный!!!), а значит вызовет Update, либо нет - а значит вызовет Insert.
Я нашел сайт, где описывается работа с автоинкрементными полями, и если потребуется, то изменю ключевое поле и соответственно код вызова запросов.

Upd. С другой стороны Этот Locate можно сдвинуть только на Insert. То есть пускай выполнится Update, а там есть запись или нет - пофиг. Но если записи нет, то вызвать Insert.

[eval]

А он не автоинкрементный!!!

это не важно инкрементный он или нет, важно откуда он берется, естественный или сурогатный.

[W. Aron]

Пока что он вводится пользователем.

[eval]

если эти действия интерактивны, то как правило пользователь сначала пробует найти то что надо отрелактировать. и уж тогда делает вывод о том новые данные или нет, если он заранее знает что их нет то локейт вовсе не нужен.

у вас же что-то происходит а юзер только догадывается, это както не логично и как следствие не юзабельно