17-07-24, 07:39 AM
PHP كود :
Sub LoadRecords()
Dim i As Integer = 0
Dim total As Double = 0
DataGridView1.Rows.Clear()
cn.Open()
Dim query As String = "SELECT * FROM tblProduct AS p " &
"INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID " &
"INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID " &
"INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID " &
"INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID " &
"INNER JOIN tblType AS t ON p.ProductType = TypeID " &
"WHERE ProductQuantity > 0 AND " & cboFilter.Text & " LIKE '%'+@SearchText+'%'"
dim cm as New SqlCommand(query, cn)
cm.Parameters.AddWithValue("@SearchText", txtSearch.Text )
dim dr as sqldatareader = cm.ExecuteReader()
While dr.Read()
i += 1
total += CInt(dr.Item("ProductQuantity").ToString())
DataGridView1.Rows.Add(i,
dr.Item("ProductID").ToString(),
dr.Item("ProductBarcode").ToString(),
dr.Item("GenericName").ToString(),
dr.Item("BrandName").ToString(),
dr.Item("FromulationName").ToString(),
dr.Item("ClassificationName").ToString(),
dr.Item("TypeName").ToString(),
dr.Item("ProductQuantity").ToString(),
dr.Item("ProductBuyPrice").ToString(),
dr.Item("ProductSalePrice").ToString(),
Format(CDate(dr.Item("ProductDate").ToString()), "yyyy/MM"),
dr.Item("ProductReorder").ToString())
End While
dr.Close()
cm = Nothing
cn.Close()
lblCount.Text = "عدد المنتجات: " & Format(CLng(DataGridView1.Rows.Count), "#,##0") & Space(10) & " كمية المنتجات: " & Format(total, "#,##0")
End Sub
