str_SQL := str_SQL + 'FROM fj13_detail ' +
' WHERE unit_id LIKE ":id%" ' +
' AND recno=0 ' +
' GROUP BY recno ' +
';';
dm.ado_qr.Close;
dm.ado_qr.SQL.Clear;
dm.ado_qr.SQL.Add(str_SQL);
dm.ado_qr.Parameters.ParamByName('id').Value := str_unit_id;
' WHERE unit_id LIKE ":id%" ' +
' AND recno=0 ' +
' GROUP BY recno ' +
';';
dm.ado_qr.Close;
dm.ado_qr.SQL.Clear;
dm.ado_qr.SQL.Add(str_SQL);
dm.ado_qr.Parameters.ParamByName('id').Value := str_unit_id;
比如
:IDD
' WHERE unit_id LIKE ":id" ' +
' AND recno=0 ' +
' GROUP BY recno ' +
';';
dm.ado_qr.Close;
dm.ado_qr.SQL.Clear;
dm.ado_qr.SQL.Add(str_SQL);
dm.ado_qr.Parameters.ParamByName('id').Value := str_unit_id+'%';