Курсовая работа: Разработка и создание автоматизированной системы обработки информации

Дляудалениязаписи:

procedure TForm1.Button15Click(Sender: TObject);

begin

Table2.Delete;

end;

В нашей базе данных при внесении новой записи в таблицу «Накладная»

компонент Button мы прописываем следующим образом:

procedure TForm1.Button1Click(Sender: TObject);

begin

Table1.Insert;

Table2.Insert;

Table3.Insert;

end;

Мы прописываем внесение новой записи несколько раз потому что данные добавляются сразу в три таблицы.

Аналогичносохранениеновойзаписи:

procedure TForm1.Button2Click(Sender: TObject);

begin

Table1.Refresh;

Table2.Refresh;

Table3.Refresh;

end;

Для вывода отчета мы используем компоненты RvProject и RvDataSetConnection. А компонент Button мы прописываем следующим образом:

procedure TForm1.Button16Click(Sender: TObject);

begin

RvProject1.Execute;

end;

Раздел 4. Листинг программы.

unit Unit1;

interface