网学网为广大网友收集整理了，VB图书馆查询管理系统，希望对大家有所帮助！
三、创建借阅管理窗体模块 1、窗体模块的功能 借阅管理窗体模块主要完成借阅管理的功能，包括借书、续借和还书。工作 人员可以根据使用的需要，依靠单击Tab标签页中的标签分别进入不同的操作。 在“正常借书”的标签页下，工作人员输入读者编号以及书籍编号，系统便 会对这两项信息进行确认，如果确认成功，工作人员只要单击“借出当前图书”按钮，便完成了借书的操作，操作十分简单，该部分的流程图如图3所示。 同样在“续借图书”的标签页下，工作人员输入读者编号，系统便会列出该 读者所借的所有图书，工作人员选择其中要续借的图本后，在“借书日期改为”的日期选择框中选择要修改的借书日期，最后单击“确定”按钮，就完成了图书的续借，该部分的流程图如图4所示。 1、编写窗体代码 按上节介绍的工作流程，主要过程的具体代码如下。 （1）响应“正常借书”中输入读者编号后按下回车的事件，进行读者编号的有效性确认以及读者已借图书信息的显示。代码如下： Private Sub txtBookID_KeyPress(KeyAscii As Integer) ''判断用户按下回车键并且是否输入读者编号和书籍编号 If KeyAscii = "13" And txtReaderID.Text <> "" And txtBookID.Text <> "" Then g_strSql = "select bookInfo.书籍名称,bookInfo.书籍价格,bookInfo.出版社,bookInfo.书籍页码," _ & "bookInfo.是否借出,bookType.书籍类别 from bookInfo,bookType where 书籍编号=''" & txtBookID.Text & "''" _ & " and bookInfo.类别代码=bookType.类别代码" Set g_rs = g_db.OpenRecordset(g_strSql) If Not g_rs.EOF Then txtBookName.Text = g_rs!书籍名称 txtBookPrice.Text = g_rs!书籍价格 txtBookLeibie.Text = g_rs!书籍类别 txtBookConcern.Text = g_rs!出版社 txtBookPage.Text = g_rs!书籍页码 If g_rs!是否借出 = True Then MsgBox "该书已经借出,请选择其它图书!", vbOKOnly, "提示" cmdLendBook.Enabled = False Else cmdLendBook.Enabled = True End If Else MsgBox "没有该书信息!", vbOKOnly, "提示" txtBookName.Text = "" txtBookPrice.Text = "" txtBookLeibie.Text = "" txtBookConcern.Text = "" txtBookPage.Text = "" End If Set g_rs = Nothing ElseIf KeyAscii = "13" And txtReaderID.Text = "" Then MsgBox "请先输入读者编号", vbOKOnly, "提示" ElseIf KeyAscii = "13" And txtReaderID.Text <> "" And txtBookID.Text = "" Then MsgBox "请先输入书籍编号", vbOKOnly, "提示" End If End Sub |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
