SQL表中不存在则添加示例

Delphi示例

 Format('Insert into 表1(单元科室,项目,期间,值) select 单元科室=''%S'' ,项目=''%S'',期间=''%S'',值=''%S'' '+
' where Not Exists(select 1 from 表1  where 单元科室=''%S'' and 项目=''%S'' and 期间=''%S'' and 值=''%S'')' ,
[UnitOrDept, ItemName, Period, Values,UnitOrDept, ItemName, Period, Values]);