主题：启动封面后退出

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) '检查是否有更新版本,如果有就提示更新.