【正文】 ” 莫金道：“是啊，天知道上面是古格遺址的哪個部分，希望別是人多的地方。 在這七天的時間內(nèi)，韓碩只有夜里才通 過冥想修煉，白天還是勤勤懇懇的扮演著布萊恩的角色，那些打掃衛(wèi)生除蟲倒垃圾的事情，還是一樣不少的干著，因為不這樣做，身為雜役的韓碩，別想在魔武學院吃到東西，也別想在巴比倫魔武學院繼續(xù)呆下去。 到了晚上，杰克賊頭賊腦的找到韓碩，從胖胖的肚子里面，抽出一本《亡靈魔法基礎》和一本《魔法字典》遞給了韓碩，千叮萬囑的說了好一番話，才偷偷摸摸的離開。 “莉莎說算你倒霉，這靈魂之痛如果放在巴克身上，巴克是魔法學徒，以他的精神力只要靈魂疼三天就行了。 “唔??，我說杰克，你是不是想要玩死我?。俊? 韓碩被第二桶涼水一澆，渾身凍的直打顫，胸口又被小木桶砸了一下，更是疼的要命，立即齜牙咧嘴的鬼叫起來。巴克心里正是不爽，立即怒沖沖的跑過去，一邊走一邊罵：“你們這兩個卑微的賤仆，也敢取笑我？” 巴克不敢拿莉莎出氣，更不敢對旁邊一些暗黑系的學長學姐發(fā)怒，周圍也就韓碩與杰克兩個雜役，可以讓他發(fā)泄一下怒火，更何況這兩人還在哈哈大笑，自然是刺激到了巴克。 外側的遠程攻擊手和牦牛重騎兵已經(jīng)被蟻群蠶食得差不多了，他很快就沖進了內(nèi)圍，劉震撼的心在被一雙無形的打手慢慢撕裂，在悲苦的呻吟中潺潺滴血！ 為了參加此次戰(zhàn)役，皇家禁衛(wèi)軍一共派出了三支弓箭手聯(lián)隊，與龍角力軍團也派出了一只 豪斯聯(lián)隊，加上一千名豪豬投槍手，外加預備隊的一千名牦牛重騎兵，左右側翼都是三千人??！居然在這分割后，一瞬間被螞蟻們啃得只剩下了薄薄的一層！ “快沖！向古城遺跡方向！”劉震撼跳之后，旁邊一些圍觀的暗黑系的學員，一個個的議論著。 看到老板還是一臉莫名其妙，幽魂許德拉湊到了劉震撼的手上，拼命地戳著“死亡領主戒指”。數(shù)據(jù)庫的引入，不僅使本系統(tǒng)便于維護，而且，使得系統(tǒng)高效實用，無須了解系統(tǒng)的運行體制和內(nèi)部結構，就能掌握要領，運用自如。) Exit Sub End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() (儀器設備編號 ) (儀器設備的名稱 ) (采購人 ) (出產(chǎn)廠家 ) (使用情況 ) (維修記錄 ) End Sub 另 form4 為儀器設備配件登錄的窗體，實現(xiàn)方法同 form3（儀器設備信息登記）， form7的主要作用是 配件信息維護，實現(xiàn)方法同 form6（儀器設備信息維護）。) = select * from wxinfo where (wxinfo. amp。) Exit Sub End If If = 使用情況 Or = 維修記錄 Then = select as 儀器設備編號 ,名稱 as 儀器設備名稱 , as 采購人 , as 出產(chǎn)廠家 ,日期 as 出廠日期 , as 金額 , as 采購日期 , as 采購數(shù)量 from cginfo,wxinfo where ( = ) and (wxinfo. amp。) = select as 儀器設備編號 ,名稱 as 儀器設備名稱 , as 使用情況 , 記錄 as 維修記錄 , as 維修日期 , as 維修費用 from tzinfo,wxinfo where ( = ) and (tzinfo. amp。) N Y 開始 設置查詢信息顯示查詢結果 是否繼續(xù) 退出 Exit Sub End If If = 領取人 Or = 領取單位 Then = select as 儀器設備編號 ,名稱 as 儀器設備名稱 , as 采購人 , as 出產(chǎn)廠家 ,日期 as 出廠日期 , as 金額 , as 采購日期 , as 采購數(shù)量 from cginfo,tzinfo where ( = ) and (tzinfo. amp。) = select 器設備編號 as 儀器設備編號 ,名稱 as 儀器設備名稱 , as 使用情況 , as 維修記錄 , as 維修日期 , as 維修費用 from cginfo,wxinfo where ( = ) and (cginfo. amp。 倉庫儀器設備信息維護如下： 控件名 屬性 屬性值 datagrid endabled .f. adodc name mand1 name 檢索 mand2 name 退出 mand3 name 刪除當前修改 mand4 name 保存當前修改 流程圖： 新增代碼如下： Private Sub Command1_Click() If = Then MsgBox 請輸入儀器設備編號 Exit Sub End If = select * from cginfo where 儀器設備編號 = + End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() N Y 開始 查找 /修改 /刪除記錄 是否繼續(xù) 退出 Dim myval As String myval = MsgBox(是否確定刪除該記錄 , vbYesNo) If myval = vbYes Then End If End Sub Private Sub Command4_Click() Dim myval As String myval = MsgBox(是否保存已經(jīng)修改的記錄 , vbYesNo) If myval = vbYes Then End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If ((KeyCode 57) Or (KeyCode 33 And KeyCode 48)) Then If Then = Left(, Len() 1) MsgBox (儀器設備編號輸入錯誤 ,該編 號僅為數(shù)字編號 ,請重新輸入 !!!) End If End Sub ④ 窗體 form8 在屬性欄 caption 里面輸入儀器設備使用維修信息維護，在窗體中放置 1個 datagrid 控件， 1 個 text 控件， 4 個 mand 控件 , 1 個 adodc ，并分別輸入相應的屬性值 儀器設備使用維修信息維護： 控件名 屬性 屬性值 datagrid endabled .f. adodc name mand1 name 檢索 mand2 name 退出 mand3 name 刪除當前修改 mand4 name 保存當前修改 流程圖： 新增代碼如下： Private Sub Command1_Click() If = Then MsgBox 請輸入儀器設備編號 , , 提示 Exit Sub End If = select * from wxinfo where 儀器設備編號 = + End Sub Private Sub Command2_Click() Unload Me End Sub N Y 開始 使用維修信息維護 是否繼續(xù) 退出 Private Sub Command3_Click() Dim myval As String myval = MsgBox(是否確定刪除該記錄 , vbYesNo, 提示 ) If myval = vbYes Then End If End Sub Private Sub Command4_Click() Dim myval As String myval = MsgBox(是否保存已經(jīng)修改的記錄 , vbYesNo, 提示 ) If myval = vbYes Then End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If ((KeyCode 57) Or (KeyCode 33 And KeyCode 48)) Then If Then = Left(, Len() 1) MsgBox 儀器設備編號輸入錯誤 ,該編號僅為數(shù)字編號 ,請重新輸入 !!!, , 提示 End If End Sub ⑤ 窗體 form9 在屬性欄 caption 里面輸入儀器設備信息查詢，在窗體中放置 3 個 datagrid控件， 1 個 text 控件， 2 個 mand 控件 , 3 個 adodc ， 1 個 bo1 并分別輸入相應的屬性值 儀器設備信息查詢?nèi)缦拢? 控件名 屬性 屬性值 datagrid1 endabled .f. datagrid2 endabled .f. datagrid3 endabled .f. bo1 rowsource 儀器設備編號，儀器設備名稱，采購人，出產(chǎn)廠家，領取人，領取單位，使用情況，維修記錄 adodc1 adodc2 adodc3 mand1 name 檢索 mand2 name 退出 流程圖： 新增代碼如下 Private Sub Command1_Click() If ( = 儀器設備編號 ) Or ( = 儀器設備名稱 ) Or ( = 采購人 ) Or ( = 出產(chǎn)廠家 ) Then = select * from cginfo where (cginfo. amp。 = = = MsgBox 數(shù)據(jù)已經(jīng)成功保存到數(shù)據(jù)庫 !, , 提示 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = Date Set conn = New Set rs = New Provider=。 Password=。End If If = Then MsgBox 請輸入采購數(shù)量 , , 提示 Exit Sub End If If = Then MsgBox 請輸入儀器設備編號 , , 提示 Exit Sub End If select * from cginfo, conn, adOpenKeyset, adLockOptimistic rs(儀器設備的名稱 ) = rs(采購人 ) = rs(出產(chǎn)廠家 ) = rs(出廠日期 ) = rs(金額 ) = rs(采購日期 ) = rs(采購數(shù)量 ) = rs(儀器設備編號 ) = rs(儀器設備規(guī)格 ) = = = = 39。MsgBox 請輸入出廠日期 39。 （ 4）單擊工程菜單下的部件選項，在彈出的列表中選中 [Microsoft windows mon control ]選項，然后單擊確定按鈕， imagelist 控件、 toolbar 控件、 statusbar 控件將被添加到工具箱中。數(shù)據(jù)庫與程序的連接采用微軟數(shù)據(jù)訪問組件 ADO來實現(xiàn)。 （ 3）軟件資源 軟件資源的可行性分析主要考慮以下幾點是否滿足用戶的要求： ① 操作系統(tǒng)的選擇； ② 編譯系統(tǒng)的選擇； ③ 數(shù)據(jù)庫管理系統(tǒng)的選擇； ④ 高級編程語言的選擇； ⑤ 漢字處理系統(tǒng)的選擇； 本系統(tǒng)在開發(fā)前，與相關的部門的領導和具體的操作人員密切溝通，認真聽取他們的意見，并吸收他們的積極觀點，使本系統(tǒng)的開發(fā)在相當大的程度上具有一定的先進性和合理性。 ② 社會可行性分析：社會可行性分析主要是指管理信息系統(tǒng)的開發(fā)是否符合國家法律、政 策 。 數(shù)據(jù)庫是某個企業(yè)、組織或部門所設計的數(shù)據(jù)的一個綜合，它不僅要反映數(shù)據(jù)本身的內(nèi)容，而且要反映數(shù)據(jù)之間的聯(lián)系。 （ 4）退出系統(tǒng)：退出本系統(tǒng)，恢復系統(tǒng)的實始狀態(tài)。 應用程序開發(fā) ： Visual basic 與其它 access 工具可以很好的配合，例如，運用 Visual InterDev 創(chuàng)建 Web 應用程序的開發(fā)人員可以很容易地使用 Visual Basic 來創(chuàng)建組件。使用本