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

Delphi Sources



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

 
 
Опции темы Поиск в этой теме Опции просмотра
  #3  
Старый 11.12.2012, 20:24
Melenium Melenium вне форума
Прохожий
 
Регистрация: 26.11.2012
Сообщения: 7
Репутация: 10
По умолчанию

я могу ошибатся, как я понимаю DBEdit29 принемает значение Lic_schet из Table3 и отдает его таблице в БД, а после есть процедуры переключить на Table1,
Table 2 но что то идет не так и вылетает ошибка я не могу понять что нужно сделать чтобы процедуры работали последоватьельно , подскажте пожалуйста что нужно сделать?

вот остольная часть кода

Код:
procedure TschForm.UpdateDBGrid();
begin
  DBEdit29.Enabled := false;

  case PageControl2.ActivePageIndex of
    // Выбор вкладки Горячая вода
    0 : begin
        sql_change_page := 'SELECT data, blo, stalo, (stalo-blo), ROUND((stalo-blo) * tarif_g, 2) FROM aqua_g, tarif WHERE id_schetchik_reg = ' + id_FIO;
        DataSource2.DataSet.Active := false;
        DataSource2.DataSet := mySQLTable1;
        DataSource2.DataSet.Active := true;
        end;
    // Выбор вкладки Холодная вода
    1 : begin
        sql_change_page := 'SELECT data, blo, stalo, (stalo-blo), ROUND((stalo-blo) * tarif_h, 2) FROM aqua_h, tarif WHERE id_schetchik_reg = ' + id_FIO + '';
        DataSource2.DataSet.Active := false;
        DataSource2.DataSet := mySQLTable2;
        DataSource2.DataSet.Active := true;
        end;
    // Выбор вкладки Канализация
    2 : begin
        sql_change_page := 'SELECT aqua_g.data, ROUND( ((aqua_g.stalo-aqua_g.blo + aqua_h.stalo-aqua_h.blo)) * tarif_k , 2 ) FROM aqua_g, aqua_h, tarif WHERE aqua_g.id_schetchik_reg = ' + id_FIO + '  AND aqua_h.id_schetchik_reg = ' + id_FIO ;
        end;
    // Выбор вкладки Тепло
    3 : begin
        sql_change_page := 'SELECT data,blo,stalo,(stalo-blo),ROUND(((stalo-blo)/schet_reg.jil_plosh_t)*Gkal*schet_reg.jil_plosh, 2) FROM teplo, schet_reg, tarif WHERE teplo.Lic_schet = ' + id_Lic +  ' AND schet_reg.Lic_schet = ' + id_Lic + ' AND schet_reg.street = "' + id_Street + '" AND schet_reg.house = ' + id_House;
        DataSource2.DataSet.Active := false;
        DataSource2.DataSet := mySQLTable3;
        DataSource2.DataSet.Active := true;
        end;
  end;
Ответить с цитированием
 


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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