Q&A
- StringGrid에서 테이블검색에 관해...
procedure TFrmComn.BBtnSearchClick(Sender: TObject);
var
i : integer;
begin
with Qry1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from jaksi');
Sql.Add('order by jiyouk, moun, saeng, dansu');
Open;
StringGrid1.RowCount := RecordCount;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~// 국내 생산통계 자료 검색 //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if RadioGroup1.ItemIndex = 0 then
begin
for i := 1 to (StringGrid1.RowCount + 1) do
begin
Close;
SQL.Clear;
Sql.Add('Select * from jaksi');
Sql.Add('where gubun = :gubun');
Sql.Add('and yymd = :yymd');
ParamByName('gubun').AsString := Inttostr(RadioGroup1.ItemIndex);
ParamByName('yymd').AsString := MEdit1.Text;
Open;
StringGrid1.Cells[0,i] := FieldByName('jiyouk').Asstring;
StringGrid1.Cells[1,i] := FieldByName('moun').Asstring;
StringGrid1.Cells[2,i] := FieldByName('saeng').Asstring;
StringGrid1.Cells[3,i] := FieldByName('dansu').Asstring;
end;
SBarMsg.Panels[0].Text := '검색이 끝났습니다..!';
end
else
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// 국외 생산통계 자료 검색
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if RadioGroup1.ItemIndex = 1 then
begin
for i := 1 to (StringGrid1.RowCount + 1) do
begin
Close;
SQL.Clear;
Sql.Add('Select * from jaksi');
Sql.Add('where gubun = :gubun');
Sql.Add('and yymd = :yymd');
ParamByName('gubun').AsString := Inttostr(RadioGroup1.ItemIndex);
ParamByName('yymd').AsString := MEdit1.Text;
Open;
StringGrid1.Cells[0,i] := FieldByName('jiyouk').Asstring;
StringGrid1.Cells[1,i] := FieldByName('moun').Asstring;
StringGrid1.Cells[2,i] := FieldByName('saeng').Asstring;
StringGrid1.Cells[3,i] := FieldByName('dansu').Asstring;
end;
SBarMsg.Panels[0].Text := '검색이 끝났습니다..!';
end;
end;
end;
여기까지가 검색부분인데...
검색 버튼을 누르면...
만약 20개의 레코드가 있다면...
20개이 레코드가 나와야 하는데...
첫 번째 레코드의 내용만...
19번 출력이 됩니다
아무리 보구 또 봐도...
어디가 잘못 된건지 알수가 없어요...
꼭 좀 알려주세요...
급하거든요~!!!!
var
i : integer;
begin
with Qry1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from jaksi');
Sql.Add('order by jiyouk, moun, saeng, dansu');
Open;
StringGrid1.RowCount := RecordCount;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~// 국내 생산통계 자료 검색 //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if RadioGroup1.ItemIndex = 0 then
begin
for i := 1 to (StringGrid1.RowCount + 1) do
begin
Close;
SQL.Clear;
Sql.Add('Select * from jaksi');
Sql.Add('where gubun = :gubun');
Sql.Add('and yymd = :yymd');
ParamByName('gubun').AsString := Inttostr(RadioGroup1.ItemIndex);
ParamByName('yymd').AsString := MEdit1.Text;
Open;
StringGrid1.Cells[0,i] := FieldByName('jiyouk').Asstring;
StringGrid1.Cells[1,i] := FieldByName('moun').Asstring;
StringGrid1.Cells[2,i] := FieldByName('saeng').Asstring;
StringGrid1.Cells[3,i] := FieldByName('dansu').Asstring;
end;
SBarMsg.Panels[0].Text := '검색이 끝났습니다..!';
end
else
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// 국외 생산통계 자료 검색
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if RadioGroup1.ItemIndex = 1 then
begin
for i := 1 to (StringGrid1.RowCount + 1) do
begin
Close;
SQL.Clear;
Sql.Add('Select * from jaksi');
Sql.Add('where gubun = :gubun');
Sql.Add('and yymd = :yymd');
ParamByName('gubun').AsString := Inttostr(RadioGroup1.ItemIndex);
ParamByName('yymd').AsString := MEdit1.Text;
Open;
StringGrid1.Cells[0,i] := FieldByName('jiyouk').Asstring;
StringGrid1.Cells[1,i] := FieldByName('moun').Asstring;
StringGrid1.Cells[2,i] := FieldByName('saeng').Asstring;
StringGrid1.Cells[3,i] := FieldByName('dansu').Asstring;
end;
SBarMsg.Panels[0].Text := '검색이 끝났습니다..!';
end;
end;
end;
여기까지가 검색부분인데...
검색 버튼을 누르면...
만약 20개의 레코드가 있다면...
20개이 레코드가 나와야 하는데...
첫 번째 레코드의 내용만...
19번 출력이 됩니다
아무리 보구 또 봐도...
어디가 잘못 된건지 알수가 없어요...
꼭 좀 알려주세요...
급하거든요~!!!!
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이익중
- •
- 1998.11.09 06:04
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1998.11.21 02:54델파이와 비베는 상당히 틀립니다. 비베는 베이직을 기초로한 언어이구요, 델파이는 파스칼을 기초로한 언...
-
- 김동수
- •
- 1999.05.27 23:28
- 1 COMMENTS
- /
- 0 LIKES
procedure TFrmComn.BBtnSearchClick(Sender: TObject); var i : integer; begin with Qry1 do begin Close; SQL.Clear; SQL.Add('select * from jaksi'); Sql.Add('order by jiyouk, moun, saeng, dansu'); Open; StringGrid1.RowCount :...-
신인재•1999.05.28 01:53쩝~~~ for ~ loop에서 query1.next가 빠졌네요... for do begin . operation.... . query1....
-
- 박기성
- •
- 1998.11.05 21:32
- 2 COMMENTS
- /
- 0 LIKES
-
신인재•1998.11.11 05:05박기성 wrote: > 안녕하세요.. Web상에서 BBS를 만드는데, 델파이로 할 수 없나요? > > ASP를 사용하여...
-
박기성•1998.11.11 21:00신인재 wrote: > > 음냐....POD 9월호에 Web Application에 대해서 > 기사가 있습니다... > 음....만...
-
- 임성학
- •
- 1999.05.27 23:20
- 1 COMMENTS
- /
- 0 LIKES
-
한•1999.05.27 23:28임성학 께서 말씀하시기를... > 퍼즐 프로그램을 짜려고 하는데, 입력상태를 받아들여 그 상태에 도달할때...
-
- 설호규
- 1998.11.04 20:18
- 0 COMMENTS
- /
- 0 LIKES
-
- true
- •
- 1999.05.27 23:17
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.27 23:39상당히 애매모호한 질문이네요... 파워러브 델파이 97년 8월호와 9월호를 참고해 보세요. 그쪽에 애니메...
-
- 표경나
- •
- 1998.11.04 14:23
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1998.11.11 05:17표경나 wrote: > 오라클과 델파이를 연동해서 클라이언트용 애플리케이션을 만들고 있는중입니다. > 그런...
-
- 전선호
- •
- 1998.11.02 22:16
- 2 COMMENTS
- /
- 0 LIKES
-
최석기•1999.05.27 23:13음.. 먼저 정욱님 감사~~ 며칠전에 똑같은 질문을 올렸었는데 정욱님께서 영대님의 팁게시판을 찾아보...
-
이정욱•1999.05.27 23:36아래처럼 하셔도 되지만 0000이 실제 모뎀을 뜻하는것인지는 알 수 없습니다. 특히 데이타맨같은것을깔면 ...
-
- 종모
- 1998.10.31 03:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 북해
- •
- 1999.05.27 22:10
- 2 COMMENTS
- /
- 0 LIKES
-
한•1999.05.27 23:37북해 께서 말씀하시기를... > 안녕하세요. 컴포넌트를 하나 만들고 싶은데, 컴포넌트를 만드는 방법에 대...
-
이정욱•1999.05.27 23:30한델의 강의실에 가보시면 안치봉님께서 쓰신 컴포넌트에 대한 강좌가 있습니다. 북해 께서 말씀하시...
-
- 류정락
- 1998.10.30 20:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 원유진
- •
- 1998.10.29 05:28
- 4 COMMENTS
- /
- 0 LIKES
-
이현신•1999.05.27 22:10API 함수를 통한 시리얼 넘버는 하드를 포멧하거나 시스템적인 프로그램을 돌리고 나면 변경되던데 하드의...
-
이정욱•1998.10.29 21:26네.. 만약 정품 씨디가 있으시면 인스톨 쉴드라는 것이 있습니다. 그것을 가지고 만드시면 되구요.. 아...
-
한•1999.05.27 23:40이현신 께서 말씀하시기를... > API 함수를 통한 시리얼 넘버는 하드를 포멧하거나 시스템적인 프로그램을...
-
이현신•1999.05.28 00:19저도 GetVolumeInformation 를 사용해서 하드시리얼을 구햇읍니다. 그런데 포멧을 한후에 다시 구해보면 ...
-
- 원유진
- •
- 1998.10.29 05:28
- 3 COMMENTS
- /
- 0 LIKES
-
지니•1999.05.27 20:57간단한 메모장을 만들어 보고 있습니다. RichEdit콘트롤을 사용하여 작성하고 있는데 이곳에 있는 문...
-
이정욱•1998.10.29 21:26네.. 만약 정품 씨디가 있으시면 인스톨 쉴드라는 것이 있습니다. 그것을 가지고 만드시면 되구요.. 아...
-
한•1999.05.27 21:33지니 께서 말씀하시기를... > > 간단한 메모장을 만들어 보고 있습니다. > RichEdit콘트롤을 사용하여 ...
-
- 황하성
- •
- 1999.05.27 20:24
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.05.27 20:51황하성 께서 말씀하시기를... > > MessageDlg에서 버튼 입력을 받아서 다음 과정으로 넘어가고 싶은데 ...
-
- 이진수
- •
- 1998.10.11 00:45
- 2 COMMENTS
- /
- 0 LIKES
-
이정욱•1998.10.14 00:51이진수 wrote: > mp3화일 재생하는 소스가 어디 없나요? 소스는 아니구요.. XAudio라는것이 있는데 이...
-
이은실•1998.10.27 14:01이정욱 wrote: > 이진수 wrote: > > mp3화일 재생하는 소스가 어디 없나요? > > 소스는 아니구요.. XA...
-
-
- apla
- •
- 1998.10.25 01:37
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1998.10.26 22:29apla wrote: > 델파이에서 유닉스 시스템의 인포믹스 데이터베이스에 연결하는 방법을 알고 > 싶네요. ...
-
- 박훈철
- •
- 1999.05.27 18:37
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.27 20:15GetASyncKeyState를 사용하시면 됩니다. 생각하신데로 루프를 돌면서 계속 검사를 하고 있는것입니다. 저...
-
- 조병성
- •
- 1998.10.09 00:52
- 1 COMMENTS
- /
- 0 LIKES
-
조원홍•1998.10.25 03:31그리드의 확장 컴포넌트는 공개용으로는 조금 구하기 힘드실 듯 합니다. 상용으로는 인포파워, 디비파워, ...
-
- 송기원
- •
- 1999.05.27 18:29
- 1 COMMENTS
- /
- 0 LIKES
-
한•1999.05.27 23:43송기원 께서 말씀하시기를... > Cached Update를 이용하여 자료를 저장시에 오류가 발생하면 > TQuery의 ...
for ~ loop에서 query1.next가 빠졌네요...
for do begin
.
operation....
.
query1.next;
end;
김동수 께서 말씀하시기를...
> procedure TFrmComn.BBtnSearchClick(Sender: TObject);
> var
> i : integer;
> begin
> with Qry1 do
> begin
> Close;
> SQL.Clear;
> SQL.Add('select * from jaksi');
> Sql.Add('order by jiyouk, moun, saeng, dansu');
> Open;
>
> StringGrid1.RowCount := RecordCount;
> //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~// 국내 생산통계 자료 검색 //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> if RadioGroup1.ItemIndex = 0 then
> begin
> for i := 1 to (StringGrid1.RowCount + 1) do
> begin
> Close;
> SQL.Clear;
> Sql.Add('Select * from jaksi');
> Sql.Add('where gubun = :gubun');
> Sql.Add('and yymd = :yymd');
> ParamByName('gubun').AsString := Inttostr(RadioGroup1.ItemIndex);
> ParamByName('yymd').AsString := MEdit1.Text;
> Open;
>
> StringGrid1.Cells[0,i] := FieldByName('jiyouk').Asstring;
> StringGrid1.Cells[1,i] := FieldByName('moun').Asstring;
> StringGrid1.Cells[2,i] := FieldByName('saeng').Asstring;
> StringGrid1.Cells[3,i] := FieldByName('dansu').Asstring;
>
> end;
> SBarMsg.Panels[0].Text := '검색이 끝났습니다..!';
> end
> else
> //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> // 국외 생산통계 자료 검색
> //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> if RadioGroup1.ItemIndex = 1 then
> begin
> for i := 1 to (StringGrid1.RowCount + 1) do
> begin
> Close;
> SQL.Clear;
> Sql.Add('Select * from jaksi');
> Sql.Add('where gubun = :gubun');
> Sql.Add('and yymd = :yymd');
> ParamByName('gubun').AsString := Inttostr(RadioGroup1.ItemIndex);
> ParamByName('yymd').AsString := MEdit1.Text;
> Open;
>
> StringGrid1.Cells[0,i] := FieldByName('jiyouk').Asstring;
> StringGrid1.Cells[1,i] := FieldByName('moun').Asstring;
> StringGrid1.Cells[2,i] := FieldByName('saeng').Asstring;
> StringGrid1.Cells[3,i] := FieldByName('dansu').Asstring;
>
> end;
> SBarMsg.Panels[0].Text := '검색이 끝났습니다..!';
> end;
> end;
> end;
>
>
> 여기까지가 검색부분인데...
> 검색 버튼을 누르면...
> 만약 20개의 레코드가 있다면...
> 20개이 레코드가 나와야 하는데...
> 첫 번째 레코드의 내용만...
> 19번 출력이 됩니다
> 아무리 보구 또 봐도...
> 어디가 잘못 된건지 알수가 없어요...
> 꼭 좀 알려주세요...
> 급하거든요~!!!!
>