|
5th
|
2004-06-08 11:36:25, 조회 : 3,083, 추천 : 276 |
( 전체 소스는 첨부된 파일을 참조해주세요. 부분적으로만 발췌해서 설명합니다. )
( [기초강좌 #12]에 소스 파일 첨부되었습니다. )
======================================================================
각 클래스마다 메소드의 역할을 먼저 설명드리겠습니다.
다음에 설명드릴 start.curl에서 각 메소드를 호출하여 사용하므로,
우선 각 메소드의 역할/의미 정도만 알아두시면 됩니다.
[표 #1]
start.curl
: 앞에서 설명드린것처럼, 프로젝트를 실행시킬 때, 처음 호출되는 파일입니다. 객체의 생성과 객체간 연결작업이 이루어집니다.
클래스 내에서 해결되지 못하는 메소드, 다른 객체와 연결된 상태에서 수행되야할 메소드는 클래스 밖에서, 즉, 모든 객체들이 있는 start.curl 에서 객체를 생성할때 프로시져 형태로 만들어 argument 값으로 넣어줍니다.
======================================================================
{TList
tr,
call-back={ proc {sender:any}: void
{wr.clear}
{wr.set-fields sender}
{wr.show-write-form}
}
}
---------------------------------------------------------------------
: 목록(TList)이 클릭될때마다 해당 목록은 쓰기 폼(TWrite)에 내용을 표시합니다. 표시하기전에 TWrite 를 지우고, TList 에서 클릭된 항목(객체)을 가져와 셋팅하고, TWrite 에 표시합니다.
======================================================================
{TWrite
call-back={ proc {sender:any}: void
{li.clear}
set ts.search = ""
{if sender=="new" then
{tr.selectAll "1"}
set tp.page="1"
else
{tr.selectAll tp.page}
}
{li.show-list {tr.getRecordView}}
set tp.lastpage={format "%d", tr.lastpage}
}
}
---------------------------------------------------------------------
: TWrite의 역할은 답변, 수정, 삭제, 새글, 취소입니다. TWrite에서 뭔가 행할때마다 TList 에는 새글이 등록된다든지 삭제된다든지 화면에 변화가 생깁니다.
TList를 지우고, 검색창의 필드값도 삭제합니다. 만약 새글이 입력된다면 1페이지가 표시되야하하므로, 1페이지에 해당되는 데이터들을 DB에서 가져오고, 페이지 창의 텍스트값도 1로 표시합니다. 그 이외의 경우, 답변, 수정, 삭제, 취소의 경우는 현재 화면에서 취해지는 이벤트이므로 현재 페이지 값에 해당하는 데이터들을 DB 에서 가져옵니다. 가져온 데이터를 화면에 표시한 뒤에, 마지막 페이지가 어디인지 TPage에 알려줍니다. 글이 등록되면서 총 페이지수가 늘어날수 있기 때문입니다.
======================================================================
{TSearch
call-back={ proc {sender:any, condition:String, search:String}: void
{li.clear}
set tp.page = "1"
{tr.selectAll "1", condition=condition, search=search}
{li.show-list {tr.getRecordView}}
set tp.lastpage={format "%d", tr.lastpage}
}
}
---------------------------------------------------------------------
: 검색어를 입력하여 찾기를 클릭하면 변화되는 곳은 어디일까요? 목록이 변해야하고, 총 페이지수가 바뀌겠죠. 따라서 화면을 지우고 첫페이지에 해당하는 데이터를 가져옵니다. 화면에 표시하고 총 페이지수를 TPage에도 알려줍니다.
======================================================================
{TPage
tr,
call-back={ proc {sender:any}: void
{li.clear}
{if sender=="all" then
set ts.search=""
{tr.selectAll "1", condition="", search=""}
else
{tr.selectAll sender, condition=ts.condition, search=ts.search}
}
{li.show-list {tr.getRecordView}}
set tp.lastpage={format "%d", tr.lastpage}
}
}
---------------------------------------------------------------------
: 페이지가 변하면 목록도 변해야겠죠. 모든 데이터를 가져온 경우와 검색어가 입력된 경우에는 총페이지수도 다르고 보여지는 화면도 다릅니다. 각 조건에 맞게 데이터를 가져와 표시하고 마지막 페이지가 어디인지 다시 셋팅합니다.
다음 강좌에서 계속….
- 5th -
|
|
|
