【正文】 end. 借書 選擇“圖書借還 /借書”將打開“借書”界面，如圖 54 所示。 圖 54 借書 該界面的源程序如下： implementation uses main。 begin with qrytmp do begin close。 (39。39。 + + 39。39。)。 if recordcount 0 then := fieldbyname(39。).AsString else 。 end。 begin with qrytmp do begin close。 (39。39。 + + 39。39。)。 if recordcount 0 then := fieldbyname(39。).AsString else 。 end。 var LendBookNum: integer。39。讀者編號(hào)不為空??！ 39。 。 end。39。讀者編號(hào)不正確?。?39。 。 end。39。圖書編號(hào)不為空?。?39。 。 end。39。圖書編號(hào)不正確??！ 39。 。 end。 。select * from book where flag=39。f39。 and id=39。39。39。39。 open。num39。此書已借完！ 39。 exit end。 //書庫中的書的數(shù)量限制 結(jié)束 //限制借書數(shù)量 開始 //下面是查詢?cè)O(shè)置的借書數(shù)量 with qrytmp do begin close。 (39。)。 LendBookNum := fieldbyname(39。).AsInteger。 //查詢結(jié)束 //判斷是否符合 with qrytmp do begin close。 (39。39。 + + 39。39。)。 if LendBookNum = recordcount then begin showmessage(39。 + inttostr(LendBookNum) + 39。)。 end。 //判斷結(jié)束 //限制借書數(shù)量 結(jié)束 //符合以上要求 登記借書 with qrytmp do begin close。 (39。)。 append。readerid39。 fieldbyname(39。).AsString := 。bookid39。 fieldbyname(39。).AsString := 。regdate39。 fieldbyname(39。).AsString := username。flag39。f39。 end。 。select * from book where id=39。39。39。39。 open。 fieldbyname(39。).AsInteger := fieldbyname(39。).AsInteger 1。 end。借書成功??！ 39。 clear。 procedure 。 。 。 end。 begin close。 end. 由于篇幅有限，其余的功能如讀者管理和還書操作都不再介紹，該系統(tǒng)的功能請(qǐng)自行到系統(tǒng)中 去探索。我們多采用實(shí)驗(yàn)法。 分調(diào) 分調(diào)包括程序的語法調(diào)試和程序的邏輯檢查。 聯(lián)調(diào) 聯(lián)調(diào)就是按系統(tǒng)的功能模塊進(jìn)行調(diào)試，即將一個(gè)功能內(nèi)所有程序按次序串聯(lián)起來調(diào)試，這種調(diào)試的目的主要是保證內(nèi)部控制關(guān)系正確和數(shù)據(jù)內(nèi)容正確，同時(shí)測(cè)試模塊的運(yùn)行效率。 第 6章結(jié)論 作為一個(gè)完整的系統(tǒng)，聯(lián)機(jī)文檔是其中不可缺少的部分也是相當(dāng)重要的部分。減少誤操作，減少錯(cuò)誤產(chǎn)生的可能，這對(duì)用戶和開發(fā)人員都有很多的好處。 通過實(shí)際開發(fā)管理信息系統(tǒng)，將書本上學(xué)到的知識(shí)與實(shí)際情況結(jié)合起來，解決了實(shí)際工作中的問題，做到了理論與實(shí)踐的統(tǒng)一，在實(shí)踐過程 中進(jìn)一步加深了所學(xué)知識(shí)，使原本零散的、不系統(tǒng)的知識(shí)在系統(tǒng)開發(fā)過程中統(tǒng)一起來，更加明確了開發(fā)管理信息系統(tǒng)的有關(guān)原理和方法，鞏固了理論知識(shí)，提高了實(shí)際工作能力，為今后的開發(fā)工作打下了堅(jiān)實(shí)的基礎(chǔ)。 要感謝的人實(shí)在 很 多 。 感謝 各位 老師 平時(shí) 對(duì)我們的教導(dǎo) ， 你們豐富的授課內(nèi)容拓寬了我的視野 ， 讓我能更順利的完成這篇文章；感謝我的同學(xué)們 ， 你們不僅讓我感受到友情的力量 ， 也謝謝你們對(duì)完成論文的支持和幫助。 參考文獻(xiàn) [1]甘仞初 .信息系統(tǒng)開發(fā) .北京：經(jīng)濟(jì)科學(xué)出版社 ,2020 [2]王珊 . 數(shù)據(jù)庫組織與管理 . 北京：經(jīng)濟(jì)科學(xué)出版社， 2020 [3]薩師煊，王珊 .數(shù) 據(jù)庫系統(tǒng)概論 .北京：高等教育出版社， 2020 [4]閃四清 .數(shù)據(jù)庫系統(tǒng)與應(yīng)用教程 .北京：清華大學(xué)出版社， 2020 [5]王能斌，數(shù)據(jù)庫系統(tǒng)原理。. “REALATIONAL Database Design Using an Objectorientied Methodlogy.”Communications of the ACM 31(April 1998)414427 [12] Florian Iterators for Advanced Query Database Conference 2020:135139 [13] Zeller Zeller,Jim Adaptive Hash Join Algorithm for Multiuser :186197 [14] Davis, Systems Analysis and Design,Wadsnrth,2020 附 錄 附錄 1 主窗體源程序 unit main。 type TFormmain = class(TForm) ADOConnection1: TADOConnection。 N1: TMenuItem。 N3: TMenuItem。 N5: TMenuItem。 N7: TMenuItem。 ToolButton1: TToolButton。 ToolButton4: TToolButton。 ToolButton6: TToolButton。 ToolButton7: TToolButton。 N8: TMenuItem。 N10: TMenuItem。 N12: TMenuItem。 N14: TMenuItem。 N16: TMenuItem。 N18: TMenuItem。 N20: TMenuItem。 N22: TMenuItem。 N24: TMenuItem。 N26: TMenuItem。 ImageList1: TImageList。 procedure FormShow(Sender: TObject)。 procedure N4Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N19Click(Sender: TObject)。 procedure N22Click(Sender: TObject)。 procedure N14Click(Sender: TObject)。 procedure N25Click(Sender: TObject)。 procedure N12Click(Sender: TObject)。 private { Private declarations } public end。圖書管理系統(tǒng) 39。 username: string。 implementation uses login, about, PasswdEdit, EmplManage, BookType, BookManage, reader, readerLook, LendBook, BackBook, lendbooksearch, bookSearch, lendbooksearchtoDay, sysconfig。 begin caption := systemname。 if userlevel 39。 then begin := false。 end。 begin 。 procedure (Sender: TObject)。 end。 begin 。 procedure (Sender: TObject)。重新登陸 39。 end。 begin 。 procedure (Sender: TObject)。 end。 begin 。 procedure (Sender: TObject)。 end。 begin 。 procedure (Sender: TObject)。 end。 begin 。 procedure (Sender: TObject)。 end。 begin 。 procedure (Sender: TObject)。 end。 begin close。 end. 下霸唱本人口滑筆快，編造杜撰出來的？ 其實(shí)我國養(yǎng)貓養(yǎng)狗的歷史長而久矣，也曾遺留下來無數(shù)的養(yǎng)寵秘訣。只見月冷星稀，枯樹荒草，草叢間墳丘起伏，石碑嶙峋，剛才慌不擇路，卻是逃進(jìn)了村后的墳塋之中。前些時(shí)候有數(shù)股粵寇在這一帶出沒，跟官兵惡戰(zhàn)了幾場(chǎng)，才剛剛退去，戰(zhàn)場(chǎng)上積尸數(shù)千。家境稍微富裕的都有碑有棺，那些窮苦人家就沒那么走運(yùn)了，臨死混上口薄棺就不錯(cuò)了，或者干脆直接拿麻席一卷胡亂刨坑埋了，墳包也小得可憐，至于石碑更是能省就省，或是插塊木牌樹枝代替。 到了晚上，烏云遮月的時(shí)候，墳地里鬼火閃動(dòng)，偶爾有一兩只野貓從草間躥出，還有些不知道是鬼哭還是狼嚎的怪異響動(dòng)，不時(shí)從墳地深處傳來，聽得人肌膚起栗。不過一看自己跑到了這片墳地，他心里還真有點(diǎn)打憷，趕緊對(duì)四周的墓碑墳丘作了個(gè)羅圈揖：“各位大哥大姐，小人張三不敢造次，無心驚擾，得罪勿怪，得罪勿怪??” 說著話他轉(zhuǎn)身 就要離去，正在這時(shí)，忽聽身后的一個(gè)墳丘里面?zhèn)鱽硪魂囙?、嘭、嘭的聲音，聽上去好像是有人在使勁撞木板門。 正值中夜，四下里靜得出奇，顯得這撞棺材蓋子的聲音格外驚心動(dòng)魄。剛才他跑過了勁喘個(gè)不停，加上肚里又沒食，實(shí)在是邁不開腿了，當(dāng)下用衣袖抹了抹鼻涕，打量著四周的墳塋，心想這是哪路死鬼跟你家三爺做耍？三爺不是給你們作過揖了嗎，怎么還不依不饒的，想嚇得三爺磕頭求饒不成？ 可那墳中撞擊 棺材的聲音越來越大，張小辮猜想許不是有盜墓掘冢之輩在撬棺材？定要看看是什么作怪。 他三兩步轉(zhuǎn)到墳后，只見這是一座無主新墳，土丘下被人掏了個(gè)大窟窿，那嘭、嘭、嘭的怪聲，正是從那窟窿深處發(fā)出來的。那張臉的腦門上生了一個(gè)橢圓形的大肉瘤，吐著鮮紅的舌頭，嘴邊牙齒上還掛著血跡，雙眼兇光四射，惡狠狠地盯著張小辮。 原來早年間的野狗和現(xiàn)代的野狗大不同，有些野狗的種類在解放后社會(huì)穩(wěn)定下來就逐漸絕跡了。鄉(xiāng)下山野間有種專吃死人的野狗，能聞著死人的臭味在墳上刨洞，刨到棺材了，就用腦袋撞破棺材擋板，然后把棺中死尸拖出來吃肚腸子。長著血瘤的野狗常年吃死人肉，身上尸 氣重，牙齒帶有尸毒，被它咬到了就別想活。窮人的廉價(jià)薄棺，最好的不過是“三寸柏木板”，棺板被這狗頭撞不了幾下就能撞穿?？稍诋?dāng)時(shí)，就連這種三寸板的“狗碰頭”還都供不應(yīng)求。”欲知后事如何，且聽下回分解。那只野狗掏了座新墳，剛剛撞開了棺板，咬得棺中死尸開膛破肚，正要往外拖拽肚腸，忽聽背后有動(dòng)靜，立刻打墳中鉆了