Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 612

/ вопрос открыт /

Здравствуйте, эксперты! Подскажите как сделать начисление в базе данных если имеются 3 таблицы(klient,tarif,schetchiki)начисление производится раз в месяц путем; если у клиента есть счетчик (текущиеПоказанияСчетчика-Предыдущие)*тарифПоСчетчику
если нет тарифБезСчетчика;
Не могу сделать так чтобы начисление производилось в зависимости от наличия счетчиков (у меня начисляется одна и таже сумма на все записи)

Приложение:
  1. while not DataModule3.Table1.Eof do begin
  2. nach:=0;
  3.  
  4.  
  5.  
  6.  
  7. Datamodule3.Query1.sql.clear;
  8. DataModule3.Query1.SQL.Text:='update GLFORM set Nachisl='+floattostr(nach);
  9.  
  10. Datamodule3.Query1.ExecSQL;
  11. DataModule3.Table3.Next;
  12. end ;end
  13.  


Taniya Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: Taniya (статус: Посетитель)
Вопрос отправлен: 23 мая 2008, 14:53
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 5; последнее сообщение — 26 мая 2008, 05:26; участников в обсуждении: 2.
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 23 мая 2008, 15:58 [#1]:

Если используете SQL, то зачем делать цикл по таблице? Вычисление nach надо сделать внутри SQL запроса. Какая структура таблиц? По каким полям они связаны между собой?
Taniya

Taniya (статус: Посетитель), 23 мая 2008, 21:25 [#2]:

klient(Licevoi(ключевое поле),FIO,PHH,Adres,NalichieSchet, kol_prog,Nachisleno,Dolg,Oplacheno,KOplate)

Schetchiki(Licevoi,tek_pokazaniya,pred_pokazaniya,rasxod(вычисляемое поле))

tarif(VodaPoSchet,StokPoSchet,VodaBezSchet,StokBezSchet)

Klient связан с schetchik по полю Licevoi
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 24 мая 2008, 08:05 [#3]:

тогда примерно так:
update klient set nachisleno=case when nalichieschet='да' then
(select (tek_pokazaniya-pred_pokazaniya)*vodaposchet
from schetchiki, tarif where (klient.licevoi=schetchiki.licevoi))
else (select vodabezschet from tarif) end
Taniya

Taniya (статус: Посетитель), 25 мая 2008, 15:45 [#4]:

а в чем ошибка
invalid use of keyword.
Token:set
Line Number:1.

{DataModule3.Query1.SQL.Text:=' update set Nachisl=case when nalich="да" then (select (tek-pred)*vodaschet from schet, tarif where (klient.licevoi=schet.licevoi))else (select vodabez from tarif) ';
Datamodule3.Query1.ExecSQL;}
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 26 мая 2008, 05:26 [#5]:

между update и set должно быть имя таблицы, которая изменяется, смотрите выше

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 24 июня 2017, 04:50
Выполнено за 0.02 сек.
Рейтинг@Mail.ru