在登录窗口中可以分别出来是用户名错误还是用户名正确密码错误，以便管理员更正用户名或者密码来更加方便的登录系统。
2登录成功后的主窗口实现
图3登录成功后的主窗口界面
在此窗口中的代码很简单：就只是菜单能在响应单击事件后能弹出窗口一般格式如下（以弹出BookAdd为例）
Dim ps As New BookAdd
ps.StartPosition = FormStartPosition.CenterScreen
ps.Show()
登录成功后就会弹出上面所示的窗口，同时登录窗口退出在窗口顶上注明了登录人的身份。以及一些基本信息（如：姓名,状态,身份）。在主界面上分为：管理员管理,书籍管理,读者管理,查询管理，帮助。在管理员管理,书籍管理,读者管理,查询管理菜单下都有其子菜单，以实现具体的工作，点击就可以弹出相应的菜单执行相应的操作。其中帮组菜单没有子菜单，点击帮助菜单后就会弹出帮助文档（为.html文档）在管理员菜单下的子菜单为：管理员维护，增加管理员。在书籍管理菜单下的子菜单为：新增书籍管理，书籍借阅管理，书籍信息维护。在读者管理菜单下的子菜单为： 读者信息增加，读者信息维护，借阅历史查看。在查询管理菜单的子菜单为：书籍信息查询，读者信息查询。
3管理员信息维护
图4管理员信息维护界面
在进入主界面以后就可以通过（管理员管理管理员信息维护）进入管理员信息维护界面
在管理员信息维护界面可以修改密码
并且在修改密码的时候要求输入原密码进行身份认证，以免被恶意篡改。
更改完成后就点击上面所示窗口的“更新”按钮就可以就新信息写如数据库。
首先判断用户名与密码是否为空，新输入的密码是否两次输入不一样
If CheckData() = False Then
MessageBox.Show("用户名或密码不能为空", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox1.Focus()
Exit Sub
End If
If TextBox3.Text <> TextBox4.Text Then
MessageBox.Show("新密码确认不一致!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox3.Focus()
Exit Sub
End If
如果以上条件都满足，就进入读取数据库，将数据与输入的信息进行比较，通过比较后的结果给出提示。
4管理员增加窗口
在此窗口中通过输入用户名来确定一个用户，并且输入一个密码来进行身份验证。
同样，完成后点击窗口中的“增加”按钮就可以完成管理员增加
管理员增加窗口设计比较简单，仅需输入新用户名，密码，以及一次密码确认就可以增加一个管理员。密码确认的目的是为了防止在新增加管理员的时候误输入密码避免以后的麻烦。
图10管理员增加界面
图5管理员增加
仍然和上面一样，先检查是否输入为空或者是否两次输入密码不一样。如果满足条件就可以进行下面的工作了
Try
If mycon.State = ConnectionState.Closed Then
mycon.Open()
End If
sqlstr = "insert into Administrator values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
mycom2 = New SqlCommand(sqlstr, mycon)