나도질문 wrote:

> 우선 이 질문을 보시는분께 감사드립니다.

>

> 델파이를 공부한지 얼마않되서그런데요,

> 예를들어, treeview에서 홍길동을 치면 홍길동에대한 신상명세가 출력되게 하려는데, DB(Paradox)연결방법을 알고싶습니다.(소스 포함)

>

> 제가 델파이를 시작한지 얼마않됐기때문에 가능하면, 쉽고 자세하게 가르쳐주시면 정말정말 너무너무 감사하겠습니다..

>

> 그럼, 이글을 보신분들께 진심으로 감사드립니다.



TreeView나 ListView와 연결되는 component도 본것 같은데요,

질문하신 내용중 '홍길동을 치면'이란 내용이 TreeView에서 '홍길동'이라는 항목을

선택한다는 의미 인가요? 만일 그렇다면

제가 사용하고 있는 방법을 말씀 드리면,

TreeView에 노드를 생성(추가)할때 TreeNode.Data에 DB의 각 레코드의 정보(Key)를 기억시켜 놓고 노드를 선태하면 해당 노드의 .Data의 내용을 읽어와서 Table을 검색하는 방식을 사용하고 있습니다



질문하신 내용이 맞다면 해당 소스도 올려드리죠!!

오현수 wrote:

> 나도질문 wrote:

> > 우선 이 질문을 보시는분께 감사드립니다.

> >

> > 델파이를 공부한지 얼마않되서그런데요,

> > 예를들어, treeview에서 홍길동을 치면 홍길동에대한 신상명세가 출력되게 하려는데, DB(Paradox)연결방법을 알고싶습니다.(소스 포함)

> >

> > 제가 델파이를 시작한지 얼마않됐기때문에 가능하면, 쉽고 자세하게 가르쳐주시면 정말정말 너무너무 감사하겠습니다..

> >

> > 그럼, 이글을 보신분들께 진심으로 감사드립니다.

>

> TreeView나 ListView와 연결되는 component도 본것 같은데요,

> 질문하신 내용중 '홍길동을 치면'이란 내용이 TreeView에서 '홍길동'이라는 항목을

> 선택한다는 의미 인가요? 만일 그렇다면

> 제가 사용하고 있는 방법을 말씀 드리면,

> TreeView에 노드를 생성(추가)할때 TreeNode.Data에 DB의 각 레코드의 정보(Key)를 기억시켜 놓고 노드를 선태하면 해당 노드의 .Data의 내용을 읽어와서 Table을 검색하는 방식을 사용하고 있습니다

>

> 질문하신 내용이 맞다면 해당 소스도 올려드리죠!!

>

>

우선 답변을 주신 오현수님께 감사의 말씀을 드립니다..

오현수님이 물어보신내용이 맞습니다.

소스를 올려주시면 감사하겠습니다...

그럼, 기다리겠습니다....

[나도 질문]님 보세요.



원리는 다음과 같습니다.

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시키고 있습니다.





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

좋은 주말 되세요..