uses
Data, Types, Users;
{$R *.DFM}
procedure TLibraryForm.ButtonTypesClick(Sender: TObject);
begin // Вывести форму со справочником типов книг
FormBookTypes.Show;
end;
procedure TLibraryForm.ButtonUsersClick(Sender: TObject);
begin // Вывести форму со списком читателей
FormUsers.Show;
end;
procedure TLibraryForm.ButtonExitClick (Sender: TObject);
begin // Выход из программы
Close;
end;
procedure TLibraryForm.RadioButtonAllClick(Sender: TObject);
begin // Просматривать все книги (не фильтровать)
DataModuleLibrary.TableBooks.MasterSource:= nil;
end;
procedure TLibraryForm.RadioButtonTypeClick(Sender: TObject);
begin // Отфильтровать книги по типу книг
with DataModuleLibrary do
begin
TableBooks.MasterSource:=DataSourceTypes;
TableBooks.IndexFieldNames:='Type';
TableBooks.MasterFields:='ID';
end;
end;
procedure TLibreryForm.RadioButtonUserClick (Sender: TObject);
begin // Отфильтровать книги по читателям
with DataModuleLibrary do
begin
TableBooks.MasterScurce:=DataSourceUsers;
TableBooks.IndexFieldNaimes:='User';
TableBooks.MasterFields:='ID';
end;
end;
procedure TLibraryForm.DBLookupComboBoxTypeClick(Sender: TObject);
begin // Если выбран новый тип книг, то установить режим фильтра по типам
RadioButtonType.Checked:=True;
end;
procedure TLibraryForm.DBLookupComboBoxUserClick (Sender: TObject);
begin // Если выбран новьй читатель, то установить режим фильтра по читателям
RadioButtonUser.Checked:=True;
end;
end.
Листинг 17. Текст модуля данных Data.pas
unit Data;