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.
-
- Heaven
- •
- 1999.05.28 14:55
- 5 COMMENTS
- /
- 0 LIKES
-
최석기•1999.05.28 17:49 -
Heaven•1999.05.28 18:03
-
최석기•1999.05.28 19:37
-
김현우•1999.05.28 22:19
-
Heaven•1999.05.29 11:47
-
- 임형호
- 1999.05.28 11:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 최석기
- •
- 1999.05.28 09:17
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.28 22:17저역시 창문얘기에서 포트검사를 그렇게 했습니다. 왜냐하면 윈도우3.1을 지원해야 했기 때문이었죠. 포...
-
- saint09
- •
- 1999.05.28 09:00
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•1999.05.28 09:35saint09 께서 말씀하시기를... > 안녕하세요. 스트링그리드에 내용을 기록하였습니다. 그리고 같은 스트링...
-
- 이대선
- •
- 1999.05.28 07:12
- 1 COMMENTS
- /
- 0 LIKES
-
KJW•1999.06.04 06:50이대선 께서 말씀하시기를... > 'db'를 검색해서 아래한글이나 노트패드로 결과 값을 > 보내려 합니다. ...
-
- 강경중
- •
- 1999.05.28 04:46
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.05.28 05:46강경중 께서 말씀하시기를... > 델파이 헬프에 항상 헬프를 외치는 초보 델피언 입니다. > > 델파이에...
-
- 강경중
- •
- 1999.05.28 04:05
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.05.28 18:22강경중 께서 말씀하시기를... > 먼저 이름을 잘못 알아 죄송합니다. > 그리고 김영대님의 올리신 자료들...
-
- 김태균
- •
- 1999.05.28 03:19
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.05.28 04:17김태균 께서 말씀하시기를... > 음.... > > MDIForm에서 Childform을 동적 생성하고 삭제하고 있습니다...
-
- 박대석
- 1999.05.28 03:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이 사랑
- •
- 1999.05.28 03:03
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.28 06:29OnDestroy도 작동이 되고, OnClose도 작동이 됩니다. 하지만 둘 다 이미 그 폼자체가 사라지면 그 안에서 ...
-
- 김지건
- 1999.05.28 02:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 조갑손
- •
- 1999.05.28 02:06
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.05.29 21:52아래의 코딩을 참고하세요... procedure TForm1.Button1Click(Sender: TObject); var i : integer; ...
-
- 정윤옥
- •
- 1999.05.28 01:17
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.05.28 04:23정윤옥 께서 말씀하시기를... > [source] > procedure filesave; > var > filename: string; > f:...
-
-
글쎄요.•1999.05.28 00:35MS의 MSDN라이브러리를 참조하셔요 여기예요. http://msdn.microsoft.com/workshop/browser/webbrowser/r...
-
-
- 김동수
- •
- 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....
-
- 임성학
- •
- 1999.05.27 23:20
- 1 COMMENTS
- /
- 0 LIKES
-
한•1999.05.27 23:28임성학 께서 말씀하시기를... > 퍼즐 프로그램을 짜려고 하는데, 입력상태를 받아들여 그 상태에 도달할때...
-
- true
- •
- 1999.05.27 23:17
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.27 23:39상당히 애매모호한 질문이네요... 파워러브 델파이 97년 8월호와 9월호를 참고해 보세요. 그쪽에 애니메...
-
- 최석기
- •
- 1999.05.27 23:13
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.27 23:36아래처럼 하셔도 되지만 0000이 실제 모뎀을 뜻하는것인지는 알 수 없습니다. 특히 데이타맨같은것을깔면 ...
-
- 북해
- •
- 1999.05.27 22:10
- 2 COMMENTS
- /
- 0 LIKES
-
한•1999.05.27 23:37북해 께서 말씀하시기를... > 안녕하세요. 컴포넌트를 하나 만들고 싶은데, 컴포넌트를 만드는 방법에 대...
-
이정욱•1999.05.27 23:30한델의 강의실에 가보시면 안치봉님께서 쓰신 컴포넌트에 대한 강좌가 있습니다. 북해 께서 말씀하시...
-
- 이현신
- •
- 1999.05.27 22:10
- 2 COMMENTS
- /
- 0 LIKES
-
한•1999.05.27 23:40이현신 께서 말씀하시기를... > API 함수를 통한 시리얼 넘버는 하드를 포멧하거나 시스템적인 프로그램을...
-
이현신•1999.05.28 00:19저도 GetVolumeInformation 를 사용해서 하드시리얼을 구햇읍니다. 그런데 포멧을 한후에 다시 구해보면 ...
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번 출력이 됩니다
> 아무리 보구 또 봐도...
> 어디가 잘못 된건지 알수가 없어요...
> 꼭 좀 알려주세요...
> 급하거든요~!!!!
>