【文章內(nèi)容簡(jiǎn)介】 列表 全部人口列表 已遷出戶口列表 系統(tǒng)管理 第四章 系 統(tǒng) 實(shí) 現(xiàn) 第 11頁(yè) 上述方法進(jìn)行窗體設(shè)計(jì)。 、數(shù)據(jù)庫(kù)設(shè)計(jì) : （ 1）數(shù)據(jù)庫(kù)的概念 數(shù)據(jù)庫(kù)處理在信息系統(tǒng)的研究中一直是非常重要的主題，然而，近年來(lái)，隨著 World Wide Web(WWW)的猛增及 Inter技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫(kù)技術(shù)之時(shí)成為最熱門技術(shù)之一。數(shù)據(jù)庫(kù)技術(shù)能使 Inter 應(yīng)用超越具有早期應(yīng)用特點(diǎn)的簡(jiǎn)單的發(fā)布。同時(shí)， Inter 技術(shù)提供了一種向用戶發(fā)布數(shù)據(jù)庫(kù)內(nèi)容的標(biāo)準(zhǔn)化的訪問(wèn)方法。這些技術(shù)沒(méi)有脫離經(jīng)典數(shù)據(jù)庫(kù)技術(shù)的要求。它們只是加重了數(shù)據(jù)庫(kù)技術(shù)的重要性。 數(shù)據(jù)庫(kù)的設(shè)計(jì)和開(kāi)發(fā)及包括藝術(shù)有包括工程。理解用戶的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫(kù)設(shè)計(jì)是一個(gè)藝術(shù)過(guò)程。把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫(kù)，并且這些數(shù)據(jù)庫(kù)帶有功能完備、高效能的應(yīng)用，是一個(gè)工程 過(guò)程。 數(shù)據(jù)庫(kù)的目的是幫助人們跟蹤事務(wù)。經(jīng)典的數(shù)據(jù)庫(kù)應(yīng)用涉及諸如訂單、顧客、工作、員工、學(xué)生、電話之類的項(xiàng)，或其它數(shù)據(jù)量較大、需要密切關(guān)注的事務(wù)。最近，由于數(shù)據(jù)庫(kù)的普及，數(shù)據(jù)庫(kù)技術(shù)已經(jīng)被應(yīng)用到了新的領(lǐng)域，諸如用于 Inter的數(shù)據(jù)庫(kù)或用于公司內(nèi)聯(lián)網(wǎng)的數(shù)據(jù)庫(kù)。數(shù)據(jù)庫(kù)也被越來(lái)越多地應(yīng)用于生成和維護(hù)多媒體應(yīng)用程序上。 計(jì)算機(jī)的數(shù)據(jù)處理應(yīng)用，首先要把大量的信息以數(shù)據(jù)形式存放在存儲(chǔ)器中。存儲(chǔ)器的容量、存儲(chǔ)速率直接影響到數(shù)據(jù)管理技術(shù)的發(fā)展。從 1956 年生產(chǎn)出第一臺(tái)計(jì)算機(jī)到現(xiàn)在，存儲(chǔ)器的發(fā)展，為數(shù)據(jù)庫(kù)技術(shù)提供了良好的 物質(zhì)基礎(chǔ)。 使用計(jì)算機(jī)以后，數(shù)據(jù)處理的速度和規(guī)模，無(wú)論是相對(duì)于手工方式，還是機(jī)械方式，都有無(wú)可比擬的優(yōu)勢(shì)。通常在數(shù)據(jù)處理中，計(jì)算是比較簡(jiǎn)單的而數(shù)據(jù)的管理卻比較復(fù)雜。數(shù)據(jù)管理是指數(shù)據(jù)的收集、整理、組織、存儲(chǔ)、維護(hù)、檢索、傳送等操作，這部分操作是數(shù)據(jù)處理業(yè)務(wù)的基本環(huán)節(jié)，而且是任何數(shù)據(jù)處理業(yè)務(wù)中必不可少的共有部分。數(shù)據(jù)管理技術(shù)的優(yōu)劣，將直接影響數(shù)據(jù)處理的效率。 數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有非常重要的位置，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫(kù)設(shè)計(jì)可以提高數(shù)據(jù)庫(kù)存儲(chǔ)效率，保證數(shù)據(jù)的完整和 一致。同時(shí)合理的數(shù)據(jù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。 設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)，應(yīng)該首先了解用戶的各個(gè)方面的需求，包括現(xiàn)有的以及將來(lái)可能增加的。 （ 2）創(chuàng)建數(shù)據(jù)庫(kù)文件 如果操作系統(tǒng)中安裝了 Access 2021的話，可以在開(kāi)始菜單的程序菜單中可以找到。如下所示： 本科畢業(yè) (設(shè)計(jì) )論文： 第 12 頁(yè) 打開(kāi) Access 2021之后，會(huì)開(kāi)啟一個(gè)窗口，可選擇是打開(kāi)以前的數(shù)據(jù)庫(kù)文件還是新建一個(gè)新的空數(shù)據(jù)庫(kù)文件，如果選擇空 Access 數(shù)據(jù)庫(kù)，然后點(diǎn)擊確定按鈕。這些就新建了一個(gè)數(shù)據(jù)庫(kù)文件。 最后一步就是要選擇一個(gè)要保存數(shù)據(jù)庫(kù)文件的名字和位置。點(diǎn)擊創(chuàng)建就完 成。 第四章 系 統(tǒng) 實(shí) 現(xiàn) 第 13頁(yè) （ 3） 怎樣創(chuàng)建一個(gè)數(shù)據(jù)表 上面已經(jīng)講了如何創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)文件，按照上面的步驟建立一個(gè)數(shù)據(jù)庫(kù)文件后，需要在數(shù)據(jù)庫(kù)文件中建立一個(gè)數(shù)據(jù)表。 在下面的對(duì)話框中選 ” 使用設(shè)計(jì)器創(chuàng)建表 ” ，上面還有三個(gè)按鈕，一個(gè)是打開(kāi)，一個(gè)是設(shè)計(jì)，一個(gè)是新建，點(diǎn)擊設(shè)計(jì)，就可以開(kāi)始設(shè)計(jì)數(shù)據(jù)表了。 本科畢業(yè) (設(shè)計(jì) )論文： 第 14 頁(yè) 出現(xiàn)設(shè)計(jì)的界面后，就可以開(kāi)始設(shè)計(jì)數(shù)據(jù)表了！ （ 4） VB連接 Access 2021 數(shù)據(jù)庫(kù) 用 vb編寫一個(gè)管理軟件，如果不能連接數(shù)據(jù)庫(kù)，那也沒(méi)有什么用處。先看看 VB是如何與 Access 2021 數(shù)據(jù)庫(kù)相連 接的。 第四章 系 統(tǒng) 實(shí) 現(xiàn) 第 15頁(yè) Sub ConnStr() 39。連接數(shù)據(jù)庫(kù) Set conn = CreateObject() 39。建立數(shù)據(jù)庫(kù)連接對(duì)像 DBpath = amp。 \ amp。 39。設(shè)置數(shù)據(jù)的路徑 Provider=。Data Source= amp。 DBpath 39。打開(kāi)數(shù)據(jù)庫(kù)連接 Set rs = CreateObject() 39。設(shè)置數(shù)據(jù)庫(kù)對(duì)像 End Sub 上面的一段代碼就是連接數(shù)據(jù)庫(kù)的。上用到了三個(gè)變量 conn,Dbpath,rs。其中有兩個(gè)變量要定義為公用的變量，因?yàn)檫@段代碼是放在一個(gè)模塊中的，為了在每一個(gè)窗體中能夠使用這個(gè)變量，所以必須要聲明為公用變量。聲明公用變量的方法如下： Public conn Public rs 上面就是聲明為公用變量，上面的聲明一定要放在模塊的最上面。如果聲明在下面，那就成了局部變量，那么作用范圍就會(huì)不同了，作用就更不同，而且在其它窗體中使用到了這個(gè)變量，程序會(huì)出錯(cuò)。 在系統(tǒng)中設(shè)計(jì)一個(gè)數(shù)據(jù)庫(kù) ，其中包含如 下數(shù)據(jù)表 : 人口表 : 本科畢業(yè) (設(shè)計(jì) )論文： 第 16 頁(yè) 戶口表 : 用戶表 : 第四章 系 統(tǒng) 實(shí) 現(xiàn) 第 17頁(yè) 第四章 系統(tǒng)的具體設(shè)計(jì) 、 Windows 下的 Visual Basic 編程環(huán)境簡(jiǎn)介 Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和方法）。開(kāi)發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性、可擴(kuò)展性和強(qiáng)有力的功能。 Visual Basic 應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用 戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。 本節(jié)介紹管理系統(tǒng)各組成部分的實(shí)現(xiàn)方法 ,對(duì)于窗體，給出執(zhí)行功能、設(shè)計(jì)界面、主要對(duì)象的屬性和方法。 、 系統(tǒng)模塊的具體實(shí)現(xiàn) 、 Frmdl 窗體 : Frmdl 窗體用于接受用戶的用戶名 /密碼輸入，判斷是否合法。如果是合法用戶，釋放該窗體并調(diào)出 Frmver 窗體；否則信息提示無(wú)此用戶。 Frmdl 窗體的設(shè)計(jì)界面如圖所示，窗體中的主要對(duì)象及其屬性如表所示： 本科畢業(yè) (設(shè)計(jì) )論文： 第 18 頁(yè) 對(duì) 象 屬 性 屬性取值 Text1 Caption “ 用戶名“ Text2 passwordchar “ *“ Command1 Caption “確定” Command2 Caption “取消” 在該窗體上設(shè)計(jì)如下事件過(guò)程： Option Explicit Private Sub Commcancel_Click() End End Sub Private Sub Commok_Click() 39。聲 明 變 量 Dim username As String Dim password As String Dim local_db As String Dim n As New Dim rst As New If = Then MsgBox 請(qǐng)輸入用戶名 , , 警告 第四章 系 統(tǒng) 實(shí) 現(xiàn) 第 19頁(yè) Else If = Then MsgBox 請(qǐng)輸入密碼 , , 警告 End If End If If And Then Set n = New Set rst = New Provider=。Data Source= + amp。 \data\ + 。Persist Security Info=False。 39。連接數(shù)據(jù)庫(kù) username = Trim() password = 39。檢查用戶名是否正確 local_db = select 用戶名 from 用戶表 + _ where 用戶表 .用戶名 = + 39。 + _ username + 39。 local_db, n If Not ( And ) Then 39。檢查密碼是否正確 local_db = select 密碼 from 用戶表 + _ where 用戶表 .用戶名 = + 39。 + _ username + 39。and + _ 用戶表 .密碼 = + 39。 + password + 39。 local_db, n If Not ( And ) Then userid = Unload frmdl 本科畢業(yè) (設(shè)計(jì) )論文： 第 20 頁(yè) 39。判斷登陸用戶是否為 admin If username = admin Then = True 39。激活主窗口系統(tǒng)菜單 Else = False End If 39。顯示版本窗口 Else MsgBox 您輸入的密碼不正確，請(qǐng)重新輸入！ , , 警告 = End If Else MsgBox 系統(tǒng)中無(wú)此用戶 , , 警告 = End If End If End Sub Private Sub Timer1_Timer() End Sub Private Sub Form_Load() End Sub 、 mainfrm 窗體 : mainfrm 窗體 是一個(gè)多文檔窗體 ，窗體中包含的主要對(duì)象及其屬性 ,在該窗體有一個(gè)菜單，該菜單的結(jié)構(gòu)如下： Private Sub adduser_Click() 39。增加用戶 = False = False = False 第四章 系 統(tǒng) 實(shí) 現(xiàn) 第 21頁(yè) = False = False = False = False GetStatus 添加用戶 End Sub Private Sub