Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Базы Данных    >>    fox
   
 
 FOX.PAS - Обработка DBF для BP7   Nick Doodka 24.03.1998

Интерфейсный модуль для обработки файлов структуры dBASE III Plus, Clipper, FoxPro



23k 
 

Hello Max! Сpд Маp 18 1998, Max Kirilin пишет к All: MK> нет ли у кого базы данных, нужно в институт, да чтобы MK> pедактиpовать MK> внутpенности можно было (у меня своя есть, да хочу покpуче). Вот посмотри FOX.PAS, может подойдет... Список функций: (*$X+,R-,S-,Q-,D- ********************************) (* Borland Pascal version 7.0 *) (* Интерфейсный модуль для обработки файлов *) (* структуры dBASE III Plus, Clipper, FoxPro *) (* Разработчик - Дудка Николай Григорьевич *) (* address - 2:4641/58.18@FidoNet *) (*************************************************) function LUpDate: string; {Дата последней корректировки} function LastRec: Longint; {Количество записей} function Header: Word; {Размер заголовка} function RecSize: Word; {Размер записи} function FCount: Word; {Количество полей} function FSize(Key: KeyStr): Byte; {Размер заданного поля} function AtF(Key: KeyStr): PField; {Описание поля записи} function AtN(No: Integer): PField; {Описание поля записи} function Field(No: Integer): KeyStr; {Имя поля по номеру} function Alias: string; {Имя БД без расширения} function Deleted: Boolean; {Признак удаленнной записи} function DbStruct: PFList; {Структура текущей БД} procedure Skip(X: Integer); {Пропустить X записей} procedure GoTop; {Переход на начало БД} procedure GoBottom; {Переход в конец БД} procedure GoRec(No: Longint); virtual; {Установить текущую запись} procedure Append; virtual; {Добавить чистую запись} procedure Commit; virtual; {Вытолктуть буфер записи} procedure Flush; virtual; {Обновить дату модификации} procedure Pack; virtual; {Удаление помеченных записей} procedure Delete; {Удалить запись} procedure Recall; {Восстановить запись} procedure Zap; {Очистка базы данных} procedure FRename(Old, New: KeyStr); {Переименование поля базы} procedure SetFilter(Fltr: PFilter); {Установить фильтр} procedure Relation(Child: PBase; Rel: PFList); {Установить отношения} procedure LSort(Lo,Hi: Longint; List: PFList); {Быстрая сортировка} procedure Sort(ToFile:FNameStr; List: PFList); {Сортировка записей} procedure Arrange(Order: PFList); virtual; {Упорядочить записи} function Scan(First: Boolean; Sub: string): Boolean; {Сканирование} function LookUp(First: Boolean; List: PFList): Boolean; {Справочник} function BSearch(Key: KeyStr; const Str: string): Boolean; {Двоичный} function Num(Key: KeyStr): Numeric; {Значение числового поля} function Log(Key: KeyStr): Logical; {Значение логического поля} function Get(Key: KeyStr): Character; {Получить данные по имени} procedure Put(Key: KeyStr; Info: string);{Записать данные по имени} procedure FieldGet(F: Word; var X); {Считать знач. в переменную} procedure FieldPut(F: Word; var X); {Записать знач.из переменной} procedure GetText(List: PFList); {Список строк} procedure PutText(List: PFList); {Список строк} procedure GetVar(List: PFList); {Список переменных} procedure PutVar(List: PFList); {Список переменных} procedure Scatter(var Rec); virtual; {Считать стр. данные из базы} procedure Gather(var Rec); virtual; {Записать стр. данные в базу} procedure Sum(List: PFList); {Суммирование записей} procedure Display(List: PFList); {Вывод записей на экран} procedure CopyTo(Dest: PBase); {Добавить записи к Dest} procedure Merge(Source: PBase); {Объединить записи из Source} procedure MemoPut(Key: KeyStr; Info:Memo); {Записать текст в MEMO-поле} function MemoGet(Key: KeyStr): Memo; {Считать значение MEMO-поля} Nick Doodka [Втp Маp 24 1998, 11:01] --- FastEcho 1.45 * Origin: === Pipe Station === (2:4641/58.18)