Новые книги
Сетевые средства Linux
Advanced Linux Networking
В этой книге описаны принципы действия и область применения многих серверов, выполняющихся в системе Linux. Здесь рассматриваются DHCP-сервер, серверы Samba и NFS, серверы печати, NTP-сервер, средства удаленной регистрации и система X Window. He забыты и средства, традиционно используемые для обеспечения работы Internet-служб: серверы DNS, SMTP, HTTP и FTP. Большое внимание уделено вопросам безопасности сети. В данной книге нашли отражения также средства удаленного администрирования — инструменты Linuxconf, Webmin и SWAT.

Данная книга несомненно окажется полезной как начинающим, так и опытным системным администраторам.

Отзывы о книге

Сетевые средства Linux

Появилась прекрасная книга по Linux, осталось воспользоваться ею. Не упустите свой шанс.

Александр Стенцин, Help Net Security,

www.net-security.org

Если вы стремитесь в полной мере использовать сетевые возможности Linux — эта книга для вас. Я настоятельно рекомендую прочитать ее.

Майкл Дж. Джордан, Linux Online

Выхода подобной книги давно ожидали читатели. Менее чем на 700 страницах автор смог изложить суть самых различных вопросов, связанных с работой Linux. Автор является высококвалифицированным специалистом в своей области и щедро делится своими знаниями с читателями.

Роджер Бертон, West, DiverseBooks.com
Пишем убедительно. Сам себе копирайтер
Для всех важно уметь писать понятные и убедительные тексты. Будь то описание вашего продукта, докладная записка, объяснительная или просто письмо, а то и признание в любви…

Признанный мастер письменного слова Саша Карепина, консультант, больше десяти лет успешно обучающая своих слушателей деловому письму, делится в этой книге советами создания по-настоящему убедительных текстов.

Книга поможет тем, у кого от текста порой зависит успех, карьера или счастье.

Как перейти к указанной записи в БД?
Версия для печати


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

Демонстрация перехода к указанной записи через задание номера записи. 
function TBDEDirect.GoToRecord(RecNo: LongInt): Boolean;
var
  RecCount: LongInt;
  Bookmark: TBookmark;
  Res: DBIResult;
begin
  Result := False;
  if CheckDatabase then
    begin
      if RecNo < 1 then
        RecNo := 1;
      RecCount := GetRecordCount;
      if RecNo > RecCount then
        RecNo := RecCount;
      Res := DbiSetToRecordNo(FDataLink.DataSource.DataSet.Handle,
        RecNo);
      if Res = 0 then
        begin
          Bookmark := StrAlloc(GetBookmarkSize);
          DbiGetBookmark(FDataLink.DataSource.DataSet.Handle,
            Bookmark);
          FDataLink.DataSource.DataSet.GoToBookmark(Bookmark);
          FDataLink.DataSource.DataSet.FreeBookmark(Bookmark);
          Result := True;
        end
      else
        Check(Res);
    end;
end;


Оглавление