【正文】 計算機系畢業(yè)設(shè)計文檔 10 第 3章 Windows 下的 Visual Basic 編程環(huán)境簡介 Visual Basic（簡稱 VB）是 一種可視化的、事件驅(qū)動型的 Windows 應(yīng)用程序開發(fā)工具，它在 GUI 設(shè)計、繪圖、制表、運算、通信和多媒體開發(fā)方面都具有簡單易行、功能強大等優(yōu)點，所以越來越受到開發(fā)人員的親睞。現(xiàn)在，就 VB 應(yīng)用數(shù)據(jù)庫的一些方法作一 簡單的介紹。 二 . 設(shè)置聯(lián)接庫 用鼠標單擊 Data1，按下 F4，打開屬性窗口，設(shè)置 Connect 屬性為 ，設(shè)置DatabaseName 為 c:\foxprow\（假設(shè)磁盤上已有這個文件）。 此時，一個具備數(shù)據(jù)庫讀寫、瀏覽功能的應(yīng)用程序就建立了，按下 F5運行，通過單擊 Data1計算機系畢業(yè)設(shè)計文檔 11 的各按鈕即可看出當前記錄的變化情況。另外，數(shù)據(jù)庫控制控件的RecordSource 屬性可用一個 SQL 語句賦值，以此來有效地調(diào)用 SQL 語句，從而發(fā)揮 SELECT計算機系畢業(yè)設(shè)計文檔 12 語句強大的功能，更使數(shù)據(jù)庫控制控件（ Data Control）錦上添花。它們可以嵌套使用。那么，在 VB 中能不能不用 DATA 控件訪問數(shù)據(jù)庫呢？ 在 VB 中不用 DATA 控件而訪問數(shù)據(jù)庫，只有一法：將數(shù)據(jù)庫文件當成 2進制文件打開。 下面的代碼可以關(guān)閉所有打開的 DAO workspace， 并釋放所占的內(nèi)存。39。數(shù)據(jù)庫的作用在于組織和表達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認為是數(shù)據(jù)模型設(shè)計。 四 . 實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 數(shù)據(jù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、 組合關(guān)鍵字和外關(guān)鍵字。計算機系畢業(yè)設(shè)計文檔 15 就像 “通訊錄 ”數(shù)據(jù)庫中， “姓名 ”、 “聯(lián)系電話 ”這些都是表中所有行共有的屬性，所以把這些列稱為 “姓名 ”字段和 “聯(lián)系電話 ”字段。 編輯記錄：如果要編輯字段中的數(shù)據(jù)，單擊要編輯的字段，如果要替換整個字段的值，指向字段的最左邊，在鼠標變?yōu)榧犹枙r，單擊該字段，鍵入要插入的文本。在 ACCESS 中，打 開要向其中粘貼記錄的數(shù)據(jù)表或窗體，如果要替換現(xiàn)有記錄，選擇要替換的記錄，然后單擊工具欄上的“粘貼追加”或“粘貼”按鈕 ；如果窗體中的記錄選定器不可用，要選擇當前記錄，可單擊“編輯”菜單中的“選擇記錄”命令。按照 ANSI（美國國家標準協(xié)會）的規(guī)定， SQL被作 為關(guān)系型數(shù)據(jù)庫管理系統(tǒng)的標準語言。 SQL允許用戶在高層的數(shù)據(jù)結(jié)構(gòu)上工作，而不對單個記錄進行操作，可操作記錄集，所有 SQL 語句接受集合作為輸入，返回集合作為輸出?；镜?SQL 命令只需很少時間就能學會，最高級的命令在幾天內(nèi)便可掌握。使用 SQL，你可以執(zhí)行任何功能：從一個簡單的表查詢，到創(chuàng)建表和存儲過程，到設(shè)定用戶權(quán)限。 多用戶登陸問題 計算機系畢業(yè)設(shè)計文檔 19 a 建立模塊， Module1 b 在模塊中申明變量 Public jibie c 在數(shù)據(jù)庫 建立用戶表，存放用戶名和密碼，然后輸入多個用戶 d 通過 ADO 代碼連接到數(shù)據(jù)庫。 H 如果正確則發(fā)送數(shù)據(jù)庫的該用戶名到公共變量 jibie = myrs(jibie) I 通過變量決定各個用戶的權(quán)限。 將其中的 Form1 的 MDIChild 屬性設(shè)為 True。Data Source=。 + jibie + 39。39。39。39。39。39。39。39。39。39。39。server=04。屬性設(shè)為可寫。 通過 ADO 控件連接到數(shù)據(jù)庫的 USER 表，通過 SQL 語句 “ SELECT , FROM [user]。 計算機系畢業(yè)設(shè)計文檔 27 第 7章 系統(tǒng)測試 一 測試方案 考慮到各種因素和條件的限制，我們決定采用黑盒測試方案。因此，我們在設(shè)計測試用例的時候應(yīng)該按照三大模塊下屬的小功能模塊進行，可以用最小的工作量完成對整個系統(tǒng)的測試。 留言簿回復 計算機系畢業(yè)設(shè)計文檔 28 測試留言簿回復功能，內(nèi)容包括用戶留言信息提交給于的合理性回復和 ,回復信息的合法性檢查。 后臺文章添加 測試添加新文章功能，內(nèi)容包括新文章標題等的輸入，合理性檢查，合法性檢查，新文章添加信息入庫。 后臺類添加， 修改 , 刪除 測試類添加，刪除 , 修改功能，內(nèi)容包括類名信息的輸入，類名的刪除，合理性檢查，合法性檢查，添加 /刪除信息入庫。 計算機系畢業(yè)設(shè)計文檔 29 農(nóng)業(yè)科技 測試對網(wǎng)站信息 的瀏覽功能，內(nèi)容包括對瀏覽信息的合理性檢查，合法性檢查，對瀏覽到信息的正確性檢查。其功能基本符合客戶需求。使我本身的能力得到了不少的 提高 ， 這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。感謝大家！！ 計算機系畢業(yè)設(shè)計文檔 32 參考文獻 [1] Visual Basic 使用指南 作者： Bob Reselman , Richard Peasley , ne Pruchniak. 出版社：電子工業(yè)出版社 [2] 中文 ACCESS 2021 24 學時教程 作者： Craig Eddy ， Timothy Buchanan 出版社：機械工業(yè)出版社 計算機系畢業(yè)設(shè)計文檔 33 附 錄 附錄程序清單及注釋 程序清單 1 Private Sub Command1_Click() denlu_name = denlu_pass = types = Dim my As New Dim myrs As New Set myrs = New Provider=。and 級別 =39。39。39。39。39。39。39。39。39。39。39。 MsgBox ok, , 登陸信息 man = denlu_name jb = types names = denlu_name 計算機系畢業(yè)設(shè)計文檔 34 Unload Me 39。39。39。39。39。39。39。39。39。39。39。39。39。Data Source=。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 Else MsgBox 密碼不正確 , , 登陸信息 End If End If End Sub Private Sub DataCombo1_Click(Area As Integer) types = If types = 顧客 Then = False = True Else = False = True End If End Sub MDIForm1 Private Sub d1_Click() If jb = 顧客 Then MsgBox 您的身份是顧客，無權(quán)查看 計算機系畢業(yè)設(shè)計文檔 36 Else End If End Sub Private Sub d2_Click() If jb = 顧客 Then MsgBox 您的身份是顧客，無權(quán)查看 Else End If End Sub Private Sub d3_Click() If jb = 顧客 Then MsgBox 您的身份是顧客，無權(quán)查看 Else End If End Sub Private Sub e1_Click() If jb = 顧客 Or jb = 管理員 Then MsgBox 您不是經(jīng)理，無權(quán)查看 Else End If End Sub Private Sub e2_Click() If jb = 顧客 Or jb = 管理員 Then MsgBox 您不是經(jīng)理，無權(quán)查看 計算機系畢業(yè)設(shè)計文檔 37 Else End If End Sub Private Sub e3_Click() If jb = 顧客 Or jb = 管理員 Then MsgBox 您不是經(jīng)理，無權(quán)查看 Else End If End Sub Private Sub e6_Click() If jb = 顧客 Or jb = 管理員 Then MsgBox 您不是經(jīng)理，無權(quán)查看 Else End If End Sub Private Sub f1_Click() End Sub Private Sub g1_Click() If jb = 顧客 Or jb = 管理員 Then MsgBox 您不是經(jīng)理，無權(quán)查看 Else End If End Sub form2 計算機系畢業(yè)設(shè)計文檔 38 Private Sub Command1_Click() End Sub Private Sub Command3_Click() End Sub Private Sub 退房 _Click() End Sub form3 Private Sub Command1_Click() End Sub Private Sub Command3_Click() End Sub Private Sub 退房 _Click() End Sub form 4 Private Sub Command3_Click() End Sub form5 Private Sub a_Click() End Sub 計算機系畢業(yè)設(shè)計文檔 39 Private Sub Command1_Click() End Sub Private Sub Command3_Click() End Sub form6 Private Sub a_Click() End Sub Private Sub Command1_Click() End Sub Private Sub Command3_Click() End Sub form7 Private Sub a_Click() End Sub Private Sub Command1_Click() End Sub Private Sub Command3_Click() End Sub form8 計算機系畢業(yè)設(shè)計文檔 40 Private Sub a_Click() End Sub Private Sub Command1_Click() End Sub Private Sub Command3_Click() End Sub form9 Private Sub a_Click() End Sub Private Sub Command1_Click() End Sub Private Sub Command3_Click() End Sub form10 Private Sub Command1_Click() ss = = SELECT * FROM lkdj where 姓名 = 39。 End Sub Private Sub Command2_Click() = SELECT * FROM fjxx End Sub Private Sub Command3_Click() ss = = SELECT * FROM fjxx where 桌子信息號碼 = 39。