重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
定义一个全局变量,比如 DIm myAuthority As Integer。
创新互联科技有限公司专业互联网基础服务商,为您提供内蒙古服务器托管,高防物理服务器租用,成都IDC机房托管,成都主机托管等互联网服务。
用来存放当前登录用户的权限 myAuthority = Trim(user_SignIn.rs.Fields("用户级别").Value。
通过 Select Case myAuthority 来区分不同的权限。
注销的时候就把 myAuthority 赋值成权限列表中没有的数值就可以了,比如 myAuthority = 99。
要在VB.NET中清屏已经不再是象是在VB6中那么简单使用一条Cls就能搞定的,因为现在的VB.NET已经是完全面向对象的语言了,方法就不能和以前那样了,下面给出清空窗体的源代码,通过单击按钮清空,如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics
g = Me.CreateGraphics
g.Clear(Me.BackColor)
g.Dispose()
'释放对象g所占用的资源
End Sub
OK,程序已经成功实现你要的功能,运行环境VS.NET2003+Windows 2003 Server
欢迎你加入群:30538950进行交流!
您可以调用Me.Hide()方法隐藏Login窗体。
另外,如果您使用新建工程后的那个默认窗体作为Login窗体,那么您只能隐藏这个窗体或修改程序的启动对象。因为VB点虐 默认将创建工程时的那个默认窗体作为程序的主窗体,应用程序的主消息循环就建立在这个窗体上,如果您关闭这个窗体,那么所有的消息泵都会停止,应用程序就会退出。
我比较推荐您将Main窗体设为应用程序的主窗体,这样可以减小资源的占用,当Login完成后就可以释放Login窗体了。
另外,vb点虐 中的me变量相当于C语言中的this指针,它指向当前类。
推荐一个网站,这个网站有很多的教程,而且基本都是附部分代码,可能有一些对您有用的信息。