【文章內(nèi)容簡(jiǎn)介】 行過(guò)程設(shè)計(jì)，過(guò)程設(shè)計(jì)是確定每個(gè)模塊的處理過(guò)程。 本系統(tǒng)共有兩個(gè)數(shù)據(jù)庫(kù)，一個(gè)是儀器性能指標(biāo)數(shù)據(jù)庫(kù)，另一個(gè)是用戶(hù)標(biāo)識(shí)和鑒定數(shù)據(jù)庫(kù)。設(shè)計(jì)中規(guī)定了數(shù)據(jù)庫(kù)的結(jié)構(gòu)（表、記錄、字段、關(guān)鍵字 ）、制訂了數(shù)據(jù)所應(yīng)滿(mǎn)足的條件、規(guī)定了用戶(hù)的使用密碼和用戶(hù)名 ,幫助用戶(hù)方便地對(duì)數(shù)據(jù)庫(kù)中數(shù)據(jù)進(jìn)行操作。 以下是本系統(tǒng)的功能模塊圖 33。 倉(cāng)庫(kù)設(shè)備數(shù)據(jù)庫(kù)管理系統(tǒng) 用戶(hù)信息數(shù)據(jù)庫(kù) 儀器信息數(shù)據(jù)庫(kù) 工程文件 報(bào)表信息界面 查詢(xún)信息界面 修改信息界面 添加信息界面 刪除信息界面 修改用戶(hù)界面 添加用戶(hù)界面 刪除用戶(hù)界面 用戶(hù)登錄界面 功能管理主界面 成都理工大學(xué)畢業(yè)論文 8 圖 33 系統(tǒng)功能模塊圖 在數(shù)據(jù)庫(kù)管理系統(tǒng)的應(yīng)用程序中有十個(gè)應(yīng)用窗體文件，分別是： 用戶(hù)登陸應(yīng)用窗體文件，完成用戶(hù)登錄進(jìn)入管理系統(tǒng)的功能； 修改 用戶(hù) 應(yīng)用窗體文件，完成對(duì)已有記載的用戶(hù)進(jìn)行密碼重新設(shè)定的功能。 添加用戶(hù)應(yīng)用窗體文件，完成添加用戶(hù)信息功能，記錄用戶(hù)名和用戶(hù)密碼； 刪除用戶(hù)應(yīng)用窗體 文件，完成刪除用戶(hù)信息功能； 信息管理和用戶(hù)管理的主窗體，完成用戶(hù)對(duì)系統(tǒng)功能的全局控制； 查詢(xún)信息應(yīng)用窗體文件，完成通過(guò)儀器編號(hào)和名稱(chēng)對(duì)儀器進(jìn)行查詢(xún)的功能； 修改信息應(yīng)用窗體文件，完成修改儀器設(shè)備信息的功能； 添加信息應(yīng)用窗體文件，完成信息的添加功能； 刪除信息應(yīng)用窗體文件，完成刪除儀器設(shè)備信息的功能； 報(bào)表信息應(yīng)用窗體文件，完成報(bào)表提交功能。 創(chuàng)建數(shù)據(jù)庫(kù) 在使用 Visual Basic 開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序時(shí)，其后臺(tái)數(shù)據(jù)庫(kù)可以選用多種格式，本系統(tǒng)使用 Microsoft Access 的數(shù)據(jù)庫(kù)格式，因?yàn)?SQLSever 數(shù)據(jù)庫(kù)和Visual Basic 數(shù)據(jù)庫(kù)都是 Microsoft Jet 數(shù)據(jù)庫(kù)，其數(shù)據(jù)庫(kù)對(duì)象的層次結(jié)構(gòu)和編程方法是完全相同的，用 SQLSever 創(chuàng)建的數(shù)據(jù)庫(kù)可以原封不動(dòng)地用到 Visual Basic 應(yīng)用程序中。 SQLSever 數(shù)據(jù)庫(kù)表的建立方法是：準(zhǔn)備好設(shè)計(jì)資料，先在紙上設(shè)計(jì)好數(shù)據(jù)庫(kù)的結(jié)構(gòu)，即由哪幾個(gè)表組成，每個(gè)表包含哪幾個(gè)字段，各個(gè)字段的屬性如何，哪個(gè)字段是關(guān)鍵字，共有多少個(gè)記錄。下面介紹本系統(tǒng)中兩個(gè)數(shù)據(jù)庫(kù)的創(chuàng)建方法。 創(chuàng)建 設(shè)備 數(shù)據(jù)庫(kù) 本系統(tǒng)的儀器數(shù)據(jù)庫(kù)是用 Microsoft SQLSever 創(chuàng)建的。下面示例的表中主關(guān)鍵字是“ Number”。 創(chuàng)建步驟如下： 創(chuàng)建一個(gè)新的空數(shù)據(jù)庫(kù)，確定數(shù)據(jù)庫(kù)的名稱(chēng)及數(shù)據(jù)庫(kù)的保存類(lèi)型； 向空數(shù)據(jù)庫(kù)添加表，將數(shù)據(jù)進(jìn)行分類(lèi)和量化，并設(shè)置表單的主鍵；使數(shù)據(jù)便于計(jì)算機(jī)處理。列出每一個(gè)表所包含的數(shù)據(jù)字段名稱(chēng)，確定每個(gè)字段的數(shù)據(jù)類(lèi)型和字段大小； 在表單中輸入和修改數(shù)據(jù)； 保存數(shù)據(jù)庫(kù)。 如圖 34 所示： 成都理工大學(xué)畢業(yè)論文 9 圖 34 創(chuàng)建關(guān)鍵字為“ Number” 的表 其 E— R 圖為： 圖 35 倉(cāng)庫(kù)設(shè) 備 ER圖 創(chuàng)建 用戶(hù)信息 數(shù)據(jù)庫(kù) 安全性問(wèn)題是所有計(jì)算機(jī)系統(tǒng)都有的問(wèn)題，只是在數(shù)據(jù)庫(kù)系統(tǒng)中大量數(shù)據(jù)集中存放，而且是多用戶(hù)共享，使安全性問(wèn)題更為突出。數(shù)據(jù)庫(kù)安全與恢復(fù)是數(shù)據(jù)庫(kù)保護(hù)的組成部分，數(shù)據(jù)庫(kù)保護(hù)一般包括四個(gè)方面的內(nèi)容，其中安全性主要是對(duì)用戶(hù)的存取數(shù)據(jù)庫(kù)中數(shù)據(jù)權(quán)限的控制，以保證數(shù)據(jù)庫(kù)的安全和保密。本系統(tǒng)根據(jù)任務(wù)書(shū)的要求，主要是對(duì)數(shù)據(jù)庫(kù)的安全性進(jìn)行了設(shè)計(jì)。 在計(jì)算機(jī)系統(tǒng)中，一般說(shuō)來(lái)安全措施是分級(jí)設(shè)置的，本系統(tǒng)安全性設(shè)計(jì)中采用的是用戶(hù)標(biāo)識(shí)和鑒定。用戶(hù)標(biāo)識(shí)和鑒定是系統(tǒng)提供的最外層的安全保護(hù)措施，其方法是 由系統(tǒng)提供一定的方式讓用戶(hù)標(biāo)識(shí)自己的名字或身份，每次用戶(hù)要進(jìn)入系統(tǒng)時(shí)，系統(tǒng)對(duì)用戶(hù)身份進(jìn)行核實(shí)，通過(guò)鑒定后才提供系統(tǒng)使用權(quán)。本系統(tǒng)采用的方法具體是：用一個(gè)用戶(hù)名來(lái)標(biāo)明用戶(hù)身份，系統(tǒng)鑒別此用戶(hù)是否是合法的用戶(hù)，若是，則可進(jìn)入下一步的核實(shí)；若不是，則不能使用系統(tǒng)。為了進(jìn)一步核實(shí)用戶(hù)，系統(tǒng)要求用戶(hù)輸入密碼，為保密起見(jiàn)，用戶(hù)在終端上輸入的口令不顯示在屏幕上，系統(tǒng)核定密碼以鑒別用戶(hù)身份。 其 E— R 圖為： 設(shè)備 類(lèi)型編號(hào) 設(shè)備編號(hào) 設(shè)備編號(hào) 設(shè)備類(lèi)型 設(shè)備大小 設(shè)備單價(jià) 生產(chǎn)廠(chǎng)家 成都理工大學(xué)畢業(yè)論文 10 圖 36 用戶(hù)信息 ER圖 創(chuàng)建應(yīng)用工程文件 本系統(tǒng) 的應(yīng)用工程文件是用 Visual 創(chuàng)建的，選定“標(biāo)準(zhǔn)的可執(zhí)行文件”單擊“打開(kāi)”進(jìn)入工程的窗體文件設(shè)計(jì)。 用戶(hù)管理模塊設(shè)計(jì) 用戶(hù)管理模塊主要實(shí)現(xiàn)： 1． 用戶(hù)登錄。 2．修改密碼。 3． 添加用戶(hù)。 4．刪除用戶(hù) 用戶(hù)登錄 系統(tǒng)啟動(dòng)后，將首先出現(xiàn)如圖所示的用戶(hù)登錄窗體，用戶(hù)首先輸入用戶(hù)名，然后輸入密碼。如果用戶(hù) 3 次輸入密碼不正確，將退出程序。 如 圖 37： 用戶(hù)密碼 用戶(hù)帳號(hào) 用戶(hù)密碼 成都理工大學(xué)畢業(yè)論文 11 圖 37 用戶(hù)登錄窗口 用戶(hù)登錄窗體中放置了二個(gè)文本框 (TextBox)，用來(lái)輸入用戶(hù)名和用戶(hù)密碼：二個(gè)按鈕 (CommandButton)用來(lái)確定或者取消登錄：三個(gè)標(biāo)簽 (Label)用來(lái)標(biāo)示窗體的信息。 為窗體定義全局變量 ok，用來(lái)判斷登錄是否成功，定義 micount，用來(lái)記載輸入密碼的次數(shù)，并且在載入窗體時(shí)初始化這二個(gè)全局變量，代碼如下： Option Explicit Public OK As Boolean 記錄確定次數(shù) Dim miCount As Integer Private Sub Form_Load() OK = False miCount = 0 End Sub 當(dāng)用戶(hù)輸入用戶(hù)名和密碼后，單擊 cmdok按鈕將對(duì)用戶(hù)信息進(jìn)行判斷。用戶(hù)單擊該按鈕，將觸發(fā)該按鈕 cmdok 的 click 事件，代碼如下： Dim txtSQL As String Dim mrc As Dim MsgText As String 39。ToDo: create test for correct password 39。check for correct password UserName = If Trim( = ) Then 成都理工大學(xué)畢業(yè)論文 12 MsgBox 沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入用戶(hù)名！ , vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user_Info where user_ID = 39。 amp。 amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入用戶(hù)名 !, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入密碼不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 If miCount = 3 Then 成都理工大學(xué)畢業(yè)論文 13 End If Exit Sub 用戶(hù)如果沒(méi)有輸入用戶(hù)名和用戶(hù)密碼，將出現(xiàn)消息框提示，如果輸入的用戶(hù)名在用戶(hù)表中沒(méi)有找到，將提示重新輸入用戶(hù)名，文本框 txtusername 將重新獲得輸入焦點(diǎn)。如果用戶(hù)輸入的密碼不正確，文本框 txtpassword 將重新獲得輸入焦點(diǎn)。用戶(hù)登錄成功，全局變量 ok將被賦值為 true。一旦 三次輸入密碼均不正確，全局變量 ok將被賦值為 false。公用模塊中的 main（）過(guò)程將根據(jù) ok 的值來(lái)決定是退出，還是進(jìn)入系統(tǒng)。 如果用戶(hù)取消登錄，單擊 cmdcancel 按鈕，將觸發(fā)按鈕的 click 事件，代碼如下： OK = False 修改 密碼 用戶(hù)可以修改自己的密碼，選擇菜單“系統(tǒng) 修改密碼”出現(xiàn)如圖所示的窗體： 圖 38 修改密碼窗口 在這個(gè)窗體中放置了三個(gè)文本框，用來(lái)輸入 舊密碼，新 密碼和確認(rèn)密碼， 二個(gè)按鈕按鈕用來(lái)確定是否修改密碼，三個(gè)標(biāo)簽用來(lái)標(biāo)示文本框的內(nèi)容。 二 次輸入密碼后，單擊 cmdok 按鈕，將觸發(fā) click 事件判斷是否修改密碼。代碼如下： 成都理工大學(xué)畢業(yè)論文 14 Private Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 密碼輸入不正確！ , vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Else txtSQL = select * from user_Info where user_ID = 39。 amp。 UserName amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) (1) = Text1(1).Text MsgBox 密碼修改成功！ , vbOKOnly + vbExclamation, 修改密碼 End If End Sub 添加用戶(hù) 進(jìn)入系統(tǒng)后，選擇菜單“系統(tǒng) 添加用戶(hù)”，就可以添加用戶(hù)，出現(xiàn)添加用戶(hù)的窗體： 圖 39 添加用戶(hù)窗口 在這個(gè)窗體中放置了 三 個(gè)文本框，用來(lái)輸入 用戶(hù)名， 密碼和確認(rèn)密碼，二個(gè)按鈕用來(lái)確定是否修改密碼， 三 個(gè)標(biāo)簽用來(lái)標(biāo)示文本框的內(nèi)容。 二次輸入密碼后，單擊 cmdok 按鈕，將觸發(fā) click 事件判斷 是否修改密碼，代碼如下： Private Sub cmdOK_Click() 成都理工大學(xué)畢業(yè)論文 15 Dim txtSQL As String Dim mrc As Dim MsgText As String If Trim(Text1(0).Text) = Then MsgBox 請(qǐng)輸入用戶(hù)名稱(chēng)！ , vbOKOnly + vbExclamation, 警告 Exit Sub Text1(0).SetFocus Else txtSQL = select * from user_Info Set mrc = ExecuteSQL(txtSQL, MsgText) While ( = False) If Trim((0)) = Trim(Text1(0)) Then MsgBox 用戶(hù)已經(jīng)存在，請(qǐng)重新輸入用戶(hù)名！ , vbOKOnly + vbExclamation, 警告 Text1(0).SetFocus Text1(0).Text = Text1(1).Text = Text1(2).Text = Exit Sub Else End If Wend End If If Trim(Text1(1).Text) Trim(Text1(2