【正文】 油罐車尖吼著停下來，後面留下的長(zhǎng)達(dá) 50 米的剎車印，讓人觸目驚心。 梁庫(kù)忙里偷閒趁熱打鐵問：“你是怎麼看出我的東西的？” 已經(jīng)不太冷的酷哥：“風(fēng)水，人面風(fēng)水 !”他瞥到一臉迷茫的梁 庫(kù)，隨又快速比畫了一下臉：“高的是山，低的是水。剛剛走出幾步，狂火怒龍終於爆發(fā)了，伴著一聲驚天裂地的炸響，梁庫(kù)和酷哥象猛的才停下，心口還一陣陣的感到惡心，早餐是沒有胃口去吃了。 阿豪說：“這事也不能操之過急，要請(qǐng)高人就要請(qǐng)貨真價(jià)實(shí)的，否 則請(qǐng)個(gè)騙子來，損失錢。本來就要爆炸的油罐車，再經(jīng)過這麼一撞，隨時(shí)都可能爆炸。” 梁庫(kù)：“沒有沒有沒有！等等，你說錢也屬什麼水性？” 酷哥：“對(duì)！在五行意象上，錢財(cái)屬水！” 梁庫(kù)：“那存錢的銀行算不算？” 酷哥：“算！算！” 梁庫(kù)：“前面往左拐不遠(yuǎn)的地方，正在起建中國(guó)人民銀行大樓！” 話還沒說完，酷哥猛轉(zhuǎn)方向，油罐火龍尖銳著傾斜著拐入左面路口。雖然走的全是剛剛能容下車身的小路，有晾在窗外的衣服甚至都被車火燎著了，但竟然暢通無阻。 世界大亂了！省城市區(qū)中心的幾條主干道上，被這輛滿身風(fēng)火的巨無霸攪 得天翻地覆！ 兩駕摩托被這壯觀奇景驚呆，竟然把摩托開進(jìn)了一家時(shí)裝店； 一輛迎面而來的白色豪華大奔因爲(wèi)躲閃不及，一頭撞進(jìn)路邊的垃圾處理站； 整排靠站的公交大巴一頂一的玻璃爆碎撞成一串； 被超過的車流，紛紛橫在了馬路中央； 張大嘴巴看著橫空出世的火戰(zhàn)車，男友把霜淇淋慢慢堆到女友臉上； 幾個(gè)推銷人員手里的宣傳單，被呼嘯而過的火風(fēng)吹滿天！?? 梁庫(kù)爲(wèi)了保持身體平衡，兩只手緊把著吊窗扶手，一雙腿死登著駕駛前臺(tái)。他忽然想起來什麼，覺得有點(diǎn)不對(duì)勁，剛才算命先生被自己的煙灰燒著褲子，拉面爐竈烤著桌布，現(xiàn)在網(wǎng)吧廚房又莫名其妙的失火，怎麼這麼巧，會(huì)跟他那個(gè)發(fā)燒的“火夢(mèng)”有什麼關(guān)系嗎？ 【樓主】 (2):第二章：人面風(fēng)水 忽然，隨著一聲尖銳的剎車聲，一輛巨型油罐車斜停在梁庫(kù)身旁的車 道上。 你好夫的膽子！”王林緩緩的說道。 許立國(guó)雖說不知以何種方式抵抗了心神的禁制但卻無法切斷與王林的聯(lián)系通過這一點(diǎn)王林便可以抓到他！ 許立國(guó)瘋狂的逃遁他本就是魂體此削又成為了劍靈其比之以前要快上數(shù)倍此刻內(nèi)心驚懼中更是揮了全部實(shí)力好似幽靈般不顧一切的逃走。每人自報(bào)姓名和自我介紹后，呂競(jìng)男清脆而嘹亮的嗓音響起，如鷹鳴般高亢：“到這 里來的每一個(gè)人，我不管你們以前是做什么的，我要你們明白你們目前的身份?！? 呂競(jìng)男站起身來，亞拉又道 ：“方才我在門口都聽到了，你關(guān)于這次行動(dòng)的危險(xiǎn)分析，恐怕有點(diǎn)錯(cuò)誤。 “先搞定龐大的精神力再作打算吧！有了強(qiáng)大的精神力，你就能自如的收斂元素力量，對(duì)你而言，那將如同憋住尿一般簡(jiǎn)單好用！”老龍笑瞇瞇的看著這個(gè)浪子回頭的好兒子：“當(dāng)你擁有了強(qiáng)大的精神力之后，說不定還能慢慢學(xué)會(huì)如何純熟的掌控魔法元素，從此開創(chuàng)出一門新的魔法！留芳千古！” 劉震撼聽這話聽的心虛死了。 所有的目光頓時(shí)聚焦到了身背兩片晶瑩蚌殼的東方大美人身上。 但遺憾的是，這些強(qiáng)力仍然是不可饒恕的罪行。呵呵。) If = False Then MsgBox 對(duì)不起，你所選擇的用戶名已經(jīng)存在，請(qǐng)換一個(gè)登陸名！ , vbInformation + vbOKOnly, 信息 = Set g_rs = Nothing Exit Sub Else Set g_rs = Nothing Set g_rs = (select * from systeminfo ) g_rs!名稱 = g_rs!密碼 = If = True Then g_rs!超級(jí)管理員 = True End If If = True Then g_rs!數(shù)據(jù)庫(kù)維護(hù)員 = True End If If = True Then g_rs!圖書管理員 = True End If Set g_rs = Nothing MsgBox 用戶添加成功，請(qǐng)返回 !, vbInformation + vbOKOnly, 提示 = = = End If End Sub Private Sub Command2_Click() = = = False = False = False End Sub Private Sub Command3_Click() If = Then MsgBox 登陸名稱不能為空！ , vbInformation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox 登陸密碼不能為空！ , vbInformation + vbOKOnly, 警告 Exit Sub End If End Sub Private Sub Form_Load() dbl End Sub . “關(guān)于”模塊設(shè)計(jì)： 本模塊是介紹關(guān)于本系統(tǒng)的一些基本信息，設(shè)計(jì) 界面如下圖： 設(shè)計(jì)體會(huì)： 這次課程設(shè)計(jì)的主要目的是通過利用當(dāng)今最流行可視化編程工具 Visual Basic 設(shè)計(jì)應(yīng)用程序，用來管理由 Access2020創(chuàng)建的數(shù)據(jù)庫(kù)。 的類別信息嗎？ , _ vbInformation + vbOKCancel, 刪除 ) = vbCancel Then Set g_rs = Nothing Exit Sub Else g_strsql = select * from booktype where 類別代碼 =39。Mode=ReadWrite。) End If If = True Then X = select * from readerinfo where 所屬單位 in( + 39。 Else strcon(1) = 書籍編號(hào) like 39。 amp。and 讀者編號(hào) = 39。 amp。 where = and 籍編號(hào) = and _ amp。 Set g_rs = (g_strsql) With g_rs .Edit .Fields(借書日期 ) = .Update End With Set g_rs = Nothing MsgBox 續(xù)借成功，請(qǐng)返回！ , vbInformation + vbOKOnly, 信息 Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() dbl = Date End Sub MsgBox 沒有該讀者的信息！請(qǐng)查證 Private Sub text1_keypress(keyascii As Integer) Dim StrSQL As String If keyascii = 13 And Then g_strsql = select * from readerinfo where 讀者編 號(hào) =39。 借閱圖書界面 ‘借閱圖書’ 實(shí)現(xiàn)代碼： Private Sub Command1_Click() If 0 Then Set g_rs = (lentinfo, dbOpenTable) With g_rs .AddNew .Fields(讀者編號(hào) ) = .Fields(書籍編號(hào) ) = .Fields(借書日期 ) = .Update End With Set g_rs = Nothing g_strsql = select * from bookinfo where 書籍編號(hào) =39。 39。面向?qū)ο蟮某绦蛟O(shè)計(jì)一方面是為了滿足日益復(fù)雜的程序開發(fā)所提出的，一方面為程序設(shè)計(jì)提供了一個(gè)更為合理和自然的分析和思考方式 詳細(xì)設(shè)計(jì)思想 “開始”模塊設(shè)計(jì)： 本模塊包括四個(gè)方面：‘登陸’、‘注銷’、‘?dāng)?shù)據(jù)備份’和‘退出’。類定 義可以視為一個(gè)具有類似特性與共同行為的對(duì)象的模板，可用來產(chǎn)生對(duì)象。如果一個(gè)軟件系統(tǒng)是使用這樣 4個(gè)概念設(shè)計(jì)和實(shí)現(xiàn)的，則可以認(rèn)為這個(gè)軟件系統(tǒng)是面向?qū)ο蟮?。?shù)據(jù)只需要在表中存儲(chǔ)一次，用戶便可以在不同的位置查看，當(dāng)某一數(shù)據(jù)更新后，所有顯示該數(shù)據(jù)的位置都將自動(dòng)更新，這樣可以避免冗余存儲(chǔ)減少了工作量和錯(cuò)誤 ACCESS2020 數(shù)據(jù)庫(kù)是由表、查詢、窗體、報(bào)表、數(shù)據(jù)訪問頁(yè)、宏以及模塊七種數(shù)據(jù)對(duì)象組成，這些數(shù)據(jù)對(duì)象在數(shù)據(jù)庫(kù)中有著不同的功能，這些數(shù)據(jù)庫(kù)對(duì)象大部分都存儲(chǔ)在數(shù)據(jù)庫(kù)中作為 ACCESS2020的一部分，如果要單獨(dú)輸出某個(gè)數(shù)據(jù)庫(kù)對(duì)象，可以利用 ACCESS2020 提供的導(dǎo)出功能，雖然 ACCESS2020能夠利用其 整合的 ACCESS 語(yǔ)言可視化的創(chuàng)建應(yīng)用程序，但是很少有人利用它來開發(fā)一個(gè)數(shù)據(jù)庫(kù)應(yīng)用程序。所謂數(shù)據(jù)庫(kù)是指長(zhǎng)期儲(chǔ)存在 計(jì)算機(jī)內(nèi)的、有組織的、可共享的數(shù)據(jù)集合。 6．“關(guān)于”模塊： 軟件信息： 軟件的版本及開發(fā)人員的信息。 ‘借閱證編號(hào)’、‘讀者姓名’、‘身份證編號(hào)’以及‘止借標(biāo)志’。 （ 4）退出： 退出系統(tǒng)。 資料維護(hù)：為了存放圖書、讀者檔案的全部數(shù)據(jù)，本系統(tǒng)將每一本圖書和每位讀者的信息進(jìn)行管理。 第二章 需求分析階段 需求分析是在于要弄清用戶對(duì)開發(fā)的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的確切要求。 DAO 支持兩種不同的數(shù)據(jù)庫(kù)環(huán)境 —— 稱為工作區(qū)（ Workspace） . Microsoft Jet Workspace —— 這是一種使用 Microsoft Jet 數(shù)據(jù)庫(kù)引擎來訪問數(shù)據(jù)源的工作區(qū)。因此 Visual Basic 集成開發(fā)工具，它提供了軟件代碼自動(dòng)生成和可視化的資源編輯功能。 圖書管理系統(tǒng)是一種基于集中統(tǒng)一規(guī)劃的數(shù)據(jù)庫(kù)數(shù)據(jù)管理新模式。還書時(shí)，讀者將要還的書交給工作人員，工作人員根據(jù)圖書信息找到相應(yīng)的書卡和借閱證，并填好相應(yīng)的還書信息，這樣還書過程就完成了。迫使人們起用新的管理方法來管理圖書，如何把圖書管理員從繁重的工作中解脫出來呢？ 科學(xué)技術(shù)日新月異的進(jìn)步，讓人類生活發(fā)生了巨大的變化，計(jì)算機(jī)技術(shù)的飛速發(fā)展，使各行各業(yè)在計(jì)算機(jī)技術(shù)應(yīng)用方面得到了廣泛的普及和使用。 從而使人們有更多時(shí)間來獲取信息、了解信息、掌握信息 。我們將會(huì)看到排隊(duì)等候借書、 還書的隊(duì)伍不再那么長(zhǎng)，工作人員出錯(cuò)的概率也小了，讀者可以花更多的時(shí)間在選擇書和看書上。 本系統(tǒng)的設(shè)計(jì)主要從以下幾方面做起：系統(tǒng)業(yè)務(wù)流程分析、系統(tǒng)的功能設(shè)計(jì)、系統(tǒng)的數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)、系統(tǒng)輸入 /輸出設(shè)計(jì)等。作為 Microsoft Windows Open Standards Architecture(WOSA,Windows 開放式服務(wù)體系結(jié)構(gòu) )的主要組成部分， ODBC一直沿用至今。 3． OLE DB(OLE data Base， OLE數(shù)據(jù)庫(kù) )。明確目的之后，就可以確定您需要保存哪些主題的信息（表），以及每個(gè)主題需要保存哪些信息（表中字段）。 報(bào)表統(tǒng)計(jì)：包括統(tǒng)計(jì)圖書信息、讀者信息、借閱信息和罰款信息等。 （ 2）續(xù)借圖書： 對(duì)圖書進(jìn)行續(xù)借。 4．“系統(tǒng)設(shè)置”模塊 ： （ 1）基本設(shè)置： 最大借出書設(shè)置及罰款設(shè)置。 圖書：圖書編號(hào)、圖書名稱、作者、出版社、價(jià)格、庫(kù)存量。 微軟開發(fā)的 ACCESS2020是在 WindowsXP/2020/2020及 Windows NT平臺(tái)中應(yīng)用的關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，可以通過各種數(shù)據(jù)庫(kù)對(duì)象對(duì)數(shù)據(jù)進(jìn)行控制和管理，不論用戶創(chuàng)建的 獨(dú)立桌面數(shù)據(jù)庫(kù)適用于個(gè)人、部門還是整個(gè)企業(yè)， ACCESS2020 都可以為管理數(shù)據(jù)生成易于使用的數(shù)據(jù)庫(kù)， ACCESS2020 不僅擁有眾多傳統(tǒng)數(shù)據(jù)庫(kù)管理軟件所具備的功能，同時(shí)還進(jìn)一步增強(qiáng)了與 web頁(yè)集成，能夠更方便的共享跨越各種平臺(tái)和不同用戶級(jí)別的數(shù)據(jù)。一是方法的唯一性，即方法是對(duì)軟件開發(fā)過程所有階段進(jìn)行綜合考慮而得到的。每個(gè)對(duì)象可用其一組屬性和它執(zhí)行的一組操作來定義。 繼承（ Inheritance）是使用已存在的（現(xiàn)存）定義作為基礎(chǔ)建立新定義的技術(shù)。 amp。 登陸身份：超級(jí)管理員 End If If g_rs!數(shù)據(jù)庫(kù)維護(hù)員 = True Then MsgBox 用戶 ： + + 你當(dāng)前的身份是數(shù)據(jù)庫(kù)維護(hù)員，登陸時(shí)間： + (4).Text + , vbIn