@Code
Dim db = Database.Open("SmallBakery")
Dim dbdata = db.Query("SELECT Name, Price FROM Product")
Dim myChart = new Chart(600,400)
myChart.AddTitle("产品销售")
myChart.DataBindTable(dbdata,"Name")
myChart.Write()
End Code