这个SQL语句该怎么写

Question

界面中有一个用于选择“生产部门”的cmbDepartment,一个button,需要根据cmbDepartment.text查询数据记录
共有t1,t2,t3,t4,t5五个表，其中各表字段都有关联，例如：
t1.FDepartment（部门代码） --> t3.FInterID（部门代码） --> t3.FName（生产部门名称）
我的需求是：选择“生产部门名称”，查询出t1里属于该部门的所有记录，
但以下语句执行出的结果却是把T1所有记录的生产部门都显示成cmbDepartment.text的内容了，
应该就是红色部分出问题了，请问正确的该怎么写
（可能描述得不太清楚，在线关注）
先谢谢各位了。
代码如下：//按生产部门查询
procedure TQueryForm.btnDepartmentClick(Sender: TObject);    var sqlstr: string ;
     var finished1 : string ;
begintry
begin
     if  chbisFinished1.Checked then
         finished1 := '(Fstatus = 3)'
         else
           finished1 := ' (Fstatus = 1)' ;          sqlstr := 'SELECT  FBillNo AS 生产任务单,t3.FName AS 部门,  T4.FNumber AS 物料代码, t5.FModel AS 规格型号, Fqty AS 批量, FcheckDate AS 开单日期, FPlanFinishDate AS 预计入库日期, Sum(工序一) AS 工序一, Sum(工序二) AS 工序二,';
          sqlstr :=sqlstr + ' Sum(工序三) AS 工序三, Sum(工序四) AS 工序四,Sum(工序五) AS 工序五,Sum(工序六) AS 工序六,';
          sqlstr := sqlstr + ' SUM(入库数量) AS 已入库数量,(t1.Fqty-SUM(t2.入库数量)) AS 待入库数量, MAX(t1.Fstatus) AS 是否结单, t1.Fnote AS 备注,t1.Fmargin AS 今日出货差数 FROM ICMO t1 ';
          sqlstr := sqlstr + ' LEFT JOIN T_UpdateTemp t2 ON t1.FBillNo = t2.生产任务单 ';
          sqlstr := sqlstr + ' INNER JOIN t_SubMessage t3 ON t3.FName LIKE ''%' + cmbDepartment.text +'%''';
          sqlstr := sqlstr + ' LEFT JOIN t_Item t4 ON t1.FItemID = t4.FItemID ';
          sqlstr := sqlstr + ' LEFT JOIN t_ICItem t5 ON t1.FItemID = t5.FItemID ';
          sqlstr := sqlstr + ' WHERE ' + finished1 + ' GROUP BY FBillNo, t3.FName, T4.FNumber,t5.FModel,Fqty,FcheckDate,FPlanFinishDate,t1.Fnote,Fmargin';
          showmessage(sqlstr);         datamd.ADOPO_NO.Close ;
         datamd.ADOPO_NO.SQL.Clear;
         datamd.ADOPO_NO.sql.add(sqlstr);
         datamd.ADOPO_NO.open;
         statusbar2.Panels[0].Text:='总记录:'+inttostr(datamd.ADOPO_NO.RecordCount )  ;  end
  EXCEPT
   begin
  showmessage('操作出错') ;
   exit;
end;
  end;
end;

Answer 1

你呀,尽量先将这个SQL语句在数据库中执行一下试试,看看有没有问题,
再加到程序中,有些问题是逻辑问题......
仔细找找吧

Answer 2

您好，谢谢你的回复，在数据库中执行也是一样的问题
执行出的结果却是把T1所有记录的生产部门都显示成cmbDepartment.text的内容了sqlstr := sqlstr + ' INNER JOIN t_SubMessage t3 ON t3.FName LIKE ''%' + cmbDepartment.text +'%''';确实是逻辑问题，我不知道这个限制条件该怎么写，根据T3的字段内容来查询T1记录

Answer 3

sqlstr := sqlstr + ' INNER JOIN t_SubMessage t3 ON t1.FDepartment=t3.FInterID and t3.FName LIKE ''%' + cmbDepartment.text +'%''';
这里应该多加一个条件和t1关联吧

Answer 4

你是要根据部门筛选吗，这样的话部门要放在where里啊
比如
t1.FDepartment（部门代码） --> t3.FInterID（部门代码） --> t3.FName（生产部门名称）
select t1.FDepartment,t3.FinterId,t3.FName from 表1 as t1
left join 表2 as t3 on t3.FInterId=t1.FDepartment
where t3.FName LIKE ''%' + cmbDepartment.text +'%''';关键
where t3.FName LIKE ''%' + cmbDepartment.text +'%''';

Answer 5

这里要加上二个表的链接条件：
INNER JOIN t_SubMessage t3 ON t1.FDepartment=t3.FInterID and t3.FName LIKE ''%' + cmbDepartment.text +'

Answer 6

我告诉你如何别忘记给我给呀
你的代码:
sqlstr := sqlstr + ' INNER JOIN t_SubMessage t3 ON t3.FName LIKE ''%' + cmbDepartment.text +'%''';
应该修改为:
sqlstr := sqlstr + ' INNER JOIN t_SubMessage t3 ON t3.FName LIKE %'+ quotedstr(
trim(cmbDepartment.text)) +'%';