圖書(shū)資料管理系統(tǒng)分析與設(shè)計(jì)畢業(yè)論文-資料下載頁(yè)
2025-06-28 18:03本頁(yè)面
【正文】 daddnew_click() on error resume next call clear 39。清除窗體內(nèi)容 dim i as integer dim max as integer max=0 addnewflag=true 39。設(shè)置標(biāo)志位 39。設(shè)置窗體中控件的visible屬性 =false =false =true =true =false 39。設(shè)置cmdaddnew按鈕不可用 39。將指針指向記錄集中的第一條記錄 for i=0 to if maxrsbookinfo(0) then max=rsbookinfo(0) 39。選出最大數(shù) end if 39。指向下一條記錄 next i 39。指向下一條記錄 39。改變窗體的按鈕的可用性 =true =false =false =false =false =false 39。向dcbpubid中加載出版商信息 for i =0 to rspubid(0) if =true then 39。指向最后一條記錄 =0 39。加載默認(rèn)的出版商信息 exit for end if next i 39。向dcbcatid中加載圖書(shū)分類(lèi)信息 for i=0 to rscatid(0) if =true then 39。指向最后一條記錄 =0 39。設(shè)置默認(rèn)值 exit for end if next i 39。添加新記錄 txtbookid=max+1 end sub39。代碼53 學(xué)生信息刪除——“刪除”按鈕單擊事件 39。刪除記錄private sub cmddel_click() on error resume next 39。定義信息提示框 if msgbox(are you sure you wan39。t to delete record,vbokcancel+vbexclamation,deleting record)=vbok then 39。刪除該條記錄 39。指向下一條記錄 if then msgbox last record end if call display 39。顯示學(xué)生信息 end if end sub39。代碼54 圖書(shū)信息查詢(xún)——文本框的keypress事件private sub txtbookid_keypress(keyascii as integer) dim bookno as string 39。獲取圖書(shū)編號(hào) bookno= 39。判斷是否是回車(chē)鍵 if keyascii=13 then clear 39。判斷獲取的圖書(shū)編號(hào)是否是數(shù)字 if not isnumeriv(bookno) then msgboxinvalid search key entered,vbcritical,search error call clear exit sub end if 39。指向第一條記錄 for i=0 to if =true then exit for end if 39。返回圖書(shū)信息 if rsbookinfo(0)=val(trim$(bookno)) then =rsbookinfo(1) =rsbookinfo(2) =rsbookinfo(3) =rsbookinfo(4) exit for end if 39。指向下一條記錄 next if = then 39。若書(shū)名為空，則給出提示 msgboxbook not in stock,vbinformation,search not found 39。 =false clear end if end if end sub39。代碼435 外借圖書(shū)信息查詢(xún)——文本框的keypress事件 private sub txtbookid_keypress(keyascii as integer) dim bookno as string dim issuedate as date dim currdate as date dim totaldaysused as integer dim totalfineamt as integer 39。獲取圖書(shū)編號(hào) bookno= 39。若用戶按回車(chē)鍵 if keyascii=13 then clear 39。若獲取的圖書(shū)編號(hào)不是數(shù)字類(lèi)型 if not isnumeric(bookno) then msgboxinvalid search key entered,vbcritical,search error call clear exit sub end if 39。將指針指向第一條記錄 for i=0 to if =true then 39。若記錄不存在則退出循環(huán) exit for end if 39。返回相關(guān)圖書(shū)信息 if rsissueinfo(0)=val(trim$(bookno)) then =rsissueinfo(2) =format(now,mm/dd/yy) 39。獲取當(dāng)前日期 =rsissueinfo(1) issuedate=cdate() currdate=cdate(format(now,mm/dd/yy)) totaldaysused=datediff(d,issuedate,currdate) if totaldaysusedmaxdays then =true =true totaldaysused=totaldaysusedmaxdays totalfineamt=fineamt * totaldaysused 39。計(jì)算外借天數(shù) 39。 設(shè)置顏色 =vbred =vbred =totaldaysusedamp。days beyond limit =$amp。totalfineamt 39。 返回總天數(shù) else =vbblack =false =false =totaldaysused 39。 使用天數(shù) end if exit for end if 39。 指針下移 next if = then msgboxbook not issued,vbinformation,search not found 39。=false clear end if end if end sub第 49
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1