Создание главной формы
Добавим на главную форму главное меню, содержащее 3 вкладки: Работа с таблицами (имеющая подпункты Авторы, Книги, Поставщики, Поставки, Издательства), Администрирование и Работа с процедурами. Для каждого пункта создаем событие, которое будет открывать нужную форму:
Работа с таблицами –> Авторы:
TFormAuthors *FormAuthors = new TFormAuthors(Application);
FormAuthors->Show() ;
Работа с таблицами –> Книги:
TFormBooks *FormBooks = new TFormBooks(Application);
FormBooks->Show() ;
Работа с таблицами –> Издательства:
TFormPublish *FormPublish = new TFormPublish(Application);
FormPublish->Show() ;
Работа с таблицами –> Поставщики:
TFormDeliveries*FormDeliveries=newTFormDeliveries(Application);
FormDeliveries->Show() ;
Работа с таблицами –> Поставки:
TFormPurchases *FormPurchases= new TFormPurchases(Application);
FormPurchases->Show() ;
Администрирование:
TFormAdmin *FormAdmin= new TFormAdmin(Application);
FormAdmin->Show() ;
Работа с процедурами:
TFormProcedure *FormProcedure= new TFormProcedure (Application);
FormProcedure->Show() ;
Создание формы с информацией об авторах
Создадим форму FormAuthors. Добавим на нее DBGrid, 3 DBEdit и DBNavigator, связанные с ADOAuthors, и 3 Button. Окончательный вид формы (см. рис. .1.2).
Рисунок 1.2 – Форма для просмотра списка авторов
Создадим обработчики событий для кнопок, реализующих следующие фильтры:
Фильтр по текущему имени автора.
AnsiString a="name_authors";
DM->ADOAuthors->Filter=a+"='"+ FormAuthors->DBGrid1->Columns->Items[1] ->Field->Text+"'";
DM->ADOAuthors->Filtered= true;
Фильтр по текущей дате рождения автора.
AnsiString a="birthday";
DM->ADOAuthors->Filter=a+"='"+ FormAuthors->DBGrid1->Columns->Items[2] ->Field->Text+"'";
DM->ADOAuthors->Filtered= true;
Убрать все фильтры.
DM->ADOAuthors->Filtered= false;
Создание формы с информацией о книгах
Создадим форму FormBooks. Добавим на нее DBGrid, 3 DBEdit, 2 DBCombobox и DBNavigator, связанные с ADOBooks, и 5 Button. Окончательный вид формы (см. рис. .1.3). Создадим обработчики событий для кнопок, реализующих следующие фильтры:
Фильтр по текущему издательству.
AnsiString a="code_publish";
DM->ADOBooks->Filter=a+"='"+ FormBooks->DBGrid1->Columns->Items[4] ->Field->Text+"'";
DM->ADOBooks->Filtered= true;
Фильтр по текущему названию книги.
AnsiString a="Title_book";
DM->ADOBooks->Filter=a+"='"+ FormBooks->DBGrid1->Columns->Items[1] ->Field->Text+"'";
DM->ADOBooks->Filtered= true;
Фильтр по текущему автору.
AnsiString a="code_author";
DM->ADOBooks->Filter=a+"='"+ FormBooks->DBGrid1->Columns->Items[2] ->Field->Text+"'";
DM->ADOBooks->Filtered= true;
Фильтр по количеству книг
AnsiString a="pages";
DM->ADOBooks->Filter=a+"='"+ FormBooks->DBGrid1->Columns->Items[3] ->Field->Text+"'";
DM->ADOBooks->Filtered= true;
Рисунок 1.3 – Форма для просмотра списка книг