Показать сообщение отдельно
  #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;
Ответить с цитированием