Создание формы с информацией об изданиях
Создадим форму. Добавим на нее DBGrid, 3 DBEdit и DBNavigator, связанные с ADOPublish, и 3 Button. Окончательный вид формы (см. рис. .1.4).
Рисунок 1.4 – Форма для просмотра списка зданий
Создадим обработчики событий для кнопок, реализующих следующие фильтры:
Фильтр по текущему изданию
AnsiString a="publish";
DM->ADOPublish->Filter=a+"='"+ FormPublish->DBGrid1->Columns->Items[1] ->Field->Text+"'";
DM->ADOPublish->Filtered= true;
Фильтр по текущему городу
AnsiString a="city";
DM->ADOPublish->Filter=a+"='"+ FormPublish->DBGrid1->Columns->Items[2] ->Field->Text+"'";
DM->ADOPublish->Filtered= true;
Создание формы с информацией о поставках
Создадим форму FormPurchases. Добавим на нее DBGrid, 4 DBEdit, 2 DBComboBox и DBNavigator, связанные с ADOPurchases, и 5 Button. Окончательный вид формы (см. рис. .1.5).
Рисунок 1.5 – Форма для просмотра списка поставок
Создадим обработчики событий для кнопок, реализующих следующие фильтры:
Фильтр по текущей дате.
AnsiString a="date_order";
DM->ADOPurchases->Filter = a+ "='" +
FormPurchases->DBGrid1->Columns->Items[2] ->Field->Text+"'";
DM->ADOPurchases->Filtered= true;
Фильтр по текущей книге.
AnsiString a="code_book";
DM->ADOPurchases->Filter = a+ "='" +
FormPurchases->DBGrid1->Columns->Items[1] ->Field->Text+"'";
DM->ADOPurchases->Filtered= true;
Фильтр по текущей цене.
AnsiString a="cost";
DM->ADOPurchases->Filter = a+ "='" +
FormPurchases->DBGrid1->Columns->Items[5] ->Field->Text+"'";
DM->ADOPurchases->Filtered= true;
Фильтр по текущему количеству экземпляров.
AnsiString a="amount";
DM->ADOPurchases->Filter = a+ "='" +
FormPurchases->DBGrid1->Columns->Items[6] ->Field->Text+"'";
DM->ADOPurchases->Filtered= true;
Создание формы с информацией о поставщиках
Создадим форму FormDelivaries. Добавим на нее DBGrid, 6 DBEdit и DBNavigator, связанные с ADODelivaries, и 6 Button. Окончательный вид формы (см. рис. .1.6).
Рисунок 1.6 – Форма для просмотра списка поставщиках
Создадим обработчики событий для кнопок, реализующих следующие фильтры:
Фильтр по текущему названию доставки.
AnsiString a="name_deliv"; DM->ADODeliveries->Filter = a+ "='" +
FormDeliveries->DBGrid1->Columns->Items[1] ->Field->Text+"'";
DM->ADODeliveries->Filtered= true;
Фильтр по текущему названию компании.
AnsiString a="name_company";
DM->ADODeliveries->Filter = a+ "='" +
FormDeliveries->DBGrid1->Columns->Items[2] ->Field->Text+"'";
DM->ADODeliveries->Filtered= true;
Фильтр по текущему адресу.
AnsiString a="adres";
DM->ADODeliveries->Filter = a+ "='" +
FormDeliveries->DBGrid1->Columns->Items[3] ->Field->Text+"'";
DM->ADODeliveries->Filtered= true;
Фильтр по текущему телефону.
AnsiString a="phone";
DM->ADODeliveries->Filter = a+ "='" +
FormDeliveries->DBGrid1->Columns->Items[4] ->Field->Text+"'";
DM->ADODeliveries->Filtered= true;
Фильтр по текущему инн.
AnsiString a="inn";
DM->ADODeliveries->Filter = a+ "='" +
FormDeliveries->DBGrid1->Columns->Items[5] ->Field->Text+"'";
DM->ADODeliveries->Filtered= true;