@Code
Dim db = Database.Open("SmallBakery") ' 打开名为 "SmallBakery" 的数据库
Dim dbdata = db.Query("SELECT Name, Price FROM Product") ' 从 "Product" 表中选择 "Name" 和 "Price" 列的数据
Dim myChart = new Chart(600,400) ' 创建一个 600x400 像素的图表
myChart.AddTitle("Product Sales") ' 添加图表的标题,标题为 "Product Sales"(产品销售额)
myChart.DataBindTable(dbdata,"Name") ' 将数据绑定到图表,使用 "Name" 列作为 X 轴
myChart.Write() ' 将图表输出
End Code