Тема занятия: «Работа с DBF».
план-конспект занятия

Тема занятия: «Работа с DBF».

Цели занятия:1) образовательная: организовать деятельность студентов по изучению и первичному закреплению работы с созданием DBF-таблицы, заполнением их данными;

2) воспитательная: воспитывать самостоятельность, информационную компетентность;
3) развивающая: развивать внимание, память, познавательный интерес к учебной дисциплине.

Ход выполнения работы

Компонент Вы можете установить, то есть, прописываем туда модуль DBF. Но Вы можете его инсталлировать, как положено и использовать как визуальный компонент.

Итак, подключаем модуль DBF в Uses и на форме разместил четыре кнопки, которые будут отвечать за:

Создание DBF-таблицы

Вставки записей в DBF-таблицу

Удаление записей из DBF-таблицы

Считывание записей из DBF-таблицы

Получаем форму:

На форме только кнопки, так необходим компонент TDBF, но будем использовать данный компонент в режиме Run-Time. Начнем  с создания DBF-файла. Таблица у будет самая простая, которая состоит из номера и какого-то текстового поля. Вот при помощи такого не сложного кода можем без проблем создать DBF-таблицу:

procedure TForm1.Button1Click(Sender: TObject);

var

  DBF1:TDBF;

begin

    DBF1:=TDBF.Create(Form1);

    DBF1.AddFieldDefs('TTN_SER',bfString,2,0);

    DBF1.AddFieldDefs('TTN_NO',bfNumber,7,0);

    DBF1.TableName:='D:\Test.DBF';

    DBF1.CreateTable;

    DBF1.CodePage:=ANSI;

    DBF1.Close;

    FreeAndNil(DBF1);

end;

Создаем саму таблицу, добавляем 2 поля с указанием типа и размерности, указываем ее имя (путь), кодовую страницу, закрываем и уничтожаем объект. Заходим по пути, где должна быть создана таблица, проверяем:

Кодировка ANSI, все поля также присутствуют. Как видите, таблица создана без использования каких-либо дополнительных драйверов, поставщиков данных и так далее. Переходим к вставке записей в данную таблицу.

Поэтому, код для вставки записей вышел следующим:

procedure TForm1.Button2Click(Sender: TObject);

begin

    DBF1:=TDBF.Create(Form1);

    DBF1.TableName:='D:\Test.DBF';

    DBF1.Open;

    DBF1.CodePage:=ANSI;

    DBF1.Append;

    DBF1.SetFieldData(1,'ТН');

    DBF1.SetFieldData(2,'1721721');

    DBF1.Post;

    DBF1.Close;

    FreeAndNil(DBF1);

end;

Открываем DBF-файл и видим:

Здесь самое главное – это сохранить правильную последовательность. То есть, сначала открывается таблица, только затем назначается ей кодовая страница, а не наоборот.  Смысл работы, как и с обычными таблицами базы данных. Вставляется запись, присваивается значение нужному столбцу и затем сохраняется запись.

Переходим к удалению записей. Насколько Вам известно, в DBF-таблицах можно физически удалять записи, а можно помещать их просто на удаление. Запись помечается на удаление, если на ней установлен указатель. Вот таким вот кодом пометим на удаление все записи:

procedure TForm1.Button4Click(Sender: TObject);

var

 i:integer;

begin

    DBF1:=TDBF.Create(Form1);

    DBF1.TableName:='D:\Test.DBF';

    DBF1.Open;

    DBF1.CodePage:=ANSI;

    DBF1.First;

    for i:=0 to DBF1.RecordCount-1 do

     begin

      DBF1.Deleted:=True;

      DBF1.Next;

     end;

    DBF1.Post;

    DBF1.Close;

    FreeAndNil(DBF1);

end;

Чтобы снять отметку удаление на запись, необходимо просто DBF1.Deleted:=True заменить на DBF1.Deleted:=False. Чтобы физически удалить записи, нужно упаковать таблицу, поэтому того, как отметки были проставлены, необходимо дописать DBF1.PackTable.

Теперь нам осталось рассмотреть только считывание данных с DBF-таблицы. Для этого можно воспользоваться следующим кодом:

procedure TForm1.Button3Click(Sender: TObject);

begin

    DBF1:=TDBF.Create(Form1);

    DBF1.TableName:='D:\Test.DBF';

    DBF1.Open;

    DBF1.CodePage:=OEM;

    DBF1.First;

    ShowMessage(DBF1.GetFieldData(1));

    DBF1.Post;

    DBF1.Close;

    FreeAndNil(DBF1);

end;

В GetFieldData необходимо передать номер столбца, данные которого Вы хотите считать.

Создавать объект DBF стоит всего лишь один раз, в статье указано создание DBF на каждом событие, на случай если Вам понадобиться только одно действие производить с DBF-таблицей. Не забудьте скачать сам компонент и прочитать внимательно там справку. В ней довольно все подробно описано и намного больше информации.

Теперь Вы знаете, как можно работать с DBF-таблицами без использования BDE, ADO и других драйверов и поставщиков данных.