자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi Begin-end책 455페이지-28에 대한 궁금한 내용
2012.10.22 13:59
안녕하세요.
455페이지의 28의 결과가 나오지 않습니다.
예제에서 아래의 문장을 주석처리하고 실행하면 28의 결과는 나오지만
실제로 DB에는 저장되지 않습니다.
어떻게 해야 하나요ㅠㅠ
Custtemp.Post; <-- 주석처리
Custtemp.ApplyUpdates(-1); <-- 주석처리
사용환경은
windows 7, delphi 2010 입니다.
댓글 1
-
funny
2012.10.22 14:17
참 Begin-end책 보고 따라하기 정말 힘드네요AcceptProducer의 HTML코드의 <#selectcode>부분을 대체해 주는 이벤트 핸들러OnHTMLTag에 ctcode를 넣어 주는 부분을 생략해서 발생한 문제이군요정말 초보인 제가 죄인입니다.
procedure TWebModule5.AcceptProducerHTMLTag(Sender: TObject; Tag: TTag; const TagString: string; TagParams: TStrings; var ReplaceText: string);begin ReplaceText := '<tr>' + '<td width="500">' + '<input type="hidden" size="10" maxlength="10" name="ctcode" value="' + Curricode + '"></td>' + '</tr>';end;
Delphi Begin-end책 455페이지-28에 대한 궁금한 내용
2012.10.22 13:59
안녕하세요.
455페이지의 28의 결과가 나오지 않습니다.
예제에서 아래의 문장을 주석처리하고 실행하면 28의 결과는 나오지만
실제로 DB에는 저장되지 않습니다.
어떻게 해야 하나요ㅠㅠ
Custtemp.Post; <-- 주석처리
Custtemp.ApplyUpdates(-1); <-- 주석처리
사용환경은
windows 7, delphi 2010 입니다.
댓글 1
-
funny
2012.10.22 14:17
참 Begin-end책 보고 따라하기 정말 힘드네요AcceptProducer의 HTML코드의 <#selectcode>부분을 대체해 주는 이벤트 핸들러OnHTMLTag에 ctcode를 넣어 주는 부분을 생략해서 발생한 문제이군요정말 초보인 제가 죄인입니다.procedure TWebModule5.AcceptProducerHTMLTag(Sender: TObject; Tag: TTag;const TagString: string; TagParams: TStrings; var ReplaceText: string);beginReplaceText := '<tr>' + '<td width="500">' + '<input type="hidden" size="10" maxlength="10" name="ctcode" value="' + Curricode + '"></td>' + '</tr>';end;