procedure TF_s.Button1Click(Sender: TObject);
var
mysql:string; begin
mysql:='select 课程信息表.课程编号,课程信息表.课程名称,课程信息表.学期,课程信息表.学分,课程信息表.开课系别,教师授课信息表.姓名 as 授课教师,教师授课信息表.性别,教师授课信息表.职称,课程信息表.上课时间,课程信息表.上课地点,课程信息表.课程性质';
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(mysql);
ADOQuery1.SQL.Add('from 课程信息表,教师授课信息表 where 课程信息表.课程编号=教师授课信息表.课程编号 ');
if combobox1.text='课程编号' then
begin
ADOQuery1.SQL.Add('and 课程编号 like ''%'+edit1.Text+'%''');
end
else…………运行时不管combobox1里面课程编号是多少都显示了所有课程编号的信息求助!!!!
var
mysql:string; begin
mysql:='select 课程信息表.课程编号,课程信息表.课程名称,课程信息表.学期,课程信息表.学分,课程信息表.开课系别,教师授课信息表.姓名 as 授课教师,教师授课信息表.性别,教师授课信息表.职称,课程信息表.上课时间,课程信息表.上课地点,课程信息表.课程性质';
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(mysql);
ADOQuery1.SQL.Add('from 课程信息表,教师授课信息表 where 课程信息表.课程编号=教师授课信息表.课程编号 ');
if combobox1.text='课程编号' then
begin
ADOQuery1.SQL.Add('and 课程编号 like ''%'+edit1.Text+'%''');
end
else…………运行时不管combobox1里面课程编号是多少都显示了所有课程编号的信息求助!!!!
解决方案 »
- 怎样用delphi来实现“打开(Ctrl+O)”的功能?
- 【100分求解】简单的多线程问题
- Delphi 中如何附加一个SQL sever的 数据库 ?
- 怎么让GIF动画与单击事件关联起来?
- 想开间小小的公共超市,不知需要哪要手续与费用,利润如何?
- 怎么将文本文件读入到数据库中,满意例子给出立刻加分!
- 怎么用mci函数打开,播放,暂停,停止,关闭avi文件
- 排列组合的问题,高分求解!不够再加
- treeview展开的时候,怎么把当前焦点放到当前支点上?头痛呀
- DELPHI内如何判断输入的数据是否是数字、字母或汉字!急!!!!!
- 请教一个问题
- dephi中如何调用com组件的自定义接口?求求各位高手立即赐教!!!急啊
你eitd1.text是不是没输东西呀
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(mysql);
ADOQuery1.SQL.Add(' from 课程信息表,教师授课信息表 where 课程信息表.课程编号=教师授课信息表.课程编号 ');
if combobox1.text='课程编号' then
begin
ADOQuery1.SQL.Add('and 课程编号 like Quotedstr('%'+edit1.Text+'%'));
end
else