델초 wrote:

> 고수님들의 도움을 받고자 함미다.

> .

> .

> OutLine 을 이용 메뉴 화면을 만들려고 합니다.

> 혼자서 해보니 내가 원하는 형태데로 되지가 않슴미다.

> <<자재>> 폴더및에 자재1....자재6을

> <<영업>> 폴더밑에 영업1....영업6을 달려고 합니다.

> 아래의 내용으로 하면 <<자재>> 밑에 자재1....자재6,영업1.....영업6이 달림미다.

> 어떠케 해야되는지요.

>

> 그리고 실행실 해당 라인을 클릭했을때 해당 프로그램을 실행시킬려면 어떻케 해야되는지요....

>

>

> Outline1.Clear;

> Outline1.Add(0,'<<자재>>');

> Outline1.AddChild(1,'자재1');

> Outline1.AddChild(1,'자재2');

> Outline1.AddChild(1,'자재3');

> Outline1.AddChild(1,'자재4');

> Outline1.AddChild(1,'자재5');

> Outline1.AddChild(1,'자재6');

> Outline1.Add(0,'<<영업>>');

> Outline1.AddChild(1,'영업1');

> Outline1.AddChild(1,'영업2');

> Outline1.AddChild(1,'영업3');

> Outline1.AddChild(1,'영업4');

> Outline1.AddChild(1,'영업5');

> Outline1.AddChild(1,'영업6');

> ....

>

> 수고하십시오. ^^

>

> OutLine 보다 TreeView를 이용하심이........

> 해당클릭이벤트에서 문장을 구현하시면 됩니다...

신경을 써주셔서 감사함미다...

지가 완전 초보라서.....-_-;;

지송하지만 간단한 셈플을 제공해주시며

감사하겠슴미당...



그럼 항상 건강하시고 행복하세여..



피에수:트리뷰 와 OutLine 어느것이라도 조슴미당.

델초 wrote:

> 신경을 써주셔서 감사함미다...

> 지가 완전 초보라서.....-_-;;

> 지송하지만 간단한 셈플을 제공해주시며

> 감사하겠슴미당...

>

> 그럼 항상 건강하시고 행복하세여..

>

> 피에수:트리뷰 와 OutLine 어느것이라도 조슴미당.



아래의 소스보고 이해하실지....... (트리뷰에 대한 예제임)

procedure TForm1.TreeViewDisplay(AstClas: ShortString);

var

TreeName : String;

node_1, node_2, node_3, node_4, node_5 : TTreeNode;

begin

//트리뷰의 재 생성

tv_AST.Items.Clear;



node_1 := nil; node_2 := nil;node_3 := nil;

node_4 := nil; node_5 := nil;



//트리뷰를 사용시 중요한것은 조회값들이 순차적으로

// 읽어들여야합니다.....

with qr_TEMP do

begin

Close;

Sql.Add ( 'SELECT AST_CLAS,');

Sql.Add ( ' LEVEL,');

Sql.Add ( ' AST_CLAS_CD,');

Sql.Add ( ' AST_CLAS_NM,');

Sql.Add ( ' PRCD_CLAS_CD');

Sql.Add ( 'FROM T03_AST_CLAS');

Sql.Add ( 'WHERE AST_CLAS BETWEEN DECODE(:IN_CLASCD, NULL, ');

Sql.Add ( ' ''0'', :IN_CLASCD)');

Sql.Add ( ' AND DECODE(:IN_CLASCD, NULL, ');

Sql.Add ( ' ''99'', :IN_CLASCD)');

Sql.Add ( 'CONNECT BY PRIOR AST_CLAS_CD = PRCD_CLAS_CD');

Sql.Add ( 'START WITH PRCD_CLAS_CD = ''9999''');

//위의 sql문에서 connect by ..... start with ......

//에 대해 sql문 책 참조

ParamByName('IN_CLASCD').AsString := AstClas;

if not Prepared then Prepare;

Open; FetchAll; First;



while not eof do

begin

TreeName := FloatToStr(FieldByName('AST_CLAS_CD').AsFloat) + ' ' +

TRIM( FieldByName('AST_CLAS_NM').AsString);

case FieldByName('LEVEL').AsInteger of

1 :

begin

node_1 := tv_AST.Items.Add(node_1, TreeName);

end;

2 :

begin

node_2 := tv_AST.Items.AddChild(node_1, TreeName);

end;

3 :

begin

node_3 := tv_AST.Items.AddChild(node_2, TreeName);

end;

4 :

begin

node_4 := tv_AST.Items.AddChild(node_3, TreeName);

end;

5 :

begin

node_5 := tv_AST.Items.AddChild(node_4, TreeName);

end;

6 :

begin

tv_AST.Items.AddChild(node_5, TreeName);

end;

end;

Next;

end;

end;

end;