اجرای توابع تجمعی (aggregate functions) با dbExpress

[BORHAN TEC]

برای یاد گیری این موضوع به مثال زیر توجه کنید. در ضمن اگر سوالی هم پیش آمد ما در خدمتیم. اگر هیچ چیزی راجع به dbExpress نمی دانید باز هم نگران نباشید برای یادگیری مقدماتی dbExpress میتوانید فایل pdf زیر را دانلود کنید.
http://www.embarcadero.com/images/dm/technical-papers/delphi-2010-and-firebird.pdf



این هم یک مثال:

function TAnbarKalaType.IsExistById(aId: string): Boolean;
var
dbxCommand : TDBXCommand;
dbxReader : TDBXReader;
begin
Result := False;
dbxCommand :=frmDataModule.con.DBXConnection.CreateCommand();
try
dbxCommand.Text := 'SELECT COUNT(ID) FROM ANBARKALATYPE WHERE ID = ' {+ SingleCot} + Trim(aId) {+ SingleCot};
dbxReader := dbxCommand.ExecuteQuery();
try
dbxReader.Next;
if (dbxReader.Value[0].GetInt32) > 0 then
Result := True;
finally
dbxReader.Free
end;
finally
FreeAndNil(dbxCommand);
end;
end;