Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Базы Данных    >>    dbf
   
 
 FoxPro Database Handling Unit.  Сергей Касандров 27.06.1995

Библиотека для работы с dbf-файлами под DOS. Поддерживает весь основной набор команд FoxPro 2.0, в том чиле Zap, Pack, Sort, Scatter, Gather. В качестве примера приведена программа для сортировки записей базы данных методом "пузырька".



20k 
 

Библиотека для работы с dbf-файлами под ДОС. by S.Kasandrov, 1993,95. public domain. Краткое описание 1. Я пользуюсь этой библиотекой более года, однако в представленом виде ( модули Lib+Files) она еще никогда не существовала. При подготовке окончательной редакции из модуля Files пришлось выбросить все, что завязано с пользовательским интерфейсом - иначе я никогда не смог бы завершить работу. По этой причине некоторые вещи стали выглядеть коряво - об этом в п. 3. 2. За основу при разработке методов работы с dbf-файлами был взят командный язык FoxPro. Синтаксис многих методов DBaseFile и функций Lib очень похож на синтаксис соответствующих команд и функций XBase-систем, однако есть несколько смысловых различий: - метод Zap не только сбрасывает в ноль счетчик числа записей в заголовке файла, но и выполняет физическое усечение файла; - соответствие размера файла числу записей, указанному в заголовке, используется как сигнатура dbf-файла; - методы Scatter и Gather используются для прямого выталкивания записей dbf-файла c диска (на диск). Изначально модуль был ориентирован на монопольную работу c файлами с не очень больших размеров ( до нескольких MByte). Для таких задач хорошее быстродействие достигалось за счет блочной буферизации обмена с диском по чтению и записи c использованием одного буфера. Второй блочный буфер появился при разработке процедуры сортировки с целью исключения ситуаций, когда запись находится частично на диске, а частично в буфере, и именно использование второго блочного буфера обеспечило хорошую скорость сортировки. Когда из блочной буферизации было выжато все, я решил включить в модуль средства поддержки одновременной сетевой работы нескольких пользователей и пришел к следующим выводам: - копировать XBase-технологию с ее чтением/записью записей - значит расстаться с высоким быстродействием; - при разделенной работе блочная запись становится недопустимой, однако нет причин, по которым нельзя пользоваться блочным чтением. В результате средства поддержки сетевой работы не отменяют блочную буферизацию, а дополняют ее следующим уровнем - буферизацией логических записей. Буферов логических записей также 2, второй используется для хранения копии записи в процессе редактирования для отмены результатов редактирования и проверки внесения изменений при редактировании. В целом поддержка сетевой работы только намечена, однако я не вижу здесь каких-то больших трудностей - просто у меня нет таких задач. 3. Советы на будущее: - Допишите функцию ErrorChecked - у меня она при CheckError=True и DosError<>0 выбрасывает окошко с сообщением об источнике ошибки ( параметр функции), коде ошибки (DosError), расширенном коде ( GetErrCode) и меню из 2 блюд - повторить операцию ( поэтому все методы BinFile в цикле) или отказаться. Во втором случае при установленном DosBreak должна вызываться процедура аварийного завершения( вместо Halt). - Cтандартная процедура аварийного завершения должна попытаться закрыть все файлы, поэтому неплохо сделать регистрацию открываемых файлов - у меня пока руки не дошли. - Подумайте, что делать при переполнении диска (procedure DiskOverflow - у меня просто выбрасывает окошко с сообщением о переполнении, ждет нажатия клавиши и делает Halt). 4. Некоторые методы DBaseFile: procedure Open( FileName: String; Size: Word); Открывает DBaseFile, Size - размер блочного буфера в байтах, их два, поэтому в куче резервируется 2*Size байт. procedure Flush; - сбрасывает все ( в том числе внутренние буфера DOS ) на диск, корректирует( если надо) длину файла в элементе каталога. procedure Truncate; - отсекает все записи начиная с текущей procedure Remove; - физически удаляет текущую запись procedure Zap; - физически удаляет все записи procedure Pack; - упаковка ( физическое удаление меченых ('*') записей) { Установка номера текущей записи } procedure GoTop; procedure GoBottom; procedure Go( N: LongInt); procedure Skip( N: LongInt); procedure AppendBlank; - корректное добавление пустой записи в DBF-файл, т.е. все буфера сбрасываются на диск и корректируется длина файла в элементе каталога. procedure Append; - корректное добавление записи из Buf_1 function DelCount: LongInt; { Подсчет числа меченых записей } function FastStore( Ident: FieldName): String; - чтение поля через блочный буфер; function Store( Ident: FieldName): String; - чтение поля из Buf_1; procedure FastReplace( Ident: FieldName; Source: String); - запись поля через блочный буфер; procedure Replace( Ident: FieldName; Source: String); - запись поля в Buf_1; procedure BubbleSort( Ident: FieldName); - сортировка по полю, основательно переработанная на предмет оптимизации идея пузырьковой сортировки; procedure Gather; - прямая запись из Buf_1 на диск; procedure Scatter; - прямое чтение с диска в Buf_1. 5. Буду благодарен за найденные глюки и дельные идеи по развитию библиотеки.