Тема занятия: «Работа с 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 и других драйверов и поставщиков данных.
По теме: методические разработки, презентации и конспекты
![](/sites/default/files/pictures/2016/08/02/picture-804276-1470150855.jpg)
Конспект занятия по МДК.01.04 по теме МЕТОДИКА РАБОТЫ НАД ПРОСТЫМИ ЗАДАЧАМИ, РАСКРЫВАЮЩИМИ ПОНЯТИЕ КРАТНОГО ОТНОШЕНИЯ
Занятие встроено в систему работы над отдельными видами простых задач. Включает в себя как подробное описание хода занятия, так и методического сопровождения, а именно: презентации и приложений с тест...
![](/sites/default/files/pictures/2018/02/27/picture-144475-1519729570.jpg)
Доклад по теме «Самостоятельная работа обучающихся на практических занятиях»
Самостоятельная работа обучающихся на практических занятиях...
![](/sites/default/files/pictures/2019/12/25/picture-1202263-1577285737.jpg)
презентация учебного занятия № 7 по теме "Маневровая работа" для составителя поездов
Поможет преподавателю провести учебное заняти № 7 из 12 по теме "Маневровая работа" по предмету "Организация работы железнодорожной станции" для подготовки обучающихся по профессии...
![](/sites/default/files/pictures/2020/02/02/picture-1203924-1580596305.jpg)
Занятие по учебной практике: Работа на весоизмерительном оборудовании. Тема занятия: Взвешивание на торговых весах МК-ТН
Прилагаемый материал содержит план занятия учебной практики по обозначенной теме, Правила эксплуатации весоизмерительного оборудования, контрольные вопросы по безопасным условиям работы на весах, отве...
Тема занятия: "Работа с Paradox".
Практическая работа...
![](/sites/default/files/pictures/2015/08/31/picture-660054-1441022641.jpg)
Методическая разработка учебного занятия на тему: Контрольная работа. Текстовый процессор MS Word.
Методическая разработка открытого учебного занятия на тему "Контрольная работа №1. Текстовый процессор MS Word"по дисциплине Информационные технологии.Содержит образовательные технолог...
![](/sites/default/files/pictures/2021/05/27/picture-1335426-1622122431.jpg)
Методическая разработка теоретического занятия для преподавателя ПМ 04.«Выполнение работ по профессии младшая медицинская сестра по уходу за больными» МДК 04.02 Безопасная больничная среда для пациента и персонала Тема занятия: Стерилизация: понятия и мет
Методическая разработка теоретического занятия для преподавателя составлена в соответствии с Федеральным Государственным образовательным стандартом по специальности среднего профессиональн...