VB图书管理程序模块及程序代码.docx

《VB图书管理程序模块及程序代码.docx》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、主窗体及代码PrivateSubchkQuery_Click()IfchkQuery.Value=1ThentxtQueryBookID.Enabled=TrueElsetxtQueryBookID.Enabled=FalseEndIfEndSubPrivateSubcmdLendBook_Click()IftxtReaderID.Text<>""ThenIflblRemain.Caption<>"0"Then'判断是否已经借满Setg_rs=g_db.OpenRecordset("lentInfo",d

2、bOpenTable)Withg_rs.AddNew.Fields("读者编号")=txtReaderID.Text.Fields("书籍编号")=txtBookID.Text.Fields("借书日期")=dtpLendDate.Value.UpdateEndWithSetg_rs=Nothing'更新bookInfo表,设置该书是否借出属性为"借出"g_strSql="select*frombookInfowhere书籍编号='"&txtBookID.Text&"'"Setg_rs=g_db.Open

3、Recordset(g_strSql)g_rs.Editg_rs.Fields("是否借出").Value=Trueg_rs.UpdateSetg_rs=NothingMsgBox"借出完毕!",vbOKOnly,"提示"txtBookID.Text=""txtBookName.Text=""txtBookPrice.Text=""txtBookLeibie.Text=""txtBookConcern.Text=""txtBookPage.Text=""InitDataGrid(False)ElseMsg

4、Box"您的书已经借满,不能再借!",vbOKOnly,"提示"EndIfElseMsgBox"请先输入读者编号!",vbOKOnly,"提示"EndIfEndSubPrivateSubcmdOK_Click()g_strSql="select*fromlentInfowhere书籍编号='"&txtBookIDRenew.Text&"'and读者编号='"&txtReaderIDRenew.Text&"'and借书日期=#"&txtLendDate.Text&"#"Setg_rs=g_db.OpenRe

5、cordset(g_strSql)g_rs.Editg_rs.Fields("借书日期").Value=dtpLendDateChange.Valueg_rs.UpdateSetg_rs=NothingAdodc1.Recordset.UpdateMsgBox"续借完毕!",vbOKOnly,"提示"EndSubPrivateSubcmdReturn_Click()g_strSql="select*fromlentInfowhere书籍编号='"&txtBookIDReturn.Text&"'and读者编

6、号='"&txtReadIDReturn.Text&"'and借书日期=#"&txtLendDateReturn.Text&"#"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("还书日期").Value=txtReturnDate.Textg_rs.Fields("超出天数").Value=txtDayCount.Textg_rs.Fields("罚款金额").Value=txtFakuan.Textg_rs.UpdateSetg_rs=

7、Nothingg_strSql="select*frombookInfowhere书籍编号='"&txtBookIDReturn.Text&"'"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("是否借出").Value=Falseg_rs.UpdateSetg_rs=NothingtxtBookIDReturn.Text=""txtBookNameReturn.Text=""txtBookPriceReturn.Text=""txtBoo

8、kLeibieReturn.Text=""txtBookPageReturn.Text=""txtReadIDReturn.Text=""txtReaderNameReturn.Text=""txtLendDateReturn.Text=""txtDay.Text=""txtReturnDate.Text=""txtFactDay.Text=""txtDayCount.Text=""cmdReturn.Enabled=Fals