ass图书馆管理系统设计报告(编辑修改稿)

ass图书馆管理系统设计报告(编辑修改稿)内容摘要：

= select * from 馆藏图书信息 where 书籍编号 =39。 amp。 Findstr amp。 39。 If = 0 Then MsgBox (无此编号图书。 请重新输入。 ) Findstr = InputBox(请输入书籍编号 :, 查找 , ) = select * from 馆藏图书信息 where 书籍编号 =39。 amp。 Findstr amp。 39。 Else Set = Adodc1 End If End Sub Private Sub Command1_Click() If Then = select * from 馆藏图书信息 where 书籍编号 =39。 amp。 amp。 14 39。 If Then = select * from 馆藏图书信息 (0) = (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = MsgBox 添加图书成功 !, vbOKOnly, Else MsgBox 图书编号重复。 , vbOKOnly + vbExclamation, Exit Sub End If Else MsgBox (书籍编号不能为空。 ) End If = select * from 馆藏图书信息 15 End Sub Private Sub Command4_Click() End Sub Private Sub Form_Load() = = = = = = = = = End Sub （ 5）读者信息管理界面设计 ① 读者信息管理界面设计 16 ② 读者类别管理 界面设计 读者信息管理代码实现：包括读者类别管理以及读者信息管理（实现读者以及读者类别的添加、删除、查询） Private Sub mand1_Click() If Text1(0).Text Then = select * from 读者信息表 where 借阅证号 =39。 amp。 Text1(0).Text amp。 39。 If Then = select * from 读者信息表 17 (0) = Text1(0).Text (1) = Text1(1).Text (2) = Text1(2).Text (3) = Text1(3).Text (4) = Text1(4).Text MsgBox 添加读者信息成功 !, vbOKOnly, Else MsgBox 借阅证号重复。 , vbOKOnly + vbExclamation, Text1(0).SetFocus Exit Sub End If Else MsgBox (借阅证号不能为空。 ) Text1(0).SetFocus End If = select * from 读者信息表 End Sub Private Sub Command2_Click() Dim Y As Integer Dim Finds As String Y = MsgBox(你确认要删除该记录。 , 36, 删除记录 ) Finds = InputBox(请输入要删除的读者借阅证号 , 删除记录 , ) If Y = 6 Then 18 If Then End If End If End Sub Private Sub Command3_Click() Dim Findstr As String Findstr = InputBox(请输入读者借阅证号 , 查找 , ) = select * from 读者信息表 where 借阅证号 =39。 amp。 Findstr amp。 39。 If = 0 Then MsgBox (无此编号读者。 请重新输入。 ) Findstr = InputBox(请输入读者借阅证号 , 查找 , ) = select * from 读者信息表 where 借阅证号 =39。 amp。 Findstr amp。 39。 Else Set DataGrid1(1).DataSource = Adodc1 End If End Sub Private Sub Command4_Click() End Sub Private Sub tc_Click() 19 End Sub Private Sub tj_Click() = True End Sub Private Sub sc_Click() Dim Y As Integer Y = MsgBox(你确认要删除该记录。 , 36, 删除记录 )。