gusucode.com > 精典源码Delphi013：维修管理工具源码程序 > 精典源码Delphi013：维修管理工具源码程序/精典源码Delphi013：维修管理工具/维修管理工具/rz_SearchRepair.txt

    var
SQL_Str:string;
begin
//showMessage(inttostr(combobox1.ItemIndex));
if Trim(Edit1.Text)<>'' then
begin
case combobox1.ItemIndex  of
0: begin
    SQL_str:='Select * from Repaire Where U_repairman like'+quotedstr('%'+edit1.text+'%');
      dm.query1.Close;
      dm.Query1.SQL.Clear;
      dm.query1.sql.add(sql_str);
      //showmessage(SQL_str);
      dm.Query1.Open;
   end;
1: begin
     SQL_str:='Select * from Repaire Where U_repairDateTime like'+quotedstr('%'+edit1.text+'%');
      dm.query1.Close;
      dm.Query1.SQL.Clear;
      dm.query1.sql.add(sql_str);
      //showmessage(SQL_str);
      dm.Query1.Open;
   end;
2: begin
      SQL_str:='Select * from Repaire Where U_name like'+quotedstr('%'+edit1.text+'%');
      dm.query1.Close;
      dm.Query1.SQL.Clear;
      dm.query1.sql.add(sql_str);
      //showmessage(SQL_str);
      dm.Query1.Open;
   end;
3: begin
    SQL_str:='Select * from Repaire Where U_id like'+quotedstr('%'+edit1.text+'%');
      dm.query1.Close;
      dm.Query1.SQL.Clear;
      dm.query1.sql.add(sql_str);
      //showmessage(SQL_str);
      dm.Query1.Open;
   end
else
  begin
 SQL_str:='Select * from Repaire Where U_repairman like'+quotedstr('%'+edit1.text+'%');
      dm.query1.Close;
      dm.Query1.SQL.Clear;
      dm.query1.sql.add(sql_str);
      //showmessage(SQL_str);
      dm.Query1.Open;
  end;
end;
end
else
begin
SQL_str:='Select * from Repaire ';
      dm.query1.Close;
      dm.Query1.SQL.Clear;
      dm.query1.sql.add(sql_str);
      //showmessage(SQL_str);
      dm.Query1.Open;
end;
end;