end;
procedure TForm1. Table4AfterOpen (DataSet: TDataSet);
begin
table4. Edit; // ставим в режим редактирования
end;
procedure TForm1. Table5AfterOpen (DataSet: TDataSet);
begin
table5. Edit; // ставим в режим редактирования
end;
procedure TForm1. Table3AfterOpen (DataSet: TDataSet);
begin
table3. Edit; // ставим в режим редактирования
end;
procedure TForm1. Table2AfterOpen (DataSet: TDataSet);
begin
table2. Edit;
end;
procedure TForm1.mnFilter_OnClick (Sender: TObject);
begin // при выборе команды «Включить фильтр»
form2.show;
end;
procedure TForm1.mnFilter_OffClick (Sender: TObject);
begin // при выборе команды «Отключить фильтр»
Table3. Filtered:=false;
end;
procedure TForm1.N4Click (Sender: TObject);
begin // Команда «Поиск по всем группам»
Form4.show;
end;
procedure TForm1. FormCreate (Sender: TObject);
begin
Table4. Open; // открываем таблицы
Table5. Open;
Table3. Open;
Table1. Open;
Table2. Open;
Animate1. ResName:= 'bAvi'; // подключаем анимацию
Animate1. Active:= True;
end;
procedure TForm1.DBGrid4MouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin // к Table4 подключаем Navigator
DbNavigator1. DataSource:=Datasource4;
end;
procedure TForm1.DBGrid5MouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin // к Table5 подключаем Navigator
DbNavigator1. DataSource:=Datasource5;
end;
procedure TForm1.DBGrid3MouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin // к Table3 подключаем Navigator
DbNavigator1. DataSource:=Datasource3;
end;
procedure TForm1.DBGrid2MouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin // к Table2 подключаем Navigator
DbNavigator1. DataSource:=Datasource2;
end;
procedure TForm1. Table4AfterInsert (DataSet: TDataSet);
begin
Table4. Post;
end;
procedure TForm1. Table2AfterInsert (DataSet: TDataSet);
begin // после вставки сохраняем изменения
Table2. Post;
end;
procedure TForm1. Table5AfterInsert (DataSet: TDataSet);
begin // после вставки сохраняем изменения
Table5. Post;
end;
procedure TForm1. Table3AfterInsert (DataSet: TDataSet);
begin // после вставки сохраняем изменения
Table3. Post;
end;
end.