图书管理系统代码_数据库课题设计图书管理系统

这学期学了数据库这门课，做了一个图书管理系统，采用Visual Basic 6.0 作为开发工具，设计一款友好的图形用户界面、简便操作的图书管理系统。

1. 系统功能设计

开发本系统是实现图书管理系统自动化，帮助图书管理员更好更高效地完成图书管理工作，本系统要完成的功能主要有:

书籍管理部分:图书类别管理和图书信息管理。其中，书籍类别管理包括添加书籍类别、修改书籍类别、删除书籍类别等；书籍信息管理包括书籍信息的添加、修改、查询、删除等。

读者管理部分:读者类别管理和读者信息管理，读者类别管理包括读者类别添加、修改、删除等；读者信息包括读者添加读者信息、修改读者信息、查询读者信息、删除读者信息等。

借阅管理部分:借书信息管理和还书信息管理，借书信息管理、还书信息管理均包括其信息的添加、修改、查询等。

系统管理部分:添加管理员,修改密码,退出系统等操作。

二. 模块设计

书籍管理部分实现对书籍类别、书籍信息的添加、修改、删除等操作。

读者管理部分实现对读者类别、读者信息的添加、修改、删除等操作。

借阅管理部分实现对借书信息、还书信息的添加、修改、查询等操作。

系统管理部分实现对管理员信息的注册，删除，修改等操作。

三. 程序预览

  1. 登录界面及图书管理系统界面

登录界面

主界面

  2. 书籍管理功能

“书籍管理”菜单下有两个一级菜单：“书籍信息管理”和“书籍类别管理”。

2.1 书籍信息管理

2.2 书籍类别管理

 3. 读者管理功能

“读者管理”菜单下有两个一级菜单：“读者类别管理”和“读者信息管理”。

3.1 读者类别管理

3.2 读者信息管理

 

 4. 图书借阅管理功能

“借阅管理”菜单下有2个一级菜单：“借书管理”和“还书管理”。

4.1 借书管理

4.2 还书管理

5.系统管理功能

“系统管理”菜单下有3个子菜单，分别是“添加管理员”、“修改密码”和“退出系统”。

5.1 添加管理员

5.2修改密码

5.3 单击“退出”及退出系统。

  6. 帮助菜单

四.数据库设计

数据库名为book.mdb,在库中设计六张表，它们分别为dzlb(读者类别表)、dzxx(读者信息表)、jyxx(借阅信息表)、sjxx(书籍信息表)、sjlb(书籍类别表)、sys(系统管理表)。

表间关系：

4.1 读者类别表

4.2 读者信息表

4.3 借阅信息表

4.4 书籍类别表

4.5 书籍信息表

4.6 系统管理表

五. 系统代码

5.1 登录界面代码

Private Sub Command1_Click()

Dim sql As String

Dim rss As New ADODB.Recordset

If Trim(Textname.Text) = "" Then

    MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "注意"

    Textname.SetFocus

Else

    sql = "select * from sys where Uname='" & Trim(Textname.Text) & "'"

    rss.CursorLocation = adUseClient

    rss.Open sql, cn, adOpenKeyset, adLockOptimistic

    If rss.EOF = True Then

        MsgBox "没有'" & Trim(Textname.Text) & "'这一用户", vbOKOnly + vbExclamation, "注意"

        Textname.SetFocus

    Else

        If Trim(rss.Fields(1)) = Trim(Textpwd.Text) Then

            MsgBox "恭喜客官，登录成功！", vbOKOnly, "登录"

            loginname = Trim(Textname.Text)

            password = Trim(Textpwd.Text)

            rss.Close

            form1.Show

            Unload Me

        Else

            MsgBox "密码不正确，请检查后重新输入！", vbOKOnly + vbExclamation, "注意"

            Textpwd.SetFocus

            Textpwd.Text = ""

        End If

    End If

End If

cnt = cnt + 1

If cnt = 3 Then

MsgBox "哦！不好，客观你已经登录失败超过三次，系统将自动退出！", vbOKOnly, "登录失败"

Unload Me

End If

End Sub

Private Sub Form_Load()

connstring = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=book;Data Source=XIAOYANG-PC"

cn.Open connstring

cnt = 0

End Sub

5.2 主界面代码

Private Sub book_bl1_add_Click()

 Form12.Show

 End Sub

Private Sub book_bl1_find_Click()

 form13.Show

End Sub

Private Sub book_bl2_lend_Click()

 Form14.Show

End Sub

Private Sub book_m1_add_Click()

 Form2.Show

End Sub

Private Sub book_m1_alter_Click()

 Form3.Show

End Sub

Private Sub book_m1_del_Click()

 Form3.Show

End Sub

Private Sub book_m2_add_Click()

 Form4.Show

End Sub

Private Sub book_m2_alter_Click()

 Form5.Show

End Sub

Private Sub book_m2_del_Click()

 Form5.Show

End Sub

Private Sub book_m2_find_Click()

 Form6.Show

End Sub

Private Sub book_r2_add_Click()

 Form9.Show

End Sub

Private Sub book_r2_alter_Click()

 Form10.Show

End Sub

Private Sub book_r2_del_Click()

 Form10.Show

End Sub

Private Sub book_r2_find_Click()

 Form11.Show

End Sub

Private Sub book_system_er_Click()

 Form15.Show

End Sub

Private Sub book_system_exit_Click()

 End

End Sub

Private Sub book_system_password_Click()

 Form16.Show

End Sub

Private Sub bookr_r1_add_Click()

 Form7.Show

End Sub

Private Sub bookr_r1_alter_Click()

 Form8.Show

End Sub

Private Sub bookr_r1_del_Click()

 Form8.Show

End Sub

Private Sub help_Click()

 form17.Show

End Sub

5.3 新增图书类别代码

Private Sub Command1_Click()

 Dim sql As String

 Dim rs1 As New ADODB.Recordset

 sql = " select * from sjlb where 类别编号= '" & Text1.Text & "' "

 rs1.Ope