한국 델파이 개발자 모임 - 테이블에 데이터가추가가 되지를 않습니다. 소스있슴.

테이블에 데이터가추가가 되지를 않습니다. 소스있슴.

밑의 소스에서 데이타가 추가가 되지를 않습니다.

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

나그네 • 2001.03.26 14:09

if not ( Table1.State in [dsEdit, dsInsert] ) then Table1.Edit;

아마 이부분이 문제가 될것 같은데~~~~~조건 때문에~~

김현영 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;

>
- 0
- 0
- 삭제
- 수정
- 댓글
감초 • 2001.03.25 14:26

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;

>
- 0
- 0
- 삭제
- 수정
- 댓글

(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
- 2 COMMENTS
- /
- 0 LIKES
필드값 중복 검사
- 류종택
  
  •
  
  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:09
  
  if not ( Table1.State in [dsEdit, dsInsert] ) then Table1.Edit; 아마 이부분이 문제가 될것 같은데...
- 감초
  
  •
  
  2001.03.25 14:26
  
  TTable에는 Append란 메쏘드가 없는걸로 아는데.. 아마 insert를 쓰셔야 할 부분에 엉뚱한 method를 부르...
- 이정용
- •
- 2001.03.25 08:50
- 2 COMMENTS
- /
- 0 LIKES
Edit에서 숫자를 입력하면 두칸씩 잡아먹습니다.
- 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
DBNavigator에서 문제가 ,, 급합니다.
- 가난한놈
- 2001.03.25 04:06
- 0 COMMENTS
- /
- 0 LIKES
Kylix에서 한글 폰트 사용 시 문제
- sunny
- •
- 2001.03.25 02:59
- 1 COMMENTS
- /
- 0 LIKES
트리뷰에서 노드 선택시 이미지를 바꿀때... -.-
- 솔뫼마당
  
  •
  
  2001.03.28 00:46
  
  질문의 요지는 대충 이런 듯 한데... 노드가 선택이 되면 '나' 그렇지 않으면 '가' 라는 이미지가 나오라...
- 개구리
- •
- 2001.03.25 04:03
- 1 COMMENTS
- /
- 0 LIKES
1)Mdiform, 2)Mdichild, 3)Mdimodal 꼭 읽어보세요!
- 솔뫼마당
  
  •
  
  2001.03.28 00:52
  
  너무 공짜 좋아하지 마세요.. 대머리 된데요... 일단 말씀 드리자면 AccessViolation 에러는 없는걸 호출...
- 명지니
- 2001.03.25 01:09
- 0 COMMENTS
- /
- 0 LIKES
추천해주세요~ FTP 컴포넌트~!!!
- ^-_-^
- •
- 2001.03.24 23:41
- 1 COMMENTS
- /
- 0 LIKES
Watcom DB??
- mafioso
  
  •
  
  2001.03.24 23:47
  
  Watcom 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
remote()함수로 엑셀작업하는 방법....
- 창워니
- •
- 2001.03.25 01:04
- 1 COMMENTS
- /
- 0 LIKES
Crystal Report에서 데이터베이스 컴포넌트를 사용하는 법?
- 감초
  
  •
  
  2001.03.25 14:42
  
  제가 아는 한 그런 방법은 없습니다. 창워니 wrote: > 크리스탈레포트를 델파이와 같이 사용하려구 하...
- 짱아
- 2001.03.24 20:57
- 0 COMMENTS
- /
- 0 LIKES
error message가 생겨요...
- 멋짐이
- 2001.03.28 11:34
- 0 COMMENTS
- /
- 0 LIKES
Quick Report 미리보기 후 다른 데이터 입력하면 미리보기가 안됩니다.
- 나영민
- •
- 2001.03.24 20:41
- 1 COMMENTS
- /
- 0 LIKES
word 타입을 string 타입으로 형변환할려구 하는데요...
- 뻐록이
  
  •
  
  2001.03.25 00:00
  
  나영민 wrote: > 허접만 물어봐서 미안합니다.. > > word 타입을 string 타입으로 형변환을 할려구 하...

김현영
2001/03/25 09:08
Views188

Likes0

Comments2

Reports0
Tag List
수정
삭제
목록으로

←First Page

1876 1877 1878 1879 1880 1881 1882 1883 1884 1885

Last Page→