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