form1.vb

学籍管理系统 源代码 希望大家能用上 谢谢

Public Class Form1
    Dim form2 As New Form2
    Dim objda As SqlClient.SqlDataAdapter
    Dim bindpage As BindingManagerBase
    Dim s As Integer = 0
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static n As Single = 0
        n = n + 1
        form2.Opacity = (50 - n) / 50
        If Form2.Opacity = 0 Then
            Timer1.Stop()
            form2.Close()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        form2.ShowDialog()
    End Sub
    Public Function outof() As Integer
        Dim t As Integer = 0
        If TextBox1.Text.Length > 10 Then
            MessageBox.Show("UserID超过20个字符！")
            t = 1
        ElseIf TextBox2.Text.Length > 20 Then
            MessageBox.Show("Password超过11个字符！")
            t = 1
        End If
        Return t
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim t As Integer = 0
        t = outof()
        If s = 3 Then
            MessageBox.Show("密码错误三次！谢谢使用！")
            Me.Close()
        End If
        Label3.Text = ""
        If t = 1 Then
            MessageBox.Show("输入有误！")
            Label3.Text = "欢 迎 进 入 学 籍 管 理 系 统"
        Else

            Dim objdr As SqlClient.SqlDataReader
            Dim oconn As SqlClient.SqlConnection
            Dim ocmd As SqlClient.SqlCommand
            Dim strsql As String
            Dim str As String
            strsql = "select userid, password from mima where userid='" & TextBox1.Text & "' and password= '" & TextBox2.Text & "'"
            str = "Data Source= JDD;" & " Initial Catalog= student ;" & " User ID=sa;" & " Password=;"
            oconn = New SqlClient.SqlConnection(str)
            ocmd = New SqlClient.SqlCommand()
            With ocmd
                .Connection = New SqlClient.SqlConnection(str)
                .Connection.Open()
                .CommandText = strsql
                objdr = .ExecuteReader
            End With
            If objdr.Read Then
                With objdr
                    Label3.Text = .Item("userid").ToString
                End With
            End If
            If Label3.Text <> "" Then
                Label3.Text = "欢迎" & TextBox1.Text & "进入系统学籍管理系统"

                Me.Opacity = 0
                If Me.Opacity = 0 Then

                    Dim form3 As New Form3
                    form3.Show()
                End If
            ElseIf (TextBox1.Text = "" Or TextBox2.Text = "") Then
                MessageBox.Show("有空项！")

                Label3.Text = "欢 迎 进 入 学 籍 管 理 系 统"
            Else
                MessageBox.Show("UserID or Password 错误！")
                Label3.Text = "欢 迎 进 入 学 籍 管 理 系 统"
                s = s + 1
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        Me.Opacity = 0
        If Me.Opacity = 0 Then
            Dim form4 As New Form4
            form4.Show()
        End If
        
    End Sub

   
End Class