Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Ребяты помогите с выводом графика!!! / 6 сообщений из 6, страница 1 из 1
22.05.2003, 12:26
    #32165986
Артемка
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ребяты помогите с выводом графика!!!
Добрый день уважаемые!
Мне вновь ОЧЕНЬ требуется ваша помощь!
Короче задача у меня такая: нужно сделать вывод графика используя 2 combobox-а.
А именно: в таблице имеются поля(1.fio 2.Predmet 3.Chetvert(четверть) 4.Ocenka)
Я создаю DBChart с осями Chetvert и Ocenka. А из combobox-ов надо выбирать fio и Predmet. т.е.
выбрал, нажал на button и появился график. когда делаю один combobox например fio, а в запросе пишу Predmet="Пение", то график выводится.
Но тогда нужно делать кнопки на все предметы, а нужно одну кнопку. Надеюсь я понятно все изложил. А ниже код кнопки

procedure TForm1.Button2Click(Sender: TObject);
var
Boss:String;
Bos:String;
var
m:TBarSeries;
begin
m:=TBarSeries.Create(Self);
m.ParentChart:=DBChart1;
m.SeriesColor:=clGreen;
m.DataSource:=ADOQuery2;
m.XLabelsSource:='Chetvert';
m.YValues.ValueSource:='Ocenka';
m.Active:=True;

Bos:=ComboBox2.Text;
Boss:=ComboBox1.Text;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('Select* FROM Uspevaemost where FIO='+Boss+' AND predmet='+Bos);
ADOQuery2.Active:=True;
DBGrid1.DataSource:=Form1.DataSource3;
end;

это код где я пытался выбрать из 2 combobox-ов, приложение запускается, и все выбирается,
а когда жмешь button вылетает ошибка: Параметр combobox2 не имеет значения по умолчанию
(это если выбираешь в 1-ом combobox-е(fio), а второй не трогаешь)
и ошибка: Параметр пение не имеет значения по умолчанию
(это как вы могли догадаться если выбираешь в 1-ом combobox-е(fio), а во втором "пение")

И в Delphi загорается строка DBGrid1.DataSource:=Form1.DataSource3;

Короче вся надега на вас!
...
Рейтинг: 0 / 0
22.05.2003, 12:32
    #32165995
_designer_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ребяты помогите с выводом графика!!!
Какая БД?
Какой драйвер БД?
Какой ComboBox.Style ?

Bos:=ComboBox2.Text;
Boss:=ComboBox1.Text;

if (Bos = '') or (Boss = '') then exit;
...
Рейтинг: 0 / 0
22.05.2003, 14:11
    #32166163
Артемка
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ребяты помогите с выводом графика!!!
база access
драйвер Microsoft.Jet.OLEDB.4.0
combobox csDropDown
...
Рейтинг: 0 / 0
22.05.2003, 15:47
    #32166323
_designer_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ребяты помогите с выводом графика!!!
сделай csDropDownList заполни значениями на Form.OnCreate и там же поставь указатель ItemIndex на первую запись в ComboBox'е.
...
Рейтинг: 0 / 0
22.05.2003, 16:29
    #32166381
Артемка
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ребяты помогите с выводом графика!!!
Буду очень признателен, если наградишь примерчиком :)
...
Рейтинг: 0 / 0
22.05.2003, 16:44
    #32166402
_designer_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ребяты помогите с выводом графика!!!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
 Form1.OnCreate
  cb.Style := csDropDownList;
  with cb.Items do begin
    Clear;
    Add('Item1');
    Add('Item2');
    Add('Item3');
    Add('Item4');
    Add('Item5');
  end;
  cb.ItemIndex :=  0 ;
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Ребяты помогите с выводом графика!!! / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]