Новые книги
Как навести порядок в своем бизнесе. Как построить надежную систему из ненадежных элементов. Практикум
Книга «Как навести порядок в своем бизнесе» – это система практических инструментов, которые позволят вам наладить бизнес. Так, чтобы он:

• приносил хорошую прибыль;

• стал более конкурентоспособным и устойчивым к кризисам;

• стабильно работал и развивался;

• практически не зависел от человеческого фактора сотрудников;

• требовал от владельца минимального контроля.

Конкретные техники и рекомендации:

• 130 практических заданий, выполнив которые, вы сможете усовершенствовать свой бизнес.

• 123 примера и комментария от владельцев и руководителей компаний;

• 418 примеров из практики автора;

Книга – для собственников и топ-менеджеров: от крупных холдингов до средних и малых компаний. С 2010 года она стала настольной во многих организациях.

Также книга будет полезна бизнес-консультантам и тренерам.

Михаил Рыбаков (

) – бизнес-консультант, модератор стратегических сессий. Основатель команды «Михаил Рыбаков и Партнеры». В бизнесе с 1997 года. Автор двух деловых бестселлеров, фильма «От карьеры к свободе», сотен публикаций, организатор ежегодных бизнес-мероприятий в России и за рубежом. Два образования – системный аналитик (экономика, ИТ) и психолог. Помогает владельцам и управленческим командам частных рыночных компаний русскоязычного пространства.

9-е издание.

empty-line

7

empty-line

12

empty-line

15

http://www.mrybakov.ru

nofollow

www.mrybakov.ru
Физиология ажиотажа. Маркетинговые приемы привлечения потребителей к торговой марке
Анализируются нетрадиционные способы управления потребительскими предпочтениями (эпатаж, интрига, событийные акции и др.) в аспекте «физиологических» механизмов; приводится множество нестандартных креативных решений в области создания ажиотажа.

Для студентов, преподавателей экономических вузов, а также всех тех, кто интересуется проблемами маркетинга.

Как проверять корректность доступа к базе данных?
Версия для печати


Как проверять корректность доступа к базе данных?

Следующая функция проверяет доступ к базе данных и выдает возможные причины, если доступ не удается осуществить. Функция возвращает значение True в случае успешной операции и False в противном случае. 

function TBDEDirect.CheckDatabase: Boolean;
var
  DS: TDataSource;
begin
  Result := False;
  DS := GetDataSource;
  if DS = nil then
    begin
      MessageDlg('Не установлена связь с элементом-источником данных.'+
        'Проверьте установку свойства DataSource.',
        mtError, [mbOK], 0);
      Exit;
    end;
  if DS.DataSet = nil then
    begin
      MessageDlg('Доступ к базе данных невозможен.', mtError,
        [mbOK], 0);
      Exit;
    end;
  if TDBDataSet(DS.DataSet).Database = nil then
    begin
      MessageDlg('Доступ к базе данных невозможен.', mtError,
        [mbOK], 0);
      Exit;
    end;
  if TDBDataSet(DS.DataSet).Database.Handle = nil then
    begin
      MessageDlg('Дескриптор (Handle) БД недоступен.', mtError,
        [mbOK], 0);
      Exit;
    end;
  if DS.DataSet.Handle = nil then
    begin
      MessageDlg('Дескриптор курсора (Cursor-Handle) недоступен.', mtError,
        [mbOK], 0);
      Exit;
    end;
  Result := True;
end;


Оглавление