For Each dt9 As DataTable In DataTables

    dt9.GlobalHandler.BeforeShowContextMenu = True

Next

If User.Type <> UserTypeEnum.Developer

    TableCaptionVisible = False

End If

\'将来还要加入地区导航 用"地区"区分

If user.IsRole("品牌")  Or user.Type = UserTypeEnum.Developer  Or user.Type = UserTypeEnum.Administrator Then

    Forms("导航栏_按品牌").show

    \'//////将参数设置考虑进来 2021-12-12

    Forms("参数设置").show

ElseIf user.IsRole("店铺")   Then

    Forms("导航栏_按店铺").show

ElseIf user.IsRole("地区")   Then

    Forms("导航栏_按地区").show

End If

Forms("文字菜单").show

Forms("主窗口").show

MainTable = Tables("主表1")

ApplicationTitle = "管理信息系统"

\'---dt1用于生成店铺导航的目录树------------

Dim cmd As New SQLCommand

cmd.ConnectionName = conn

cmd.CommandText = "Sel ect  DISTINCT A,B,C,D  from {目录表B} where [A] = \'按店铺\'"

dt1 = cmd.ExecuteReader()

\'-----店铺登入时的地区值---------

If user.IsRole("店铺") Then

    Dim d1 As String = user.roles \'user.roles返回一个字符串,角色之间用逗号分隔

    Dim d2() As String = d1.Split(",") \'将上述字符串按逗号分隔转换成一个数组

    diqu = d2(1) \'取得角色数组的第二个元素值--地区

End If

\'+++++++生成积分地区集合++++++++++++

jfdqs.Clear

cmd.CommandText = "sel ect count(*) from {积分地区表}"

Dim dt4 As DataTable

If cmd.ExecuteScalar > 0 Then

    cmd.CommandText = "sele ct 地区 from {积分地区表}"

    dt4 = cmd.ExecuteReader

    For Each dr As DataRow In dt4.DataRows

        jfdqs.add(dr("地区"))

    Next

End If

\'++++++给多品牌店铺的品牌集合ppjh赋值+++++++

Dim dt2 As DataTable

\'\'\'取得当前店铺经营的品牌和公司经营品牌集合

ppjh.Clear \'全局变量,店铺标准品牌集合

ppjhF.Clear \'全局变量,店铺非标品牌集合

ppjhQ.Clear \'全局变量,店铺全品牌集合

ppjhc.Clear    \'全局变量,已撤销店铺的曾经营的品牌集合

ppjhs.clear \'全局变量,公司标准品牌集合

ppjhSF.clear \'全局变量,公司非标品牌集合

ppjhsq.clear \'全局变量,公司全品牌集合

\'+++++取得登入店铺的ppjh,此时已撤销店铺在店铺表中已无记录

If user.IsRole("店铺") Then

    cmd.CommandText = " sel ect count(*) from {店铺表S} where 店铺 = \'" & user.Name & "\'"

    If cmd.ExecuteScalar > 0 Then

        cmd.CommandText = " sele ct 店铺,品牌 from {店铺表S} where 店铺 = \'" & user.Name & "\'"

        dt2 = cmd.ExecuteReader

        For Each dr As DataRow In dt2.DataRows

            ppjhQ.add(dr("品牌")) \'\'\'店铺全品牌集合

        Next

        cmd.CommandText = " sel ect 店铺,品牌 from {店铺表s} where 店铺 = \'" & user.Name & "\' and 是否非标 = 0"

        dt2 = cmd.ExecuteReader

        For Each dr As DataRow In dt2.DataRows

            ppjh.add(dr("品牌")) \'\'\'店铺标准品牌集合

        Next

        cmd.CommandText = " sel ect 店铺,品牌 from {店铺表s} where 店铺 = \'" & user.Name & "\' and 是否非标 = 1"

        dt2 = cmd.ExecuteReader

        For Each dr As DataRow In dt2.DataRows

            ppjhF.add(dr("品牌")) \'\'\'店铺非标品牌集合

        Next

    End If

    \'+++++提示登入店铺是否已经撤销+++++++++++++++

    If ppjhQ.count = 0 Then

        MessageBox.Show("该店铺已撤销!","提示") \'后续加上可以进行得操作

    End If

    \'++++++ppjhc 全局变量 已撤销店铺的品牌集合+++++++++++

    Dim dt3 As DataTable \'撤销店铺表

    cmd.CommandText = " selec  t count(*) from {撤销店铺表} where 店铺 = \'" & user.Name & "\'"

    If cmd.ExecuteScalar > 0 Then

        cmd.CommandText = " sele ct 店铺,品牌 from {撤销店铺表} where 店铺 = \'" & user.Name & "\'"

        dt3 = cmd.ExecuteReader

        For Each dr As DataRow In dt3.DataRows

            ppjhc.add(dr("品牌"))

        Next

    Else

    End If

End If

cmd.CommandText = " sele ct  distinct 品牌 from {品牌表S} WHERE 是否非标 = 0 " \'\'\'该品牌表为公司标准品牌表

dt2 = cmd.ExecuteReader

For Each dr As DataRow In dt2.DataRows

    ppjhs.add(dr("品牌")) \'\'\'公司标准品牌集合

Next

cmd.CommandText = " sele ct  distinct 品牌 from {品牌表S} WHERE 是否非标 = 1 " \'\'\'该品牌表为公司非标品牌表

dt2 = cmd.ExecuteReader

For Each dr As DataRow In dt2.DataRows

    ppjhSF.add(dr("品牌")) \'\'\'公司非标品牌集合

Next

cmd.CommandText = " sele ct distinct  品牌 from {品牌表S} " \'\'\'该品牌表Q为公司全品牌表

dt2 = cmd.ExecuteReader

For Each dr As DataRow In dt2.DataRows

    ppjhsq.add(dr("品牌")) \'\'\'公司全品牌集合

Next

\'++++取得系统时间+++++++

cmd.CommandText = "Sel ec t GetDate()" \'得到系统日期,含时间;来自SQL Server函数

dt = cmd.ExecuteScalar() \'返回单个值

XTSJ = cmd.ExecuteScalar() \'返回单个值 系统时间

XTrq = XTSJ.Date   \'返回日期时间值的日期部分

cmd.CommandText = "SEL ECT * from {临时表}"

cmd.ExecuteReader

Dim dt5 As DataTable

Dim dr5 As DataRow

dt5 = cmd.ExecuteReader(True)

If User.Type = UserTypeEnum.Developer Then

    dr5=dt5.AddNew

    dr5("时间") = dt

    dt5.Save

End If

\'----如果升级控制表的行数>0,则则运行命令syscmd.project.update(False,True)------

cmd.CommandText = " Sele ct count(*) from {升级控制表}"

If cmd.ExecuteScalar > 0 Then

    syscmd.project.upd ate(False, True) \'如果没有发现新版本,则不提示用户.,实现静默

End If