SQL语句中间部分有‘#$D#$A’,所以数据集返回是空,怎么去掉呢?
我想通过RadioGroup1来切换‘在院’和‘出院’,DbGrid1连接Dm.ADOQuery_BedInfo, 我想通过在原有的SQL语句后添加限制条件:
‘ and (OutDay is null)’或‘ and (OutDay is not null)’来达到效果,
但结果在语句中间部分有‘#$D#$A’,所以数据集返回是空,怎么去掉呢?
源码如下:
procedure TFrm_ZhuYuanBu.RadioGroup1Click(Sender: TObject);
var
s: string;
begin
Case RadioGroup1.ItemIndex of
0: //在院
begin
Dm.ADOQuery_BedInfo.Close;
s := Dm.ADOQuery_BedInfo.SQL.Text;
Dm.ADOQuery_BedInfo.SQL.Text := Dm.ADOQuery_BedInfo.SQL.Text + ' and (OutDay is null) ';
Dm.ADOQuery_BedInfo.Prepared;
Dm.ADOQuery_BedInfo.ExecSQL;
Dm.ADOQuery_BedInfo.Open;
Dm.ADOQuery_BedInfo.SQL.Text := s;
end;
1: //出院
begin
Dm.ADOQuery_BedInfo.Close;
s := Dm.ADOQuery_BedInfo.SQL.Text;
Dm.ADOQuery_BedInfo.SQL.Text := Dm.ADOQuery_BedInfo.SQL.Text + ' and (OutDay is not null) ';
Dm.ADOQuery_BedInfo.Prepared;
Dm.ADOQuery_BedInfo.ExecSQL;
Dm.ADOQuery_BedInfo.Open;
Dm.ADOQuery_BedInfo.SQL.Text := s;
end;
end;
end;