VBnet图书管理系统

目录

1登录窗体模块组成 (1)

2各窗体介绍 (1)

2.1登录窗口 (1)

2.2登录成功后的主窗口实现 (1)

2.3登录窗口 (1)

2.1登录窗口 (1)

2.1登录窗口 (1)

2.1登录窗口 (1)

2.1登录窗口 (1)

2.1登录窗口 (1)

2.1登录窗口 (1)

2.1登录窗口 (1)

2.1登录窗口 (1)

2.1登录窗口 (1)

2.1登录窗口 (1)

I

I 1登录窗体模块组成

1登录窗口

2数据库连接定义窗口 3读者增加

4学生借书与查询历史窗口 5书籍借阅历史 6主窗口 7读者选择 8增加书籍 9书籍选择 10管理员增加

2各窗体介绍

在窗体Module1.vb 中定义了数据库的连接，每次读完数据库都将数据库连接关闭，在每次需要用到数据库的时候打开连接就可以了，以免以后每次用到数据库都要重新定义连接。其定义如下

Public constr As String = "User ID=sa; Password=; database=homework; server=(local)"

Public mycon As New SqlConnection(constr) Public mycom As SqlCommand Public myda As SqlDataAdapter 2.1 登录窗口

图2登录窗口界面

其登录按钮代码为：

If ComboBox1.Text = "" Or TextBox1.Text = "" Then

MessageBox.Show("用户名或密码不能为空", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 此句的作用是判断用户名或者密码是否为空

Dim sqlstr As String = "select Count(*) from Administrator Where

Name='"

& ComboBox1.SelectedItem & "' and Password='" & TextBox1.Text & "'"

Dim mycom As New SqlCommand(sqlstr, mycon)

If mycom.ExecuteScalar <> 1 Then

Else

MessageBox.Show("恭喜你登录成功!", "提醒", MessageBoxButtons.OK, rmation)

End If

Me.Close()

其作用是当用户名或密码不为空时，将用户名与密码在数据库中进行比对。比对成功就登录成功

其中在管理员登录窗口上姓名一栏已经读入了数据库中现存的管理员用户名，省去了要管理员输入用户名这一步。如果姓名一栏没有显示出名字就说明管理员中就没有此管理员（虽然可以自己输入，但是肯定是错误的用户名）。

在登录窗口中可以分别出来是用户名错误还是用户名正确密码错误，以便管理员更正用户名或者密码来更加方便的登录系统。

2.2登录成功后的主窗口实现

图3登录成功后的主窗口界面

在此窗口中的代码很简单：就只是菜单能在响应单击事件后能弹出窗口一般格式如下（以弹出BookAdd为例）

Dim ps As New BookAdd

ps.StartPosition = FormStartPosition.CenterScreen

ps.Show()

登录成功后就会弹出上面所示的窗口，同时登录窗口退出在窗口顶上注明了登录人的身份。以及一些基本信息（如：姓名,状态,身份）。在主界面上分为：管理员管理,书籍管理,读者管理,查询管理，帮助。在管理员管理,书籍管理,读者管理,查询管理菜单下都有其子菜单，以实现具体的工作，点击就可以弹出相应的菜单执行相应的操作。其中帮组菜单没有子菜单，点击帮助菜单后就会弹出帮助文档（为.html文档）在管理员菜单下的子菜单为：管理员维护，增加管理员。在书籍管理菜单下的子菜单为：新增书籍管理，书籍借阅管理，书籍信息维护。在读者管理菜单下的子菜单为：读者信息增加，读者信息维护，借阅历史查看。在查询管理菜单的子菜单为：书籍信息查询，读者信息查询。

2.3管理员信息维护

II

II

图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

如果以上条件都满足，就进入读取数据库，将数据与输入的信息进行比较，通过比较后的结果给出提示。

2.4管理员增加窗口

在此窗口中通过输入用户名来确定一个用户，并且输入一个密码来进行身份验证。

同样，完成后点击窗口中的“增加”按钮就可以完成管理员增加

管理员增加窗口设计比较简单，仅需输入新用户名，密码，以及一次密码确认就可以增加一个管理员。密码确认的目的是为了防止在新增加管理员的时候误输入密码避免以后的麻烦。

I