圖書管理系統(tǒng)實(shí)例ppt課件(編輯修改稿)
2025-02-05 08:36 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 else 在架 end if% /td td%=Rs(username)%/td /tr % 39。 移至記錄組中的下個(gè)記錄loopend if set Rs=nothingset conn=nothing%/table/body/html 查詢網(wǎng)頁(yè)執(zhí)行程序代碼文件名為 。 本頁(yè)程序用于當(dāng)用戶在查詢表單中輸入了要查詢圖書作者名子后將是該作者的圖書顯示出來。代碼清單如下：htmlheadtitle圖書管理 /titlemeta equiv=ContentType content=text/html。 charset=gb2312/headbody bgcolor=FFFFFFtable width=100% border=1 cellspacing=0 bordercolor=000000%dim author,sql,rs,conn,totalput 39。 聲明變量set Rs=() 39。 使用 recordset對(duì)象連接 conn = DBQ= + () + 。DefaultDir=。DRIVER={Microsoft Access Driver (*.mdb)}。39。 判斷查詢變量是否為空值。不為空使用該變量檢索數(shù)據(jù)庫(kù)，為空檢索整個(gè)數(shù)據(jù)庫(kù)if (author) thensql=select * from mytable where author like39。% amp。 author amp。 %39。elsesql=select * from mytableend if sql,conn,1,139。 使用 recordset對(duì)象的 recordcount屬性取得當(dāng)前記錄集的記錄個(gè)數(shù)totalput=if and then 當(dāng)前沒有圖書 ......else% tr td colspan=5符合條件的共有 % totalput 39。 顯示記錄集記錄個(gè)數(shù)%本圖書 /td /tr tr TD圖書編號(hào) /TD td書名 /tdtd作者 /tdtd是否在架 /tdtd借閱人/td/tr%do while not % tr td%=Rs(id)%/td td《 %=Rs(name)%》 /td td%=Rs(author)%/td td%if Rs(islend)= true then 已經(jīng)借出 else 在架 end if% /td td%=Rs
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1