图书馆管理系统源代码

原作者所以Р若侵犯了您的合法权益，请作者与本上传人联系，我们将及时更正删除。РРIf Trim(Combo1.Text) = "" ThenР MsgBox "请选择图书种类", vbOKOnly + vbExclamation, ""Р Combo1.SetFocusР Exit SubРEnd IfРIf Trim(Text1.Text) = "" ThenР MsgBox "图书编号不能为空", vbOKOnly + vbExclamation, ""Р Text1.SetFocusР Exit SubРEnd IfРIf Trim(Text2.Text) = "" ThenР MsgBox "书名不能为空", vbOKOnly + vbExclamation, ""Р Text2.SetFocusР Exit SubРEnd IfР If Not IsDate(Text5.Text) ThenР MsgBox "请按照yyyy-mm-dd格式输入日期", vbOKOnly + vbExclamation, ""Р Text5.SetFocusР Exit SubР End IfР If Not IsDate(Text6.Text) ThenР MsgBox "请按照yyyy-mm-dd格式输入日期", vbOKOnly + vbExclamation, ""Р Text6.SetFocusР Exit SubР End IfРsql = "select * from 书籍信息 where 书籍编号='" & Text1.Text & "'"Рrs_addbook.Open sql, conn, adOpenKeyset, adLockPessimistic