一个支持模糊查询的单元文件，请教高手们！

Question

unit fmchaxunkehu;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, Buttons;type
  Tchaxunkehufm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Edit1: TEdit;
    Button3: TButton;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    CheckBox1: TCheckBox;
    Button4: TButton;
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  chaxunkehufm: Tchaxunkehufm;
  SearchField: String;
implementationuses fmdatamodule;{$R *.dfm}procedure Tchaxunkehufm.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex:=0 then
    SearchField:='kh_id'
else if RadioGroup1.ItemIndex:=1 then
    SearchField:='kh_khmc'
else if RadioGroup1.ItemIndex:=2 then
    SearchField:='kh_lxr'
end;procedure Tchaxunkehufm.Button3Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex:=0 then
  begin
  chaxunkehufm.ADODataSet1.Close;
  chaxunkehufm.ADODataSet1.Filtered:=False;
  chaxunkehufm.ADODataSet1.CommandText:='select * From s_kh where kh_id like ''%' + Edit1.Text + '%''';
  chaxunkehufm.ADODataSet1.Open;
end
  else
  if RadioGroup1.ItemIndex:=0 then
  begin
  chaxunkehufm.ADODataSet1.Close;
  chaxunkehufm.ADODataSet1.Filtered:=False;
  chaxunkehufm.ADODataSet1.CommandText:='select * From s_kh where kh_khmc like ''%' + Edit1.Text + '%''';
  chaxunkehufm.ADODataSet1.Open;
end
else
  if RadioGroup1.ItemIndex:=0 then
  begin
  chaxunkehufm.ADODataSet1.Close;
  chaxunkehufm.ADODataSet1.Filtered:=False;
  chaxunkehufm.ADODataSet1.CommandText:='select * From s_kh where kh_lxr like ''%' + Edit1.Text + '%''';
  chaxunkehufm.ADODataSet1.Open;
end;end.
这样的代码肯定有错误（我不能运行）望高手指教

Answer 1

ADODataSet1e有没有连到数据库。procedure Tchaxunkehufm.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex:=0 then
    SearchField:='kh_id'
else if RadioGroup1.ItemIndex:=1 then
    SearchField:='kh_khmc'
else if RadioGroup1.ItemIndex:=2 then
    SearchField:='kh_lxr'
end;这段代码好像没有意义￣

Answer 2

你们说说要怎么写才能实现先选择RadioGroup里的字段，在支持模糊查呢？
最好把全部的代码都写出来（我在学习呢）

Answer 3

檢查ADODataSet1是否正确聯接到數據庫, 
檢查是否在數據庫存在對應的s_kh 數據表!!

Answer 4

first
if RadioGroup1.ItemIndex !!!   :=    !!!0 then

Answer 5

have a look at my doc:
http://www.csdn.net/Develop/read_article.asp?id=18743