数据库原理实验报告

Private Sub Command1_Click() Dim sql As String

Dim rs_login As New ADODB.Recordset

If Trim(txtuser.Text) = \判断输入的用户名是否为空 MsgBox \没有这个用户\ txtuser.SetFocus Else

sql = \系统管理 where 用户名='\ rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then

MsgBox \没有这个用户\ txtuser.SetFocus

Else '检验密码是否正确 If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then userID = txtuser.Text

userpow = rs_login.Fields(2) rs_login.Close Unload Me Main.Show Else

MsgBox \密码不正确\ txtpwd.SetFocus End If End If End If

cnt = cnt + 1 If cnt = 3 Then Unload Me End If Exit Sub

End Sub

Private Sub Command2_Click() Unload Me End Sub

4.2主菜单界面：

思想：管理员和用户均可登入此页面，并且在工具栏设置一个个功能图标，用户可点击相应图标的功能进行操作，即会弹出相应的界面。

图4.1.2系统主菜单界面

当不同身份登录进行特定操作，验证仅当身份选择，用户名，及其对应密码都正确方可成功登录到相应界面。

4.3借书页面

思想：进入借书页面后，用户可输入所要借阅图书的相关信息，点击“借这本书”的按钮，即可完成借阅。

Private Sub Command1_Click()

Dim rs_borrowbook As New ADODB.Recordset

Dim sql As String

sql = \读者信息 where 读者编号='\rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic leibie = rs_borrowbook.Fields(3) shumu = rs_borrowbook.Fields(8) rs_borrowbook.Close

sql = \读者类别 where 种类名称='\rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic qixian = rs_borrowbook.Fields(2) maxnum = rs_borrowbook.Fields(1) rs_borrowbook.Close

If shumu >= maxnum Then

MsgBox \该读者借书数额已满！\ Exit Sub End If

sql = \借阅信息\

rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic rs_borrowbook.AddNew

rs_borrowbook.Fields(1) = Combo1.Text rs_borrowbook.Fields(2) = Combo2.Text rs_borrowbook.Fields(3) = Label8.Caption rs_borrowbook.Fields(4) = Label9.Caption rs_borrowbook.Fields(5) = Date

rs_borrowbook.Fields(6) = DateAdd(\rs_borrowbook.Update rs_borrowbook.Close

sql = \书籍信息 where 书籍编号='\rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic rs_borrowbook.Fields(7) = \是\rs_borrowbook.Update rs_borrowbook.Close

sql = \读者信息 where 读者编号='\rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic rs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1 rs_borrowbook.Update rs_borrowbook.Close

MsgBox \本书借阅成功！\Unload Me End Sub

Private Sub Command2_Click() Unload Me End Sub

4.4借阅查询界面

思想：可按照已借出图书，为借出图书和读者姓名三种信息进行查阅，点击任以选框即可连接借阅信息表进行查阅。

4.5还书界面

思想：分别按照读者信息和书籍信息进行查阅要还的书籍，可连接到借阅信息表来显示。点击“还书”按钮弹出“确定要还这本书吗？”的文本框，点击“是”就可完成还书，而后弹出“成功删除信息”的文本框。

Private Sub Command3_Click() Dim book_num As String Dim reader_num As String Dim answer As String

Dim rs_back As New ADODB.Recordset Dim sql As String

On Error GoTo delerror

book_num = DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark) reader_num = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark)