Практическая работа. Создадим приложение, работающее с таблицами данных

Создадим приложение, работающее с таблицами данных. Реализуем добавление, удаление, изменение и сохранение записей в таблице.

Поставьте на форму компоненты Table, DataSource, DBGrid для работы с таблицей Tovar.db. Свяжите их между собой.

Поставьте 5 кнопок Button, заголовки которых будут соответственно «Добавить», «Изменить», «Запомнить», «Удалить», «Отменить».

Опишем процедуры для каждой кнопки:

procedure TForm1.Button1Click(Sender: TObject);

Begin

if Table1.State= dsBrowse then

Table1.Insert;

end;

procedure TForm1.Button2Click(Sender: TObject);

Begin

if Table1.State= dsBrowse then

Table1.Edit;

end;

procedure TForm1.Button3Click(Sender: TObject);

Begin

if Table1.State= dsBrowse then

if MessageDlg ('Удалить запись?', mtConfirmation, [mbYes, mbNo],0)=mrYes then

Table1.Delete;

end;

procedure TForm1.Button4Click(Sender: TObject);

Begin

if Table1.State in [dsInsert, dsEdit] then

Table1.Post;

end;

procedure TForm1.Button5Click(Sender: TObject);

Begin

if Table1.State in [dsInsert, dsEdit] then

Table1.Cancel;

end;

Перемещение по записям набора данных

Перемещение по НД заключается в управлении указателем текущей записи (курсором). Этот указатель определяет запись, с которой будут выполняться какие-либо операции.

Перед перемещением указателя текущей записи НД автоматически переводится в режим просмотра.

Для перемещения указателя текущей записи используются методы:

Процедура First – установка курсора на первую запись НД;

Процедура Next – на следующую запись;

Процедура Last – на последнюю запись;

Процедура Prior – на предыдущую запись;

Функция MoveBy (n:integer): integer – перемещение на число запсией, указанных в параметре n

n>0 – перемещение вперед;

n<0 – назад;

n=0 – нет перемещения. Результат функции – число записей, на которое переместился указатель.