|
5th
|
2004-05-17 18:50:18, 조회 : 2,833, 추천 : 297 |
[기초강좌 #10] 방명록 만들기 #2
( 전체 소스는 첨부된 파일을 참조해주세요. 부분적으로만 발췌해서 설명합니다. )
( [기초강좌 #9]에 소스 파일 첨부되었습니다. )
========================================================================
TWrite.scurl
: 방명록 쓰기 폼입니다.
전송 버튼을 클릭하면 DB에 접속하여 insert를 수행하고, 글 목록을 다시 “새로고침” 합니다.
-------------------------------------------------------------
|| *** start.curl ***
let tr : TRecord = {TRecord}
let li : TList = {TList tr}
let wr : TWrite = {TWrite
call-back= { proc {sender:any}: void
{li.clear}
{tr.selectAll}
{li.show-list {tr.getRecordView}}
}
}
-------------------------------------------------------------
|| *** contstructor ***
field public call-back : #{proc-type {sender:any}: void}
{constructor public {default
call-back : #{proc-type {sender:any}: void}=null,
...
}
........
set self.call-back = call-back
}
-------------------------------------------------------------
start.curl 에서 객체를 생성하면서 call-back 프로시져를 넘겨줍니다.
이 프로시져의 역할은 글이 입력될때마다,
화면을 지우고, -> {li.clear}
글 목록을 다시 가져와 -> {tr.selectAll}
화면에 표시합니다. -> {li.show-list {tr.getRecordView}}
화면을 모두 지우는게 아니라 쓰기 폼은 그냥 두고, 글 목록만 지우고 다시 출력합니다.
화면을 일부분만 지우고 다시 쓸수 있다는거..컬의 장점중 하나인 것 같습니다.
로컬로 작업했다고하나 기존의 jsp로 작업했을때와 비교하여 상당히 빠르다는 느낌이였습니다.
-------------------------------------------------------------
|| *** write-form method ***
||-- Get 방식
let (result :String, error? : bool) =
{gfGetMethod
{url
"http://localhost/study/Board_working/phpfile/freeBoard.php?mode=insert&fname="
&self.fname.value
& "&femail="&self.femail.value
& "&fcontents="&self.fcontents.value
& "&fpasswd="&self.fpasswd.value
},
{get-character-encoding-by-name "euc-kr"}
}
-------------------------------------------------------------
httplib.scurl의 gfGetMethod 프로시져를 이용하여 freeBoard.php를 호출합니다.
httplib.scurl은 [웹서버와의 만남#3] 강좌를 참조해주세요.
강좌를 건너띄고 오신분은,,,
{gfGetMethod}는 호출하고자 하는 DB와의 연결 파일 주소(넘기려고하는 변수 포함)와 인코딩방식,
두가지를 argument로 받는 프로시져라고 생각하시면 됩니다.
Get 방식으로 자료를 넘길때는 위와 같이 주소 뒤에 “?변수명=값” 으로 넘기고,
여러 변수를 넘길때는 & 로 연결합니다.
단지 변수 5개를 넘기는데도 위와 같이 복잡하고 긴 주소가 되어 버렸습니다.
또, 웹 브라우저의 주소표시줄에 값들이 그대로 나타나므로 보안에도 좋지 않겠죠.
-------------------------------------------------------------
|| *** write-form method ***
||-- Post 방식
let (result :String, error? : bool) =
{gfPostMethod
{url
"http://localhost/study/Board_working/phpfile/freeBoard.php"
},
{get-character-encoding-by-name "euc-kr"},
{HttpFormStringParam "mode", "insert"},
{HttpFormStringParam "fname", self.fname.value},
{HttpFormStringParam "femail", self.femail.value},
{HttpFormStringParam "fcontents", self.fcontents.value},
{HttpFormStringParam "fpasswd", self.fpasswd.value}
}
-------------------------------------------------------------
httplib.scurl의 gfPostMethod 프로시져를 이용하여 freeBoard.php를 호출합니다.
위와 마찬가지로,
{gfPostMethod}는 호출하고자 하는 DB와의 연결 파일 주소와 인코딩방식,
그리고 넘겨줘야할 변수들을 HttpFormStringParam 클래스를 사용하여 넘겨줍니다.
{gfPostMethod}는 rest argument(...)로 변수들을 받으므로,
HttpFormStringParam를 개수에 상관없이 보낼수 있습니다.
-------------------------------------------------------------
|| *** write-form method ***
{self.reset}
{if-non-null self.call-back then
{self.call-back self}
-------------------------------------------------------------
값들을 넘겨준뒤에는 각 텍스트필드의 값들을 지워줘야하므로 reset 메소드를 호출하고,
방명록 글 목록을 갱신시키기위해 call-back 프로시져를 호출하여,
화면을 지우고, -> {li.clear}
DB에서 data를 가져오고 -> {tr.selectAll}
화면에 출력합니다. -> {li.show-list {tr.getRecordView}}
========================================================================
다음 강좌에서 계속...
- 5th –
|
|
|
