미선 wrote:

> 라디오 버튼을 이용해서 검색을 하려고 하는데요...

> 1. edit에 검색할 단어 입력

> 2. radiobutton1,2,3,4 중 한가지를 선택

> 3. 검색버튼 클릭

> 4. dbgrid에 검색한 데이터 출력

>

> 이런 방식으로 검색하려면 소스를 어떻게 입력해야 하는지 좀 알려주세요..

> 아직 초보라서인지 혼자서 해본깐 계속 에러가 생기더라구요..

> 아시는 분 꼭좀 알려주세요.



radiobutton보다 radiogroup을 사용하시면 편할겁니다..



procedure TgiFrm.Button1Click(Sender: TObject);

begin

with dm.giNung do begin

Close;

sql.Clear;

sql.Add('select * from gi');

sql.Add('where gi_ban = :ban');

sql.Add('and ((gi1 = :giday) or (gi2 = :giday) or (gi3 = :giday) or (gi4 = :giday) or (gi5 = :giday))');

sql.Add('order by gi_count,gi_id');

ParamByName('giday').AsDateTime := StrToDate(MaskEdit7.Text);

case RadioGroup2.ItemIndex of <----------요기서 이런식으로

0 : ParamByName('ban').AsString := '1';

1 : ParamByName('ban').AsString := '2';

2 : ParamByName('ban').AsString := '3';

end;

Open;

If EOF then begin

MessageDlg('검색하신 레코드가 존재하지 않습니다.',

mtInformation, [mbOK], 0);



end else

ShowMessage('총 '+IntToStr(recordcount)+'명이 있습니다.');

end;

Button6.SetFocus;

end;



위와 같이 코딩하시면 될겁니다..

즐플 하시길....