한국 델파이 개발자 모임 - Query한 결과셋 INT형을 Edit에 뿌리기?

Query한 결과셋 INT형을 Edit에 뿌리기?

안녕하세요..

테이블 2개를 조인한 Query의 결과셋중에서 INT(CstmrID field)형을 Edit에 뿌리려고 하는데

에러가 출력됩니다.. 그리고 INT형을 INSERT할때도 변환과정이 필요합니다

소스는 아래에...

procedure TForm1.Button1Click(Sender: TObject);

var

ls_cnt : Integer;

begin

with Query2 do begin

Close;

SQL.Clear;

SQL.Add(' SELECT * ');

SQL.Add(' FROM Customers AS a INNER JOIN Customers_Detail AS b ');

SQL.Add(' ON a.CstmrID = b.CstmrID ');

SQL.Add(' WHERE a.CstmrName = :v_nm ');

ParamByName('v_nm').AsString := Trim(Edit1.Text);

Open;

end; //CstmrID가 INT형임

Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').Value); //여기서 변환을

Edit3.Text := Query2.FieldByName('CstmrP').Value; //어케 해야하는지?

Edit4.Text := Query2.FieldByName('CstmrName').Value;

Edit5.Text := Query2.FieldByName('C_No').Value;

Edit6.Text := Query2.FieldByName('Tlphn').Value;

Edit7.Text := Query2.FieldByName('Fx').Value;

Edit8.Text := Query2.FieldByName('ZpCd').Value;

Edit9.Text := Query2.FieldByName('Sub_Adrss').Value;

Edit10.Text := Query2.FieldByName('C_Dscrptn').Value;

Edit11.Text := Query2.FieldByName('E_Mail').Value;

ls_cnt := Query2.RecordCount;

if ls_cnt < 1 then

MessageBox(handle, '검색된 내용이 없습니다', '확 인', MB_OK or $0040)

else

PageControl1.ActivePageIndex := 1;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

with Query3 do begin

Close;

SQL.Clear;

SQL.Add(' INSERT INTO Customers_detail (d_Nm,D_Pstn,D_tel,D_E_mail, ');

SQL.Add(' CstrmID) VALUES( :v_d_Nm, :v_D_Pstn, :v_D_tel, ');

SQL.Add(' :v_D_E_mail, :v_CstmrID) ');

ParamByName('v_d_Nm').AsString := Trim(Edit12.Text);

ParamByName('v_D_Pstn').AsString := Trim(Edit13.Text);

ParamByName('v_D_tel').AsString := Trim(Edit14.Text);

ParamByName('v_D_E_mail').AsString := Trim(Edit15.Text);

ParamByName('v_cstmrID').AsString := Trim(Edit2.Text); //여기서 Error가

Open; // 발생할것 같은데?

end;

end;

end.

위의 소스를 어

이 게시물을

3 COMMENTS

블랙봉 • 2001.07.10 18:44

> Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').Value);

윗 부분은 다음과 같이 변환하시면 되겠네요.

Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').AsInteger);

또는

Edit2.Text := Query2.FieldByName('CstmrID').AsString;

두 문장이 거의 비슷하지만 필드의 값이 NULL일 때는 아마 차이가 날 겁니다.

첫 번째 문장은 NULL이더라도 0이 에디트 박스에 들어가고 2번째 문장은

에디트 박스에 아무 것도 안들어갈 겁니다.(맞나...)

> ParamByName('v_cstmrID').AsString := Trim(Edit2.Text);

위 문장의 에러는 Edit2.Text의 값이 '' 이거나 숫자가 아닐때 날 것 같은데요.

숫자인지 체크를 먼저 하심이 어떨지.

김대훈 wrote:

> 안녕하세요..

> 테이블 2개를 조인한 Query의 결과셋중에서 INT(CstmrID field)형을 Edit에 뿌리려고 하는데

> 에러가 출력됩니다.. 그리고 INT형을 INSERT할때도 변환과정이 필요합니다

> 소스는 아래에...

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> ls_cnt : Integer;

> begin

> with Query2 do begin

> Close;

> SQL.Clear;

> SQL.Add(' SELECT * ');

> SQL.Add(' FROM Customers AS a INNER JOIN Customers_Detail AS b ');

> SQL.Add(' ON a.CstmrID = b.CstmrID ');

> SQL.Add(' WHERE a.CstmrName = :v_nm ');

> ParamByName('v_nm').AsString := Trim(Edit1.Text);

> Open;

> end; //CstmrID가 INT형임

> Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').Value); //여기서 변환을

> Edit3.Text := Query2.FieldByName('CstmrP').Value; //어케 해야하는지?

> Edit4.Text := Query2.FieldByName('CstmrName').Value;

> Edit5.Text := Query2.FieldByName('C_No').Value;

> Edit6.Text := Query2.FieldByName('Tlphn').Value;

> Edit7.Text := Query2.FieldByName('Fx').Value;

> Edit8.Text := Query2.FieldByName('ZpCd').Value;

> Edit9.Text := Query2.FieldByName('Sub_Adrss').Value;

> Edit10.Text := Query2.FieldByName('C_Dscrptn').Value;

> Edit11.Text := Query2.FieldByName('E_Mail').Value;

>

> ls_cnt := Query2.RecordCount;

> if ls_cnt < 1 then

> MessageBox(handle, '검색된 내용이 없습니다', '확 인', MB_OK or $0040)

> else

> PageControl1.ActivePageIndex := 1;

> end;

>

> procedure TForm1.Button2Click(Sender: TObject);

> begin

> with Query3 do begin

> Close;

> SQL.Clear;

> SQL.Add(' INSERT INTO Customers_detail (d_Nm,D_Pstn,D_tel,D_E_mail, ');

> SQL.Add(' CstrmID) VALUES( :v_d_Nm, :v_D_Pstn, :v_D_tel, ');

> SQL.Add(' :v_D_E_mail, :v_CstmrID) ');

> ParamByName('v_d_Nm').AsString := Trim(Edit12.Text);

> ParamByName('v_D_Pstn').AsString := Trim(Edit13.Text);

> ParamByName('v_D_tel').AsString := Trim(Edit14.Text);

> ParamByName('v_D_E_mail').AsString := Trim(Edit15.Text);

> ParamByName('v_cstmrID').AsString := Trim(Edit2.Text); //여기서 Error가

> Open; // 발생할것 같은데?

> end;

> end;

>

> end.

>

> 위의 소스를 어
- 0
- 0
- 삭제
- 수정
- 댓글
김대훈 • 2001.07.10 20:36

다시 한번 답변 부탁드리겠습니다..

아래의 소스를 보면 퀴리가 조인으로 결과셋이 나왔는데

필드를 구별하는 구별자 같은것이 필요할것 같은데.. 그런것을 처리하는것은

어케 합니까...

CstmrID, CstmrP...등이 없다는 에러 메세지가 발생합니다..

그리고 INSERT시에 아래와 같은 에러가 발생합니다..

Project Project_DS.exe raised exception class ENoResultSet with message

'Error creating cursor handle'

그리고 제가 구현하려는 것은 거래업체의 기본정보가 출력되고 출력된 거래업체의

담당자들의 이력을 Dbgrid에 나타내려고 합니다 기본정보는 에디트에 나타납니다..

블랙봉 wrote:

> > Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').Value);

> 윗 부분은 다음과 같이 변환하시면 되겠네요.

> Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').AsInteger);

> 또는

> Edit2.Text := Query2.FieldByName('CstmrID').AsString;

> 두 문장이 거의 비슷하지만 필드의 값이 NULL일 때는 아마 차이가 날 겁니다.

> 첫 번째 문장은 NULL이더라도 0이 에디트 박스에 들어가고 2번째 문장은

> 에디트 박스에 아무 것도 안들어갈 겁니다.(맞나...)

>

> > ParamByName('v_cstmrID').AsString := Trim(Edit2.Text);

> 위 문장의 에러는 Edit2.Text의 값이 '' 이거나 숫자가 아닐때 날 것 같은데요.

> 숫자인지 체크를 먼저 하심이 어떨지.

>

> 김대훈 wrote:

> > 안녕하세요..

> > 테이블 2개를 조인한 Query의 결과셋중에서 INT(CstmrID field)형을 Edit에 뿌리려고 하는데

> > 에러가 출력됩니다.. 그리고 INT형을 INSERT할때도 변환과정이 필요합니다

> > 소스는 아래에...

> >

> > procedure TForm1.Button1Click(Sender: TObject);

> > var

> > ls_cnt : Integer;

> > begin

> > with Query2 do begin

> > Close;

> > SQL.Clear;

> > SQL.Add(' SELECT * ');

> > SQL.Add(' FROM Customers AS a INNER JOIN Customers_Detail AS b ');

> > SQL.Add(' ON a.CstmrID = b.CstmrID ');

> > SQL.Add(' WHERE a.CstmrName = :v_nm ');

> > ParamByName('v_nm').AsString := Trim(Edit1.Text);

> > Open;

> > end; //CstmrID가 INT형임

> > Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').Value); //여기서 변환을

> > Edit3.Text := Query2.FieldByName('CstmrP').Value; //어케 해야하는지?

> > Edit4.Text := Query2.FieldByName('CstmrName').Value;

> > Edit5.Text := Query2.FieldByName('C_No').Value;

> > Edit6.Text := Query2.FieldByName('Tlphn').Value;

> > Edit7.Text := Query2.FieldByName('Fx').Value;

> > Edit8.Text := Query2.FieldByName('ZpCd').Value;

> > Edit9.Text := Query2.FieldByName('Sub_Adrss').Value;

> > Edit10.Text := Query2.FieldByName('C_Dscrptn').Value;

> > Edit11.Text := Query2.FieldByName('E_Mail').Value;

> >

> > ls_cnt := Query2.RecordCount;

> > if ls_cnt < 1 then

> > MessageBox(handle, '검색된 내용이 없습니다', '확 인', MB_OK or $0040)

> > else

> > PageControl1.ActivePageIndex := 1;

> > end;

> >

> > procedure TForm1.Button2Click(Sender: TObject);

> > begin

> > with Query3 do begin

> > Close;

> > SQL.Clear;

> > SQL.Add(' INSERT INTO Customers_detail (d_Nm,D_Pstn,D_tel,D_E_mail, ');

> > SQL.Add(' CstrmID) VALUES( :v_d_Nm, :v_D_Pstn, :v_D_tel, ');

> > SQL.Add(' :v_D_E_mail, :v_CstmrID) ');

> > ParamByName('v_d_Nm').AsString := Trim(Edit12.Text);

> > ParamByName('v_D_Pstn').AsString := Trim(Edit13.Text);

> > ParamByName('v_D_tel').AsString := Trim(Edit14.Text);

> > ParamByName('v_D_E_mail').AsString := Trim(Edit15.Text);

> > ParamByName('v_cstmrID').AsString := Trim(Edit2.Text); //여기서 Error가

> > Open; // 발생할것 같은데?

> > end;

> > end;

> >

> > end.

> >

> > 위의 소스를 어
- 0
- 0
- 삭제
- 수정
- 댓글
블랙봉 • 2001.07.11 02:23

> > > SQL.Add(' SELECT * ');

> > > SQL.Add(' FROM Customers AS a INNER JOIN Customers_Detail AS b ');

> > > SQL.Add(' ON a.CstmrID = b.CstmrID ');

> > > SQL.Add(' WHERE a.CstmrName = :v_nm ');

> > > ParamByName('v_nm').AsString := Trim(Edit1.Text);

이 부분을 말씀하시는건가요?

음... Customers와 Customers_Detail 테이블에 같은 이름을 가진 필드가 있으면 문제가 되겠네요. 일단 CstmrID가 그렇군요. 이런 경우에는 Select 에서 명시적으로 필드 이름을 나열해 주시면 해결 될 것 같군요.

SELECT a.CstmrID, .........

등으로요..

김대훈 wrote:

> 다시 한번 답변 부탁드리겠습니다..

> 아래의 소스를 보면 퀴리가 조인으로 결과셋이 나왔는데

> 필드를 구별하는 구별자 같은것이 필요할것 같은데.. 그런것을 처리하는것은

> 어케 합니까...

> CstmrID, CstmrP...등이 없다는 에러 메세지가 발생합니다..

>

> 그리고 INSERT시에 아래와 같은 에러가 발생합니다..

> Project Project_DS.exe raised exception class ENoResultSet with message

> 'Error creating cursor handle'

>

> 그리고 제가 구현하려는 것은 거래업체의 기본정보가 출력되고 출력된 거래업체의

> 담당자들의 이력을 Dbgrid에 나타내려고 합니다 기본정보는 에디트에 나타납니다..

>

>

> 블랙봉 wrote:

> > > Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').Value);

> > 윗 부분은 다음과 같이 변환하시면 되겠네요.

> > Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').AsInteger);

> > 또는

> > Edit2.Text := Query2.FieldByName('CstmrID').AsString;

> > 두 문장이 거의 비슷하지만 필드의 값이 NULL일 때는 아마 차이가 날 겁니다.

> > 첫 번째 문장은 NULL이더라도 0이 에디트 박스에 들어가고 2번째 문장은

> > 에디트 박스에 아무 것도 안들어갈 겁니다.(맞나...)

> >

> > > ParamByName('v_cstmrID').AsString := Trim(Edit2.Text);

> > 위 문장의 에러는 Edit2.Text의 값이 '' 이거나 숫자가 아닐때 날 것 같은데요.

> > 숫자인지 체크를 먼저 하심이 어떨지.

> >

> > 김대훈 wrote:

> > > 안녕하세요..

> > > 테이블 2개를 조인한 Query의 결과셋중에서 INT(CstmrID field)형을 Edit에 뿌리려고 하는데

> > > 에러가 출력됩니다.. 그리고 INT형을 INSERT할때도 변환과정이 필요합니다

> > > 소스는 아래에...

> > >

> > > procedure TForm1.Button1Click(Sender: TObject);

> > > var

> > > ls_cnt : Integer;

> > > begin

> > > with Query2 do begin

> > > Close;

> > > SQL.Clear;

> > > SQL.Add(' SELECT * ');

> > > SQL.Add(' FROM Customers AS a INNER JOIN Customers_Detail AS b ');

> > > SQL.Add(' ON a.CstmrID = b.CstmrID ');

> > > SQL.Add(' WHERE a.CstmrName = :v_nm ');

> > > ParamByName('v_nm').AsString := Trim(Edit1.Text);

> > > Open;

> > > end; //CstmrID가 INT형임

> > > Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').Value); //여기서 변환을

> > > Edit3.Text := Query2.FieldByName('CstmrP').Value; //어케 해야하는지?

> > > Edit4.Text := Query2.FieldByName('CstmrName').Value;

> > > Edit5.Text := Query2.FieldByName('C_No').Value;

> > > Edit6.Text := Query2.FieldByName('Tlphn').Value;

> > > Edit7.Text := Query2.FieldByName('Fx').Value;

> > > Edit8.Text := Query2.FieldByName('ZpCd').Value;

> > > Edit9.Text := Query2.FieldByName('Sub_Adrss').Value;

> > > Edit10.Text := Query2.FieldByName('C_Dscrptn').Value;

> > > Edit11.Text := Query2.FieldByName('E_Mail').Value;

> > >

> > > ls_cnt := Query2.RecordCount;

> > > if ls_cnt < 1 then

> > > MessageBox(handle, '검색된 내용이 없습니다', '확 인', MB_OK or $0040)

> > > else

> > > PageControl1.ActivePageIndex := 1;

> > > end;

> > >

> > > procedure TForm1.Button2Click(Sender: TObject);

> > > begin

> > > with Query3 do begin

> > > Close;

> > > SQL.Clear;

> > > SQL.Add(' INSERT INTO Customers_detail (d_Nm,D_Pstn,D_tel,D_E_mail, ');

> > > SQL.Add(' CstrmID) VALUES( :v_d_Nm, :v_D_Pstn, :v_D_tel, ');

> > > SQL.Add(' :v_D_E_mail, :v_CstmrID) ');

> > > ParamByName('v_d_Nm').AsString := Trim(Edit12.Text);

> > > ParamByName('v_D_Pstn').AsString := Trim(Edit13.Text);

> > > ParamByName('v_D_tel').AsString := Trim(Edit14.Text);

> > > ParamByName('v_D_E_mail').AsString := Trim(Edit15.Text);

> > > ParamByName('v_cstmrID').AsString := Trim(Edit2.Text); //여기서 Error가

> > > Open; // 발생할것 같은데?

> > > end;

> > > end;

> > >

> > > end.

> > >

> > > 위의 소스를 어
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 이금선
- •
- 2001.07.10 20:04
- 4 COMMENTS
- /
- 0 LIKES
A~Z까지 유효검사를 하는 문제입니다.
- 정성훈
  
  •
  
  2001.07.10 20:33
  
  이금선 wrote: > 아래 내용은 입력처리 조건을 처리하는 부분입니다. > > 문제는 조건4.우수고객등급은...
- 이금선
  
  •
  
  2001.07.11 04:36
  
  정성훈 wrote: > > 안녕하세요. > FOR는 루프인데 결과가 같아도 계속 반복되니 메시지 출력은 당...
- 뽀록이
  
  •
  
  2001.07.11 23:38
  
  안녕하세요 전 그렇게 복잡하게 안 할거 같은데요 이렇게 함 안 될까요>>>>>>>>>>??????? if not ((ed...
- 정성훈
  
  •
  
  2001.07.11 06:32
  
  이금선 wrote: > 정성훈 wrote: > > > > > > 안녕하세요. > > FOR는 루프인데 결과가 같아도 계속...
- 나그네
- 2001.07.10 19:55
- 0 COMMENTS
- /
- 0 LIKES
NT에서 각 프로세스의 CPU사용시간을 알고싶어요..
- 처음
- •
- 2001.07.10 19:48
- 2 COMMENTS
- /
- 0 LIKES
윈도우 함수에러 같은데...
- Ben
  
  •
  
  2001.07.10 20:14
  
  처음 wrote: > MDI와 CHILD 폼을 기본으로 사용하고요.. > 간혹 CHILD폼을 열때 다음과 같은 Error메세지...
- 처음
  
  •
  
  2001.07.10 20:54
  
  Ben wrote: > 처음 wrote: > > MDI와 CHILD 폼을 기본으로 사용하고요.. > > 간혹 CHILD폼을 열때 다음...
- 인어공주
- •
- 2001.07.10 19:45
- 2 COMMENTS
- /
- 0 LIKES
var 질문 입니다
- 하기
  
  •
  
  2001.07.10 20:21
  
  procedure Val(S; var V; var Code: Integer); [[[[Example]]]] procedure TForm1.Button1Click(Sender:...
- 인어공주
  
  •
  
  2001.07.10 21:01
  
  항상 하기님이 제 답변을 해주시는것 같네요. 정말 고맙습니다. 문제는 해결 되었구요..^^ 항상 ...
- 엔젤조
- 2001.07.10 21:08
- 0 COMMENTS
- /
- 0 LIKES
SQL DB관리방법에대한 질문(급함)
- peritus
- 2001.07.10 19:35
- 0 COMMENTS
- /
- 0 LIKES
I/O에러를 잡아내는 방법?
- 델만세
- •
- 2001.07.10 18:58
- 1 COMMENTS
- /
- 0 LIKES
zip
- ㅁㅇㄹ
  
  •
  
  2008.01.21 06:47
- 이방인
- •
- 2001.07.10 18:57
- 2 COMMENTS
- /
- 0 LIKES
Excel 저장
- 블랙봉
  
  •
  
  2001.07.10 19:16
  
  FormatMaskText('A-00000-0000000;0', StringGrid.Cells[iCol,iRow]) 이방인 wrote: > string grid내용...
- 이방인
  
  •
  
  2001.07.10 19:42
  
  FormatMaskText('A-00000-0000000;0', StringGrid.Cells[iCol,iRow]) 이런식으로 바꿔놓고 하면 엑셀로 ...
- 아기코알라
- •
- 2001.07.10 18:40
- 1 COMMENTS
- /
- 0 LIKES
정말급합니다. 꼭좀봐주십시요 ( Calfield 계산된것 합계산출입니다)..
- 블랙봉
  
  •
  
  2001.07.10 18:51
  
  맞는 지는 모릅니다. 혹시 계산이 잘못 되는 경우는 이 때문이지 않을까요? > end else (begin) > ...
- 김대훈
- •
- 2001.07.10 18:34
- 3 COMMENTS
- /
- 0 LIKES
Query한 결과셋 INT형을 Edit에 뿌리기?

안녕하세요.. 테이블 2개를 조인한 Query의 결과셋중에서 INT(CstmrID field)형을 Edit에 뿌리려고 하는데 에러가 출력됩니다.. 그리고 INT형을 INSERT할때도 변환과정이 필요합니다 소스는 아래에... procedure TForm1.Button1Click(Send...
- 블랙봉
  
  •
  
  2001.07.10 18:44
  
  > Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').Value); 윗 부분은 다음과 같이 변환하시면 ...
- 김대훈
  
  •
  
  2001.07.10 20:36
  
  다시 한번 답변 부탁드리겠습니다.. 아래의 소스를 보면 퀴리가 조인으로 결과셋이 나왔는데 필드를 구별...
- 블랙봉
  
  •
  
  2001.07.11 02:23
  
  > > > SQL.Add(' SELECT * '); > > > SQL.Add(' FROM Customers AS a INNER JOIN Customers_Detail AS...
- 이성근
- •
- 2001.07.10 18:26
- 1 COMMENTS
- /
- 0 LIKES
델파이 한글판 있나요? 또..
- 손
  
  •
  
  2001.07.12 09:53
  
  이성근 wrote: > 델파이 한글판 있나요? > > 또 어디서 구할수 있나요? ㅜ.ㅡ > > c++ 만 하다보니...
- 이정현
- 2001.07.10 13:24
- 0 COMMENTS
- /
- 0 LIKES
indy ftp 에서 로긴에러 530 메세지를 죽이는 방법없나요?
- 한동수
- 2001.07.10 13:23
- 0 COMMENTS
- /
- 0 LIKES
질문제목과 분류를 꼭 해주시길 부탁드립니다.
- 김성문
- •
- 2001.07.10 09:34
- 1 COMMENTS
- /
- 0 LIKES
메모리 바이올레이션 에러가납니다. 왜그런지 답변부탁드려요.
- 박서규
  
  •
  
  2001.07.10 19:28
  
  김성문 wrote: > procedure TForm1.SpeedButton1Click(Sender: TObject); > var strlist1:Tstringlist; K...
- 초보..
- •
- 2001.07.10 09:08
- 1 COMMENTS
- /
- 0 LIKES
스토어드 프로시져에서..
- Ben
  
  •
  
  2001.07.10 20:09
  
  초보.. wrote: > 아까 글을 남겼는데 > 처음 남기다 보니깐 나두 모르게 열개정도가 한번에.. 미안합니다...
- 부산갈매기
- 2001.07.10 06:52
- 0 COMMENTS
- /
- 0 LIKES
webbrowser 써 보신분
- 빙고
- 2001.07.10 06:15
- 0 COMMENTS
- /
- 0 LIKES
XDBGRID 체크박스에 관한 질문인데요???
- xxx
- 2001.07.10 06:10
- 0 COMMENTS
- /
- 0 LIKES
QuickReport에서 미리보기
- 바보팅이
- •
- 2001.07.10 05:08
- 1 COMMENTS
- /
- 0 LIKES
오라클 연결 문제 입니다.
- 초보
  
  •
  
  2001.07.14 20:42
  
  bde를 업그레이드 시키셔야 하는것 같습니다. 한국볼랜드에 가시면 있는것 같은데...
- 김대훈
- •
- 2001.07.10 03:57
- 1 COMMENTS
- /
- 0 LIKES
INT 형 값을 TEdit 에 삽입하기?
- 사발우성
  
  •
  
  2001.07.10 04:23
  
  edit1.text := fieldbyname('int').asstring; 또는 edit1.text := inttstr(fieldbyname('int').asintege...

김대훈
2001/07/10 18:34
Views239

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

1686 1687 1688 1689 1690 1691 1692 1693 1694 1695

Last Page→