База данных в Delpfi
Автор: bulka_nya • Ноябрь 20, 2018 • Практическая работа • 365 Слов (2 Страниц) • 334 Просмотры
Практическая работа №
Тема:База данных в Delpfi
Цель:
Задание1.Создание простейшего приложения для работы с БД.
Для создания данного приложения использовались компоненты table,datasource, dbgrid и dbnavigator.
Изменение компонента Table
В свойство DataBaseName вписан путь к БД.
В свойстве tablename выбрано название БД
В остальных компонентах выбрано свойство datasource1
Результат работы программы приведен на рисунке 1.
[pic 1]
Рисунок 1 – Простое приложение
Задание 2.Создать приложения для просмотра и редактирования разных таблиц
Для создания дополнительных таблиц использован инструмент databasedector
Для создания данного приложения использовались компоненты table,datasource, dbgrid и dbnavigator,button и opendialog.
Для компонентов table,datasource, dbgrid и dbnavigator изменены свойства аналогично заданию 1.
Результат работы приведен на рисунке 2.
[pic 2]
Рисунок 2 – Приложение для просмотра и редактирования
Код компонента button
opendialog1.Filter:= ' Òàáëèöû (*.db; *.dbf) | *.db; *dbf | Âñå ôàéëû |*.*';
if opendialog1.Execute then
begin
table1.Active:=false;
table1.TableName:=opendialog1.FileName;
table1.Active:=true;
Код свойства oncreate
procedure TForm1.FormCreate(Sender: TObject);
begin
datasource1.DataSet:=table1;
DBGrid1.DataSource:=DataSource1;
end;
end.
Задание 3.Создать программу для перехода по номерам записи в БД
Для создания данного приложения использовались компоненты table,datasource, dbgrid и dbnavigator,button.
Для компонентов table,datasource, dbgrid и dbnavigator изменены свойства аналогично заданию 1.
Результат работы программы приведен на рисунке 3
[pic 3]
Рисунок 3 – Переход по номерам записи
Код компонента button
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
j:integer;
begin
table1.First;
j:=strtoint(edit1.Text);
for i:= 1 to j-1 do
table1.next;
end;
Задание4.Создать приложение работающее с таблицами данных.Реализовать добавление, удаление, изменение и сохранение записей в таблице.
Для создания данного приложения использовались компоненты table,datasource, dbgrid и dbnavigator,button.
Для компонентов table,datasource, dbgrid и dbnavigator изменены свойства аналогично заданию 1.
...