Объект бизнес-данных
В этом примере объект бизнес-данных представляет заказ книги, названный BookOrder. Этот заказ реализован как объект коммерческого словаря (Commerce Dictionary object), в котором размещается как информация о заказчике, так и список заказанных книг. Перечень книг содержится в элементе items данного словаря. Этот перечень реализован в качестве объекта simpieList сервера коммерции (Commerce Server), в котором любой элемент списка соотнесен с одной книгой. Каждая книга, в свою очередь, представлена объектом Dictionary сервера коммерции. В словаре имеется два элемента — isbn и Title, служащие для идентификации книги.
Для создания, компоновки (link) и наполнения (populate) объекта бизнес-данных, представляющего заказ книги:
1. Установите ссылку для данного проекта на библиотеку MSCSCore Type Library или файл mscscore.dll. Эта ссылка обеспечивает доступ к классам, необходимым для создания объектов словаря.
2. Объявите и создайте экземпляр нового объекта словаря с именем BookOrder с помощью кода:
Dim BookOrder As New CDictionary
3. После того как объект BookOrder будет создан, включите данные о заказчике из формы в заказ на книгу, создав для этого вхождения словаря для каждого элемента, как представлено в следующем фрагменте кода:
BookOrder.Customer = txtCustomer.Text BookOrder.Address = txtAddress.Text BookOrder.City = txtCity.Text BookOrder.State = txtState.Text BookOrder.Zip= txtZip.Text
4. Объявите И Создайте Экземпляр Объекта SimpieList ПОД именем BookList
с помощью представленого ниже кода:
Dim BookList As New CSimpleList
Этот объект будет содержать список книг, выбранных пользователем (заказчиком).
5. Присвойте данному элементу словаря имя items и включите список элементов в заказ на книгу:
Set BookOrder.Items = BookList
6. Объявите и создайте экземпляр объекта Dictionary под именем item для представления каждой книги, с помощью кода, представленного ниже. Вы будете использовать этот объект циклически для каждого элемента (наименования товара) в вашей покупательской корзине.
Dim Item As New CDictionary
7. Включите данные о каждом из элементов в словарь (Item Dictionary) путем введения в него соответствующих вхождений. Присвойте этим вхождениям имена isbn и Title, соответственно.
Item. ISBN = strlSBN Item. Title = strTitle
8. Включите словарь элементов (item dictionary) в объект списка элементов при помощи вызова метода Add о объекта simpieList. Передайте в словарь элементов (item dictionary). После этого выражения закройте цикл. Для передачи элемента в словарь в качестве параметра используется следующее выражение:
Call BookList.Add (Item)
При выполнении этого выражения осуществляется создание, компоновка и наполнение заказа книги. Этот заказ наряду с информацией о заказчике содержит также список книг.
После создания и наполнения объекта BookOrder его необходимо передать.
Для того чтобы осуществить передачу заказа на книгу:
1. Установите ссылки в данном проекте на библиотеку SendReceive Library программы Microsoft CIP Manager 1.0 или на файл ImSndRcv.dll. Эта ссылка обеспечивает доступ к классам, служащим для создания объекта
IMSendReceiveTx,
2. Для передачи объекта BookOrder объявите и создайте экземпляр объекта транспортного словаря, используя следующий код:
Dim dictTransport As New CDictionary
3. С помощью приведенного ниже кода объявите и создайте экземпляр объекта IMSendReceiveTx, чтобы обеспечить возможность вызова метода send:
Dim objSendRecv As New ImSendReceiveTx
4. По соглашению, когда объект бизнес-данных передан, транспортный словарь содержит вхождение с именем object, которое и является объектом бизнес-данных. Здесь объектом бизнес-данных является словарь Bookorder. Включите этот объект в транспортный словарь следующим образом:
Set dictTransport.Object = BookOrder
5. Для передачи объекта бизнес-данных вызовите метод send созданного
вами объекта IMSendReceiveTx:
objSendRecv.Send "Dun & Bradstreet", _ ,,123456789,,,"TestSend", dictTransport, 2