Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.06.2012, 14:13
ShiniDelf ShiniDelf вне форума
Прохожий
 
Регистрация: 18.06.2012
Сообщения: 10
Репутация: 10
По умолчанию Помогите с вычислением

В общем то проблема такова.
Есть 2 Ado_таблицы (1. Склад медикаментов) (2. Формирование рецепта)
Код:
DataModule4.ADOTable2.Locate('Nazvanie', Form10.Edit2.text, []);
DataModule4.ADOTable2.Edit;
If (DataModule4.ADOTable2.FieldByName('Kolichestvo').Value < StrToInt(Form10.Edit3.Text))
then ShowMessage('Нехватает лекарств');
DataModule4.ADOTable2.FieldByName('Kolichestvo').Value:=DataModule4.ADOTable2.FieldByName('Kolichestvo').Value-StrToInt(Form10.Edit3.Text);
суть кода в чем. из таблицы (1. Склад медикаментов) мы вычитаем количество определенное лекарства, которое находит Locate.
т.е. вводим данные для формирования рецепта
Yod 10 (данные сохраняются в таблице 2.формирование рецепта ) а количество yoda вычитается из (таблицы 1.склад медикаментов)
===
проблема в чем.
1)если какого либо лекарства не хватает он выводит сообщение не хватает лекарства но вычитает в минус например 10-20= -10. Мне же надо что бы он и вовсе не вычитал.
2) если я ввожу при формировании рецепта то лекарство которого нет на складе медикаментов, мне надо что бы он вывел сообщение что на складе такого лекарства нету и не вычитал лекарство (а у меня же это неизвестное лекарство он вычитает из первой строки в таблице 1.склад медикаментов.)
----
вот так вот(

Последний раз редактировалось lmikle, 18.06.2012 в 17:14.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:58.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter