@Code
Dim db = Database.Open("SmallBakery")
Dim dbdata = db.Query("SELECT Name, Price FROM Product")
Dim myChart = new Chart(600,400) ' 创建一个 600x400 像素的图表
myChart.AddTitle("产品销售")
myChart.AddSeries("员工","column",,,,,dbdata,"Name",dbdata,"Price")
myChart.Write() ' 将图表输出
End Code