1. Выбираем из базы данных только те поля, которые нам нужны

select * from ...

2. Хранимые процедуры предпочтительнее процедур, реализованных в коде программы

3. Строим фильтр

• числовое; имя поля NumericField; значение берется из SpinEdit, причем фильтрация происходит только в случае указания положительных значений
• текстовое; имя поля StringField; берется из Edit, фильтрация производится в случае, если указана не пустая строка
• ссылка из классификатора; имя поля ClassField; берется из DBLookup-ComboBox, с которым связан классификатор, фильтрация производится в случае, если выбран элемент классификатора (идентификатор не равен 0).

sFilter:='';
 // первое поле
 if SpinEdit.Value > 0 then
   sFilter := 'NumericField = ' + inttostr(SpinEdit.Value);
 // второе поле
 if Edit.Text <> '' then
  begin
   if sFilter <> '' then
     sFilter := sFilter + ' and StringField = ''' + Edit.Text + ''''
    else
     sFilter := 'StringField = ''' + Edit.Text + '''';
  end;
 // третье поле
 if DBLookupComboBox.KeyValue <> 0 then
 begin
   if sFilter <> '' then
     sFilter := sFilter + ' and ClassField = ' +
                inttostr(DBLookupComboBox.KeyValue)
    else
     sFilter := ' ClassField = ' + inttostr(DBLookupComboBox.KeyValue);
  end;

sFilter:='';
 // первое поле
 if SpinEdit.Value > 0 then
  begin
   if sFilter <> '' then sFilter := sFilter + ' and ';
   sFilter := sFilter + 'NumericField = ' + inttostr(SpinEdit.Value);
  end;
 // второе поле
 if Edit.Text <> '' then
  begin
   if sFilter <> '' then sFilter := sFilter + ' and ';
   sFilter := sFilter + ' StringField = ''' + Edit.Text + '''';
  end;
 // третье поле
 if DBLookupComboBox.KeyValue <> 0 then
 begin
   if sFilter <> '' then sFilter := sFilter + ' and ';
   sFilter := ' ClassField = ' + inttostr(DBLookupComboBox.KeyValue);
  end;

if sFilter <> '' then sFilter := sFilter + ' and '

4. Накладываем фильтр

DataSet.Filter := sFilter;
 if sFilter <> '' then DataSet.Filtered := true
                  else DataSet.Filtered := false;
 
 Сделаем проще: 
 DataSet.Filter := sFilter;
 DataSet.Filtered := (sFilter <> '');

5. Устраняем повторяющиеся запросы

1. запросом select count(*) as cnt подсчитывается количество записей по некоторым условиям
2. если cnt больше 0 (т.е. записи, удовлетворяющие условию, существуют), то открывается курсор для выбора этих записей (т.е. тот же самый select, только вместо count(*) указывается список необходимых полей)

1. заводим переменную-счетчик
2. обнуляем счетчик
3. открываем курсор для выбора записей
4. в теле цикла, обрабатывающего записи, делаем увеличение счетчика на единицу после обработки каждой записи
5. закрываем курсор
6. проверяем: если счетчик равен 0 (т.е. записей, удовлетворяющих условию, не существуют), выполняем действия, необходимые при отсутствии записей

6. Объединяем похожие запросы

select field1, field2 from table
select field2, field3, field4 from table

select field1, field2, field3, field4 from table

7. Индексы, индексы и еще раз индексы...

1. кластерный индекс у таблицы может быть только один, и обычно он строится автоматически по ключевому полю (полям);
2. записи в таблице располагаются в том порядке, какой задан кластерным индексом, что означает замедление операций вставки данных в таблицу, особенно если в таблице много записей.

• Индекс не обязательно должен состоять из одного поля. Почему-то некоторые разработчики считают, что индексы должны быть однополевыми. Бывали случаи, когда однополевые индексы не давали такого повышения быстродействия, как двух-, а иногда даже трехполевые.
• Бывает, что сервер самостоятельно использует для обработки запроса не самый эффективный индекс. В таких случаях полезно явно указать, какой индекс надо использовать.

8. Исключаем условие из запроса

select *
 from table
 where field = :param

select *
 from table
 where :param in (field, 0)

select *
 from table
 where :param in (field, 0) and IsActual <> 0

select *
 from table
 where :param1 in (field1, 0) and
       :param2 in (field2, 0) and
       IsActual <> 0

where :param in (field, '')

9. Курсоры - это долго

10. Восстанавливаем идентификатор в триггере

...
 
 insert into table (field1, field2, field3)
 values (1, 2, 3)
 
 @id = @@IDENTITY
 
 ... некоторые действия, где используется значение переменной @id ...

ALTER TRIGGER [dbo].[trg_InsertUpdateTable]
 ON [dbo].[Table]
 FOR INSERT, UPDATE
 AS
 
 DECLARE
      @Idt int,
      @s varchar(255)
 
 -- запомним значение глобальной переменной @@Identity
 SET @Idt = @@Identity
 
 -- выполняем действия триггера
 ...
 INSERT (...) VALUES (...) -- изменяется значение @@Identity
 ...
 
 -- восстанавливаем значение глобальной переменной @@Identity
 IF @Idt IS NOT NULL
  BEGIN
   Set @s = 'Select Identity(Int, ' +
            Cast(@Idt As VarChar(10)) +' ,1)  As idt Into #Tmp'
   Execute(@s)
  END
 END

11. Передаем соединение с базой данных в библиотеку

1. Инициализация библиотеки
   

   procedure InitLibrary(var Con : TADOConnection);
    begin
     // сохранить существующий объект
     SaveConnectionObject := ADOConnectionLib.ConnectionObject;
     // заменить его на передаваемый объект
     ADOConnectionLib.ConnectionObject := Con.ConnectionObject;
     // другие действия по инициализации библиотеки
     ...
    end;

2. Выгрузка библиотеки
   

   procedure FreeLibrary;
   begin
    // действия, выполняемые при выгрузке библиотеки
    ...
    // восстановить исходный объект
    ADOConnectionLib.ConnectionObject := SaveConnectionObject;
   end;

Заключение