나도질문 wrote:

> 답변에 대해서 진심으로 감사드리고요..

> 소스를 주실수 있으면 꼭좀 주셨으면 합니다....

> 제가 전혀 모르거든요..

> 그럼, 좋은 주말되십시오...



[나도 질문]님께



오늘 뉴즈그룹에서 아주 쓸만한 예제를 찾았습니다.

http://www.SavageSoftware.com.au/download/BdeFibTree.zip

에서 구하실수 있습니다.

아직 사용해 보지는 않았는데 소스를 보니, 함수 4개로 구성되어 있는데

무척 편리한 방법같습니다. Bookmark를 사용하니 검색을 다시해야 하는

번거로움도 없을것 같구요.

나도질문 wrote:

> 답변에 대해서 진심으로 감사드리고요..

> 소스를 주실수 있으면 꼭좀 주셨으면 합니다....

> 제가 전혀 모르거든요..

> 그럼, 좋은 주말되십시오...





[나도 질문]님 보세요.



원리는 다음과 같습니다.

TTreeView의 노드정보는

TreeNode에 들어 있는데 TreeNode의 프로퍼티중 Data가

Pointer를 참조할 수 있습니다.

Data에 직접 원하는 값을 넣으면 일은 간단하겠지만

범용의 목적을 위해 객체의 주소만을 가지게 됩니다.

우선 TreeView와 DB의 Table의 각 레코드들을 연결시키기 위해서는

레코드의 정보를 Data프로퍼티에 넣어야 하는데요, 여러 가지 방법이

있을 것 같은데 저는 TStringList를 이용했습니다.

StringList에 레코드의 키(key)값을 저장한 다음, StringList[]의 포인터를

Data프로퍼티에 넣는 거죠(좀 어렵나요?)

이렇게 한 후 TreeView의 OnChanging 이벤트에서

선택된 TreeNode의 Data에서 값을 읽어온 후

그 값(Key)로 Table등에서 검색을 실시하는 거죠. 물론 이 Table은

DBGrid나 기타 DB-controls에 연결이 되어 있어야 선택한

항목이 보여지겠죠.

(이해가 되셨으면 좋겠는데..)



아래의 코드는 제가 지금 하고있는 DB의 내용중

질문하신 내용과 관련된 부분을 조금 따오고, 수정한 내용입니다.

(소스가 좀 지저분 한 것 같아서 내용을 말씀드리면 학교 시설물을

각 구분별로 Tree를 구성하고 해당 시설물을 선택하면 그 내용을 DB-control에

보여주게 되는 부분입니다.)

(참고로 저는 DBMS로 Interbase-Server를 사용하고 있습니다. )





DB의 내용을 읽어와서 TreeView를 구성하는 부분입니다.

-------------------------------------------------------------

var

sPrevItem : string;

RNode, CNode, node : TTreeNode;

index : integer;

begin



if instiList = nil then

begin

//시설물의 키값을 저장할 StringList입니다.

//(다른 부분에서도 참조 되므로 전역변수로 선언되어 있어야 합니다.)

instiList := TStringList.Create;

end;



sPrevItem := '';



Query.Close();



//master라는 테이블로 부터 ino,name,part의 세 필드를

//part와 ino의 순서로 읽어들이고 있습니다.

with Query do begin

SQL.Clear();

SQL.Add('SELECT ino, name, part FROM master');

SQL.Add('ORDER BY part, ino');

end;

Query.Open();



instiList.Clear(); // TStringList의 내용을 Clear합니다.



//tvInstiList <- TTreeView입니다.

tvInstiList.Items.BeginUpdate(); //노드를 추가하기전 반드시 넣어주세요(속도 증가.)

tvInstiList.Items.Clear(); // 이전의 TreeView 노드를 제거합니다.

RNode := tvInstiList.Items.Add(nil, '구분별');

CNode := nil;



// part별로 Tree를 생성합니다.

repeat

if sPrevItem <> Query.FieldByName('part').AsString then

begin

CNode := tvInstiList.Items.

AddChild(RNode, Query.FieldByName('part').AsString);

CNode.ImageIndex := 1;

sPrevItem := Query.FieldByName('part').AsString;

end;



node := tvInstiList.Items.AddChild(CNode,

Format('%6s동 :%s',[ Query.FieldByName('ino').AsString,

Query.FieldByName('name').AsString ]) );



//StringList에 키값을 저장하고

index := instiList.Add(Query.FieldByName('ino').AsString);

//포인터 형으로 변환후 대입

node.Data := PString(instiList[index]);



Query.Next();

until Query.Eof;

tvInstiList.Items.EndUpdate();





Query.Close();

-----------------------------------------------------------------





//TreeView의 OnChanging 이벤트에 대한 처리입니다.

procedure TMainForm.tvInstiListChanging(Sender: TObject; Node: TTreeNode;

var AllowChange: Boolean);

begin

//Node는 마우스나 커서에의해 선택된 노드가 되므로

//Node.Data의 값을 얻어오면 됩니다.

//이때 주의 할 것은 위에서 Pointer형으로 넣었으므로

//String형으로 다시 변환을 해야 합니다.

//그리고 FindKey들의 함수를 써서 검색을 하면 됩니다.



//아래의 것은 제가 DataBank란 묘듈안에 FindMasterRecord란 function을 만들어 놓은 것입니다.

//간단하게 하자면

// Table.FindKey(['ino'], Stirng(Node.Data) )란 식으로 쓰면 되겠죠.



AllowChange := DataBank.FindMasterRecord( String(Node.Data));

end;



이외에 추가나 삭제등의 처리가 필요하고요

제가 Test한 결과로는 DB로부터 tree를 만들때 OnChanging 이벤트가

발생해서 검색을 실시합니다. 그러므로 속도가 무지하게 느려집니다.

그러므로 Tree의 노드를 추가할때는 OnChanging가 되지 않도록

코드를 해야만 합니다. 저는 추가시 OnChaneing를 Disable시키고 있습니다.





도움이 되었으면 좋겠네요.

좋은 주말 되세요..