База данных в Delpfi

Практическая работа №

Тема:База данных в 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.