delphi 查询问题
各位老兄啊：
我有一段代码，怎么会出错，谁帮我解决，我给分!
不过要快啊！我有急用！！
procedure tfrmquery.myquery (dpm:string); //查询公共子模块
var
mysql:string;
begin
query1.DatabaseName :='kq';
if query1.Active then
query1.Close ;
if dpm='' then
mysql:='select * from "部门"'
else
mysql:='select * from "部门" where department="'+dpm +'"';
query1.SQL.Clear ;
query1.SQL.Add(mysql);
query1.Open;
end;
问题点数：20、回复次数：7Top
1 楼genphone_ru（哎，什么都要学，真累）回复于 2002-04-22 17:23:49 得分 20
procedure tfrmquery.myquery (dpm:string); //查询公共子模块
var
mysql:string;
begin
query1.DatabaseName :='kq';
if query1.Active then
query1.Close ;
if dpm='' then
mysql:='select * from 部门'
else
mysql:='select * from 部门 where department='''+dpm +'''';
query1.SQL.Clear ;
query1.SQL.Add(mysql);
query1.Open;
end;Top
2 楼chinakiss8848（似乎明白了）回复于 2002-04-22 17:27:02 得分 0
改
mysql:='select * from "部门" where department="'+dpm +'"';
为：
mysql:='select * from "部门" where department='+''''+dpm+'''';
四个' 才表示一个“ ' ”
Top
3 楼zjhydx98（tourist）回复于 2002-04-22 17:27:13 得分 0
错误是什么Top
4 楼linbee（我为什么这么Cool！）回复于 2002-04-22 17:27:50 得分 0
mysql:='select * from ' 部门 '
else
mysql:='select * from ' 部门 ' where department="'+dpm +'"';Top
5 楼linbee（我为什么这么Cool！）回复于 2002-04-22 17:30:11 得分 0
mysql:='select * from ' 部门 ''
else
mysql:='select * from ' 部门 ' where department="'+dpm +'"';
Top
6 楼zhangguanshi（石头一块）回复于 2002-04-22 17:59:03 得分 0
再问一个，请帮忙：
为什么我用了一个模式窗口，释放后父窗体不能使用？
在unit1中用了
form2.showmodal;
然后在form2中用了：
form2.hide;
form2.free;
free和hide的各种组合都用了，form1还是不能激活，只能看着，点不动！
Top
7 楼chinakiss8848（似乎明白了）回复于 2002-04-25 22:42:11 得分 0
你这人怎么这样贪呀？才20分还要问？你这样以后没人帮你了！Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
