vb图书管理程序模块及程序代码

《vb图书管理程序模块及程序代码》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

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

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

3、).Value=Trueg_rs.UpdateSetg_rs=NothingMsgBox"借出完毕!",vbOKOnly,"提示"txtBookID.Text=""txtBookName.Text=""txtBookPrice.Text=""txtBookLeibie.Text=""txtBookConcern.Text=""txtBookPage.Text=""InitDataGrid(False)ElseMsgBox"您的书已经借满,不能再借!",vbOKOnly,"提示"EndIfElseMsgBox"请先输入读者编号!",vbOKOnly,"

4、提示"EndIfEndSubPrivateSubcmdOK_Click()g_strSql="select*fromlentInfowhere书籍编号='"&txtBookIDRenew.Text&"'and读者编号='"&txtReaderIDRenew.Text&"'and借书日期=#"&txtLendDate.Text&"#"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("借书日期").Value=dtpLendDateChange.Valueg_rs.UpdateSetg_r

5、s=NothingAdodc1.Recordset.UpdateMsgBox"续借完毕!",vbOKOnly,"提示"EndSubPrivateSubcmdReturn_Click()g_strSql="select*fromlentInfowhere书籍编号='"&txtBookIDReturn.Text&"'and读者编号='"&txtReadIDReturn.Text&"'and借书日期=#"&txtLendDateReturn.Text&"#"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.

6、Fields("还书日期").Value=txtReturnDate.Textg_rs.Fields("超出天数").Value=txtDayCount.Textg_rs.Fields("罚款金额").Value=txtFakuan.Textg_rs.UpdateSetg_rs=Nothingg_strSql="select*frombookInfowhere书籍编号='"&txtBookIDReturn.Text&"'"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("是否借出").

7、Value=Falseg_rs.UpdateSetg_rs=NothingtxtBookIDReturn.Text=""txtBookNameReturn.Text=""txtBookPriceReturn.Text=""txtBookLeibieReturn.Text=""txtBookPageReturn.Text=""txtReadIDReturn.Text=""txtReaderNameReturn.Text=""txtLendDateReturn.Text=""txtDay.Text=""txtReturnDate.Text=""txtFa

8、ctDay.Text=""txtDayCount.Text=""cmdReturn.Enabled=Fals