BaseMainform.icon = new icon(ProjectPath & "\\images\\3层24.ico")\'设置菜单左上图标

\'隐藏功能菜单

For Each tb As RibbonMenu.Tab In  RibbonTabs

    If tb.visible = True Then

        tb.visible = False

    End If

Next

MainTable = Tables("背景") \'切换主表

forms("背景").open()

\'登录

If OpenFileargs.Count = 1 Then \'如果传递了两个参数

    Dim UserName As String = openFileargs(0) \'获得第一个参数,也就是用户名

    Dim cmd As New SQLCommand

    Dim dt As DataTable

    Dim dr As DataRow

    cmd.C

    If UserName = "" Then

        Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

        Return

    End If

    cmd.CommandText = "S elect * From {Users} Where [Name] = \'" & UserName & "\'"

    dt = cmd.ExecuteReader

    dr = dt.DataRows(0)

End If

Forms("用户登录").Open()

Syscmd.Project.Update(False,True) \'检查是否有更新版本,如果有就提示更新.