frm_adduser.vb

用vb.net+SQL做的,本系统实现了图书管理系统应该具有的特色

        '
        Me.ComboAdmin.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.ComboAdmin.FormattingEnabled = True
        Me.ComboAdmin.Items.AddRange(New Object() {"是", "否"})
        Me.ComboAdmin.Location = New System.Drawing.Point(120, 28)
        Me.ComboAdmin.Name = "ComboAdmin"
        Me.ComboAdmin.Size = New System.Drawing.Size(254, 20)
        Me.ComboAdmin.TabIndex = 2
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(17, 68)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(89, 12)
        Me.Label6.TabIndex = 1
        Me.Label6.Text = "图书管理员权限"
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Location = New System.Drawing.Point(16, 31)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(89, 12)
        Me.Label5.TabIndex = 0
        Me.Label5.Text = "系统管理员权限"
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(23, 100)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(48, 24)
        Me.Label7.TabIndex = 17
        Me.Label7.Text = "地址"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(233, 100)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(48, 24)
        Me.Label8.TabIndex = 18
        Me.Label8.Text = "电话"
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(23, 135)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(48, 24)
        Me.Label9.TabIndex = 19
        Me.Label9.Text = "手机"
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(233, 135)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(48, 24)
        Me.Label10.TabIndex = 20
        Me.Label10.Text = "Email"
        '
        'TxtAddress
        '
        Me.TxtAddress.Location = New System.Drawing.Point(77, 97)
        Me.TxtAddress.MaxLength = 10
        Me.TxtAddress.Name = "TxtAddress"
        Me.TxtAddress.Size = New System.Drawing.Size(120, 21)
        Me.TxtAddress.TabIndex = 21
        '
        'TxtPhone
        '
        Me.TxtPhone.Location = New System.Drawing.Point(287, 97)
        Me.TxtPhone.MaxLength = 10
        Me.TxtPhone.Name = "TxtPhone"
        Me.TxtPhone.Size = New System.Drawing.Size(120, 21)
        Me.TxtPhone.TabIndex = 22
        '
        'TxtCellPhone
        '
        Me.TxtCellPhone.Location = New System.Drawing.Point(77, 132)
        Me.TxtCellPhone.MaxLength = 10
        Me.TxtCellPhone.Name = "TxtCellPhone"
        Me.TxtCellPhone.Size = New System.Drawing.Size(120, 21)
        Me.TxtCellPhone.TabIndex = 23
        '
        'TxtEmail
        '
        Me.TxtEmail.Location = New System.Drawing.Point(289, 135)
        Me.TxtEmail.MaxLength = 10
        Me.TxtEmail.Name = "TxtEmail"
        Me.TxtEmail.Size = New System.Drawing.Size(120, 21)
        Me.TxtEmail.TabIndex = 24
        '
        'ComboStatus
        '
        Me.ComboStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.ComboStatus.FormattingEnabled = True
        Me.ComboStatus.Items.AddRange(New Object() {"正常", "冻结"})
        Me.ComboStatus.Location = New System.Drawing.Point(287, 55)
        Me.ComboStatus.Name = "ComboStatus"
        Me.ComboStatus.Size = New System.Drawing.Size(120, 20)
        Me.ComboStatus.TabIndex = 25
        '
        'frm_AddUser
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(419, 361)
        Me.Controls.Add(Me.ComboStatus)
        Me.Controls.Add(Me.TxtEmail)
        Me.Controls.Add(Me.TxtCellPhone)
        Me.Controls.Add(Me.TxtPhone)
        Me.Controls.Add(Me.TxtAddress)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.TxtName)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.TxtPassword)
        Me.Controls.Add(Me.TxtUserID)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.BtCancel)
        Me.Controls.Add(Me.BtOK)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frm_AddUser"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "添加用户信息"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

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

    Sub addUser()
        MyConnection.Open()
        MyCommand = New OleDbCommand("INSERT INTO SystemUsers VALUES('" & TxtUserID.Text & "','" & TxtName.Text & "','" & TxtPassword.Text & "','" & ComboStatus.Text & "','" & TxtAddress.Text & "','" & TxtPhone.Text & "','" & TxtCellPhone.Text & "','" & TxtEmail.Text & "','" & ComboAdmin.Text & "','" & ComboLib.Text & "','" & ComboGeneral.Text & "')", MyConnection)
        MyCommand.ExecuteNonQuery()
        MyConnection.Close()
        MyCommand.Dispose()
    End Sub
    Function checkIfAlreadyExists() As Boolean
        Dim temp As String
        MyConnection.Open()
        MyCommand = New OleDbCommand("SELECT * FROM SystemUsers WHERE UserID='" & TxtUserID.Text & "'", MyConnection)
        MyReader = MyCommand.ExecuteReader()
        While MyReader.Read
            temp = MyReader("UserID")
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.dispose()
        If temp = TxtUserID.Text Then
            Return True
        Else
            If temp <> TxtUserID.Text Then
                Return False
            End If
        End If
    End Function

    Private Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOK.Click
        If Trim(TxtUserID.Text) = "" Then
            displayMsg("输入的用户编号不能为空！")
            Exit Sub
        End If
        If Trim(TxtName.Text) = "" Then
            displayMsg("输入的用户姓名不能为空！")
            Exit Sub
        End If
        If Trim(TxtPassword.Text) = "" Then
            displayMsg("输入的密码不能为空！")
            Exit Sub
        End If
        If checkIfAlreadyExists() = True Then
            displayMsg("用户编号已经存在请重新输入！")
            Exit Sub
        Else
            addUser()
            displayMsg("用户信息已被成功添加到数据库！")
        End If
    End Sub
    Sub displayMsg(ByVal myMsgText As String)
        MsgBox(myMsgText, MsgBoxStyle.Information, "图书管管理系统")
    End Sub

    Private Sub FrmAddUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboAdmin.SelectedIndex = 0
        ComboLib.SelectedIndex = 0
        ComboGeneral.SelectedIndex = 0
        ComboStatus.SelectedIndex = 0
    End Sub


End Class