www.pudn.com > studen.rar > Form7.vb

Imports System.Data 
Imports System.Data.SqlClient 
Imports System.IO 
Public Class 登陆 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim st As New student 
        Dim f1 As New 学生管理系统 
        Dim st16 As DataSet 
        st.link() 
        st16 = st.seleusers(TextBox1.Text.Trim()) 
        st16.Tables(0).Rows(0)("password") = st16.Tables(0).Rows(0)("password").trim() 
        If TextBox2.Text.Trim() = st16.Tables(0).Rows(0)("password") Then 
            A = st16.Tables(0).Rows(0)("userlevel").trim 
            MsgBox("通过验证") 
            Me.Close() 
            'If A = 1 Then ' st16.Tables(0).Rows(0)("userlevel") = 1 Then 
            '    f1.Show() 
            '    f1.新建ToolStripMenuItem.Visible = False 
            '    f1.年级管理ToolStripMenuItem.Visible = False 
            '    f1.班级管理ToolStripMenuItem.Visible = False 
            '    f1.综合测评ToolStripMenuItem.Visible = False 
            '    f1.活动管理ToolStripMenuItem.Visible = False 
            '    f1.设置密码ToolStripMenuItem.Visible = False 
            '    f1.基本信息管理ToolStripMenuItem.Visible = False 
            '    f1.综合测评ToolStripMenuItem1.Visible = False 
            '    f1.系统设置ToolStripMenuItem.Visible = False 
 
            'End If 
            'Me.Hide() 
            '学生管理系统.ShowDialog() 
 
        Else 
            MsgBox("没有注册或用户名、密码错误") 
 
        End If 
 
 
    End Sub 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
        Me.Close() 
    End Sub 
 
    Private Sub 登陆_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
 
    End Sub 
End Class