form1.vb

学生信息管理系统

        Me.Button2.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button2.Location = New System.Drawing.Point(368, 304)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(72, 40)
        Me.Button2.TabIndex = 3
        Me.Button2.Text = "退出"
        '
        'Button3
        '
        Me.Button3.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button3.Location = New System.Drawing.Point(248, 304)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(72, 40)
        Me.Button3.TabIndex = 4
        Me.Button3.Text = "注册"
        '
        'OleCon
        '
        Me.OleCon.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
        "ocking Mode=1;Data Source=""Student.mdb"";Mode=Share Deny None;Jet OLEDB:Engine Ty" & _
        "pe=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP" & _
        "=False;persist security info=False;Extended Properties=;Jet OLEDB:Compact Withou" & _
        "t Replica Repair=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System " & _
        "Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;User ID=Admin;Jet OL" & _
        "EDB:Global Bulk Transactions=1"
        '
        'OleAda
        '
        Me.OleAda.DeleteCommand = Me.OleDbDeleteCommand1
        Me.OleAda.InsertCommand = Me.OleDbInsertCommand1
        Me.OleAda.SelectCommand = Me.OleDbSelectCommand1
        Me.OleAda.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "用户", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("密码", "密码"), New System.Data.Common.DataColumnMapping("姓名", "姓名"), New System.Data.Common.DataColumnMapping("用户类型", "用户类型"), New System.Data.Common.DataColumnMapping("用户名", "用户名")})})
        Me.OleAda.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM 用户 WHERE (用户名 = ?) AND (姓名 = ? OR ? IS NULL AND 姓名 IS NULL) AND (密码 =" & _
        " ? OR ? IS NULL AND 密码 IS NULL) AND (用户类型 = ? OR ? IS NULL AND 用户类型 IS NULL)"
        Me.OleDbDeleteCommand1.Connection = Me.OleCon
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_用户名", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "用户名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_姓名", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_姓名1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_密码", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "密码", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_密码1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "密码", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_用户类型", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "用户类型", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_用户类型1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "用户类型", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO 用户(密码, 姓名, 用户类型, 用户名) VALUES (?, ?, ?, ?)"
        Me.OleDbInsertCommand1.Connection = Me.OleCon
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("密码", System.Data.OleDb.OleDbType.VarWChar, 50, "密码"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("姓名", System.Data.OleDb.OleDbType.VarWChar, 50, "姓名"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("用户类型", System.Data.OleDb.OleDbType.VarWChar, 50, "用户类型"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("用户名", System.Data.OleDb.OleDbType.VarWChar, 50, "用户名"))
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT 密码, 姓名, 用户类型, 用户名 FROM 用户"
        Me.OleDbSelectCommand1.Connection = Me.OleCon
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE 用户 SET 密码 = ?, 姓名 = ?, 用户类型 = ?, 用户名 = ? WHERE (用户名 = ?) AND (姓名 = ? OR ? " & _
        "IS NULL AND 姓名 IS NULL) AND (密码 = ? OR ? IS NULL AND 密码 IS NULL) AND (用户类型 = ? O" & _
        "R ? IS NULL AND 用户类型 IS NULL)"
        Me.OleDbUpdateCommand1.Connection = Me.OleCon
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("密码", System.Data.OleDb.OleDbType.VarWChar, 50, "密码"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("姓名", System.Data.OleDb.OleDbType.VarWChar, 50, "姓名"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("用户类型", System.Data.OleDb.OleDbType.VarWChar, 50, "用户类型"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("用户名", System.Data.OleDb.OleDbType.VarWChar, 50, "用户名"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_用户名", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "用户名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_姓名", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_姓名1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_密码", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "密码", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_密码1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "密码", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_用户类型", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "用户类型", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_用户类型1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "用户类型", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDs
        '
        Me.OleDs.DataSetName = "DataSet1"
        Me.OleDs.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'Timer1
        '
        Me.Timer1.Enabled = True
        Me.Timer1.Interval = 3000
        '
        'Form1
        '
        Me.AcceptButton = Me.Button1
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(568, 389)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Panel1)
        Me.Name = "Form1"
        Me.Text = "中学生信息管理系统"
        Me.Panel1.ResumeLayout(False)
        CType(Me.OleDs, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        f6.ShowDialog()
    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '登录
        OleAda.SelectCommand.CommandText = "select * from 用户 where 用户名='" & TextBox1.Text & "' and 密码='" & TextBox2.Text & "'"
        If Not OleDs.Tables("A") Is Nothing Then
            OleDs.Tables("A").Clear()
        End If
        OleAda.Fill(OleDs, "A")
        Dim rc As Integer = OleDs.Tables("A").Rows.Count
        If rc = 0 Then
            MsgBox("对不起!您的用户名或密码有错,请重新输入!")
            TextBox1.Clear()
            TextBox2.Clear()
            Exit Sub
        End If
        Class1.name = TextBox1.Text
        Me.Hide()
        f2.Show()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        f10.ShowDialog() '出现欢迎界面
        Class1.con = OleCon
        Class1.ada = OleAda
        Class1.ds = OleDs
        Me.CenterToScreen()
        If Not OleDs.Tables("A") Is Nothing Then
            OleDs.Tables("A").Clear()
        End If
        OleAda.SelectCommand.CommandText = "select * from 用户"
        OleAda.Fill(OleDs, "A")
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = "admin" Then
            ComboBox1.Text = "管理员"
        Else
            ComboBox1.Text = "一般用户"
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        f10.Close()
        Timer1.Enabled = False  ' 关闭欢迎界面
    End Sub
End Class