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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货