简单。。。。

Question

SQl.Add('Where person_num=:Num and Bk_date=:B_date');
改为
SQl.Add('Where person_num=:Num and Bk_date is null');

Answer 1

这样改试试：
 Parameters[1].Value:=''

Answer 2

if {为空} then
    SQL.Text := Format(
'Select name From Disk_Bk'#13#10 +
'Where person_num=%s and Bk_date is Null'#13#10, 
    [Edit1.Text])
  else SQL.Text := Format(
'Select name From Disk_Bk'#13#10 +
'Where person_num=%s and Bk_date=''%s'''#13#10, 
    [Edit1.Text, FormatDateTime('yyyy-mm-dd', Date)])