g.Decimals = 2 g.Build()
Tables(\统计表1\MainTable = Tables(\统计表1\With Forms(\返回\
.OpenTo(\统计表1\
.Controls(\学生成绩\
.Controls(\提示：统计各科目的最高分、最低分和平均分。\ .Controls(\返回成绩表\End With
MainTable.Focus()
A分组统计_AfterLoad
For Each frm As WinForm.Form In Forms '关闭本表其他窗口
If frm.TableName = e.Form.TableName Andalso frm.Opened Then If frm.Name <> \导航\ frm.Close End If End If Next
With Tables(\订单\ .StopRedraw() .Filter = \
.ClearSubtotal() .ResumeRedraw() End With
A分组统计_Button1_Click '''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\产品\g.Totals.AddDef(\数量\g.Totals.AddDef(\金额\g.VerticalTotal = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
Forms(\返回\提示: 不同产品的销售数量和金额。\MainTable.Focus()
A分组统计_Button2_Click '''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\客户\g.Totals.AddDef(\数量\g.Totals.AddDef(\金额\g.VerticalTotal = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
46
Forms(\返回\提示: 不同客户的订购数量和金额。\MainTable.Focus()
A分组统计_Button3_Click
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\日期\年\g.Groups.AddDef(\日期\月\g.Totals.AddDef(\数量\g.Totals.AddDef(\金额\g.VerticalTotal = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
Forms(\返回\提示: 每月销售数量和金额.\MainTable.Focus()
A分组统计_Button4_Click '''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\产品\
g.Groups.AddDef(\日期\年\g.Totals.AddDef(\数量\g.Totals.AddDef(\金额\g.VerticalTotal = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
Forms(\返回\提示: 按年汇总不同产品的销售数量和金额。\MainTable.ShowCell(0, 0) '显示第一行 MainTable.Focus()
A分组统计_Button6_Click '''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\产品\
g.Groups.AddDef(\日期\年\
g.Groups.AddDef(\日期\季度\g.Totals.AddDef(\数量\g.Totals.AddDef(\金额\g.VerticalTotal = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
Forms(\返回\提示: 按季度统计产品的销售数量和金额。\MainTable.ShowCell(0, 0) '显示第一行 MainTable.Focus()
A分组统计_Button7_Click
47
'''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\客户\g.Groups.AddDef(\产品\g.Totals.AddDef(\数量\g.VerticalTotal = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
Forms(\返回\提示: 每个客户订购不同产品的数量和金额。\MainTable.ShowCell(0, 0) '显示第一行 MainTable.Focus()
A环比分析_AfterLoad
For Each frm As WinForm.Form In Forms '关闭本表其他窗口
If frm.TableName = e.Form.TableName Andalso frm.Opened Then If frm.Name <> \导航\ frm.Close End If End If Next
With Tables(\订单\ .StopRedraw() .Filter = \
.ClearSubtotal() .ResumeRedraw() End With
A环比分析_Button1_Click '''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\日期\年\g.Totals.AddDef(\数量\g.CircleGrowth = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
Forms(\返回\提示: 各年的产品销量，以及相对上年的环比增长率。\MainTable.Focus()
A环比分析_Button2_Click '''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\日期\年\g.Groups.AddDef(\日期\月\g.Totals.AddDef(\数量\g.CircleGrowth = True g.Build()
MainTable = Tables(\统计表1\
48
Forms(\返回\统计表1\
Forms(\返回\提示: 各月的产品销量，以及相对上月的环比增长率。\MainTable.Focus()
MainTable.ShowCell(0,0)
A环比分析_Button3_Click '''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\日期\年\g.Groups.AddDef(\日期\季度\g.Totals.AddDef(\数量\g.CircleGrowth = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
Forms(\返回\= \提示: 各季度的产品销量，以及相对上季度的环比增长率。\MainTable.Focus()
A环比分析_Button4_Click '''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\产品\
g.Groups.AddDef(\日期\年\g.Groups.AddDef(\日期\季度\g.Totals.AddDef(\数量\g.CircleGrowth = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
Forms(\返回\提示: 各产品在每季度的销量，以及相对上季度的环比增长率。\
MainTable.Focus()
MainTable.ShowCell(0,0)
A环比分析_Button5_Click '''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\日期\年\g.Groups.AddDef(\日期\季\g.Totals.AddDef(\数量\销量_值\g.Totals.AddDef(\金额\金额_值\g.CircleGrowth = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
Forms(\返回\提示: 按季度统计产品销量和金额，以及相对上季度的环比增长率。\
MainTable.Focus()
49
A环比分析_Button6_Click '''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\产品\
g.Groups.AddDef(\日期\年\g.Groups.AddDef(\日期\月\g.Totals.AddDef(\数量\g.CircleGrowth = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
Forms(\返回\= \提示: 各产品在每月的销量，以及相对上月的环比增长率。\MainTable.Focus()
MainTable.ShowCell(0,0)
A截止统计_AfterLoad
For Each frm As WinForm.Form In Forms '关闭本表其他窗口
If frm.TableName = e.Form.TableName Andalso frm.Opened Then If frm.Name <> \导航\ frm.Close End If End If Next
With Tables(\订单\ .StopRedraw() .Filter = \
.ClearSubtotal() .ResumeRedraw() End With
A截止统计_Button1_Click '''
Dim g As New GroupTableBuilder(\统计表1\订单\g.Groups.AddDef(\日期\季度\g.Totals.AddDef(\数量\本季度_销量\
g.Totals.AddDef(\数量\截止本季度_销量\
g.Filter = \日期 >= #1/1/2010# And 日期 <= #12/31/2010#\g.GrandProportion = True g.Build()
MainTable = Tables(\统计表1\
Forms(\返回\统计表1\
Forms(\返回\提示： 2010年各季度销量，以及截止到此季度的累计销量；\
\并计算出该季度销量在全年销量中所占的比例，已经以及截止到该季度为止的累计销量在全年销量中所占的比例。\
MainTable.Grid.ShowCell(1, 1) MainTable.Focus()
A截止统计_Button2_Click
50