某大学二级学院图书管理系统的设计与开发(1)

某大学二级学院图书管理系统的设计与开发(1)内容摘要：

m_Click() End Sub Private Sub n_Click() 沈阳理工大学课程设计专用纸 End Sub Private Sub Form_Load() End Sub （ 2）进入图书馆管理系统 代码： Private Sub Picture1_Click() End Sub （ 3）图书馆管理信息系统主页面 沈阳理工大学课程设计专用纸 其代码为： Private Sub Command2_Click() End Sub Private Sub Form_Load() End Sub Private Sub mun_查询读者 _Click() End Sub Private Sub mun_删除读者 _Click() 沈阳理工大学课程设计专用纸 End Sub Private Sub mun_添加读者 _Click() End Sub (4)添加读者 代码： Private Sub Command1_Click() (读者 ID) = (读者类型 ) = (读者姓名 ) = 沈阳理工大学课程设计专用纸 If = True Then End If MsgBox 添加读者成功。 , vbOKOnly, 添加 Exit Sub End Sub Private Sub Command2_Click() End Sub Private Sub Text3_Change() End Sub (5)删除读者 沈阳理工大学课程设计专用纸 代码： Private Sub Command1_Click() MsgBox 删除成功 , vbOKOnly, 提示 End Sub Private Sub Command2_Click() 39。 取消 End Sub Private Sub Form_Load() End Sub (6)读者查询 沈阳理工大学课程设计专用纸 代码： Private Sub Command1_Click() Strselect = select * from 读者数据资料表 where 读者 ID = 39。 amp。 amp。 39。 = adCmdText = Strselect Set = Adodc1 If = 0 Then MsgBox 没有找到你要的相关数据 , vbOKOnly + vbI。