Delphi: Базы данных

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

xxbesoxx

1135 / 616 / 129

Регистрация: 13.02.2009

Сообщений: 3,602

Oracle+Delphi { Вычисляемые поля } деление не работает, если в столбцов ест 0

15.08.2013, 20:49. Показов 731. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Здравствуйте ребята. ест простой таблица

Oracle 11 SQL
1
2
3
4
5
6
7
CREATE TABLE test2
(
 tid NUMBER(10),
 tname nvarchar2(40),
 chislo1 NUMBER(8,2),
 chislo2 NUMBER(8,2)
)

Бывает что поля chislo1 и chislo1 может содержит число 0 .

chislo1
----------
30
50
0
10
0
40

chislo2
----------------------------
15
20
0
3
0
12

Допустим мне надо сделать вычисляемые поля в таком логике chislo1 / chislo2 * 100 делаю так

Delphi
1
2
3
4
5
6
procedure TForm1.OraQuery1CalcFields(DataSet: TDataSet);
begin
    OraQuery1Vichislenie.DisplayFormat := '#####.##';
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat +
    OraQuery1.FieldByName('CHISLO2').AsInteger *100  ;
end;

Выводить ошибок . потому у меня в chislo1 и chislo2 ест 0

Вопрос : Как обойти в таком ситуация, можно реализовать такой логика ! До пустим , если chislo1 / chislo2 = 0 что он написал неправильный ответ, или может у кого то хороший вариант. ???

Добавлено через 48 минут
Извините . такой логика

Delphi
1
2
3
4
5
6
procedure TForm1.OraQuery1CalcFields(DataSet: TDataSet);
begin
    OraQuery1Vichislenie.DisplayFormat := '#####.##';
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat /
    OraQuery1.FieldByName('CHISLO2').AsInteger *100  ;
end;

Кроме деление всё работает + , - , *

Добавлено через 14 минут
Такой логика если написать внутри , не работает

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.OraQuery1CalcFields(DataSet: TDataSet);
begin
    OraQuery1Vichislenie.DisplayFormat := '#####.##';
    if OraQuery1Vichislenie.Value = 0 then begin
      OraQuery1Vichislenie.Value + 1;
    end;
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat /
    OraQuery1.FieldByName('CHISLO2').AsInteger *100  ;
end;
 
end.

Добавлено через 1 час 21 минуту
Разобрал. Тема можно закрыть

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

15.08.2013, 20:49

Ответы с готовыми решениями:

Delphi DBPivotGrid Вычисляемые поля
Здравствуйте ребята. Ест такой набор компонентов DevExpress , там ест такой DBPivotGrid . Задача такой , надо делать вычисляемые поля из...

вычисляемые поля - обработка зависит от типа поля?
Коллеги, что-то не могу понять и найти в хелпе про тонкости "Refresh fields on keyword change"/ Обычно: This field property...

Вычисляемые поля
Здравствуйте. Помогите необходимо в DBGridе значения вычисляемых полей двух и более записей вносить в одну строку. Условием является...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

15.08.2013, 20:49

Помогаю со студенческими работами здесь

Вычисляемые поля
Необходимо в таблице "Отделы" создать поле "Балансовая стоимость" где будет подсчитываться суммарная стоимость всех продуктов по каждому...

Вычисляемые поля
Доброе время суток) У меня есть форма "Сотрудник", на которой находится DataSource1 и Table1. Так как в таблице много данных, решила...

Вычисляемые поля...
Привет всем!) Срочно ребята есть вопрос.... значит использую ADOPocedurе, она дергает с серва процедуру, получаю 5 столбцов, 10 строк)...

Вычисляемые поля
Подскажите как умножить два значения из разных таблиц Что не так в этом запросе при создании as (quantity_dish*dish.price_dish) И...

Вычисляемые поля
Помогите пожалуйста! 1)В запросе "Вычисляемые поля" создать поле Адрес в котором по названию улицы номеру дома и квартиры...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .

Наверх