Q&A
밑의 소스에서 데이타가 추가가 되지를 않습니다.
Table1.Append; 문구가 들어가면 그이상은 명령이 진행(?)이되지를 않고
제일밑의 end;로 넘어가는것 같습니다.
테스트를 하기위해 Table1.Append;를 지우면 끝까지 진행이 되는것 같습니다.
데이터가 왜 추가가 되지를 않는지 답변좀 부탁드립니다.
=========================================================================
procedure TForm2.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
Begin
If IDYes = Application.MessageBox( '저장 하겟습니까?', '저장확인', MB_YESNO + MB_DEFBUTTON1 + MB_ICONEXCLAMATION + MB_APPLMODAL ) then
Begin
if not ( Table1.State in [dsEdit, dsInsert] ) then Table1.Edit;
Table1.Append;// <***************** 문제점
Table1.FieldByName('주민등록번호').AsString := Form2.MaskEdit1.Text;
Table1.FieldByName('이름').AsString := Form2.Edit2.Text;
Table1.FieldByName('주소').AsString := Form2.Edit4.Text;
Table1.FieldByName('메모').AsString := Form2.Edit5.Text;
Table1.FieldByName('연락처').AsString := Form2.MaskEdit2.Text;
Table1.FieldByName('휴대폰').AsString := Form2.MaskEdit3.Text;
Table1.Post;
Form2.MaskEdit1.Text :='';
Form2.Edit1.Text :='';
Form2.Edit2.Text :='';
Form2.Edit3.Text :='';
Form2.Edit4.Text :='';
Form2.Edit5.Text :='';
Form2.MaskEdit1.SetFocus;
{두번째 문자 위치로 커서를 보낸다}
Form2.MaskEdit1.SelStart := 0;
{문자를 선택하지 않은 상태로 만든다}
Form2.MaskEdit1.SelLength := 16;
Key := #0;
end;
end;
end;
- 테이블에 데이터가추가가 되지를 않습니다. 소스있슴.
밑의 소스에서 데이타가 추가가 되지를 않습니다.
Table1.Append; 문구가 들어가면 그이상은 명령이 진행(?)이되지를 않고
제일밑의 end;로 넘어가는것 같습니다.
테스트를 하기위해 Table1.Append;를 지우면 끝까지 진행이 되는것 같습니다.
데이터가 왜 추가가 되지를 않는지 답변좀 부탁드립니다.
=========================================================================
procedure TForm2.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
Begin
If IDYes = Application.MessageBox( '저장 하겟습니까?', '저장확인', MB_YESNO + MB_DEFBUTTON1 + MB_ICONEXCLAMATION + MB_APPLMODAL ) then
Begin
if not ( Table1.State in [dsEdit, dsInsert] ) then Table1.Edit;
Table1.Append;// <***************** 문제점
Table1.FieldByName('주민등록번호').AsString := Form2.MaskEdit1.Text;
Table1.FieldByName('이름').AsString := Form2.Edit2.Text;
Table1.FieldByName('주소').AsString := Form2.Edit4.Text;
Table1.FieldByName('메모').AsString := Form2.Edit5.Text;
Table1.FieldByName('연락처').AsString := Form2.MaskEdit2.Text;
Table1.FieldByName('휴대폰').AsString := Form2.MaskEdit3.Text;
Table1.Post;
Form2.MaskEdit1.Text :='';
Form2.Edit1.Text :='';
Form2.Edit2.Text :='';
Form2.Edit3.Text :='';
Form2.Edit4.Text :='';
Form2.Edit5.Text :='';
Form2.MaskEdit1.SetFocus;
{두번째 문자 위치로 커서를 보낸다}
Form2.MaskEdit1.SelStart := 0;
{문자를 선택하지 않은 상태로 만든다}
Form2.MaskEdit1.SelLength := 16;
Key := #0;
end;
end;
end;
2
COMMENTS
-
-
TTable에는 Append란 메쏘드가 없는걸로 아는데..
아마 insert를 쓰셔야 할 부분에 엉뚱한 method를 부르신거 같군요.
김현영 wrote:
>
> 밑의 소스에서 데이타가 추가가 되지를 않습니다.
> Table1.Append; 문구가 들어가면 그이상은 명령이 진행(?)이되지를 않고
> 제일밑의 end;로 넘어가는것 같습니다.
> 테스트를 하기위해 Table1.Append;를 지우면 끝까지 진행이 되는것 같습니다.
> 데이터가 왜 추가가 되지를 않는지 답변좀 부탁드립니다.
> =========================================================================
>
> procedure TForm2.Edit5KeyPress(Sender: TObject; var Key: Char);
>
> begin
> If Key = #13 Then
> Begin
>
> If IDYes = Application.MessageBox( '저장 하겟습니까?', '저장확인', MB_YESNO + MB_DEFBUTTON1 + MB_ICONEXCLAMATION + MB_APPLMODAL ) then
> Begin
> if not ( Table1.State in [dsEdit, dsInsert] ) then Table1.Edit;
>
> Table1.Append;// <***************** 문제점
>
> Table1.FieldByName('주민등록번호').AsString := Form2.MaskEdit1.Text;
> Table1.FieldByName('이름').AsString := Form2.Edit2.Text;
> Table1.FieldByName('주소').AsString := Form2.Edit4.Text;
> Table1.FieldByName('메모').AsString := Form2.Edit5.Text;
> Table1.FieldByName('연락처').AsString := Form2.MaskEdit2.Text;
> Table1.FieldByName('휴대폰').AsString := Form2.MaskEdit3.Text;
>
> Table1.Post;
>
> Form2.MaskEdit1.Text :='';
> Form2.Edit1.Text :='';
> Form2.Edit2.Text :='';
> Form2.Edit3.Text :='';
> Form2.Edit4.Text :='';
> Form2.Edit5.Text :='';
>
> Form2.MaskEdit1.SetFocus;
> {두번째 문자 위치로 커서를 보낸다}
> Form2.MaskEdit1.SelStart := 0;
> {문자를 선택하지 않은 상태로 만든다}
> Form2.MaskEdit1.SelLength := 16;
> Key := #0;
> end;
> end;
> end;
>
(NOTICE) You must be logged in to comment on this post.
-
- 이마루
- •
- 2001.03.25 23:57
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.03.26 00:12웹에서 기냥 코딩해보이는 거라 에러가 있을 수 있습니다. 1. ListBox에서 중복된 문자 입력 거부 P...
-
- 이수정
- 2001.03.25 23:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 유원상
- •
- 2001.03.25 23:07
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.03.25 23:48오랫만에 일하다 짜증이 나서 글을 쓰게 되네요^^ 1. 간단한 데이터베이스 작업이라면 ISAPI를 권장합니...
-
-
류종택•2001.03.26 01:00우선 몇 가지 당혹스러운 점이 있습니다. 1. '같은 필드명이 있으면 경고..'라는 부분에서 혹시 레코드...
-
아기코알라•2001.03.26 04:25류종택님의 답변 정말 정말 감사합니다. 새로운 방향을 제시하시는 것 같아 지금 흥분이 되네요.. 당...
-
-
- 김현영
- •
- 2001.03.25 09:08
- 2 COMMENTS
- /
- 0 LIKES
밑의 소스에서 데이타가 추가가 되지를 않습니다. Table1.Append; 문구가 들어가면 그이상은 명령이 진행(?)이되지를 않고 제일밑의 end;로 넘어가는것 같습니다. 테스트를 하기위해 Table1.Append;를 지우면 끝까지 진행이 되는것 같습니...-
나그네•2001.03.26 14:09if not ( Table1.State in [dsEdit, dsInsert] ) then Table1.Edit; 아마 이부분이 문제가 될것 같은데...
-
감초•2001.03.25 14:26TTable에는 Append란 메쏘드가 없는걸로 아는데.. 아마 insert를 쓰셔야 할 부분에 엉뚱한 method를 부르...
-
- 이정용
- •
- 2001.03.25 08:50
- 2 COMMENTS
- /
- 0 LIKES
-
blackjewel•2001.07.03 20:33이정용 wrote: > Edit에서 숫자를 입력하면 자리를 두칸씩 잡아먹는지 사이가 뛰어뛰엄 나옵니다. > 폰트...
-
제덕모•2001.03.25 09:04혹시 그거 MaskEdit 아닌가요? 맞다면 EditMask 란 프로퍼티를 보시면 될것 같네요. MaskEdit가 아니시...
-
- 열심이
- 2001.03.25 06:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 가난한놈
- 2001.03.25 04:06
- 0 COMMENTS
- /
- 0 LIKES
-
- sunny
- •
- 2001.03.25 02:59
- 1 COMMENTS
- /
- 0 LIKES
-
솔뫼마당•2001.03.28 00:46질문의 요지는 대충 이런 듯 한데... 노드가 선택이 되면 '나' 그렇지 않으면 '가' 라는 이미지가 나오라...
-
- 개구리
- •
- 2001.03.25 04:03
- 1 COMMENTS
- /
- 0 LIKES
-
솔뫼마당•2001.03.28 00:52너무 공짜 좋아하지 마세요.. 대머리 된데요... 일단 말씀 드리자면 AccessViolation 에러는 없는걸 호출...
-
- 명지니
- 2001.03.25 01:09
- 0 COMMENTS
- /
- 0 LIKES
-
- ^-_-^
- •
- 2001.03.24 23:41
- 1 COMMENTS
- /
- 0 LIKES
-
mafioso•2001.03.24 23:47Watcom DB는 옛날에 Watcom에서 만든건데요 파워빌더에 데스트탑용으로 나오는 거예요 델파이에 인터베이...
-
- zerodog
- •
- 2001.03.25 01:02
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2001.03.25 01:07안녕하세요. 성능에 목숨걸린 일이 아니라면... Total에 100을 곱해서 반올림하시고 다시 100으로 나누면...
-
- 천사양아
- •
- 2001.03.24 22:58
- 2 COMMENTS
- /
- 0 LIKES
-
감초•2001.03.25 14:46저도 옛날에 그런 문제를 겪은 적이 있었는데 아마도 저와 문제가 동일한 것이라면 님께서 만드신 컴포넌트...
-
천사양아•2001.03.26 18:39음.. 저는 TCustomControl에서 상속받은건데, 다른 것에 붙여야 하는거라서 base class 를 바꿀 수가 없...
-
- 김봉식
- 2001.03.24 22:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이
- 2001.03.24 22:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 창워니
- •
- 2001.03.25 01:04
- 1 COMMENTS
- /
- 0 LIKES
-
감초•2001.03.25 14:42제가 아는 한 그런 방법은 없습니다. 창워니 wrote: > 크리스탈레포트를 델파이와 같이 사용하려구 하...
-
- 짱아
- 2001.03.24 20:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 멋짐이
- 2001.03.28 11:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 나영민
- •
- 2001.03.24 20:41
- 1 COMMENTS
- /
- 0 LIKES
-
뻐록이•2001.03.25 00:00나영민 wrote: > 허접만 물어봐서 미안합니다.. > > word 타입을 string 타입으로 형변환을 할려구 하...
아마 이부분이 문제가 될것 같은데~~~~~조건 때문에~~
김현영 wrote:
>
> 밑의 소스에서 데이타가 추가가 되지를 않습니다.
> Table1.Append; 문구가 들어가면 그이상은 명령이 진행(?)이되지를 않고
> 제일밑의 end;로 넘어가는것 같습니다.
> 테스트를 하기위해 Table1.Append;를 지우면 끝까지 진행이 되는것 같습니다.
> 데이터가 왜 추가가 되지를 않는지 답변좀 부탁드립니다.
> =========================================================================
>
> procedure TForm2.Edit5KeyPress(Sender: TObject; var Key: Char);
>
> begin
> If Key = #13 Then
> Begin
>
> If IDYes = Application.MessageBox( '저장 하겟습니까?', '저장확인', MB_YESNO + MB_DEFBUTTON1 + MB_ICONEXCLAMATION + MB_APPLMODAL ) then
> Begin
> if not ( Table1.State in [dsEdit, dsInsert] ) then Table1.Edit;
>
> Table1.Append;// <***************** 문제점
>
> Table1.FieldByName('주민등록번호').AsString := Form2.MaskEdit1.Text;
> Table1.FieldByName('이름').AsString := Form2.Edit2.Text;
> Table1.FieldByName('주소').AsString := Form2.Edit4.Text;
> Table1.FieldByName('메모').AsString := Form2.Edit5.Text;
> Table1.FieldByName('연락처').AsString := Form2.MaskEdit2.Text;
> Table1.FieldByName('휴대폰').AsString := Form2.MaskEdit3.Text;
>
> Table1.Post;
>
> Form2.MaskEdit1.Text :='';
> Form2.Edit1.Text :='';
> Form2.Edit2.Text :='';
> Form2.Edit3.Text :='';
> Form2.Edit4.Text :='';
> Form2.Edit5.Text :='';
>
> Form2.MaskEdit1.SetFocus;
> {두번째 문자 위치로 커서를 보낸다}
> Form2.MaskEdit1.SelStart := 0;
> {문자를 선택하지 않은 상태로 만든다}
> Form2.MaskEdit1.SelLength := 16;
> Key := #0;
> end;
> end;
> end;
>