delphi 查询问题

Question

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;

Answer 1

改
mysql:='select * from "部门"  where department="'+dpm +'"';
为：
mysql:='select * from "部门"  where department='+''''+dpm+'''';四个' 才表示一个“ ' ”

Answer 2

mysql:='select * from ' 部门 '
                     else
                        mysql:='select * from ' 部门 '  where department="'+dpm +'"';

Answer 3

mysql:='select * from ' 部门 ''
                     else
                        mysql:='select * from ' 部门 '  where department="'+dpm +'"'; 

Answer 4

再问一个，请帮忙：
     为什么我用了一个模式窗口，释放后父窗体不能使用？
在unit1中用了
  form2.showmodal;
然后在form2中用了：
  form2.hide;
  form2.free;
free和hide的各种组合都用了，form1还是不能激活，只能看着，点不动！