Страница 259 из 476 DSSummaryData.Tables ("OrderTotal") .Rows (0) .Item("TheTotal")) End Sub Посетитель может войти на рассматриваемую страницу только в том случае, если он выбрал все компоненты: If Len(Session{"ObjectOrderlD")) - 0 Then В противном случае он переадресуется на страницу Сборка компьютера:Response.Redirect("./index.aspx") Объект DataAdapter необходим для извлечения всех объектов, выбранных посетителем: DBCommand - New OleDbDataAdapter ("Select ChoiceText, OrderChoicelD " _ & "from OrderChoices H & "Where ObjectOrderlD - " & Session("ObjectOrderlD"),DBConn) DBCommand.Fill(DSSummaryData, "Gridlnfo") Должна быть также извлечена общая стоимость создаваемого объекта: DBCommand ? New OleDbDataAdapter ("Select Sum(ChoiceCost) as TheTotal " & "from OrderChoices " & "Where ObjectOrderlD - " ? Session("ObjectOrderlD"),DBConn) Общая стоимость помещается в объект DataSet: DBCommand.Fill(DSSummaryData, "OrderTotal") Объект DataGrid связывается с таблицей Gridlnfo объекта DataSet: dgSummarylnfо.DataSource - _ DSSummaryData.Tables("Gridlnfo").DefaultView dgSummarylnfо.DataBind() На следующем этапе устанавливаются параметры заголовка: lblTitle.BorderWidth - New Unit("7px") lblTitle.BorderStyle - 9 lblTitle.Width - New Unit("90%") lblTitle.Font.Size - New FontUnit("25pt") lblTitle.Font.Name - "Arial" Заголовок помещается в элемент управления Label:lblTitle.Text - Application("TitleText") Следует задать параметры и для элемента управления Label, в котором выводится значение общей стоимости объекта: lblTotal.Width - New Unit("90%") lblTotal.BorderWidth - New Unit("4px") lblTotal.BorderStyle - 9 lblTotal.Font.Size - New FontUnit("I2pt") lblTotal.Font.Bold - True
|