Курсовая работа: Автоматизация продажи и учета лекарственных средств

begin

Form3.show;

Form2.hide;

end ;

Процедура соединения таблиц двух таблиц, дочерняя таблица Накладная с родительской таблицей Предприятие :

procedure TForm2.OnActivate(Sender: TObject);

begin

DBGrid2.Columns.Items[1].PickList.Clear;

with Table1 do begin

first;

While not eof do Begin

DBGrid2.columns.Items[1].Picklist.add(FieldByName('Kod_pred').value);

next ;

end ;

end ;

А также на форме присутствуют кнопки управления базой данных, как для таблицы Предприятие так и для таблицы Накладная:

кнопки добавления ,изменения, удаления, сохранения, отмены.

ПроцедуракнопкиЗапомнить:

procedure TForm2.Button4Click(Sender: TObject);

begin

If table1.State in [dsInsert,dsEdit]then

table 1. post ;

end ;

Процедура кнопки Отменить:

procedure TForm2.Button9Click(Sender: TObject);

begin

If table1.State in [dsInsert,dsEdit]then

table 1. Cancel ;

end ;