최제승 wrote:

> 이런 종류의 질문이 있긴 했는데 답변이 없어서 다시글을 올립니다.

> 제목과 같이 db에서 자료를 읽어서 그것을 treeview에 나타내려고 합니다.

> 그리고 수정 삭제한 값이 그대로 db에도 반영이 되게하구요

> 또한가지

> 만약에 db를 사용하지 않고 파일서버를 사용한다면 treeview나 listview에서 값을 어떻게 읽거나 넘기죠?





DB를 원하는 자료를 Select한후에



if RecordCount > 0 then

begin

TreeView1.Items.BeginUpdate;

AppList := TStringList.Create;

First;

While not Eof do

begin

AppList.Clear;

AppList.Add(FieldByName('Name0').AsString);

AppList.Add(FieldByName('Name1').AsString);

AppList.Add(FieldByName('Name2').AsString);

{업무내역 TreeView에 Add}

TreeAddItem(TreeView1, AppList, GetBookMark, False);

Next;

end; // end of while

AppList.Free;

TreeView1.Items.EndUpdate;

TreeView1.FullExpand;

if TreeView1.Items.Count <> 0 then

TreeView1.Items[1].Selected := True;

end;





3단계 트리뷰입니다...

이은정 wrote:

> 최제승 wrote:

> > 이런 종류의 질문이 있긴 했는데 답변이 없어서 다시글을 올립니다.

> > 제목과 같이 db에서 자료를 읽어서 그것을 treeview에 나타내려고 합니다.

> > 그리고 수정 삭제한 값이 그대로 db에도 반영이 되게하구요

> > 또한가지

> > 만약에 db를 사용하지 않고 파일서버를 사용한다면 treeview나 listview에서 값을 어떻게 읽거나 넘기죠?

>

>

> DB를 원하는 자료를 Select한후에

>

> if RecordCount > 0 then

> begin

> TreeView1.Items.BeginUpdate;

> AppList := TStringList.Create;

> First;

> While not Eof do

> begin

> AppList.Clear;

> AppList.Add(FieldByName('Name0').AsString);

> AppList.Add(FieldByName('Name1').AsString);

> AppList.Add(FieldByName('Name2').AsString);

> {업무내역 TreeView에 Add}

> TreeAddItem(TreeView1, AppList, GetBookMark, False);

> Next;

> end; // end of while

> AppList.Free;

> TreeView1.Items.EndUpdate;

> TreeView1.FullExpand;

> if TreeView1.Items.Count <> 0 then

> TreeView1.Items[1].Selected := True;

> end;

>

>

> 3단계 트리뷰입니다...



이은정 님 답변 너무너무 감사합니다.

한가지 질문이 있는데 AppList는 뭔가요? 변수인가요 아니면 개체 이름인가요

저는 변수로 생각하고 코딩을 했는데 source code 에러가 나는군요

초보라서 너무 자세한 설명을 요구하게 되네요. 죄송.

최제승 wrote:

> 이은정 wrote:

> > 최제승 wrote:

> > > 이런 종류의 질문이 있긴 했는데 답변이 없어서 다시글을 올립니다.

> > > 제목과 같이 db에서 자료를 읽어서 그것을 treeview에 나타내려고 합니다.

> > > 그리고 수정 삭제한 값이 그대로 db에도 반영이 되게하구요

> > > 또한가지

> > > 만약에 db를 사용하지 않고 파일서버를 사용한다면 treeview나 listview에서 값을 어떻게 읽거나 넘기죠?

> >

> >

> > DB를 원하는 자료를 Select한후에

> >

> > if RecordCount > 0 then

> > begin

> > TreeView1.Items.BeginUpdate;

> > AppList := TStringList.Create;

> > First;

> > While not Eof do

> > begin

> > AppList.Clear;

> > AppList.Add(FieldByName('Name0').AsString);

> > AppList.Add(FieldByName('Name1').AsString);

> > AppList.Add(FieldByName('Name2').AsString);

> > {업무내역 TreeView에 Add}

> > TreeAddItem(TreeView1, AppList, GetBookMark, False);

> > Next;

> > end; // end of while

> > AppList.Free;

> > TreeView1.Items.EndUpdate;

> > TreeView1.FullExpand;

> > if TreeView1.Items.Count <> 0 then

> > TreeView1.Items[1].Selected := True;

> > end;

> >

> >

> > 3단계 트리뷰입니다...

>

> 이은정 님 답변 너무너무 감사합니다.

> 한가지 질문이 있는데 AppList는 뭔가요? 변수인가요 아니면 개체 이름인가요

> 저는 변수로 생각하고 코딩을 했는데 source code 에러가 나는군요

> 초보라서 너무 자세한 설명을 요구하게 되네요. 죄송.

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

변수 선언부분에 작성하면 되걸랑요.이렇게

var

AppList : TstringList;

..bye..