이창석 wrote:

> 반갑습니다.

> 아침에 봄비가 조금 내리더니, 지금은 그쳤네요.

> 몇일째 풀리지 않는 문제가 있어 질문을 드립니다.

> 저는 table를 동적으로 사용해 dbchart와 연결시키려 합니다. 그래서, 여기저기 책을 뒤져봤지만, 1)table의 데이터가 정해져 있는 경우 2)고정되어 있는 테이블에서 동적으로 데이터를 변경하여 dbchart와 연결할 수 있는 경우에 대해서만 설명들이 나와 있었습니다. 그러나, 저는 임의의 자료를 입력받아 그 자료를 dbchart로 나타내고 싶은데, 어떻게 하면 좋을지 조언을 부탁드립니다.

> 참고로 저는 테이블이름,x값,y값,label값을 설정해 주었는데, 실행하고나니 아무런 그래프도 뜨지 않네요. 아시는 분의 답장을 기다리겠습니다.

>



안녕하세요! 답변이 늦은점 대단히 죄송합니다.



이 질문을 읽고 그동안 나름대로 여러가지로 생각을 해 보았는데...정말 죄송하지만 테스트 했는데 안된다는 소스를 보내주시면 분석해서 답변드리겠습니다.



감사합니다.

안치봉 wrote:

> 이창석 wrote:

> > 반갑습니다.

> > 아침에 봄비가 조금 내리더니, 지금은 그쳤네요.

> > 몇일째 풀리지 않는 문제가 있어 질문을 드립니다.

> > 저는 table를 동적으로 사용해 dbchart와 연결시키려 합니다. 그래서, 여기저기 책을 뒤져봤지만, 1)table의 데이터가 정해져 있는 경우 2)고정되어 있는 테이블에서 동적으로 데이터를 변경하여 dbchart와 연결할 수 있는 경우에 대해서만 설명들이 나와 있었습니다. 그러나, 저는 임의의 자료를 입력받아 그 자료를 dbchart로 나타내고 싶은데, 어떻게 하면 좋을지 조언을 부탁드립니다.

> > 참고로 저는 테이블이름,x값,y값,label값을 설정해 주었는데, 실행하고나니 아무런 그래프도 뜨지 않네요. 아시는 분의 답장을 기다리겠습니다.

> >

>

> 안녕하세요! 답변이 늦은점 대단히 죄송합니다.

>

> 이 질문을 읽고 그동안 나름대로 여러가지로 생각을 해 보았는데...정말 죄송하지만 테스트 했는데 안된다는 소스를 보내주시면 분석해서 답변드리겠습니다.

>

> 감사합니다.

>

> 안녕하세요. 이창석입니다.

저는 지난번에 글을 올려놓고 계속 해결책을 찾아 보았지만 해결책이 나오지

않더군요. 그래서, 다시 한번 제가 작성한 소스의 부분을 올려 보겠습니다.

하나의 폼에 다음과 같이 컴포넌트를 넣고요.

오픈다이얼로그박스 데이터소스 테이블 버튼2개(열기,그래프보기)

콤보박스 dbgrid dbchart



다음과 같이 소스를 입력했습니다.



procedure TForm1.Button1Click(Sender: TObject);

var

i,y:integer;

begin

if opendialog1.Execute then

begin

table1.close;

table1.TableName:=opendialog1.FileName;

table1.open;

end;

y:=DBGrid1.Columns.Count; //dbgrid열수

for i:=0 to y-1 do

begin

combobox1.Items.Add(dbgrid1.Columns.Items[i].FieldName);

end;



procedure TForm1.button2Click(Sender: TObject);

begin

series1.DataSources:=table1;

series1.YValue.valuesource:='total';

series1.xvalue.valuesource:=combobox1.Items[combobox1.itemindex];

series1.xlabelssource:='total';

end;



라고 했는데 자꾸 에러가 뜨네요. 한 수 부탁드립니다.

> procedure TForm1.Button1Click(Sender: TObject);

> var

> i,y:integer;

> begin

> if opendialog1.Execute then

> begin

> table1.close;

> table1.TableName:=opendialog1.FileName;

> table1.open;

> end;

> y:=DBGrid1.Columns.Count; //dbgrid열수

> for i:=0 to y-1 do

> begin

> combobox1.Items.Add(dbgrid1.Columns.Items[i].FieldName);

> end;

>

> procedure TForm1.button2Click(Sender: TObject);

> begin

> series1.DataSources:=table1;

> series1.YValue.valuesource:='total';

> series1.xvalue.valuesource:=combobox1.Items[combobox1.itemindex];

> series1.xlabelssource:='total';

> end;

>

> 라고 했는데 자꾸 에러가 뜨네요. 한 수 부탁드립니다.

>



어떤 에러가 뜨는 지 알려 주세요....