Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Разработка приложения, использующего компонент просмотра баз данных
Рассмотрим связь таблиц CUSTOMER (компании-заказчики) и ORDERS (их заказы) из базы данных BCDEMOS и используем компонент DBLookupListBox для того, чтобы отобразить на экране имя компании, соответствующее значению CustNo, находящемуся в таблице ORDERS.
Открыть новый проект и сохранить главную форму и проект.
Разместить на форме компоненты TTable, DataSource, DBGrid и DBNavigator.
Присвоить свойству Database Name компонента Table1 значение BСDEMOS, свойству TableName - значение ORDERS.DB, а свойству Active - значение true.
Свойству DataSet компонента DataSource1 присвоить значение Table1, а свойству AutoEdit - значение false.
Свойству DataSource компонентов DBGrid1 и DBNavigator1 присвоить значение DataSource1.
Использовать Fields Editor, чтобы внести в набор данных Table1 поля OrderNo, CustNo, SaleDate, ItemsTotal, AmountPaid.
(Выделить Table1, правая кнопка - контекстное меню, выбрать Fields Editor, правая кнопка, Add Fields. OK).
Расположить поля в Fields Editor так, чтобы OrderNo был бы первым, а CustNo - вторым.
Можно скомпилировать и сохранить это приложение, затем запустить и протестировать его.
Внести в приложение компонент DBLookupListBox, установить свойство DataSource равным DataSource1, а свойство DataField равным CustNo.
Поместить на форму новые компоненты TTable и DataSource. Установить свойство DatabaseName для компонента Table2 равным BCDEMOS, свойство TableName равным CUSTOMER.DB, а свойство Active равным true.
Связать DataSource2 с Table2.
Связать компонент DBLookupListBox1 с DataSource2, установив значение свойства ListSource компонента DBLookupListBox1 равным DataSource2, свойства KeyField равным CustNo, а свойства ListField равным Company.
Можно скомпилировать и сохранить приложение, затем запустить и протестировать его.
В компоненте DBLookupListBox будет выделено название компании, соответствующее значению CustNo в текущей строке DBGrid. Можно использовать DBLookupListBox для выбора заказчика по имени, при этом в таблице Orders будет устанавливаться соответствующее значение CustNo.
Приложение с компонентом DBLookupListBox.