临时文件，以后删除

if (gl_priorite<4) then
begin
with ADOAide do
begin
Close;
nbClient := 0;
if trim(nom.Text)<>‘‘ then
begin
SQL.Clear;
SQL.Add(‘SELECT count(*) AS nb FROM Actif‘);
SQL.Add(‘WHERE act_nom=‘‘‘+trim(nom.Text)+‘‘‘‘);
Open;
nbClient := FieldByName(‘nb‘).AsInteger;
end;
if trim(nom_chinois.Text)<>‘‘ then
begin
SQL.Clear;
SQL.Add(‘SELECT count(*) AS nb FROM Actif‘);
SQL.Add(‘WHERE act_nom_chinois=‘‘‘+trim(nom_chinois.Text)+‘‘‘‘);
Open;
nbClient := nbClient + FieldByName(‘nb‘).AsInteger;
end;
//SQL.SaveToFile(‘c:\dead\client.txt‘);
Open;
if nbClient>0 then
begin
Application.MessageBox(PChar(‘此客户已经存在，请搜索他的名字后直接进行相关的业务操作！‘), ‘警告‘, MB_ICONSTOP+MB_OK);
Exit;
end;
end;
end;

临时文件，以后删除

原文：http://www.cnblogs.com/findumars/p/4567843.html