Q&A
- 필드명은 나오는데 데이타가 나오질 않아여
IF RADIOGROUP1.ITEMINDEX = 0 THEN
QUERY1.CLOSE;
QUERY1.SQL.Clear;
// SSQL:= SSQL + Format('PGMID = ''%s''',[Trim(EDIT1.Text)]);
SSQL := Format('SELECT PGMID,PGMTITLE FROM DBPGM WHERE PGMID = ''%s''',[TRIM(EDIT1.TEXT)]);
QUERY1.SQL.ADD(SSQL);
TRY
QUERY1.OPEN;
SHOWMESSAGE(SSQL);
// STRINGGRID1.CELLS[1,3]:='KKK';
STRINGGRID1.Cells[0,0] := '프로그램아이디';
STRINGGRID1.Cells[1,0] := '프로그램제목';
STRINGGRID1.CELLS[0,1]:=QUERY1.FIELDS[0].ASSTRING;
STRINGGRID1.CELLS[1,1]:=QUERY1.FIELDS[1].ASSTRING;
QUERY1.SQL.CLEAR;
EXCEPT
Query1.Close;
APPLICATION.MESSAGEBOX('검색도중 에러발생', '에러', MB_OK+MB_ICONINFORMATION);
EXIT;
//Query1.FREE;
end;
Query1.CLOSE;
이렇게 했는데 필드명은 나오는데 데이타는 나오질 않네여
이러한 IF문이 여러가지가 있는데
나머지를 주석처리하고 한코딩만 열어놓으면 되는데
모든 코딩을 한꺼번에 실행시키면 데이타는 나오질 않는군여,
왜그럴까여?
처음에 했을때는 나왔는데
지금은 머가 이상한지..
한번 봐주시겠습니까?
QUERY1.CLOSE;
QUERY1.SQL.Clear;
// SSQL:= SSQL + Format('PGMID = ''%s''',[Trim(EDIT1.Text)]);
SSQL := Format('SELECT PGMID,PGMTITLE FROM DBPGM WHERE PGMID = ''%s''',[TRIM(EDIT1.TEXT)]);
QUERY1.SQL.ADD(SSQL);
TRY
QUERY1.OPEN;
SHOWMESSAGE(SSQL);
// STRINGGRID1.CELLS[1,3]:='KKK';
STRINGGRID1.Cells[0,0] := '프로그램아이디';
STRINGGRID1.Cells[1,0] := '프로그램제목';
STRINGGRID1.CELLS[0,1]:=QUERY1.FIELDS[0].ASSTRING;
STRINGGRID1.CELLS[1,1]:=QUERY1.FIELDS[1].ASSTRING;
QUERY1.SQL.CLEAR;
EXCEPT
Query1.Close;
APPLICATION.MESSAGEBOX('검색도중 에러발생', '에러', MB_OK+MB_ICONINFORMATION);
EXIT;
//Query1.FREE;
end;
Query1.CLOSE;
이렇게 했는데 필드명은 나오는데 데이타는 나오질 않네여
이러한 IF문이 여러가지가 있는데
나머지를 주석처리하고 한코딩만 열어놓으면 되는데
모든 코딩을 한꺼번에 실행시키면 데이타는 나오질 않는군여,
왜그럴까여?
처음에 했을때는 나왔는데
지금은 머가 이상한지..
한번 봐주시겠습니까?
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김정규
- 2001.02.06 03:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.02.06 03:31
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.02.06 13:42procedure TForm1.SaveButtonClick(Sender: TObject); var SaveDialog: TSaveDialog; begin Sa...
-
- 초보
- •
- 2001.02.06 03:04
- 1 COMMENTS
- /
- 0 LIKES
-
허더비•2001.02.06 20:04초보 wrote: > 스트링그리드에서 한 셀을 클릭 했을때 그 셀의 폰트는 검정색으로 배경은 흰색으로 표현해...
-
- 모름이
- •
- 2001.02.06 02:58
- 1 COMMENTS
- /
- 0 LIKES
-
모름이•2001.02.06 21:09모름이 wrote: > 안녕하세여~ > 델파이를 사랑하는 한국의 젊은이 입니다. > 지금 winshoes 컴포런트를 ...
-
- 박성혜
- 2001.02.06 02:52
- 0 COMMENTS
- /
- 0 LIKES
-
- hsh
- 2001.02.06 02:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 고스트
- •
- 2001.02.06 02:53
- 1 COMMENTS
- /
- 0 LIKES
-
coolling•2001.02.06 03:15TNS업데이트가 뭘 말하는 건가요... Oracle Net8 Easy Config에서 서비스Name과 TCP/IP설정, 프로토콜등의...
-
- nurihong
- 2001.02.06 02:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.02.06 02:25
- 1 COMMENTS
- /
- 0 LIKES
-
이만준•2001.02.06 03:39안녕하세요... dbgrid는 스트링그리드 처럼 Cell을 가지고 있지 않습니다.... 데이타는 모두 DataSet...
-
- 답변 갈망자
- •
- 2001.02.06 01:58
- 2 COMMENTS
- /
- 0 LIKES
-
정우성•2001.02.06 03:34안녕하세여.. 정우성입니다. 음.. 저두 그것 때문에.. 고민 좀 했습니다. 저는 이런식으로 해결했습...
-
답변 갈망자•2001.02.06 03:56답변 감사합니다. 오늘 꼭 실행해 보도록 하겠습니다. 근데 혹시 express버젼말고 다른 버젼에서는 그런...
-
- 바보
- •
- 2001.02.06 01:41
- 6 COMMENTS
- /
- 0 LIKES
-
김영현•2001.02.06 22:57
-
유레카•2001.02.06 02:14
-
바보•2001.02.06 03:18
-
유레카•2001.02.06 04:05
-
바보•2001.02.06 04:48
-
유레카•2001.02.06 20:11
-
- 궁금녀
- •
- 2001.02.06 01:30
- 2 COMMENTS
- /
- 0 LIKES
-
김경식•2001.02.06 03:12실질적으로 지금의 작업은 이동이 되는게 아니라 TargetTree에 새로운 노드를 만들고, SourceTree에서 선택...
-
궁금녀•2001.02.06 03:32김경식님, 답변 감사합니다. moveto는 동일 트리내에서는 이동이 잘 되는 데 다른 트리로의 이동이 자유롭...
-
- 김영미
- •
- 2001.02.06 01:23
- 6 COMMENTS
- /
- 0 LIKES
-
이만준•2001.02.06 03:33
-
김영미•2001.02.06 03:54
-
이만준•2001.02.06 04:26
-
김영미•2001.02.06 04:46
-
이만준•2001.02.06 05:10
-
김영미•2001.02.06 05:16
-
- 3107
- •
- 2001.02.06 01:08
- 1 COMMENTS
- /
- 0 LIKES
-
3107•2001.02.06 02:50해결했습당.........^^ 같은 문제로 고민하는 사람은 메일 주세요 > 코딩 상에서 while문 안에서 d...
-
- 초보초보
- •
- 2001.02.06 00:54
- 2 COMMENTS
- /
- 0 LIKES
-
이만준•2001.02.06 03:09안녕하세요... 님의 코드에서 if member testmember then 이러한 비교는 의미가 없습니다.... ...
-
초보초보•2001.02.06 05:03만준님 감사요.. 이제야 머리가 좀 맑아 지는거 같습니다.. 이만준 wrote: > > 안녕하세요... > >...
-
- 때밀이
- •
- 2001.02.06 00:48
- 2 COMMENTS
- /
- 0 LIKES
-
조덕진•2001.02.06 01:27델고수를 꿈꾸는 초봅니다. 꽁수지만, 팝업메뉴가 뜰때 Tab 컨트롤의 Fosuc를 체크하여 변경해 주면 되...
-
때밀이•2001.02.06 04:30음...SetFocus를 해도 안되고...Focused를 해도 안되는군요.. 계속 찾아봐야겠네요.. 아시는 분 없나요? ...
-
- 김진성
- 2001.02.06 00:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.02.06 01:00
- 1 COMMENTS
- /
- 0 LIKES
IF RADIOGROUP1.ITEMINDEX = 0 THEN QUERY1.CLOSE; QUERY1.SQL.Clear; // SSQL:= SSQL + Format('PGMID = ''%s''',[Trim(EDIT1.Text)]); SSQL := Format('SELECT PGMID,PGMTITLE FROM DBPGM WHERE PGMID = ''%s''',[TRIM(EDIT1.TEXT)]); Q...-
임형호•2001.02.06 01:24초보 wrote: > IF RADIOGROUP1.ITEMINDEX = 0 THEN > > QUERY1.CLOSE; > QUERY1.SQL.Clear; > ...
-
- 남경임
- 2001.02.06 00:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 김상민
- 2001.02.06 00:28
- 0 COMMENTS
- /
- 0 LIKES
> IF RADIOGROUP1.ITEMINDEX = 0 THEN
>
> QUERY1.CLOSE;
> QUERY1.SQL.Clear;
> // SSQL:= SSQL + Format('PGMID = ''%s''',[Trim(EDIT1.Text)]);
> SSQL := Format('SELECT PGMID,PGMTITLE FROM DBPGM WHERE PGMID = ''%s''',[TRIM(EDIT1.TEXT)]);
> QUERY1.SQL.ADD(SSQL);
>
> TRY
> QUERY1.OPEN;
> SHOWMESSAGE(SSQL);
>
> // STRINGGRID1.CELLS[1,3]:='KKK';
> STRINGGRID1.Cells[0,0] := '프로그램아이디';
> STRINGGRID1.Cells[1,0] := '프로그램제목';
> STRINGGRID1.CELLS[0,1]:=QUERY1.FIELDS[0].ASSTRING;
> STRINGGRID1.CELLS[1,1]:=QUERY1.FIELDS[1].ASSTRING;
> QUERY1.SQL.CLEAR;
>
> EXCEPT
> Query1.Close;
> APPLICATION.MESSAGEBOX('검색도중 에러발생', '에러', MB_OK+MB_ICONINFORMATION);
> EXIT;
> //Query1.FREE;
> end;
> Query1.CLOSE;
>
> 이렇게 했는데 필드명은 나오는데 데이타는 나오질 않네여
> 이러한 IF문이 여러가지가 있는데
> 나머지를 주석처리하고 한코딩만 열어놓으면 되는데
> 모든 코딩을 한꺼번에 실행시키면 데이타는 나오질 않는군여,
> 왜그럴까여?
> 처음에 했을때는 나왔는데
> 지금은 머가 이상한지..
> 한번 봐주시겠습니까?
>
한 이벤트 안에
위와 같은 if문이 여러개 있다는 말씀이신가요?
그러니까..
IF RADIOGROUP1.ITEMINDEX = 0 THEN
.
.
.
IF RADIOGROUP1.ITEMINDEX = 1 THEN
.
.
.
이런식인가요?
그렇다면..위에 적어놓은 문장은 잘못된것 같습니다.
> IF RADIOGROUP1.ITEMINDEX = 0 THEN
>
> QUERY1.CLOSE;
> QUERY1.SQL.Clear;
여기서... 우선 RADIOGROUP1.ITEMINDEX = 0 일때 실행되는 문장은
QUERY1.CLOSE <-- 요 한문장입니다.
그다음줄부터는 RADIOGROUP1.ITEMINDEX 에 상관없이 무조건 실행이되네요.
BEGIM -- END 로 묶어야 될것 같네요
그러니까
IF RADIOGROUP1.ITEMINDEX = 0 THEN
Begin
QUERY1.CLOSE;
QUERY1.SQL.Clear;
//이하생략
End;
IF RADIOGROUP1.ITEMINDEX = 1 THEN
Begin
//RADIOGROUP1.ITEMINDEX=1일때 처리
End;