代码清单.docx

1、代码清单代码清单1借书业务Private Sub cmdissue_Click() If trim(txtmemid) =or Trim(txtbookid)=ThenMsgbox缺少会员编号或书本编号!、binformation、 注意 Else检测是否超出最大允许帐户欠款数额If val（lblfinebal.caption）M.maxfinebal Then Msgbox 您的帐户欠款超额,借书前请付清罚款。,vbinformation,注意 txtbookid.text = txtmemid.stfocus exit subEnd if 检测是否超出最大允许借书数量If val(lbo

2、oks.caption)=M.totalissuebook then Msgbox您的借书数量已超出最大允许值。、vbinformantion、注意 Txtbookid.text = Txtmemid.setfocus Exit subEnd ifIf Ucase(lblisin.caption)=FALSEthen Msgbox图书馆中没这本书。、vbinformation、注意 Txtbookid.text = Txtmemid.setfocus Exit subEnd ifIf Ucase(lblisin.caption)=MISSINGthen Msgbox书籍已丢失、vbinform

3、ation、注意 Txtmemid.setfocus Exit subEnd ifIf not lblres.caption=0And Trim(lbres.caption) _ Trim(txtmemid.text) then msgbox这本书已破损& lbres.caption &预定、_ vbinformation、注意 Txtbookid.text = Txtmemid.setfocus Exit subEnd if获取当前书本所属主题dim adoprimaryrsl As recordsetset adoprimaryrsl =new recordsetadoprimaryrsl

4、.openslect subject from titles where&_ titleid =&lbltitle.caption &、_ db、adopenstatic、 adlockoptimisticsubj = adoprimarysl.fields（0）获取此主题的最大出借天数dim adoprimaryrs2 As recordsetset adoprimaryrs2 =new recordsetadoprimaryrs2.openslect issuedays、nooks、finecharge，&_ resecharge、issuedays from sbjects &_ whe

5、re subject=& sbj &、_ db、adopenstatic、 adlockoptimisticnootfdaysx = adoprimaryrs2.fidldset(4)dim adoprimaryrs3 As recordsetset adoprimaryrs3 =new recordsetadoprimaryrs4.openslect titleid from books where & _memberid=& trim(txtmend.text) &、_db、adopenstatic、 adlockoptimisticdim adoprimaryrs4 As records

6、etset adoprimaryrs4 =new recordset获取用户借阅当前主题的册书while not adoprimaryrs3.EOF adoprimaryrs4.openslect subject from titles where&_ titleid =& adoprimaryrs3. fields(0) & _ 、db、adopenstatic、 adlockoptimistic if subj = adoprimaryrs4. fields(0) then counter = counter + 1 End if adoprimaryrs3.movenext adopri

7、maryrs4.closeWendIf counter = adoprimaryrs2. fields(1) then Msgbox 用户已在当前主题借阅的图书超出最大允许值。、_ vbinformation、注意 Txtbookid.text = Txtmemid.setfocus Exit subEnd if可以借书更新所借书本的信息dim adoprimaryrs5 As recordsetset adoprimaryrs5 =new recordsetadoprimaryrs5.openslect memberd、bookid ISIN、returndate&_ from books、

8、db、adopenstatic、 adlockoptimisticadoprimaryrs5.find(bookid=& txtbookid.text &)adoprimaryrs5.finds(0) = trim(textmid)adoprimaryrs5.finds(2) = False计算归还日期adoprimaryrs5.finds(3) = dataadd(d、noofdaysx、data)adoprimaryrs5.update计算归还日期lbreturn.caption = dataadd(d、noofdaysx、data)更新会员的借阅信息dim adoprimaryrs6 A

9、s recordsetset adoprimaryrs6 =new recordsetadoprimaryrs6.openslect membeid、booksinhand、finebal&_ from members where memberd=&_ trim(textmid. Text) &、ab、_ adopenstatic、 adlockoptimisticIf lblres.caption= Trim(txtmemid.text) then adoprimaryrs6.finds(2) = adoprimaryrs6.finds(1) +_ adoprimaryrs2.finds(4

10、)End ifadoprimaryrs6.finds(1) = adoprimaryrs6.finds(1) +_adoprimaryrs6.updatetxtbookid_lostfocustxtbookid.setfocusEnd if End sub2.还书业务Private Sub cmdreturn Click() dim adoprimaryrsl As recordset dim adoprimaryrs11 As recordset dim adoprimaryrs12 As recordset dim adoprimaryrsl3 As recordset set adopr

11、imaryrsl =new recordset adoprimaryrs1.openslect memberid、bookid ISIN、returndate&_issuecounter from books where memberd=&_trim(textmid. Text) &and bookid=&_trim(textmid. Text) &、ab、_adopenstatic、 adlockoptimisticIf adoprimaryrsl.recount = 0 then Msgbox 会员:& textmid & 并没有借这本书:&_ Txtbookid、vbinformatio

12、n Exit subEnd ifIf adoprimaryrsl. finds(2) = trun then Msgbox 书:& txtbookid & 已经归还图书馆.vbinformation Exit subEnd if获取书籍原定归还日期returndate = adoprimaryrs1.finds(3)If returndate data then 借书超期 获取超期天数 Finedays = datadiff(d、returndate 、data) 获取当前书籍的主题 set adoprimaryrsl1 =new recordset adoprimaryrs11.opensl

13、ect subject form tiles where&_ tileid =& lbitle.caption &、_ db、adopenstatic、 adlockoptimisticsubj = adoprimaryrs11.finds(0)adoprimaryrs12.openslect issuedays、subject、finecharge&_ form subject where subject =& subj &_ 、db、adopenstatic、 adlockoptimistic获取超期单位罚款数额Finecharge = adoprimaryrs12.finds(2)Msg

14、box 当前会员持有书籍:& txtbookid & 超过&_ 天、需要支付:& Finedays * finecharge &_ vbinformation、超期set adoprimaryrsl3 =new recordsetadoprimaryrsl3 openslect membeid、booksinhand、finebal&_ from members where memberd=&_ trim(textmid. Text) &、ab、_ adopenstatic、 adlockoptimistic借书数_1adoprimaryrs13.finds(1) = adoprimaryrs13.finds(1) 1罚款数额计算adoprimaryrs13.finds(2) = adoprimaryrs13.finds(2) + _ (Finedays * finecharge)书籍存在于图书馆中adoprimaryrs1.finds(2) = turnadoprimaryrs1.finds(0) = 0adoprimaryrs13.updateadoprimaryrs1. updateElse书籍按时归还set adoprimaryrs13 =new recordsetadoprimaryrsl3 openslect membei