unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
var sqlstr:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if radiobutton1.checked then
sqlstr:=sqlstr+'select 姓名 学号 from 学生 where 姓名='+''''+edit1.text+'''';
if radiobutton2.checked then
sqlstr:=sqlstr+'select 姓名 from 学生 where 姓名like'+''''+'%'+edit2.text+'''';
end;
end.

什么问题噢?

第一，似乎是全部的代码了，质疑sql是否执行了。

第二，如果可以执行，这个button肯定不能按第二次……

如果我没有理解错你的意思的话(没有编译过，应该没有问题)
if radiobutton1.checked then
sqlstr:='select * from 学生 where 学号 like '+quotedstr('%'+edit1.text+'%');
if radiobutton2.checked then
sqlstr:='select * from 学生 where 姓名 like '+quotedstr('%'+edit2.text+'%');
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.text:=sqlstr;
adoquery1.open;

[此贴子已经被作者于2007-6-8 0:40:27编辑过]

你这样的程序肯定有问题，
如果两个radiobutton都选择，怎么办
另外。你的sqlstr是全局变量。程序将在执行第二次时候肯定抱错误。

另外。你的sqlstr是全局变量。程序将在执行第二次时候肯定抱错误。---说的对
但是” 两个radiobutton都选择 “ 我没有见过这样的情况。

[此贴子已经被作者于2007-6-9 15:17:22编辑过]

想不到并不代表别人会不会这么做。

要知道软件做出来是给别人用的。

如果你认为很愚蠢，很可笑的话，
说明你还没有真正的和你的客户交流过！
往往客户就是这样的误操作！

我没有说清楚，radiobutton在一个窗体中是只能选择一个的，不可能出现同时选择两个一上的问题

sqlstr:=sqlstr+'select 姓名 学号 from 学生 where 姓名='+'''+edit1.text+''';
if radiobutton2.checked then
sqlstr:=sqlstr+'select 姓名 from 学生 where 姓名like'+'''+'%'+edit2.text+''';