
11.12.2012, 20:24
|
Прохожий
|
|
Регистрация: 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;
|