Study with the several resources on Docsity
Earn points by helping other students or get them with a premium plan
Prepare for your exams
Study with the several resources on Docsity
Earn points to download
Earn points by helping other students or get them with a premium plan
An in-depth look into the design and implementation of a database system using a three-tier architecture. Topics covered include physical database design, deployment model, use case implementation, and layered architecture. The document also includes references to external resources.
Typology: Slides
1 / 69
This page cannot be seen from the preview
Don't miss anything!
countrows = dsPCLAN.Tables("Product").Rows.Count
For Each row As DataRow IndsPCLAN.Tables("Product").Rows Dim prod As New Product
prod.Product_ID = row("PRODUCT_ID") prod.Product_Line_ID=row("PRODUCT_LI NE_ID") prod.Catalog_Item_Name = row("CATALOG_ITEM_NAME").ToString() prod.Product_Actual_Cost = row("PRODUCT_ACTUAL_COST")
prod.Product_Selling_Cost = row("PRODUCT_SELLING_COST") prod.Product_Count = row("PRODUCT_COUNT") prod.Cost_Currency_CD = row("COST_CURRENCY_CD") prod.Product_Status = row("PRODUCT_STATUS").ToString() prod.Manufacturing_Company_Id = row("MANUFACTURING_COMPANY_ID"). ToString() productList.Add(prod)
Next Return productList
myDataColumn = New DataColumn() myDataColumn.DataType = GetType(Decimal) myDataColumn.ColumnName = "Total_Price"
myDataTable.Columns.Add(myDataColum n)
Dim count, index As Integer Dim manComp As New ManufacturingCompany Dim manCompDal As New ManufacturingCompanyDAL prodArray = CType(Current.Session("ProductArray"), ArrayList) count = prodArray.Count
For index = 0 To (count - 1) product = prodArray(index)
manComp = manCompDal.GetManufacturingCompany (product.Manufacturing_Company_Id Dim totalPrice As Decimal totalPrice = totalPrice + (product.Product_Selling_Cost) Dim rowNew As DataRow rowNew = myDataTable.NewRow() rowNew("Product_ID") = product.Product_ID rowNew("Product_Name")= product.Catalog_ Item_Name
