数据库原理实验报告

answer = MsgBox(\确定要还这本书吗？\If answer = vbYes Then

sql = \借阅信息 where 书籍编号='\ rs_back.CursorLocation = adUseClient

rs_back.Open sql, conn, adOpenKeyset, adLockPessimistic rs_back.Delete rs_back.Update rs_back.Close

sql = \书籍信息 where 书籍编号='\ rs_back.CursorLocation = adUseClient

rs_back.Open sql, conn, adOpenKeyset, adLockPessimistic rs_back.Fields(7) = \否\ rs_back.Update rs_back.Close

sql = \读者信息 where 读者编号='\ rs_back.CursorLocation = adUseClient

rs_back.Open sql, conn, adOpenKeyset, adLockPessimistic rs_back.Fields(8) = rs_back.Fields(8) - 1 rs_back.Update rs_back.Close

If findform = True Then Command1_Click Else

Command2_Click End If

MsgBox \成功删除！\ DataGrid1.AllowDelete = False Else

Exit Sub End If delerror:

If Err.Number <> 0 Then MsgBox Err.Description End If

End Sub

Private Sub Command4_Click() Unload Me End Sub

4.6读者信息查询界面

思想：可根据读者编号，读者姓名或读者种类中的一个信息，就可以连接到读者信息表，方便地查阅到相关的读者的具体信息。

Private Sub Command1_Click()

Dim rs_findreader As New ADODB.Recordset Dim sql As String

If Check1.Value = vbChecked Then

sql = \读者编号='\End If

If Check2.Value = vbChecked Then If Trim(sql) = \

sql = \读者姓名='\ Else

sql = sql & \读者姓名='\ End If End If

If Check3.Value = vbChecked Then If Trim(sql) = \

sql = \读者类别='\ Else

sql = sql & \读者类别='\ End If End If

sql = \读者信息 where \rs_findreader.CursorLocation = adUseClient

rs_findreader.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False

Set DataGrid1.DataSource = rs_findreader 'rs_findreader.Close End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load()

Dim rs_find As New ADODB.Recordset Dim sql As String

sql = \读者类别\

rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic If Not rs_find.EOF Then Do While Not rs_find.EOF

Combo1.AddItem rs_find.Fields(0) rs_find.MoveNext Loop

Combo1.ListIndex = 0 End If

rs_find.Close End Sub

4.7图书信息查阅界面

思想：和读者信息查阅相似，点击相应的按钮，连接到图书信息表，即可查阅。

4.8添加读者界面

思想：进入读者信息界面后，按照里面的提示框填入相应的信息，数据库的读者信息即可增加，点击确定按钮就可完成。

Private Sub Command1_Click() Dim sql As String

If Trim(Combo1.Text) = \

MsgBox \请选择读者种类\ Combo1.SetFocus

Exit Sub End If

If Trim(Text1.Text) = \

MsgBox \读者姓名不能为空\ Text1.SetFocus Exit Sub End If

If Trim(Text2.Text) = \

MsgBox \读者编号不能为空\ Text2.SetFocus Exit Sub End If

sql = \读者信息 where 读者编号='\rs_addreader.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_addreader.EOF Then rs_addreader.AddNew

rs_addreader.Fields(0) = Trim(Text1.Text) rs_addreader.Fields(1) = Trim(Text2.Text) rs_addreader.Fields(2) = Trim(Combo2.Text) rs_addreader.Fields(3) = Trim(Combo1.Text) rs_addreader.Fields(4) = Trim(Text3.Text) rs_addreader.Fields(5) = Trim(Text4.Text) rs_addreader.Fields(6) = Trim(Text5.Text) rs_addreader.Fields(7) = CDate(Text6.Text) rs_addreader.Update

MsgBox \添加读者信息成功！\ rs_addreader.Close Else

MsgBox \读者编号重复！\ Text1.SetFocus Text1.Text = \ rs_addreader.Close Exit Sub End If End Sub

Private Sub Command2_Click() Unload Me End Sub

4.9添加图书界面

思想：和添加读者信息的思想类似，按照提示的功能进行填写后即可完成，点击确定和数据库进行连接。

5总结

以上是“图书管理系统”开发的主要过程，图书管理系统实现了对图书管理的科学化，快捷化，适应了现代社会图书馆内图书和用户借阅资料繁多，并且包含很多的信息数据的管理。面对这样庞大的信息量，图书管理系统有效的提高了图书管理工作的效率。通过这样的系统，可以做到信息的规范管理，科学统计和快速查询，从而减少了管理方面的工作量。

6结束语

通过这次系统的开发设计，我对整个开发设计的过程有了一个较为系统的认识，也对SQL与Visuai Basic.net这些优秀的开发工具有了更深的了解和认识，基本掌握如何利用这个开发工具进行简单的开发，也懂得了在软件开发中只有做到理论联系实际，才能开发出较好的应用软件。不钻牛角尖。当遇到障碍的时候，暂时远离电脑，当重新开始工作的时候，也许会发现那些难题现在竟然可以迎刃而解。应当多与别人交流，三人行必有我师。良好的编程风格。注意养成良好的习惯，代码的缩进编排，变量的命名规则要始终保持一致。

通过这次的设计，培养了我们综合运用各门计算机知识的能力，特别是在数据库程序设计、编程技术方面有了长足的进步，对软件系统开发过程、步骤有了比较深刻的认识。我将在今后继续坚持学习，在以后的实践中逐步加以总结和积累，使得系统更加完善。