網(wǎng)吧收費(fèi)管理系統(tǒng)畢業(yè)設(shè)計(jì)

1、<p><b>　　目 錄</b></p><p><b>　　第一章．概述4</b></p><p><b>　　1.1概述4</b></p><p>　　第二章.系統(tǒng)分析6</p><p><b>　　2.1需求分析6</b>&

2、lt;/p><p>　　2.1.1開發(fā)的背景6</p><p>　　2.1.2功能簡介6</p><p>　　2.1.3實(shí)現(xiàn)平臺(tái)7</p><p><b>　　2.2系統(tǒng)分析7</b></p><p>　　2.2.1系統(tǒng)分析的概念7</p><p>　　2.2.1.1

3、系統(tǒng)分析階段的目標(biāo)7</p><p>　　2.2.1.2系統(tǒng)分析工作活動(dòng)以及特點(diǎn)7</p><p>　　2.2.2系統(tǒng)的可行性研究7</p><p>　　2.2.2.1開發(fā)網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)的經(jīng)濟(jì)可行性研究7</p><p>　　2.2.2.2開發(fā)網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)的技術(shù)可行性研究7</p><p>　　2.2.

4、2.3開發(fā)網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)的操作可行性研究8</p><p>　　2.2.3網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)邏輯模型的提出8</p><p>　　2.2.3.1業(yè)務(wù)流程圖8</p><p>　　2.2.3.2數(shù)據(jù)流圖9</p><p>　　第三章．系統(tǒng)設(shè)計(jì)10</p><p>　　3.1系統(tǒng)設(shè)計(jì)的含義10</p>

5、;<p>　　3.2系統(tǒng)設(shè)計(jì)的任務(wù)10</p><p>　　3.3系統(tǒng)設(shè)計(jì)的原則10</p><p>　　3.4系統(tǒng)設(shè)計(jì)的目標(biāo)和功能10</p><p>　　3.4.1系統(tǒng)功能描述11</p><p>　　3.5總體設(shè)計(jì)12</p><p>　　3.5.1總體設(shè)計(jì)中的問題12</p>

6、;<p>　　3.5.2子系統(tǒng)的劃分和確認(rèn)12</p><p>　　3.6代碼設(shè)計(jì)13</p><p>　　3.6.1代碼設(shè)計(jì)的原則13</p><p>　　3.6.2代碼結(jié)構(gòu)的類型13</p><p>　　3.6.3代碼設(shè)計(jì)的步驟與方法14</p><p>　　3.6.4本系統(tǒng)中的代碼設(shè)計(jì)1

7、4</p><p><b>　　3.7二維表14</b></p><p>　　3.8數(shù)據(jù)字典15</p><p>　　3.9功能實(shí)現(xiàn)過程15</p><p>　　第四章．系統(tǒng)實(shí)現(xiàn)與轉(zhuǎn)換17</p><p>　　4.1建立系統(tǒng)主界面17</p><p>　　4.2建

8、立會(huì)員信息查詢界面18</p><p>　　4.3建立管理員信息查詢界面22</p><p>　　4.4建立硬件維護(hù)界面26</p><p><b>　　第五章．結(jié)論28</b></p><p>　　5.1會(huì)員信息查詢28</p><p>　　5.2管理員信息查詢··

9、····································

10、3;·················28</p><p>　　5.3維護(hù)··············&#

11、183;····································

12、···············29</p><p><b>　　網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)</b></p><p>　　李瑩 指導(dǎo)教師：朱瑜</p><p>　　(2008級(jí)計(jì)算機(jī)科學(xué)與技術(shù)）<

13、/p><p><b>　　第一章．概述</b></p><p><b>　　1.1概述： </b></p><p>　　隨著計(jì)算機(jī)技術(shù)的成熟和計(jì)算機(jī)的網(wǎng)絡(luò)的普及,計(jì)算機(jī)的應(yīng)用在生活中隨處可見, 網(wǎng)吧已成為大眾生活的一部分，網(wǎng)吧的出現(xiàn)同時(shí)也帶來了計(jì)時(shí)計(jì)費(fèi)的問題。 網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)就是針對(duì)此問題而開發(fā)的系統(tǒng)，

14、它主要面向網(wǎng)吧、電子閱覽室，在計(jì)費(fèi)管理上體現(xiàn)出一定的優(yōu)越性，可以實(shí)現(xiàn)輕松管理，并且實(shí)現(xiàn)效益最大，效益可持續(xù)化的多重需要。</p><p>　　網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)以計(jì)算機(jī)為工具，通過對(duì)上機(jī)管理所需的信息管理，把管理人從繁瑣的數(shù)據(jù)計(jì)算處理中解脫出來，網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)是一個(gè)實(shí)時(shí)人機(jī)系統(tǒng)，它要求要有較高的可靠性、可適應(yīng)性、擴(kuò)充能力。</p><p>　　系統(tǒng)采用了先進(jìn)的軟、硬件結(jié)合的方式。</

15、p><p>　　客戶端采用硬件模式，通過硬件級(jí)的底層網(wǎng)絡(luò)登錄與身份驗(yàn)證相結(jié)合, 達(dá)到安全性。管理端采用軟件模式，主要管理網(wǎng)吧的上機(jī)業(yè)務(wù)，它的主要功能模塊包括，系統(tǒng)管理、用戶結(jié)帳管理、電腦與計(jì)算機(jī)信息管理、日常管理、新會(huì)員辦理管理、用戶信息的維護(hù)管理、管理員信息的維護(hù)管理、用戶權(quán)限管理以及實(shí)行跨平臺(tái)管理等。本系統(tǒng)是一個(gè)運(yùn)行在局域網(wǎng)上的子系統(tǒng)，能夠直觀、方便、有效、可靠地管理通過局域網(wǎng)聯(lián)在一起的所有機(jī)器，它具有以下優(yōu)點(diǎn)：

16、 </p><p><b>　　1.不用人守：</b></p><p>　　系統(tǒng)通過提供強(qiáng)大的功能，最大限度降低網(wǎng)吧管理員的工作量，它能夠做到自動(dòng)判斷上網(wǎng)者是否已經(jīng)注冊(cè)會(huì)員、會(huì)員卡上金額是否足夠、以及通過驗(yàn)證上網(wǎng)者的身份來確定是否允許上網(wǎng)者使用機(jī)器，隨時(shí)判斷上網(wǎng)者卡上的當(dāng)前金額還能上機(jī)多久，當(dāng)卡上剩余金額低于系統(tǒng)規(guī)定的限額時(shí)，系統(tǒng)會(huì)提前5分鐘提示上網(wǎng)者，"請(qǐng)

17、準(zhǔn)備下機(jī)"，5分鐘后，系統(tǒng)會(huì)自動(dòng)將上網(wǎng)者所用的機(jī)器電源關(guān)掉。上網(wǎng)者下機(jī)時(shí)，系統(tǒng)自動(dòng)計(jì)算并扣除上網(wǎng)者的上機(jī)費(fèi)用；同時(shí)自動(dòng)將該上網(wǎng)者所用的機(jī)器電源關(guān)掉。</p><p><b>　　2.方便管理：</b></p><p>　　本系統(tǒng)采用友好的界面，能夠幫助網(wǎng)吧管理員方便有效地對(duì)網(wǎng)吧進(jìn)行管理。系統(tǒng)詳細(xì)提供網(wǎng)吧所有機(jī)器的使用狀況，如登錄時(shí)間、總金額、消費(fèi)金額、現(xiàn)剩余

18、金額等信息，使網(wǎng)吧管理人員對(duì)每臺(tái)客戶機(jī)使用狀況一目了然；同時(shí)系統(tǒng)提供強(qiáng)大的管理功能，網(wǎng)吧管理員能夠方便有效地對(duì)網(wǎng)吧內(nèi)任意機(jī)器進(jìn)行管理，如發(fā)消息、禁止使用等。一次可以選中一臺(tái)機(jī)器進(jìn)行管理操作，也可以同時(shí)選中多臺(tái)機(jī)器進(jìn)行管理操作。系統(tǒng)還提供可追蹤的歷史記錄，如上網(wǎng)者上機(jī)的歷史記錄，還包括上網(wǎng)者在辦理會(huì)員卡后忘記密碼，這時(shí)就可根據(jù)上網(wǎng)者最初的原始記錄，查找出密碼。上網(wǎng)者上機(jī)的歷史記錄使得網(wǎng)吧管理人員對(duì)上網(wǎng)者使用機(jī)器狀況有清晰的了解，對(duì)機(jī)器出現(xiàn)

19、的故障能夠追究責(zé)任到個(gè)人。對(duì)上網(wǎng)者消費(fèi)金額的變動(dòng)提供了有跡可尋的記錄。 </p><p><b>　　3.功能強(qiáng)大：</b></p><p>　　網(wǎng)吧使用安排靈活方便，自由安排機(jī)時(shí)單價(jià)，具有預(yù)定座位功能，環(huán)境要求低，適應(yīng)能力強(qiáng)，無須特殊的配置或者專門的服務(wù)器。</p><p>　　本系統(tǒng)充分考慮了用戶環(huán)境各種可能出現(xiàn)的情況，提供靈活的應(yīng)變措施，

20、充分利用網(wǎng)吧的網(wǎng)絡(luò)資源，對(duì)網(wǎng)吧進(jìn)行有效的管理。即使網(wǎng)吧的網(wǎng)絡(luò)發(fā)生故障，不能正常工作，系統(tǒng)仍然能夠在各個(gè)單機(jī)上獨(dú)立地對(duì)機(jī)器資源進(jìn)行安全控制、計(jì)算上機(jī)費(fèi)用、并登記使用情況。</p><p><b>　　4.查詢功能：</b></p><p>　　本系統(tǒng)充分考慮到管理的需要，從網(wǎng)吧管理員、上網(wǎng)者上機(jī)、兩個(gè)層面提供了完善的查詢功能。</p><p>　

21、　從網(wǎng)吧管理員角度，系統(tǒng)提供了有關(guān)任意機(jī)器在任意范圍時(shí)間內(nèi)的使用情況、使用者信息方面的詳細(xì)信息。</p><p>　　從上網(wǎng)者上機(jī)角度，系統(tǒng)提供了個(gè)人在任意時(shí)間范圍內(nèi)的繳費(fèi)情況、消費(fèi)情況及剩余金額等信息，高級(jí)別的安全管理機(jī)制。</p><p><b>　　5.安全機(jī)制：</b></p><p>　　系統(tǒng)提供了方便高效的用戶授權(quán)機(jī)制，加強(qiáng)了對(duì)用戶

22、身份的識(shí)別，避免未經(jīng)授權(quán)的用戶越權(quán)使用系統(tǒng)。VB+ACCESS的使用使得系統(tǒng)的數(shù)據(jù)不會(huì)輕易被外界惡意的攻擊破壞，簡單易懂，使用方便，身份識(shí)別有效者方可上機(jī)，同一身份在同一時(shí)段不可復(fù)用，可有效防止密碼盜用，確保用戶資金安全。</p><p><b>　　6.跨平臺(tái)管理：</b></p><p>　　系統(tǒng)能夠同時(shí)在客戶機(jī)和服務(wù)器機(jī)上進(jìn)行控制和管理，實(shí)現(xiàn)跨平臺(tái)管理。<

23、/p><p>　　并具有系統(tǒng)的可擴(kuò)充性.</p><p><b>　　第二章.系統(tǒng)分析</b></p><p><b>　　2.1需求分析：</b></p><p>　　2.1.1開發(fā)的背景：</p><p>　　針對(duì)網(wǎng)吧內(nèi)機(jī)子太多，上網(wǎng)人數(shù)也比較多，網(wǎng)吧管理人員對(duì)于網(wǎng)吧的管理雜

24、亂無章。工作進(jìn)行的非常不便。有時(shí)在進(jìn)行對(duì)機(jī)子的開機(jī)或者辦理會(huì)員，以及對(duì)機(jī)子維護(hù)時(shí)存在著工作的不便。其主要有以下幾點(diǎn)：</p><p>　　1.在整個(gè)上機(jī)過程中，管理人員需隨時(shí)進(jìn)行上下機(jī)登記、超時(shí)檢查等工作，特別是在上下機(jī)高峰或網(wǎng)吧較大，微機(jī)臺(tái)數(shù)較多的情況下，更是忙成一團(tuán)，往往要安排多人值班才行，造成管理混亂和費(fèi)用增大的問題。</p><p>　　2. 由于上機(jī)是收費(fèi)服務(wù)的，所以免不了要進(jìn)行

25、經(jīng)濟(jì)方面的核算。不論是上機(jī)使用的鈔票還是使用會(huì)員卡進(jìn)行登記，都存在著偽造和人為因素的徇私舞弊行為的極大可能性，無法進(jìn)行有效、準(zhǔn)確、方便的財(cái)務(wù)核查和統(tǒng)計(jì)工作，必然造成經(jīng)濟(jì)損失和難于管理。</p><p>　　3.因缺乏完備的上機(jī)檔案記錄，網(wǎng)吧無法對(duì)網(wǎng)吧的運(yùn)作進(jìn)行便捷的統(tǒng)計(jì)分析。</p><p>　　2.1.2功能簡介：</p><p>　　對(duì)于以上所提出的問題，越來越

26、多的網(wǎng)吧老板意識(shí)到網(wǎng)吧信息化管理的重要性、必要性，并逐步引進(jìn)穩(wěn)定性好的、簡單易用、方便管理、具有人性化的軟件系統(tǒng)。</p><p>　　為了網(wǎng)吧在管理上能減少這種雜亂無章的局面，又能讓網(wǎng)吧管理的工作更具人性化的一面。為此我們將開發(fā)一套針對(duì)于管理網(wǎng)吧的軟件-------網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)。</p><p><b>　　1.查詢功能：</b></p><

27、p>　　我們想到能讓系統(tǒng)的管理在查詢方面有一定的功能。我們將在系統(tǒng)中開發(fā)查詢這一功能。這一功能將完成兩方面的大的工作就是對(duì)網(wǎng)吧內(nèi)的機(jī)子狀態(tài)進(jìn)行查詢還就是對(duì)會(huì)員進(jìn)行查詢。對(duì)會(huì)員的記錄的查詢可以根據(jù)用戶提供的證件進(jìn)行查詢。管理員還可以對(duì)某一個(gè)用戶進(jìn)行查詢以后對(duì)他的記錄進(jìn)行刪除、修改、充值等操作。</p><p><b>　　2.硬件管理：</b></p><p>　

28、　除以上所說的功能以外我們還將對(duì)計(jì)算機(jī)的硬件設(shè)備進(jìn)行管理。也就是說我們將要對(duì)每一臺(tái)機(jī)子CPU 網(wǎng)卡 顯卡等等的硬件設(shè)備進(jìn)行統(tǒng)計(jì)存入數(shù)據(jù)庫中去。進(jìn)行這方面的統(tǒng)計(jì)管理是為了在以后對(duì)機(jī)子的維護(hù)提供一些信息，這樣就對(duì)今后的計(jì)算機(jī)的維護(hù)提供了方便。</p><p>　　2.1.3實(shí)現(xiàn)平臺(tái)：</p><p>　　本系統(tǒng)的功能實(shí)現(xiàn)是通過VB+ACCESS來實(shí)現(xiàn)的我們通過在服務(wù)器上用ACCESS來建立后臺(tái)

29、數(shù)據(jù)庫，然后在應(yīng)用VB6.0來實(shí)現(xiàn)系統(tǒng)工作界面的制作。而在客戶服務(wù)器上也是應(yīng)用VB6.0來實(shí)現(xiàn)界面的制作只不過對(duì)于程序的數(shù)據(jù)調(diào)用是通過調(diào)用服務(wù)器的后臺(tái)數(shù)據(jù)來實(shí)現(xiàn)的。</p><p><b>　　2.2系統(tǒng)分析：</b></p><p>　　2.2.1系統(tǒng)分析的概念：</p><p>　　“分析”通常是指對(duì)現(xiàn)有系統(tǒng)的內(nèi)、外情況進(jìn)行調(diào)查、分析、研究

30、、分解、剖析，以明確問題或機(jī)會(huì)所在，認(rèn)識(shí)解決這些問題或把握這些機(jī)會(huì)的必要性，為確定有關(guān)活動(dòng)的目標(biāo)和可能的方案提供科學(xué)依據(jù)。系統(tǒng)分析也指應(yīng)用系統(tǒng)思想和系統(tǒng)科學(xué)的原理進(jìn)行分析工作的方法與技術(shù)。</p><p>　　2.2.1.1系統(tǒng)分析階段的目標(biāo)：</p><p>　　系統(tǒng)分析階段的目標(biāo)，就是按系統(tǒng)規(guī)則所定的某個(gè)開發(fā)項(xiàng)目范圍內(nèi)明確系統(tǒng)開發(fā)的目標(biāo)和用戶的信息需求，提出系統(tǒng)的邏輯方案。系統(tǒng)分析在整

31、個(gè)開發(fā)過程中，是要解決：“做什么”的問題，把要解決哪些問題，滿足用戶哪些具體的信息需求調(diào)查分析清楚，從邏輯上，或者說從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進(jìn)行物理方案（即計(jì)算機(jī)和通信系統(tǒng)方案）設(shè)計(jì)，解決：“怎么做”提供依據(jù)。</p><p>　　2.2.1.2系統(tǒng)分析工作活動(dòng)以及特點(diǎn)：</p><p>　　系統(tǒng)分析階段的主要活動(dòng)有：系統(tǒng)初步調(diào)查、可行性研究、系統(tǒng)詳細(xì)調(diào)

32、查、新系統(tǒng)邏輯方案的提出。</p><p>　　系統(tǒng)分析工作的特點(diǎn)：</p><p>　　1、工作內(nèi)容涉及面廣，不確定性大。</p><p>　　2、系統(tǒng)分析工作主要面向組織管理問題，工作方式主要是和人打交道。</p><p>　　3、系統(tǒng)分析的主要成果是文件。</p><p>　　4、系統(tǒng)分析工作追求的是有限目標(biāo)。

33、</p><p>　　2.2.2系統(tǒng)的可行性研究：</p><p>　　2.2.2.1開發(fā)網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)的經(jīng)濟(jì)可行性研究：</p><p>　　網(wǎng)吧是向社會(huì)公眾開放的營利性上網(wǎng)服務(wù)提供場(chǎng)所，上網(wǎng)的人員日漸增多，網(wǎng)吧的管理十分不便，開發(fā)此軟件可以有效地減少管理勞動(dòng)力，從而節(jié)約很大一部分管理經(jīng)費(fèi)，在經(jīng)濟(jì)上是可行的。</p><p>　　2.2.

34、2.2開發(fā)網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)的技術(shù)可行性研究：</p><p>　　網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)是比較簡便的軟件，我們是計(jì)算機(jī)專業(yè)的學(xué)生，有一定的編程經(jīng)驗(yàn)，可以將其開發(fā)出來，在技術(shù)上是可行的。</p><p>　　2.2.2.3開發(fā)網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)的操作可行性研究：</p><p>　　網(wǎng)吧管理系統(tǒng)是個(gè)比較簡單的軟件，擁有一定電腦知識(shí)的人都可以使用。網(wǎng)吧管理系統(tǒng)就是一個(gè)使用少量的

35、工作人員對(duì)網(wǎng)吧進(jìn)行管理。只要系統(tǒng)開發(fā)使用后我們就可以使用較少的管理人員和維護(hù)人員來完成網(wǎng)吧里的工作。在操作上是可行的。</p><p>　　2.2.3網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)邏輯模型的提出：</p><p>　　系統(tǒng)分析階段的任務(wù)是明確系統(tǒng)功能。通過對(duì)現(xiàn)行系統(tǒng)的調(diào)查分析，抽象出現(xiàn)行系統(tǒng)的邏輯模型，分析其存在的問題。</p><p>　　2.2.3.1業(yè)務(wù)流程圖：</p

36、><p>　　2.2.3.2數(shù)據(jù)流圖：</p><p><b>　　第三章．系統(tǒng)設(shè)計(jì)</b></p><p>　　3.1系統(tǒng)設(shè)計(jì)的含義：</p><p>　　系統(tǒng)設(shè)計(jì)就是根據(jù)新系統(tǒng)的邏輯模型建立物理模型，是一個(gè)根據(jù)新系統(tǒng)邏輯功能的要求，考慮企業(yè)的實(shí)際情況，詳細(xì)地確定新系統(tǒng)的結(jié)構(gòu)和具體實(shí)施方案的過程。如果說系統(tǒng)分析解決了“系統(tǒng)

37、干什么”的問題，那么系統(tǒng)設(shè)計(jì)就是解決“怎么干”。</p><p>　　3.2系統(tǒng)設(shè)計(jì)的任務(wù)：</p><p>　　系統(tǒng)設(shè)計(jì)的任務(wù)就是要依據(jù)系統(tǒng)分析階段產(chǎn)生的文檔資料，采用正確的方法確定新系統(tǒng)在計(jì)算機(jī)內(nèi)應(yīng)該由哪些程序模塊組成，它們之間用什么方式聯(lián)結(jié)在一起以構(gòu)成一個(gè)最好的系統(tǒng)機(jī)內(nèi)結(jié)構(gòu)，同時(shí)還要使用一定的工具將所設(shè)計(jì)的成果表達(dá)出來。另外，考慮到實(shí)現(xiàn)系統(tǒng)功能的需要，還要進(jìn)行數(shù)據(jù)庫的詳細(xì)設(shè)計(jì)、編碼設(shè)

38、計(jì)、輸入輸出設(shè)計(jì)、人機(jī)界面設(shè)計(jì)、系統(tǒng)的安全設(shè)計(jì)等。</p><p>　　3.3系統(tǒng)設(shè)計(jì)的原則：</p><p><b>　　1、簡單性</b></p><p><b>　　2、一致性和完整性</b></p><p><b>　　3、靈活和適應(yīng)性</b></p>&

39、lt;p><b>　　4、可靠性</b></p><p><b>　　5、安全性</b></p><p><b>　　6、經(jīng)濟(jì)性</b></p><p>　　3.4系統(tǒng)設(shè)計(jì)的目標(biāo)和功能：</p><p>　　系統(tǒng)設(shè)計(jì)就是根據(jù)新系統(tǒng)的邏輯模型建立物理模型，解決“怎么干”的問

40、題。具體的是什么呢？就是根據(jù)系統(tǒng)分析所調(diào)查得到的資料，進(jìn)行進(jìn)一步的具體化的劃分。其實(shí)在系統(tǒng)設(shè)計(jì)里面所要做的東西，與系統(tǒng)分析里面的內(nèi)容是大同小異的。只是在系統(tǒng)設(shè)計(jì)里面把那些內(nèi)容給具體化了。利用分析工具和其他的工具用圖形和文字的形式，把系統(tǒng)所要達(dá)到的功能展現(xiàn)出來，讓用戶能夠看到的明白。</p><p>　　我們可以用下圖（2-3）來對(duì)系統(tǒng)的功能進(jìn)行描述。下圖是一張?jiān)谙到y(tǒng)分析階段的功能結(jié)構(gòu)圖。它為我們展示了一下系統(tǒng)的大

41、的功能模塊的情況。但是我們可以通過這張圖，來描述一下系統(tǒng)的功能。</p><p>　　3.4.1系統(tǒng)功能描述：</p><p>　　通過這張圖我們可以看出系統(tǒng)主要，要實(shí)現(xiàn)的是什么。系統(tǒng)主要實(shí)現(xiàn)是對(duì)用戶的管理、對(duì)信息的處理、對(duì)系統(tǒng)的維護(hù)管理的功能。</p><p>　　在對(duì)用戶的管理的功能方面，又分為對(duì)會(huì)員的管理和對(duì)管理員的管理這兩方面。然而在每一方面又分為登陸管理和

42、注冊(cè)管理。</p><p>　　在對(duì)于信息的處理方面呢，就是對(duì)信息的查詢處理。它主要又分為三個(gè)方面的處理：</p><p>　　1、對(duì)于用戶信息的查詢處理</p><p>　　2、對(duì)于上機(jī)用戶結(jié)賬信息的查詢處理</p><p>　　3、對(duì)于硬件信息的查詢處理</p><p>　　這三個(gè)功能主要是對(duì)信息查詢后，便于對(duì)用戶

43、進(jìn)行注冊(cè)操作和對(duì)計(jì)算機(jī)的維護(hù)工作。</p><p>　　在對(duì)于系統(tǒng)維護(hù)這一個(gè)方面主要是對(duì)計(jì)算機(jī)的硬件的維護(hù)。這一功能的實(shí)現(xiàn)，首先要通過對(duì)計(jì)算機(jī)信息的查詢后在進(jìn)行操作工作。為什么要進(jìn)行先查詢?cè)诓僮髂?？這是為了能讓維護(hù)人員知道，需要維護(hù)的計(jì)算機(jī)它所配的硬件是什么型號(hào)的，在庫存里面還有沒有相應(yīng)的硬件設(shè)備。</p><p><b>　　3.5總體設(shè)計(jì)：</b></p&g

44、t;<p>　　3.5.1總體設(shè)計(jì)中的問題：</p><p>　　總體結(jié)構(gòu)設(shè)計(jì)需要從軟硬件兩方面描述系統(tǒng)的總體結(jié)構(gòu)，需要考慮以下問題:</p><p>　　1、如何將系統(tǒng)總體劃中劃分的子系統(tǒng)更合理的區(qū)別和確認(rèn)</p><p>　　2、如何將子系統(tǒng)劃分為若干模塊</p><p>　　3、模塊間的數(shù)據(jù)傳送和調(diào)用關(guān)系</p>

45、;<p>　　4、如何評(píng)價(jià)模塊結(jié)構(gòu)的質(zhì)量</p><p>　　5、采用怎樣的網(wǎng)絡(luò)拓?fù)浣Y(jié)構(gòu)</p><p>　　6、如何進(jìn)行設(shè)備和網(wǎng)絡(luò)的配置</p><p>　　3.5.2子系統(tǒng)的劃分和確認(rèn)：</p><p>　　1．系統(tǒng)劃分的原則：</p><p>　?。?）子系統(tǒng)要具有相對(duì)獨(dú)立性。</p>

46、<p>　　（2）使數(shù)據(jù)冗余較小。</p><p>　?。?）便于系統(tǒng)分階段實(shí)現(xiàn)。</p><p>　?。?）適應(yīng)組織管理機(jī)構(gòu)的設(shè)置。</p><p>　?。?）充分利用各種資源。</p><p>　　2．系統(tǒng)劃分的方法：</p><p><b>　?。?）按職能劃分</b></

47、p><p>　?。?）按邏輯功能劃分</p><p><b>　　（3）按通信劃分</b></p><p>　?。?）按業(yè)務(wù)處理順序劃分</p><p>　?。?）按業(yè)務(wù)處理的時(shí)間關(guān)系劃分</p><p><b>　　3.6代碼設(shè)計(jì)：</b></p><p&g

48、t;　　3.6.1代碼設(shè)計(jì)的原則：</p><p>　　設(shè)計(jì)好的代碼體系，必須符合以下一些要求：</p><p>　　1、唯一確定性。保證沒一個(gè)被表示的實(shí)體有而且只有一個(gè)確定的代碼。</p><p>　　2、標(biāo)準(zhǔn)化與通用性。應(yīng)盡量采用上級(jí)部門規(guī)定的編碼標(biāo)準(zhǔn)，列如行業(yè)編碼、部委與國家標(biāo)準(zhǔn)編碼等。系統(tǒng)內(nèi)部的代碼必須是統(tǒng)一的和規(guī)范。</p><p>

49、;　　3、可擴(kuò)充性和穩(wěn)定性。代碼的結(jié)構(gòu)和編碼規(guī)則要考慮一段時(shí)期的不變性和日后增加代碼對(duì)象的適應(yīng)性。盡量避免代碼體系的變動(dòng)而引致數(shù)據(jù)存儲(chǔ)結(jié)構(gòu)及程序系統(tǒng)的大修改。</p><p>　　4、便于識(shí)別和記憶。充分運(yùn)用各種結(jié)構(gòu)的符號(hào)組合和編碼技巧，使代碼不僅具有邏輯含義，而且便于識(shí)別和記憶。</p><p>　　5、力求短小與格式統(tǒng)一。在不影響使用的前提下，應(yīng)盡量縮短代碼的長度和使同類代碼在格式上的

50、統(tǒng)一。這不僅是為了讓用戶容易掌握和運(yùn)用，更重要的是要提高計(jì)算機(jī)存儲(chǔ)和處理數(shù)據(jù)的效率。</p><p>　　6、容易修改。在需要時(shí)應(yīng)能方便地對(duì)某些代碼進(jìn)行調(diào)整或修改。</p><p>　　3.6.2代碼結(jié)構(gòu)的類型：</p><p><b>　　1、順序碼</b></p><p><b>　　2、區(qū)間碼</b

51、></p><p><b>　　1）層次碼</b></p><p><b>　　2）十進(jìn)制碼</b></p><p><b>　　3）特征碼</b></p><p><b>　　3、 助記碼</b></p><p><b

52、>　　4、 縮寫碼</b></p><p>　　3.6.3代碼設(shè)計(jì)的步驟與方法：</p><p>　　1、 確定代碼化實(shí)體</p><p><b>　　2、 代碼結(jié)構(gòu)設(shè)計(jì)</b></p><p><b>　　3、 確定編碼規(guī)則</b></p><p><

53、;b>　　4、 實(shí)施編碼</b></p><p>　　5、 建立計(jì)算機(jī)代碼體系</p><p>　　3.6.4本系統(tǒng)中的代碼設(shè)計(jì)：</p><p>　　1、 本系統(tǒng)是針對(duì)網(wǎng)吧管理而開發(fā)的。所以在對(duì)數(shù)據(jù)庫的代碼的設(shè)計(jì)時(shí)，對(duì)于上機(jī)的會(huì)員號(hào)，采用的是區(qū)間碼中的層次碼。采用層次碼可以很快的知道上機(jī)用戶的大概身份，這樣對(duì)于一些突發(fā)事件的發(fā)生，就可以很快的知道

54、一些信息以便于進(jìn)行處理。因?yàn)樵诰W(wǎng)吧里，每臺(tái)電腦都有自己的編號(hào)。在進(jìn)行代碼設(shè)計(jì)的時(shí)候，就可以將電腦的編號(hào)放在前面，再把個(gè)人的編號(hào)放在后面這樣就實(shí)現(xiàn)了代碼的設(shè)計(jì)。</p><p>　　2、 對(duì)于系統(tǒng)采用層次碼，還有一個(gè)很好的好處。就是便于記憶，用戶們不需要把全部的數(shù)字記住，只需要記住后面的數(shù)字即可。</p><p>　　3、 系統(tǒng)的數(shù)據(jù)庫的代碼設(shè)計(jì)，具體請(qǐng)看數(shù)據(jù)字典。</p>&

55、lt;p><b>　　3.7二維表：</b></p><p><b>　　管理員表</b></p><p><b>　　會(huì)員表</b></p><p><b>　　硬件表</b></p><p><b>　　3.8數(shù)據(jù)字典：</b&g

56、t;</p><p><b>　?。?）管理員表</b></p><p><b>　　（2）會(huì)員表</b></p><p><b>　?。?） 硬件管理表</b></p><p>　　3.9功能實(shí)現(xiàn)過程：</p><p>　　功能一 信息查詢

57、：</p><p>　　信息的查詢分的是三方面的查詢： </p><p>　　一 、是對(duì)用戶信息的查詢 </p><p>　　二、 是對(duì)計(jì)算機(jī)狀態(tài)的查詢</p><p>　　三、 是對(duì)計(jì)算機(jī)硬件設(shè)備的查詢</p><p>　　對(duì)于查詢功能來說，都會(huì)根據(jù)一定的條件來進(jìn)行查詢。所以我們?cè)谶M(jìn)行開發(fā)的時(shí)候，都是采用的在菜單中

58、選擇已經(jīng)設(shè)定好的條件來進(jìn)行查詢。無論用戶單擊哪個(gè)，都是使用界面查詢的方式來進(jìn)行信息的查詢。</p><p>　　功能二 硬件管理：</p><p>　　硬件管理功能主要的目的，就是為維護(hù)人員在進(jìn)行維護(hù)工作時(shí)提供方便。因?yàn)橛布芾?，所管理的是?jì)算機(jī)上所安裝的一些硬件設(shè)備的信息。這個(gè)功能的實(shí)現(xiàn)也是采用的界面的形式來完成的。當(dāng)維護(hù)人員把所要維護(hù)的計(jì)算機(jī)的編號(hào)輸入進(jìn)行查詢后，在使用界面的形式反

59、饋出來。</p><p>　　第四章．系統(tǒng)實(shí)現(xiàn)與轉(zhuǎn)換</p><p>　　建立程序界面、編寫程序代碼。</p><p>　　建立程序界面時(shí)，通常要建立主界面窗體，然后利用”菜單編輯器”建立主菜單系統(tǒng)，利用工具條控鍵建立工具條，最后根據(jù)菜單選項(xiàng)的需要分別建立各窗體和對(duì)話框。</p><p>　　4.1建立系統(tǒng)主界面：</p>&l

60、t;p>　　（1）載窗體frm開始，設(shè)置屬性如下：</p><p>　　Caption屬性設(shè)置為“系統(tǒng)主界面“；windowsstate屬性設(shè)置為“2-Maximized”</p><p>　?。?）建立主菜單系統(tǒng)：</p><p>　　該程序的主菜單系統(tǒng)個(gè)菜單項(xiàng)及其選項(xiàng)的具體設(shè)置如表4-1所示：</p><p>　　表4-1 程序主

61、菜單選項(xiàng)設(shè)置一覽表</p><p>　?。?）系統(tǒng)主界面如圖4-3所示：</p><p>　　圖4-3 系統(tǒng)主界面</p><p>　　4.2建立會(huì)員信息查詢界面：</p><p>　　（1）加載窗體和控件，并設(shè)置起屬性如下圖4-5所示：</p><p>　　圖4-5 會(huì)員信息查詢界面</p><

62、;p>　　屬性設(shè)置：將form窗體的caption的值設(shè)為會(huì)員刪修界面, 其WINDOWSSTATE屬性設(shè)為“2-Maximized”；；用菜單編輯器編輯兩個(gè)一級(jí)菜單分別是“刪除”和“修改”；在界面上添加一個(gè)datagride控件，在進(jìn)行字段檢索；添加一個(gè)ADODC控件；添加一個(gè)framle控件設(shè)置其caption屬性為“要修改的信息”；在framle控件里放置8個(gè)標(biāo)簽和8個(gè)文本框，8個(gè)標(biāo)簽的caption屬性分別設(shè)置為“卡號(hào)，密

63、碼，姓名，性別，證件號(hào)，類型，剩余，狀態(tài)”；添加一個(gè)command1控件，設(shè)置其caption屬性值為”提交“。添加一個(gè)command2控件，設(shè)置其caption屬性值為”返回系統(tǒng)主界面“。</p><p>　?。?）編寫代碼如下：</p><p>　　Private Sub hyxxcx_Click()</p><p>　　系統(tǒng)主界面.Hide</p>

64、<p>　　c = InputBox("請(qǐng)輸入卡號(hào)！")</p><p>　　Dim db As New ADODB.Connection</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Dim jj As New ADODB.Recordset</p><p&

65、gt;　　Dim sql As String</p><p>　　db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\機(jī)放上機(jī)管理信息系統(tǒng)\會(huì)員表.mdb;Persist Security Info=False"</p><p><b>　　db.Open</b&g

66、t;</p><p>　　sql = "select * from 會(huì)員表"</p><p>　　rs.Open sql, db, adOpenStatic, adLockReadOnly</p><p>　　If c = "" Then &假設(shè)變量c的值為空則執(zhí)行下列語句</p><p&

67、gt;　　系統(tǒng)主界面.Show</p><p><b>　　Else</b></p><p>　　d = "select * from 會(huì)員表 where 卡號(hào) = '" & c & "'" &變量的值不為空則執(zhí)行下列語句</p><p>　　jj.O

68、pen d, db, adOpenStatic, adLockReadOnly</p><p>　　會(huì)員刪修界面.Text1.Text = jj.Fields(1).Value</p><p>　　會(huì)員刪修界面.Text2.Text = jj.Fields(2).Value</p><p>　　會(huì)員刪修界面.Text3.Text = jj.Fields(3).Val

69、ue</p><p>　　會(huì)員刪修界面.Text4.Text = jj.Fields(4).Value</p><p>　　會(huì)員刪修界面.Text5.Text = jj.Fields(5).Value</p><p>　　會(huì)員刪修界面.Text6.Text = jj.Fields(6).Value</p><p>　　會(huì)員刪修界面.Text7

70、.Text = jj.Fields(7).Value</p><p>　　會(huì)員刪修界面.Text8.Text = jj.Fields(8).Value &將查詢所得記錄的字段值顯示在會(huì)員刪修界面對(duì)應(yīng)的文本框中</p><p>　　會(huì)員刪修界面.Show</p><p><b>　　End If</b></p>&

71、lt;p><b>　　End Sub</b></p><p>　　Private Sub xg_Click()</p><p>　　MsgBox "你是否確定要進(jìn)行修改？"</p><p>　　Frame1.Visible = True</p><p>　　Command1.Visible =

72、True</p><p>　　MsgBox "請(qǐng)雜文本框中填寫你要修改的項(xiàng)后單擊提交"</p><p><b>　　End Sub</b></p><p>　　Private Sub 提交_Click()</p><p>　　Dim db As New ADODB.Connection &a

73、mp;與數(shù)據(jù)庫建立連接</p><p>　　Dim rs As New ADODB.Recordset &聲明可用記錄集</p><p>　　Dim sql As String</p><p>　　Dim z As String</p><p>　　db.ConnectionString = "Provider=M

74、icrosoft.Jet.OLEDB.4.0;Data Source=I:\機(jī)放上機(jī)管理信息系統(tǒng)\會(huì)員表.mdb;Persist Security Info=False" &連接數(shù)據(jù)庫的路徑</p><p>　　db.Open &打開庫</p><p>　　sql = "select * from 會(huì)員表" &am

75、p;查詢會(huì)員表里面的所有記錄</p><p>　　rs.Open sql, db, adOpenStatic, adLockReadOnly &打開記錄</p><p><b>　　rs.Close</b></p><p>　　z = InputBox("請(qǐng)?jiān)诖_認(rèn)一下卡號(hào)") &在修該信息

76、填寫好以后在次輸入卡號(hào)進(jìn)行確認(rèn)</p><p>　　a = "update 會(huì)員表 set 卡號(hào) = '" & Text1.Text & "',密碼 = '" & Text2.Text & "',姓名= '" & Text3.Text & "',性別

77、= '" & Text4.Text & "',證件號(hào)= '" & Text5.Text & "',類型= '" & Text6.Text & "',剩余= '" & Text7.Text & "',狀態(tài)= '" &

78、amp; Text8.Text & "'where 卡號(hào)='" & z & "'" &修改卡號(hào)等于InputBox里面的值的記錄，其對(duì)應(yīng)字段的值在文本框里面取</p><p>　　rs.Open a, db, adOpenStatic, adLockReadOnly &打開記錄集與數(shù)據(jù)庫的連

79、接</p><p>　　MsgBox "你已經(jīng)提交成功！"</p><p>　　Adodc1.Refresh & Adodc控件更新</p><p>　　1.Refresh &DataGrid控件更新</p><p>　　DataGrid1.Visible = True &am

80、p;DataGrid設(shè)置為可見</p><p>　　Frame1.Visible = False & Frame設(shè)置為不可見</p><p><b>　　End Sub</b></p><p>　　Private Sub 刪除_Click()</p><p>　　Dim j, x As String&l

81、t;/p><p>　　x = InputBox("請(qǐng)?jiān)诖_認(rèn)一下卡號(hào)")</p><p>　　j = MsgBox("你確定要?jiǎng)h除這條記錄嗎？")</p><p>　　Dim db As New ADODB.Connection &與數(shù)據(jù)庫建立連接</p><p>　　Dim rs As N

82、ew ADODB.Recordset &聲明可用記錄集</p><p>　　Dim sql As String</p><p>　　db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\機(jī)放上機(jī)管理信息系統(tǒng)\會(huì)員表.mdb;Persist Security Info=Fals

83、e" &連接數(shù)據(jù)庫的路徑</p><p>　　db.Open &打開庫</p><p>　　sql = "delete * from 會(huì)員表 where 卡號(hào) ='" & x & "'"刪除卡號(hào)等于InputBox值的記錄</p><p>　　rs.

84、Open sql, db, adOpenStatic, adLockReadOnly &打開記錄集</p><p>　　MsgBox "你已經(jīng)成功刪除記錄"</p><p>　　Adodc1.Refresh & Adodc控件更新</p><p>　　DataGrid1.Refresh &Da

85、taGrid控件更新</p><p>　　DataGrid1.Visible = True &DataGrid設(shè)置為顯示</p><p><b>　　End Sub</b></p><p>　　Private Sub 返回系統(tǒng)主界面_Click()</p><p>　　會(huì)員刪修界面.Hide</p

86、><p>　　系統(tǒng)主界面.Show</p><p><b>　　End Sub</b></p><p>　　會(huì)員信息查詢的實(shí)現(xiàn)過程，就是當(dāng)用戶在系統(tǒng)主菜單上，用菜單會(huì)員信息查詢的時(shí)候，就會(huì)彈出一個(gè)inputbox叫用戶輸入要查詢相關(guān)會(huì)員的卡號(hào)。這時(shí)系統(tǒng)就會(huì)根據(jù)卡號(hào)從數(shù)據(jù)庫中，查詢出相關(guān)信息。這些信息就會(huì)被顯示在會(huì)員刪修界面上的文本框里。當(dāng)用戶想對(duì)查

87、詢出來的信息進(jìn)行修改時(shí)，可以單擊菜單修改，然后根據(jù)提示進(jìn)行操作。如果用戶還想對(duì)某個(gè)會(huì)員的信息進(jìn)行刪除的話，可以用菜單刪除，只須要輸入會(huì)員的卡號(hào)即可。</p><p>　　4.3建立管理員信息查詢界面：</p><p>　?。?）加載窗體和控件，并設(shè)置起屬性如下圖4-6所示：</p><p>　　圖4-6 管理員信息查詢界面</p><p>

88、　　屬性設(shè)置：將form窗體的caption的值設(shè)為管理員刪修界面, 其WINDOWSSTATE屬性設(shè)為“2-Maximized”；；用菜單編輯器編輯兩個(gè)一級(jí)菜單分別是“刪除”和“修改”；在界面上添加一個(gè)datagride控件，在進(jìn)行字段檢索；添加一個(gè)ADODC控件；添加一個(gè)framle控件設(shè)置其caption屬性為“要修改的信息”；在framle控件里放置8個(gè)標(biāo)簽和8個(gè)文本框，8個(gè)標(biāo)簽的caption屬性分別設(shè)置為“卡號(hào)，密碼，姓名，

89、性別，年齡，電話號(hào)碼，備注，編號(hào)”；添加一個(gè)command控件，設(shè)置其caption屬性值為”提交“。添加一個(gè)command2控件，設(shè)置其caption屬性值為”返回系統(tǒng)主界面“。</p><p>　　（2）編寫代碼如下：</p><p>　　Private Sub glyxxcx_Click()</p><p>　　系統(tǒng)主界面.Hide</p>&l

90、t;p>　　z = InputBox("請(qǐng)輸入管理員使用的用戶名")</p><p>　　管理員刪修界面.Text1.Text = ""</p><p>　　管理員刪修界面.Text2.Text = ""</p><p>　　管理員刪修界面.Text3.Text = ""</

91、p><p>　　管理員刪修界面.Text4.Text = ""</p><p>　　管理員刪修界面.Text5.Text = ""</p><p>　　管理員刪修界面.Text6.Text = ""</p><p>　　管理員刪修界面.Text7.Text = ""&

92、lt;/p><p>　　管理員刪修界面.Text8.Text = "" &將管理員刪修界面的8個(gè)文本框進(jìn)行清空</p><p>　　Dim db As New ADODB.Connection &與數(shù)據(jù)庫建立連接</p><p>　　Dim rs As New ADODB.Recordset &建

93、立可用記錄集</p><p>　　Dim sql As String</p><p>　　Dim x As String</p><p>　　Dim kk As New ADODB.Recordset &建立可用記錄集</p><p>　　db.ConnectionString = "Provider=Micros

94、oft.Jet.OLEDB.4.0;Data Source=I:\機(jī)放上機(jī)管理信息系統(tǒng)\會(huì)員表.mdb;Persist Security Info=False" &建立連接數(shù)據(jù)庫的路徑</p><p>　　db.Open &打開數(shù)據(jù)庫</p><p>　　sql = "select * from 管理員表" &am

95、p;查詢管理員表里面的所有記錄</p><p>　　rs.Open sql, db, adOpenStatic, adLockReadOnly &打開所有查詢所得的記錄返回到記錄集rs中</p><p>　　While rs.EOF = True &給定循環(huán)語句里的條件</p><p>　　rs.MoveNext</p>

96、;<p><b>　　Wend</b></p><p>　　If z = "" Then</p><p>　　系統(tǒng)主界面.Show</p><p><b>　　Else</b></p><p>　　x = "select * from 管理員表 wher

97、e 用戶名 = '" & z & "'" &查詢關(guān)于用戶名為變量z的記錄</p><p>　　kk.Open x, db, adOpenStatic, adLockReadOnly</p><p>　　管理員刪修界面.Text1.Text = kk.Fields(1).Value</p><

98、;p>　　管理員刪修界面.Text2.Text = kk.Fields(2).Value</p><p>　　管理員刪修界面.Text3.Text = kk.Fields(3).Value</p><p>　　管理員刪修界面.Text4.Text = kk.Fields(4).Value</p><p>　　管理員刪修界面.Text5.Text = kk.Fi

99、elds(5).Value</p><p>　　管理員刪修界面.Text6.Text = kk.Fields(6).Value</p><p>　　管理員刪修界面.Text7.Text = kk.Fields(7).Value</p><p>　　管理員刪修界面.Text8.Text = kk.Fields(0).Value &將查詢所獲得的記錄的

100、字段值輸入到管理員刪修界面相應(yīng)的文本框里</p><p>　　管理員刪修界面.Show</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　

101、　Command1.Visible = False</p><p><b>　　End Sub</b></p><p>　　Private Sub 提交_Click()</p><p>　　Dim db As New ADODB.Connection &與數(shù)據(jù)庫建立連接</p><p>　　Dim rs

102、 As New ADODB.Recordset &建立返回的可用記錄集</p><p>　　Dim sql As String</p><p>　　Dim a As String</p><p>　　Dim z As String</p><p>　　db.ConnectionString = "Provider=

103、Microsoft.Jet.OLEDB.4.0;Data Source=I:\機(jī)放上機(jī)管理信息系統(tǒng)\會(huì)員表.mdb;Persist Security Info=False" &建立與數(shù)據(jù)庫建立連接的路徑</p><p>　　db.Open &打開庫</p><p>　　sql = "select * from 管理員表"

104、 &查詢管理員表里面的所有記錄</p><p>　　rs.Open sql, db, adOpenStatic, adLockReadOnly</p><p><b>　　rs.Close</b></p><p>　　z = InputBox("請(qǐng)?jiān)诖_認(rèn)一下用戶名")</p><p>　

105、　a = "update 管理員表 set 用戶名 = '" & Text1.Text & "',密碼 = '" & Text2.Text & "',姓名= '" & Text3.Text & "',性別= '" & Text4.Text &

106、; "',年齡= '" & Text5.Text & "',電話號(hào)碼= '" & Text6.Text & "',備注= '" & Text7.Text & "' where 用戶名='" & z & "'&quo

107、t; &修改用戶名為變量z的記錄，其修改的值在管理員刪修界面里面的文本框里取</p><p>　　rs.Open a, db, adOpenStatic, adLockReadOnly</p><p>　　MsgBox "你已經(jīng)提交成功！"</p><p>　　Adodc1.Refresh & Adodc控件更

108、新</p><p>　　DataGrid1.Refresh & DataGrid控件更新</p><p>　　DataGrid1.Visible = True & DataGrid設(shè)置為可見</p><p>　　Frame1.Visible = False & Frame設(shè)置為不可用</p><

109、;p><b>　　End Sub</b></p><p>　　Private Sub 刪除_Click()</p><p>　　Dim j, x As String</p><p>　　x = InputBox("請(qǐng)?jiān)诖_認(rèn)一下姓名")</p><p>　　j = MsgBox("你確定

110、要?jiǎng)h除這條記錄嗎？")</p><p>　　Dim db As New ADODB.Connection &與數(shù)據(jù)庫建立連接</p><p>　　Dim rs As New ADODB.Recordset &建立可用的記錄集</p><p>　　Dim sql As String</p><p>

111、　　db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\機(jī)放上機(jī)管理信息系統(tǒng)\會(huì)員表.mdb;Persist Security Info=False" &建立與數(shù)據(jù)庫進(jìn)行連接的路徑</p><p>　　db.Open &打開庫</p><p>　

112、　sql = "delete * from 管理員表 where 用戶名 ='" & x & "'" &刪除用戶名為變量z的記錄</p><p>　　rs.Open sql, db, adOpenStatic, adLockReadOnly</p><p>　　MsgBox " 你已經(jīng)成功刪

113、除記錄"</p><p>　　Adodc1.Refresh & Adodc控件更新</p><p>　　DataGrid1.Refresh & DataGrid控件更新</p><p>　　DataGrid1.Visible = True & DataGrid設(shè)置為可見</p><p

114、><b>　　End Sub</b></p><p>　　Private Sub 返回系統(tǒng)主界面_Click()</p><p>　　系統(tǒng)主界面.Show</p><p><b>　　End Sub</b></p><p>　　管理員信息查詢的實(shí)現(xiàn)過程，與會(huì)員信息查詢的實(shí)現(xiàn)過程大同小異。當(dāng)用戶

115、在想對(duì)管理員的信息進(jìn)行查詢的時(shí)候，就可以通過系統(tǒng)主界面上的管理員信息查詢菜單來實(shí)現(xiàn)。當(dāng)用戶單擊管理員信息查詢菜單的時(shí)候，就會(huì)出現(xiàn)一個(gè)inputbox，這時(shí)候用戶只需要輸入用戶就可對(duì)管理員的信息進(jìn)行查詢。系統(tǒng)會(huì)將查詢到的信息，顯示到管理員刪修界面的文本框里面。如果用戶想對(duì)查詢到信息進(jìn)行修改，則可以通過單擊修改菜單然后根據(jù)提示進(jìn)行修改。</p><p>　　如用戶想對(duì)某個(gè)管理員的信息進(jìn)行刪除的話，則可以通過刪除菜單來

116、實(shí)現(xiàn)。</p><p>　　當(dāng)用戶進(jìn)行一系列的操作之后。可以單擊返回系統(tǒng)主界面安鈕返回系統(tǒng)主界面。</p><p>　　4.4建立硬件維護(hù)界面：</p><p>　?。?）加載窗體和控件，并設(shè)置起屬性如下圖4-7所示：</p><p>　　圖4-7 硬件維護(hù)界面</p><p>　　屬性設(shè)置：將form的captio

117、n 屬性設(shè)置為“維護(hù)界面“，其WINDOWSSTATE屬性設(shè)為“2-Maximized”；在添加6個(gè)標(biāo)簽控件和6個(gè)文本框，6個(gè)標(biāo)簽控件的caption屬性分別設(shè)置為“計(jì)算機(jī)編號(hào)，cpu型號(hào)，顯卡型號(hào)，內(nèi)存條型號(hào)，硬盤型號(hào)，備注“；添加一個(gè)command控件設(shè)置其caption屬性為”關(guān)閉“。</p><p>　　（2）編寫代碼如下：</p><p>　　Private Sub wh_Cli

118、ck()</p><p>　　Dim a As String</p><p>　　a = InputBox("請(qǐng)輸入你要進(jìn)行維護(hù)的計(jì)算機(jī)的編號(hào)，以便于了解其所安裝的硬件情況。")</p><p>　　Dim db As New ADODB.Connection &與數(shù)據(jù)庫建立連接</p><p>　　Di

119、m rs As New ADODB.Recordset &建立返回可用記錄集</p><p>　　Dim sql As String</p><p>　　Dim kk As New ADODB.Recordset &建立返回可用記錄集</p><p>　　Dim b As String</p><p>　　

120、db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\機(jī)放上機(jī)管理信息系統(tǒng)\會(huì)員表.mdb;Persist Security Info=False" &建立與數(shù)據(jù)庫進(jìn)行連接的路徑</p><p>　　db.Open &打開庫</p><p>　　I

121、f a = "" Then</p><p>　　系統(tǒng)主界面.Show</p><p><b>　　Else</b></p><p>　　sql = "select * from 硬件表" &查詢硬件表里面的所有記錄</p><p>　　rs.Open sql, d

122、b, adOpenStatic, adLockReadOnly</p><p>　　b = "select * from 硬件表 where 計(jì)算機(jī)編號(hào) = '" & a & "'" &查詢計(jì)算機(jī)編號(hào)為變量z的記錄</p><p>　　kk.Open b, db, adOpenStatic, adLo

123、ckReadOnly</p><p>　　If 維護(hù)界面.Text2.Text = "text2" And 維護(hù)界面.Text3.Text = "text3" And 維護(hù)界面.Text4.Text = "text4" And 維護(hù)界面.Text5.Text = "text5" And 維護(hù)界面.Text6.Text = "

124、text6" Then</p><p>　　MsgBox "沒有此條記錄！"</p><p><b>　　Else</b></p><p>　　維護(hù)界面.Text1.Text = kk.Fields(0).Value</p><p>　　維護(hù)界面.Text2.Text = kk.Fields

125、(1).Value</p><p>　　維護(hù)界面.Text3.Text = kk.Fields(2).Value</p><p>　　維護(hù)界面.Text4.Text = kk.Fields(3).Value</p><p>　　維護(hù)界面.Text5.Text = kk.Fields(4).Value</p><p>　　維護(hù)界面.Text6.

126、Text = kk.Fields(5).Value &將查詢的值顯示在維護(hù)界面的文本框里面</p><p><b>　　維護(hù)界面.Show</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p&g

127、t;<b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p><b>　　維護(hù)界面.Hide</b></p><p>　　系統(tǒng)主界面.Show</p><p><b>　　End Sub</b></p

128、><p>　　維護(hù)界面主要，要實(shí)現(xiàn)的就是查詢各個(gè)計(jì)算機(jī)，.配備的硬件設(shè)備的情況。其實(shí)現(xiàn)過程就是用戶在用鼠標(biāo)單擊系統(tǒng)主界面的維護(hù)的時(shí)候，就會(huì)提示用戶輸入計(jì)算機(jī)的編號(hào)。然后系統(tǒng)就會(huì)根據(jù)計(jì)算機(jī)的編號(hào)查詢信息。將查詢到的信息顯示在維護(hù)界面的文本框內(nèi)。</p><p>　　當(dāng)用戶瀏覽了信息以后，可以單擊關(guān)閉然后返回到系統(tǒng)主界面。</p><p><b>　　第五章．結(jié)論

129、</b></p><p>　　對(duì)于系統(tǒng)功能的總結(jié)：</p><p>　　5.1會(huì)員信息查詢：</p><p>　　1）會(huì)員信息查詢，就是對(duì)于會(huì)員信息的查詢?yōu)g覽，以便于進(jìn)行進(jìn)一步的操作的一項(xiàng)查詢功能。其操作的步驟如下：</p><p>　　1）在主系統(tǒng)界面上單擊會(huì)員信息查詢菜單；</p><p>　　2）在彈