|
5th
|
2004-05-11 13:18:28, 조회 : 2,299, 추천 : 348 |
[기초강좌 #7] RecordSet class를 이용한 데이터 다루기 #2
(전체 소스는 첨부된 파일을 참조해주세요. 부분적으로만 발췌해서 설명합니다.)
([기초강좌 #6]에 소스 파일 첨부되었습니다.)
======================================================================
TRecord.scurl :
전체적인 관리를 하는 class 입니다.
start.curl에서 자료를 넘겨받아 화면에 출력,
Record 개수만큼 버튼을 생성하고, 버튼을 클릭할때마다 1씩 증가,
data를 sort하여 재출력을 담당합니다.
-------------------------------------------------------------
*** contstructor ***
set self.rv={RecordView self.rs asa RecordSet, filter=null}
: RecordSet의 Record를 sort 하기 위해 RecordView에 담습니다.
그런데 같은 type이 아니기 때문에 강제 형변환 연산자 asa를 사용하였습니다.
-------------------------------------------------------------
*** btn method (버튼 생성 메소드) ***
{method public open{btn}:void
{for i:int=0 below self.rv.size do
{self.tm.append
||-- {TModelRectangle
{TModelCircle
user-data=self.rv[i],
self.rv[i]["product"],
self.rv[i]["count"],
call-back= { proc {sender:any}: void
set sender.count = sender.count + 1
set sender.user-data["count"]=sender.count
{self.clear}
{self.show-grid}
{self.show-btn}
}
}
}
}
}
: RecordView의 Record 개수만큼, TModel(버튼)을 만듭니다.
TModel을 array로 선언하고,
RecordView의 size, 즉, Record 개수만큼 TModel을 append 하게되면,
Record와 같은 개수의 버튼이 생성됩니다.
{TModelCircle 의 주석을 풀고 {TModelRectangle 에 주석을 달면, 타원 모양의 버튼이 생성됩니다.
각 버튼을 구별하기 위해 user-data에 RecordView의 Record를 할당합니다.
call-back 프로시져를 변수로 넘겨주는데, 이 역할은,
argument로 이 프로시져를 가지고 있는 객체 스스로를 넘겨주면서,
이 객체의 버튼이 클릭될때마다 1씩 증가시키고, 화면을 새로 출력합니다.
(이번 강좌에서 젤 어렵게 느껴지는 부분입니다. 설명하자니 더더욱 어렵네요..)
이 프로시져가 특이한게, 메소드 같이 행동하면서, 변수에도 할당할수 있습니다.
자바에는 없는 녀석(?)이죠. 클래스 없이 단독 행동하기도 합니다.
-------------------------------------------------------------
*** show-grid method (그리드 출력 메소드) ***
{method public open{show-grid}:void
set self.rv.sort = "count DESC"
set self.rg.record-source=self.rv
{self.add self.rg}
}
: RecordView를 이용하여 Record를 정렬(내림차순)하고,
RecordView를 출력하기위해 RecordGrid에 담아,
RecordGrid를 출력합니다.
------------------------------------------------------------
*** show-btn method (버튼 출력 메소드 - 내림차순) ***
{for i:int=0 below self.rv.size do
let index:int=0
{for j:int=0 below self.tm.size do
{if self.rv[i]["product"] == self.tm[j].product then
set index = j
{break}
}
}
}
: RecordView – rv 에는 정렬된 Record가, TModel - tm에는 정렬되지 않은 버튼들이 있습니다.
그리드에 정렬된 항목 순서대로 버튼들을 정렬하기 위해, 화면을 지우고, 그리드의 순서대로 다시 그려주면 됩니다.
RecordView의 Record와 product 이름이 일치하는 버튼을 찾아, 그 버튼부터 그려줍니다.
다음 강좌에서 계속...
- 5th –
|
|
|
