Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.05.2010, 03:45   #1
Droid
Форумчанин
 
Аватар для Droid
 
Регистрация: 24.04.2008
Сообщений: 440
По умолчанию Вывод запросов в Chart1

Народ почему у меня так криво выводит данные в процентах в series1,2,3
у кого спрашиваю никто не знает как с ним работать...
1 запрос выводит нормально, больше одного, он не хочет работать нормально. Такое ощущение, что он их не успевает выполнять....
Код:
procedure TGL_F.Label4Click(Sender: TObject);
var
i,kol1,kol2,kol3: integer;
begin
i:=dm.ADOQ_PAC.RecordCount;
F_GRAF.Chart1.LeftAxis.Minimum := 0;
F_GRAF.Chart1.LeftAxis.Maximum := i;
f_graf.Series1.Clear;
f_graf.Chart1.Title.Text.Clear;
f_graf.Chart1.Title.Text.Add('Вывод по дз');
f_graf.Chart1.LeftAxis.Title.Caption:='Кол-во';
form49.obnov('SELECT COUNT(familiya) AS KOL FROM pacient pt LEFT OUTER JOIN osnovnoy_soputstvuyhiy_diagnoz osd ON ' +
'pt.id_pacienta=osd.id_pacienta INNER JOIN diagnoz dz ON osd.id_diagnoza=dz.id_diagnoza WHERE dz.id_diagnoza='+inttostr(gl_f.dblcb1.KeyValue)+'',dm.ADOQCHART1);
form49.obnov('SELECT COUNT(familiya) AS KOL FROM pacient pt LEFT OUTER JOIN osnovnoy_soputstvuyhiy_diagnoz osd ON ' +
'pt.id_pacienta=osd.id_pacienta INNER JOIN diagnoz dz ON osd.id_diagnoza=dz.id_diagnoza WHERE dz.id_diagnoza='+inttostr(gl_f.dblcb2.KeyValue)+'',dm.ADOQCHART2);
form49.obnov('SELECT COUNT(familiya) AS KOL FROM pacient pt LEFT OUTER JOIN osnovnoy_soputstvuyhiy_diagnoz osd ON ' +
'pt.id_pacienta=osd.id_pacienta INNER JOIN diagnoz dz ON osd.id_diagnoza=dz.id_diagnoza WHERE dz.id_diagnoza='+inttostr(gl_f.dblcb3.KeyValue)+'',dm.ADOQCHART3);
kol1:=dm.ADOQCHART1.fieldbyname('KOL').AsInteger;
f_graf.Series1.Addxy(kol1/i*100,kol1,inttostr(kol1),clgreen);
kol2:=dm.ADOQCHART2.fieldbyname('KOL').AsInteger;
f_graf.Series2.Addxy(kol2/i*100,kol2,inttostr(kol2),clgreen);
kol3:=dm.ADOQCHART3.fieldbyname('KOL').AsInteger;
f_graf.Series3.Addxy(kol3/i*100,kol3,inttostr(kol3),clgreen);
f_graf.showmodal;
end;
1 старый программист, лучше новых 2-х

Последний раз редактировалось Droid; 22.05.2010 в 03:49.
Droid вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
разметка сетки в Chart1 и вставка графика Droid Общие вопросы Delphi 0 21.05.2010 17:19
Не работает обращение к Chart1 из метода класса Дима я Общие вопросы Delphi 8 01.04.2010 21:06
Отправка http запросов, обработка и вывод результата pavl1k Общие вопросы по Java, Java SE, Kotlin 5 09.11.2009 15:51
Динамическое создание серий в Chart1 lexaltd Общие вопросы Delphi 0 25.04.2009 10:15
Chart1.Foot.Text.Add('gsdhfjk'); Небесный Общие вопросы Delphi 7 17.02.2008 15:21