frmaddadmin.vb

图书管理系统,用来管理图书的借还,以及借阅超过时间进行处罚,和管理员用户权限

        Me.Label3.Size = New System.Drawing.Size(56, 24)
        Me.Label3.TabIndex = 20
        Me.Label3.Text = "班级："
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(40, 53)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(56, 24)
        Me.Label2.TabIndex = 19
        Me.Label2.Text = "口令："
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(32, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(64, 24)
        Me.Label1.TabIndex = 18
        Me.Label1.Text = "登录名："
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'GroupBox1
        '
        Me.GroupBox1.ForeColor = System.Drawing.Color.Red
        Me.GroupBox1.Location = New System.Drawing.Point(16, 8)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(256, 320)
        Me.GroupBox1.TabIndex = 36
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "添加管理员"
        '
        'cbadmin
        '
        Me.cbadmin.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cbadmin.Location = New System.Drawing.Point(88, 296)
        Me.cbadmin.Name = "cbadmin"
        Me.cbadmin.Size = New System.Drawing.Size(128, 24)
        Me.cbadmin.TabIndex = 148
        Me.cbadmin.Text = "是否超级管理员"
        '
        'tbtelno
        '
        Me.tbtelno.Location = New System.Drawing.Point(96, 272)
        Me.tbtelno.Name = "tbtelno"
        Me.tbtelno.Size = New System.Drawing.Size(152, 21)
        Me.tbtelno.TabIndex = 147
        Me.tbtelno.Text = ""
        '
        'Label15
        '
        Me.Label15.ForeColor = System.Drawing.Color.Black
        Me.Label15.Location = New System.Drawing.Point(32, 272)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(56, 24)
        Me.Label15.TabIndex = 146
        Me.Label15.Text = "电话："
        Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label8
        '
        Me.Label8.ForeColor = System.Drawing.Color.Black
        Me.Label8.Location = New System.Drawing.Point(32, 144)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(56, 24)
        Me.Label8.TabIndex = 150
        Me.Label8.Text = "性别："
        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'tbsex
        '
        Me.tbsex.Location = New System.Drawing.Point(96, 148)
        Me.tbsex.Name = "tbsex"
        Me.tbsex.Size = New System.Drawing.Size(152, 21)
        Me.tbsex.TabIndex = 151
        Me.tbsex.Text = ""
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=郭洪博;packet size=4096;integrated security=SSPI;initial catalog=book" & _
        "s;persist security info=False"
        '
        'frmaddadmin
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(408, 365)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.tbsex)
        Me.Controls.Add(Me.bnCancle)
        Me.Controls.Add(Me.bnClean)
        Me.Controls.Add(Me.bnAdd)
        Me.Controls.Add(Me.tbStudNo)
        Me.Controls.Add(Me.tbClass)
        Me.Controls.Add(Me.tbEmail)
        Me.Controls.Add(Me.tbUsername)
        Me.Controls.Add(Me.tbPwdConfirm)
        Me.Controls.Add(Me.tbPwd)
        Me.Controls.Add(Me.tbLoginname)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Label15)
        Me.Controls.Add(Me.tbtelno)
        Me.Controls.Add(Me.cbadmin)
        Me.Controls.Add(Me.GroupBox1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmaddadmin"
        Me.Text = "----------添加管理员"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub bnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnAdd.Click
        Dim strLoginname As String = tbLoginname.Text.Trim()
        Dim strPwd As String = tbPwd.Text.Trim()
        Dim strPwdConfirm As String = tbPwdConfirm.Text.Trim()
        Dim strUsername As String = tbUsername.Text.Trim()
        Dim strEmail As String = tbEmail.Text.Trim()
        Dim strClass As String = tbClass.Text.Trim()
        Dim strStudNO As String = tbStudNo.Text.Trim()
        Dim strsex As String = tbsex.Text.Trim
        Dim strtelno As String = tbtelno.Text.Trim


        Dim isAdmin As Integer
        If cbAdmin.Checked Then
            isAdmin = 0
        Else
            isAdmin = 1
        End If

        '检测是否有没有填写的项，要求全部填写
        If strLoginname = "" Or strPwd = "" Or strPwdConfirm = "" Or strUsername = "" Or strEmail = "" Or strClass = "" Or strStudNO = "" Or strsex = "" Then

            MessageBox.Show("请填写！")
            Exit Sub
        End If

        '检测两次输入的口令是否相等
        If strPwd <> strPwdConfirm Then
            MessageBox.Show("两次输入口令不等！")
            Exit Sub
        End If

      
        'workstation id=郭洪博;packet size=4096;integrated security=SSPI;initial catalog=books;persist security info=False

        '输入值完整并可用，插入记录到数据库
        Dim strSource As String = "workstation id=郭洪博;packet size=4096;integrated security=SSPI;initial catalog=books;persist security info=False"
        Dim strinsert As String = "insert into admin values('" + strLoginname + "','" + strPwd + "','" + strUsername + "','" + strsex + "','" + strClass + "','" + strStudNO + "','" + strEmail + "','" + strtelno + "'," + isAdmin.ToString() + ")"
        ' Dim strInsert As String = "insert into admin values('" + strLoginname + "','" + strPwd + "','" + strUsername + "','" + strsex + "','" + strClass + "','" + strStudNO + "','" + strEmail + "','" + strtelno + "'," + isAdmin + ")"

        Dim conn As New SqlConnection(strSource)
        Try
            conn.Open()
            Dim cmd As New SqlCommand(strInsert, conn)
            Dim ret As Integer = cmd.ExecuteNonQuery()
            If ret <> 1 Then
                MessageBox.Show("添加用户失败！")
            Else
                MessageBox.Show("添加用户成功！")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString + "添加用户失败！")
        End Try
      
        conn.Close()
        clearTb()
    End Sub
    Private Sub clearTb()
        tbLoginname.Clear()
        tbPwd.Clear()
        tbPwdConfirm.Clear()
        tbUsername.Clear()
        tbEmail.Clear()
        tbClass.Clear()
        tbStudNo.Clear()
        tbtelno.Clear()
        tbsex.Clear()
        cbAdmin.Checked = False
    End Sub
    Private Sub bnClean_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnClean.Click
        clearTb()
    End Sub

   
    Private Sub bnCancle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnCancle.Click
        Me.Close()
    End Sub

    Private Sub frmaddadmin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub tbLoginname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbLoginname.TextChanged

    End Sub
End Class