procedure TF_s.Button1Click(Sender: TObject);
 var
mysql:string;
 begin
 mysql:='select 课程信息表.课程编号,教师授课信息表.姓名 from 课程信息表,教师授课信息表 where 课程信息表.课程编号=教师授课信息表.课程编号 ';                   
  
  ADOQuery1.close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(mysql);
  if combobox1.text='课程信息表.课程名称' then
          begin
          ADOQuery1.SQL.Add(' and 课程信息表.课程名称 like ''%'+edit1.Text+'%''');
          end