frmuser.vb

教务管理系统：学生成绩管理

Imports System.Data.SqlClient
Imports System.IO


Public Class FrmUser
    Inherits System.Windows.Forms.Form

    Dim Usertype As Int16
    Dim UserPwd As String

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.ListBox1 = New System.Windows.Forms.ListBox
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.SuspendLayout()
        '
        'ListBox1
        '
        Me.ListBox1.ContextMenu = Me.ContextMenu1
        Me.ListBox1.ItemHeight = 12
        Me.ListBox1.Location = New System.Drawing.Point(8, 8)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(200, 292)
        Me.ListBox1.TabIndex = 0
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "添加用户"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "修改用户"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "删除用户"
        '
        'FrmUser
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(216, 318)
        Me.Controls.Add(Me.ListBox1)
        Me.Name = "FrmUser"
        Me.Text = "用户管理"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub FrmUser_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BindData()
    End Sub
    Public Sub BindData()
        Try
            Dim sql As String = "select userid as '用户名',userpwd as '用户密码',usertype as '用户权限' from userinfo"
            Dim dt As DataTable = GetDataTable(sql)
            ListBox1.DataSource = dt
            ListBox1.DisplayMember = "用户名"
        Catch ex As Exception
            WriteErr(ex)

        End Try

    End Sub


   
    Private Sub DeleteData()

        Dim sql As String = "DELETE FROM USERINFO WHERE USERID= '" + User + "'"

        Dim sqlCmd As New SqlCommand
        sqlCmd.Connection = SqlCon
        sqlCmd.CommandText = sql

        Try
            SqlCon.Open()
            sqlCmd.ExecuteNonQuery()
            MessageBox.Show("删除记录成功")
        Catch ex As Exception
            MessageBox.Show("删除记录失败")
            WriteErr(ex)
        Finally
            SqlCon.Close()
        End Try
        BindData()
    End Sub


    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Dim FrmInsert As New FrmUserInsert
        FrmInsert.Text = "用户添加"
        User = ""
        FrmInsert.ShowDialog()

        If FrmInsert.DialogResult = DialogResult.OK And UserFlag Then
            BindData()
        End If
    End Sub


    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim FrmInsert As New FrmUserInsert
        FrmInsert.Text = "用户修改"
        If ListBox1.SelectedIndex = -1 Then
            MessageBox.Show("请选择用户")
        Else
            User = ListBox1.Text
            FrmInsert.ShowDialog()

            If FrmInsert.DialogResult = DialogResult.OK And UserFlag Then
                BindData()
            End If
        End If
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        If ListBox1.SelectedIndex = -1 Then
            MessageBox.Show("请选择用户")
        Else
            User = ListBox1.Text
            If MessageBox.Show("确定要删除？", "删除确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2) = DialogResult.OK Then
                Me.DeleteData()
            End If
        End If
    End Sub


    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub
End Class