【正文】 b Private Sub Form_Load() = Date = Date Set conn = New Set rs = New Provider=。 儀器設(shè)備使用與維修登記如下： 控件名 屬性 屬性值 text1 name 儀器設(shè)備編號 text2 name 使用情況 text3 name 維修記錄 text4 name 維修日期 text5 name 維修費用 text6 name 儀器設(shè)備編號 bol rowsource 良 /差 Command1 name 保存到數(shù)據(jù)庫 Command2 name 退出 流程圖： 添加如下程序代碼： Dim rs As New Dim conn As Private Sub Command1_Click() If = Then N Y 開始 設(shè)備的使用與維修登記 是否繼續(xù) 退出 MsgBox 請輸入儀器設(shè)備編號 , , 提示 Exit Sub End If If = Then MsgBox 請選擇使用情況 , , 提示 Exit Sub End If If = Then MsgBox 請輸入維修記錄 ,若無記錄請輸入無 , , 提示 Exit Sub End If 39。 Data Source=。 Like+ 39。 Like+ 39。 Like+ 39。 Like+ 39。 Like+ 39。 Like+ 39。由于軟件比較小，所以沒必要像大型系統(tǒng)一樣來測試。 （ 5）可方便地按照各種查詢條件查詢得到相關(guān)數(shù)據(jù)，系統(tǒng)還支持模糊查詢，你只需輸入其中所包含的任意字符即可查詢得到相關(guān)的數(shù)據(jù)信息。 比蒙步兵方陣現(xiàn)在的情況已經(jīng)糟糕到不能再糟糕了，螞蟻大軍就象洪水沒過小溪，成片成片撲倒了比蒙戰(zhàn)士強壯有力的身體，原本四四方方，龐大無比的步兵方陣，現(xiàn)在被分割成十來個圓球型的步兵陣，其中有四個步兵方陣比較大，但再大的步兵陣，在整個巖漠區(qū)一片數(shù)十里漫長的螞蟻群之中，顯得也是那么 渺小而可憐！ 每一個步兵陣，每時每刻都在迅速地縮小，勇敢的比蒙戰(zhàn)士用人碾也無法住址這些可怕的螞蟻瘋狂的啃咬！ 每時每刻都在有祭祀發(fā)動生命魔法，用連鎖閃電劈向這些洶涌無盡的螞蟻，用自己寶貴的生命留給身邊的戰(zhàn)士最后一絲希望！ 每時每刻都在響起的絕望慘呼、不甘吶喊和憤怒的咆哮，把凄涼留給地平線，用倒下的背影給這個世界述說著悲壯！ 累累地鮮血把紅螞蟻染出了邪異的反光，蟻潮過后，連鐵甲都不會留下，只有白生生的骷髏骨架仍然保持著生前的絕望造型！ 只要是有良心的比蒙，看到 這一幕，都會聽見自己心碎的聲音。 巴克一臉的沮喪，心中把造謠者詛咒了幾百遍了，如果巴克修煉了暗黑系的詛咒術(shù)，精神力又足夠強大的話，恐怕韓碩與 杰克兩人，現(xiàn)在就看不到笑話了。 巴克一聽莉莎念起咒語，轉(zhuǎn)身一看到靈魂之痛的魔力火焰射來，臉色又是一變，隨后突然想起了什么，猛地沖向了韓碩與杰克兩人，在那靈魂之痛快要射向他的時候，突然在地上打了個滾。 哪兒知道，韓碩又是一聲殺豬般的尖叫，更是跌跌撞撞的慌忙爬開，連忙道：“杰克啊，你手里拿的破布上面，有亡靈魔法試驗后變質(zhì)的骨粉啊，這東西像小針一樣刺人，你不是想要扎死我吧？” “啊??，對不起布萊恩，我不是故意的，我真的不是故意的！” 杰克也是有些驚慌，趕緊將手中的破布扔的遠遠的，心里慶幸還好自己拿的那一面，沒有骨粉粘在上面。 等韓碩罵完了，思索了一下說：“巴克是魔法學(xué)徒，有精神力就可以疼三天，我卻要疼一個月。 等杰克離開之后，韓碩也將雜貨庫的小木門關(guān)上，翻開了《亡靈魔法基礎(chǔ)》第一張淺黃色的紙，津津有味的看了起來。頭兩次韓碩是立即又昏了過去，不過到了后來，雖然還會時不時的疼上一會，可能是因為適應(yīng)力的原因，韓碩沒有再次昏過去?！? 莫金指著地上道：“嗯，前面還有人。 莉莎為什么痛打巴克的事情，到現(xiàn)在還是沒有人知道， 但巴克這段時間心情很是郁悶，會找借口過來痛打韓碩一頓，巴克是魔法學(xué)徒，身子又比韓碩強壯，即使韓碩裝瘋和他干，這幾天也被揍的不輕。 任何魔法的基礎(chǔ)都是精神力，而獲得精神力的方法就是通過冥想，感受那些普通人無法感受的魔法元素，只有冥想出了精神力才能夠算魔法學(xué)徒。杰克，今天我這么倒霉，可都是為了幫你啊，你也應(yīng)該幫幫我吧？”韓碩盯著小胖子杰克，義正言辭的說?！? 韓碩一邊擦拭身子，一邊點頭說。飛庫網(wǎng) 更新時間 :2020105 11:31:49 本章字數(shù) :4400 ?? 等韓碩醒來的時候，發(fā)現(xiàn)自己躺在雜貨庫的小木床上，身上全是涼水，對面的小胖子杰克，手中提著一個小木桶，吃力的踩在一個板凳上，正打算將桶里面的涼水澆下來。 畢竟不是生死大戰(zhàn)，而且魔法學(xué)院之內(nèi)又嚴禁學(xué) 員生死相斗，莉莎當然不敢下毒手，見到巴克受了傷，氣已經(jīng)消了大半。 祭壇之火燒灼得他渾身的魔法護盾都在“滋啦滋啦”暴響，可是沒有人聽他的，個人的力量在這種情況下實在是太渺小了，比蒙戰(zhàn)士一旦陷入了這種絕境，光憑劉 震撼所能起到的作用，無異于在浩瀚的沙海之中投入一枚小小的沙礫。 感謝同機房的其他同學(xué)，在設(shè)計時給予的無私 幫助和真誠的關(guān)心！ 參考文獻 《 大學(xué) VB 程序設(shè)計實踐教程 》 人民郵電出版社 主編 ： 沈建蓉 《 應(yīng)用程序設(shè)計編制 Visual 職業(yè)技能培訓(xùn)教程 》 北京希望電子出版社 主編 ： 單貴 他目瞪口呆的事實??慕蘭人的軍陣前方，有一條長長的溝壑！ 這些溝壑被駝皮和黃沙掩蓋的很巧妙，從地面上看，封沙堆遮蔽著前去的視線，從高空看，墓蘭人地偽裝、山脈地側(cè)影和他們強大的磁暴空軍，又讓比蒙斥候在空中根本無法作接近式的細致觀察！ 在地平線上拉開的這一條長長溝壑， 也讓無數(shù)的紅色螞蟻象匯入江海的河水，連續(xù)不斷地落入其中。 （ 2）系統(tǒng)的使用方便，系統(tǒng)任何截面都全中文顯示，友好和可預(yù)見性的界面，及時的提示，讓用戶能很快的掌握操作方法。+39。+39。+39。+39。+39。+39。 Password=。Exit Sub 39。 User Id=admin。 39。 控件名 屬性 屬性值 text1 name 儀器設(shè)備名稱 text2 name 采購人 text3 name 出產(chǎn)廠家 text4 name 出廠日期 text5 name 金額 text6 name 采購日期 text7 name 采購數(shù)量 text8 name 儀器設(shè)備編號 Command1 name 保存到數(shù)據(jù)庫 Command2 name 退出 流程圖： 添加如下程序代碼： Dim rs As New Dim conn As Private Sub Command1_Click() N Y 開始 增加操作 是否繼續(xù) 退出 If = Then MsgBox 請輸入儀器設(shè)備名稱 , , 提示 Exit Sub End If If = Then MsgBox 請輸入儀器設(shè)備采購人 , , 提示 Exit Sub End If If = Then MsgBox 請輸入出產(chǎn)廠家 , , 提示 Exit Sub End If 39。在該工程中會自動創(chuàng)建一個窗體，默認名為form1. (2)將 form1 窗體設(shè)為作用中的窗體，然后選取 VB 菜單中工具菜單項下的菜單編輯器，接著會出現(xiàn)菜單編輯器對話框。 系統(tǒng)頂層 IDEF0圖 考慮到篇幅有限，其他 IDEF0 圖不再一一畫出。 （ 2）硬件資源： 開發(fā)管理信息系統(tǒng)所需的硬件資源包含以下兩個方面： 系統(tǒng)開發(fā)人員在管理信息系統(tǒng)的開 發(fā)過程中所需要的計算機儀器設(shè)備及其有關(guān)的外部儀器設(shè)備；管理信息系統(tǒng)開發(fā)成功投入使用后，使用單位所應(yīng)具備的計算機儀器設(shè)備及其有關(guān)的外圍儀器設(shè)備。 可行性分析一般可定義為：可行性分析是在建設(shè)的前期對工程項目的一種考察和鑒定，對擬議中的項目進行全面與綜合的技術(shù)、經(jīng)濟能力的調(diào)查，判斷它是否可行。同時，一個合理的數(shù)據(jù)庫結(jié)構(gòu)有利于程序的實現(xiàn)。 （ 2）儀器設(shè)備 維修和使用 ：本應(yīng)用模塊的主要功能是實現(xiàn)對教學(xué)的還庫管理工作，包括記錄添加、編輯、刪除等操作。 中文版，它是運行于 Windows95 和 Windows NT 平臺的 32 位數(shù)據(jù)庫系統(tǒng)，充分發(fā)揮了 32 位微處理器強大的 32 位數(shù)據(jù)處理性能。國內(nèi)外大量事實已說明：在目前這個激烈競爭的市場經(jīng)濟 中，誰的信息管理現(xiàn)代化水平高，誰重視信息資源的開發(fā)和利用，誰就能抓住機遇，在競爭中取勝。對信息管理的理解，一種認為是，信息管理 就是對信息的管理。將 管理任務(wù)分成小塊，落實到個人并能隨時查詢儀器設(shè)備當前情況和歷史情況，對儀器設(shè)備的可靠性分析有直接作用，使管理人員從手工計算、統(tǒng)計工作中解脫出來。 5） 為什么要選擇 6） 微軟 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。 Visual Basic 還支持用戶自己開發(fā) ActiveX 控件和制作 ActiveX 文檔。本系統(tǒng)將會提高辦公效率和儀器設(shè)備可靠性，減少工作人員的勞動強度，減少辦公耗材，提高的現(xiàn)代化管理水平。文中首先對儀器設(shè)備管理的現(xiàn)狀及其重要性進行了分析，提出儀器設(shè)備管理信息系統(tǒng)的必要性與可行性。以后檔案基本就沒人維護，如儀器設(shè)備位置變遷、檢修情況、儀器設(shè)備當前運行狀態(tài)等信息根本不會體現(xiàn)在儀器設(shè)備臺帳上，即儀器設(shè)備跟蹤信息不能及時體現(xiàn)在儀器設(shè)備檔案上。函數(shù)及關(guān)鍵詞，其中很多與 Windows GUI 有直接的關(guān)系。專業(yè)人員可以用 Visual Basic 實現(xiàn)其他任何Windows 編程語言的功能，而初學(xué)者只要掌握 幾個關(guān)鍵詞就可以建立實用的應(yīng)用程序。以后檔案基本就沒人維護，如儀器設(shè)備位置變遷、檢修情況、儀器設(shè)備當前運行狀態(tài)等信息根本不會體現(xiàn)在儀器設(shè)備臺帳上，即儀器設(shè)備跟蹤信息不能及時體現(xiàn)在儀器設(shè)備檔案上。由于信息是普遍存在的，人類信息管理活動 的范圍也是十分廣泛的，信息管理不僅是信息工作的一部分，而且已被認為是現(xiàn)代管理的重要組成部分。簡而言之，信息管理就是對信息和信息活動的管理，這就是我們對信息管理的全面理解。由于本系統(tǒng)是一個小型的管理系統(tǒng)，因此對計算機硬件的要求不高，比較經(jīng)濟，只要配備如下表所示的就可以。 4． 2 系統(tǒng)的組成結(jié)構(gòu)及其流程圖 本系統(tǒng)主要有以下模塊： 新增儀器設(shè)備、儀器設(shè)備的信息維護、儀器設(shè)備使用與維修登記和維護、信息檢索、系統(tǒng)管理。 數(shù)據(jù)庫是信息管理系統(tǒng)的后臺，存儲著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。 5． 1． 2系統(tǒng)的開發(fā)的方法 在軟件的編制當中，各個模塊的設(shè)計以 vb 語言實現(xiàn)，采用 visual 開發(fā)環(huán)境進行編譯，數(shù)據(jù)庫的連接采用 ADO技術(shù)，而數(shù)據(jù)庫部分則由 Access2020開發(fā)。 ○ 5 、技術(shù)可行性分析 技術(shù)可行性分析主要包括四個方面：目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)；新系統(tǒng)開發(fā)人員的數(shù)量和水平，即人力資源；硬件和軟件資源?？傮w上來說，本系統(tǒng)屬于事務(wù)型系統(tǒng)，其系統(tǒng)示意圖如下圖所示： 5． 2． 2．系統(tǒng)數(shù)據(jù)庫結(jié)構(gòu)（ ER 表示） 為了使 ER 圖表示得更加清晰，現(xiàn)將 ER 圖分成實體及其屬性圖和實體及其聯(lián)系圖。菜單欄主要通過 VB 中工具菜單項下的菜單編輯器進行設(shè)計。 Private Sub Form_Resize() = ( ) / 2 = / 2 End Sub Private Sub Timer1_Timer() (1).Text = Format(Date, long date) amp。End If If = Then MsgBox 請輸入儀器設(shè)備金額 , , 提示 Exit Sub End If 39。 amp。If = Then 39。 amp。%39。%39。%39。%39。%39。%39。比如大型系統(tǒng)需要分模塊測試，子系統(tǒng)測試，系統(tǒng)測試等。 7． 3