정형모 wrote:

> DBGrid의 내용을 그래프로 보여줄수 있는 방법을

> 아시는 분 부탁드립니다.



질문을 보니깐 이것이 답변일지 모르겠는데...

DB의 내용을 그래프로 보여줄라믄...

DBCHART 컴포넌트를 이용하면 되잖아요!



아님 그리드에 cell에 챠트를 넣으실라고 그러시는 겁니까?

그런거라믄....



전에 답변한 내용중에 일부분인데. 이것을 이용하시구요!

제가 넣을 내용은 dbgrid에 그림을 넣기 있니다. 물론 원하는 필드에....

초보도 따라 할수 있게 설명을 자세하게 적어 보겠습니다.



우선 DB를 연결할수 있게 datasource 와 table 컴포넌트를 넣야 겠지요?

각 컴포넌트의 속성을 다음과 같이 해 주십시요



datasource 컴포넌트

속성 값

name datasource2 // datasource1은 다른거 연습하느라고 히~!

dataset table2 // 위랑 마찬가지 히~!



table 컴포넌트

속성 값

name table2 // 위랑 마찬가지 히히~!

databasename DBDEMOS // 어짜피 연습이니까 원래 있는거 가져온거..

tablename biolife.db // 마찬가지 히히히~!

active true // formcreate 에 적어주기 실어서 버리.죄송

그러고 table컴포넌트에서 오른쪽 버튼을 누르면 fields editor 가 나오는디

거기서 마우스 오른쪽버튼 add all fields ctrl+F 를 눌러서 등록을 합니다.



DBgrid 컴포넌트

속성 값

name dbgrid2 // dbgrid1 은 다른거 연습하느라고 히~!

defaultdrawing false // 드로잉 동작을 완전하게 사용자 정의할려고...

datasource datasource2



자 이게 컴포넌트에 대한 준비는 끝나고 본격적인 코딩에 들어갑시다.

grid 컴포넌트 이벤트중에서 OnDrawColumncell 이라는 이벤트가 있는데

다음과 같이 코딩하십시요



procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

var

bmp : Tbitmap;

outrect : Trect;

bmpwidth : integer;

begin

// 디폴트 출력

outrect := rect;



// 여기서 그림이 들어가기 원하는 필드를 선택합니다.

// table2category는 아까데 필드에디터에서 선언한것을 얘기하는건디...

// 테이블이름과 필드이름을 붙여넣은 것입니다. 그러니 다른필드에 그림을

// 넣을려면 예를 들어 table2common_name 이런식으로 적어주면 되지요!

if Column.Field = Table2category then

begin

// 이미지 그리기

bmp := Tbitmap.Create;

try

bmp.Assign(Table2graphic); //위에서 얘기 한데로 그림이 있는 필드선정

bmpWidth := (rect.Bottom - Rect.Top) * 2;

Outrect.Right := Rect.Left + bmpwidth;

DBgrid2.Canvas.StretchDraw(Outrect, bmp);

finally

bmp.free;

end;

//직사각형을 지우고 그래픽이 들어갈 자리를 남겨둔다.;

outrect := rect;

outrect.Left := outrect.left + bmpwidth;

end;



// 디폴트 드로잉

DBGrid2.DefaultDrawDataCell(outrect,column.field,state);

end;



조규춘 올림.