【正文】 百例 .北京 :機械工業(yè)出版社 .. [9] 喬建行 ,陶川 .Delphi 項目案例導航 .北京 :科學出版社 .. [10] Davis, Systems Analysis and Design,Wadsnrth,2020 [11] Blana,M.,:,amp。. “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。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ComCtrls, ToolWin, ExtCtrls, ImgList, jpeg。 type TFormmain = class(TForm) ADOConnection1: TADOConnection。 MainMenu1: TMainMenu。 N1: TMenuItem。 N2: TMenuItem。 N3: TMenuItem。 N4: TMenuItem。 N5: TMenuItem。 N6: TMenuItem。 N7: TMenuItem。 ToolBar1: TToolBar。 ToolButton1: TToolButton。 ToolButton2: TToolButton。 ToolButton4: TToolButton。 ToolButton5: TToolButton。 ToolButton6: TToolButton。 ToolButton3: TToolButton。 ToolButton7: TToolButton。 StatusBar1: TStatusBar。 N8: TMenuItem。 N9: TMenuItem。 N10: TMenuItem。 N11: TMenuItem。 N12: TMenuItem。 N13: TMenuItem。 N14: TMenuItem。 N15: TMenuItem。 N16: TMenuItem。 N17: TMenuItem。 N18: TMenuItem。 N19: TMenuItem。 N20: TMenuItem。 N21: TMenuItem。 N22: TMenuItem。 N23: TMenuItem。 N24: TMenuItem。 N25: TMenuItem。 N26: TMenuItem。 Panel1: TPanel。 ImageList1: TImageList。 Image1: TImage。 procedure FormShow(Sender: TObject)。 procedure N2Click(Sender: TObject)。 procedure N4Click(Sender: TObject)。 procedure N5Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N17Click(Sender: TObject)。 procedure N19Click(Sender: TObject)。 procedure N20Click(Sender: TObject)。 procedure N22Click(Sender: TObject)。 procedure N13Click(Sender: TObject)。 procedure N14Click(Sender: TObject)。 procedure N16Click(Sender: TObject)。 procedure N25Click(Sender: TObject)。 procedure N26Click(Sender: TObject)。 procedure N12Click(Sender: TObject)。 procedure ToolButton7Click(Sender: TObject)。 private { Private declarations } public end。 const systemname = 39。圖書管理系統(tǒng) 39。 var Formmain: TFormmain。 username: string。 userlevel: string。 implementation uses login, about, PasswdEdit, EmplManage, BookType, BookManage, reader, readerLook, LendBook, BackBook, lendbooksearch, bookSearch, lendbooksearchtoDay, sysconfig。 {$R *.dfm} procedure (Sender: TObject)。 begin caption := systemname。 。 if userlevel 39。管理員 39。 then begin := false。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin := 39。重新登陸 39。 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin close。 end。 end. 下霸唱本人口滑筆快，編造杜撰出來的？ 其實我國養(yǎng)貓養(yǎng)狗的歷史長而久矣，也曾遺留下來無數(shù)的養(yǎng)寵秘訣。中國至盛世唐朝才開始普遍馴養(yǎng)家貓，并已經形成了具地方特色的不同品種，唐代古張小辮心里的一塊石頭方才落地，連呼哧帶喘舉目四望，想看看跑到了什么地方。只見月冷星稀，枯樹荒草，草叢間墳丘起伏，石碑嶙峋，剛才慌不擇路，卻是逃進了村后的墳塋之中。 這片墳地據(jù)說是塊風水寶地，而 且此地無主，十里八鄉(xiāng)死了人都往這埋，無數(shù)墳丘是一個緊挨著一個，封土新鮮光潔的是近年新墳，長滿了荒草的老墳更是多得數(shù)不清。前些時候有數(shù)股粵寇在這一帶出沒，跟官兵惡戰(zhàn)了幾場，才剛剛退去，戰(zhàn)場上積尸數(shù)千。來不及掩埋的尸體腐爛發(fā)臭，引發(fā)了一場不小的疫情，所以最近這周圍的百姓死得比以往多出許多，這片墳地也隨之添了許多墳丘。家境稍微富裕的都有碑有棺，那些窮苦人家就沒那么走運了，臨死混上口薄棺就不錯了，或者干脆直接拿麻席一卷胡亂刨坑埋了，墳包也小得可憐，至于石碑更是能省就省，或是插塊木牌樹枝代替。那些沒有了記號的新墳，很 快就成了無主的孤墳。 到了晚上，烏云遮月的時候，墳地里鬼火閃動，偶爾有一兩只野貓從草間躥出，還有些不知道是鬼哭還是狼嚎的怪異響動，不時從墳地深處傳來，聽得人肌膚起栗。 張小辮一向膽大包天，反正是賤命一條，活著也是吃苦受罪，扔在哪不是扔，所以他向來豁得出去，從不忌鬼避神，要沒有這種膽量，又如何敢一個人晚上住在那神佛猙獰的破廟之中。不過一看自己跑到了這片墳地，他心里還真有點打憷，趕緊對四周的墓碑墳丘作了個羅圈揖：“各位大哥大姐，小人張三不敢造次，無心驚擾，得罪勿怪，得罪勿怪??” 說著話他轉身 就要離去，正在這時，忽聽身后的一個墳丘里面?zhèn)鱽硪魂囙亍⑧?、嘭的聲音，聽上去好像是有人在使勁撞木板門。不過這亂墳塋子里哪有人家的門戶，這聲音必定是在撞棺材蓋子。 正值中夜，四下里靜得出奇，顯得這撞棺材蓋子的聲音格外驚心動魄。張小辮覺得自己腦袋后邊拖著的小辮子都豎起來了，但他并沒有立刻逃跑。剛才他跑過了勁喘個不停，加上肚里又沒食，實在是邁不開腿了，當下用衣袖抹了抹鼻涕，打量著四周的墳塋，心想這是哪路死鬼跟你家三爺做耍？三爺不是給你們作過揖了嗎，怎么還不依不饒的，想嚇得三爺磕頭求饒不成？ 可那墳中撞擊 棺材的聲音越來越大，張小辮猜想許不是有盜墓掘冢之輩在撬棺材？定要看看是什么作怪。要是真有挖墳掘墓的，三爺就嚇他一嚇，給他來個賊喊捉賊，卷了他的贓物，這叫賊吃賊越吃越肥。 他三兩步轉到墳后，只見這是一座無主新墳，土丘下被人掏了個大窟窿，那嘭、嘭、嘭的怪聲，正是從那窟窿深處發(fā)出來的。他剛走到近前，就聽那墳側的窟窿里一陣巨響，一張滿面流血、紅毛叢生的大臉從窟窿里探了出來。那張臉的腦門上生了一個橢圓形的大肉瘤，吐著鮮紅的舌頭，嘴邊牙齒上還掛著血跡，雙眼兇光四射，惡狠狠地盯著張小辮。 張小辮心中叫苦，怎么 就沒想起來是這個東西！現(xiàn)在想起來也晚了，只好轉身落荒而逃。 原來早年間的野狗和現(xiàn)代的野狗大不同，有些野狗的種類在解放后社會穩(wěn)定下來就逐漸絕跡了。亂世之中人命如同草芥，因為死的人太多，暴尸于荒野的情形到處都有，所以吃死人的東西也就多了。鄉(xiāng)下山野間有種專吃死人的野狗，能聞著死人的臭味在墳上刨洞，刨到棺材了，就用腦袋撞破棺材擋板，然后把棺中死尸拖出來吃肚腸子。這種野狗體形巨大，生性兇殘，吃多了死人的腸子它就不想再吃別的東西了，有時候碰上落單勢孤的活人，也往往直接撲過去咬死。長著血瘤的野狗常年吃死人肉，身上尸 氣重，牙齒帶有尸毒，被它咬到了就別想活。它的特征是腦袋上長了一個血紅的大瘤子，這瘤子比鐵錘都硬。窮人的廉價薄棺，最好的不過是“三寸柏木板”，棺板被這狗頭撞不了幾下就能撞穿。這種簡易的棺材有個俗名就叫“狗碰頭”，這意思再明顯不過了，死者家人買了副“狗碰頭”回去，將死者尸體盛殮下葬了，家人也就算盡到心了，然后棺材里這位您就等著喂野狗吧。可在當時，就連這種三寸板的“狗碰頭”還都供不應求。 這正是：“人無傷犬心，狗有屠人意。”欲知后事如何，且聽下回分解。 第一卷 林中老鬼 第二話 貓哭墳 書接前文，說 的是張小辮半夜偷雞不成，誤走荒墳，不料驚動了一只在掏死人的野狗。那只野狗掏了座新墳，剛剛撞開了棺板，咬得棺中死尸開膛破肚，正要往外拖拽肚腸，忽聽背后有動靜，立刻打墳中鉆了出來。它 “你節(jié)哀吧！”韓碩冷笑著靠近杜克，同艾米麗小骷髏一起將杜克圍