Новые книги

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

Книга подойдет коммерческим директорам, начальникам отделов продаж, начальникам маркетинговых отделов, руководителям филиалов, директорам и собственникам бизнеса, которые лично участвуют в управлении продажами.
В работе предложен и обоснован подход к построению систем выявления информационных угроз. Даны базовые определения и проведено исследование специальных действий, присущих информационным операциям в сети Интернет. Показано, что производство практически всех компонент информационной операции уже поставлено на промышленную основу: от вирусов, нацеленных на автоматизированные объекты военного и промышленного назначения, до генераторов сообщений в виде текстов, голосовых сообщений по заданной голосовой характеристике или видеосюжетов по заданной исходной «картинке». В работе описан механизм, позволяющий частично автоматизировать планирование информационной операции за счет использования типовых схем их проведения, показано, каким образом возможна организация игрового тренинга по моделированию проведения информационных операций.

Содержание активной записи в БД


Как узнать содержание активной записи в БД?

Следующая функция возвращает в виде указателя на строку содержание активной записи в БД.

function TBDEDirect.GetCurRecord(Lock: DBILockType): PChar;

var
  Res: DBIResult;
  RecSize: Word;
  RecBuf: PChar;
  Bookmark: TBookmark;

begin
  Result := StrNew('');
  if CheckDatabase then
    begin
      RecSize := GetPhysicalRecSize;
      RecBuf := StrAlloc(RecSize+1);
      FillChar(RecBuf^, RecSize+1, #0);
      Bookmark := FDataLink.DataSource.DataSet.GetBookmark;
      DbiSetToBookmark(FDataLink.DataSource.DataSet.Handle,
        Bookmark);
      FDataLink.DataSource.DataSet.FreeBookmark(Bookmark);
      Res := DbiGetRecord(FDataLink.DataSource.DataSet.Handle,
        Lock, RecBuf, nil);
      if Res = 0 then
        Result := RecBuf
      else
        Check(Res);
    end;
end;


Оглавление