Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 0
If Vars("Val") <> "" Then
    e.Form.Controls("店名").Text = GetConfigValue("店名",Vars("Val"))
End If
Dim pbx As WinForm.PictureBox
pbx = e.Form.Controls("PictureBox1")
pbx.Image = GetImage(GetConfigValue("图片",""))
pbx.SizeMode = ImageSizeMode.StretchImage

If Tables("销售订单").Rows.Count > 0 Then
    Dim r1 As Row = Tables("销售订单").Current
    e.Form.Controls("卡号").Text = "会员卡号:" & r1("会员卡号")
    e.Form.Controls("姓名").Text = "姓名:" & r1("姓名")
    e.Form.Controls("折扣").Text = "折扣:" & r1("折扣")
    Dim dr As DataRow = DataTables("会员资料").Find("会员卡号=\'" & r1("会员卡号") & "\'")
    If dr IsNot Nothing Then
        e.Form.Controls("积分").Text = "积分:" & dr("积分")
    End If
    e.Form.Controls("销售单号").Text ="销售单号:" & r1("销售单号")
    e.Form.Controls("操作员").Text ="操作员:" & r1("操作员")
    e.Form.Controls("销售日期").Text ="销售日期:" & r1("销售日期")
Else
    Forms("主界面").Controls("卡号").Text = "会员卡号:"
    Forms("主界面").Controls("姓名").Text = "姓名:"
    Forms("主界面").Controls("折扣").Text = "折扣:"
    Forms("主界面").Controls("积分").Text = "积分:"
    Forms("主界面").Controls("销售单号").Text ="销售单号:"
    Forms("主界面").Controls("操作员").Text ="操作员:"
    Forms("主界面").Controls("销售日期").Text ="销售日期:"
End If

If Tables("销售订单.销售明细").Rows.Count> 0 Then
    Dim dr As Row = Tables("销售订单").Current
    Dim i As Integer =  Tables("销售订单.销售明细").DataTable.Compute("Count(销售单号)","销售单号=\'" & dr("销售单号") & "\'")
    Dim n1 As Double = Tables("销售订单.销售明细").DataTable.Compute("Sum(售价小计)","销售单号=\'" & dr("销售单号") & "\'")
    Forms("主界面").Controls("销售小计").Text = "销售数量:" & i & "笔" & "    "  & "合计金额:" & n1 &"元"
    Forms("主界面").Controls("销售合计").Text = "共" & n1 & "元"
Else
    Forms("主界面").Controls("销售合计").Text = "共0元"
    Forms("主界面").Controls("销售小计").Text ="消费数量:0 笔   合计金额:0元"
End If

If Tables("主界面_Table2").Rows.Count>0 Then
    e.Form.Controls("销售记录").Text = "销售记录共:" &  Tables("主界面_Table2").DataTable.Compute("Count(销售单号)") & "条"
Else
    e.Form.Controls("销售记录").Text = "销售记录共0条:"
End If
If Tables("主界面_Table3").Rows.Count>0 Then
    e.Form.Controls("销售明细记录").Text = "销售明细记录共:" &  Tables("主界面_Table3").DataTable.Compute("Count(销售单号)") & "条"
Else
    e.Form.Controls("销售明细记录").Text = "销售明细记录共0条:"
End If

If Tables("主界面_会员资料").Rows.Count>0 Then
    e.Form.Controls("会员数量").Text ="目前有会员" & Tables("主界面_会员资料").DataTable.Compute("Count(会员卡号)") & "个"
Else
    e.Form.Controls("会员数量").Text ="目前有会员0个"
End If

If Tables("主界面_礼品赠送").Rows.Count>0 Then
    e.Form.Controls("赠送记录").Text = "赠送记录共:" &  Tables("主界面_礼品赠送").DataTable.Compute("Count(赠送单号)") & "条"
Else
    e.Form.Controls("赠送记录").Text = "赠送记录共0条:"
End If
If Tables("主界面_礼品赠送明细").Rows.Count>0 Then
    e.Form.Controls("赠送明细记录").Text = "赠送明细记录共:" &  Tables("主界面_礼品赠送明细").DataTable.Compute("Count(赠送单号)") & "条"
Else
    e.Form.Controls("赠送明细记录").Text = "赠送明细记录共0条:"
End If

Dim tv1 As WinForm.TreeView
tv1 =Forms("主界面").Controls("TreeView1")
tv1.BuildTree("类别", "类别|类别明细")

If Tables("主界面_商品资料").Rows.Count>0 Then
    e.Form.Controls("库存条数").Text = "商品共有:" &  Tables("主界面_商品资料").DataTable.Compute("Count(商品编号)") & "条记录"
    e.Form.Controls("库存数量").Text = "商品共有数量:" &  Tables("主界面_商品资料").DataTable.Compute("Sum(库存数量)")
Else
    e.Form.Controls("库存条数").Text = "商品共有:0条记录"
    e.Form.Controls("库存数量").Text = "商品共有数量:0"
End If