【文章內(nèi)容簡(jiǎn)介】 第 12頁(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ù)表了。 第 13頁(yè) 出現(xiàn)設(shè)計(jì)的界面后，就可以開(kāi)始設(shè)計(jì)數(shù)據(jù)表了！ （ 4） VB連接 ACCESS2020數(shù)據(jù)庫(kù) 用 vb編寫(xiě)一個(gè)管理軟件，如果不能連接數(shù)據(jù)庫(kù)，那也沒(méi)有什么用處。先看看 VB是如何與 ACCESS2020數(shù)據(jù)庫(kù)相連接的。 第 14頁(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ù)表 : 人口表 : 第 15頁(yè) 戶(hù)口表 : 用戶(hù)表 : 第 16頁(yè) 第四章 系統(tǒng)的具體設(shè)計(jì) 、 Windows 下的 Visual Basic 編程環(huán)境簡(jiǎn)介 Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶(hù)所創(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ù)窗口、用戶(hù)對(duì)象、用戶(hù)事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù) 使用。 本節(jié)介紹管理系統(tǒng)各組成部分的實(shí)現(xiàn)方法 ,對(duì)于窗體，給出執(zhí)行功能、設(shè)計(jì)界面、主要對(duì)象的屬性和方法。 、 系統(tǒng)模塊的具體實(shí)現(xiàn) 、 Frmdl 窗體 : Frmdl 窗體用于接受用戶(hù)的用戶(hù)名 /密碼輸入，判斷是否合法。如果是合法用戶(hù)，釋放該窗體并調(diào)出 Frmver 窗體；否則信息提示無(wú)此用戶(hù)。 Frmdl 窗體的設(shè)計(jì)界面如圖所示，窗體中的主要對(duì)象及其屬性如表所示： 第 17頁(yè) 對(duì) 象 屬 性 屬性取值 Text1 Caption “ 用戶(hù)名“ 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 第 18頁(yè) MsgBox 請(qǐng)輸入用戶(hù)名 , , 警告 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。檢查用戶(hù)名是否正確 local_db = select 用戶(hù)名 from 用戶(hù)表 + _ where 用戶(hù)表 .用戶(hù)名 = + 39。 + _ username + 39。 local_db, n If Not ( And ) Then 39。檢查密碼是否正確 local_db = select 密碼 from 用戶(hù)表 + _ where 用戶(hù)表 .用戶(hù)名 = + 39。 + _ username + 39。and + _ 用戶(hù)表 .密碼 = + 39。 + password + 39。 local_db, n If Not ( And ) Then userid = 第 19頁(yè) Unload frmdl 39。判斷登陸用戶(hù)是否為 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ú)此用戶(hù) , , 警告 = 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。增加用戶(hù) = False 第 20頁(yè) = False = False = False = False = False = False GetStatus 添加用戶(hù) End Sub Private Sub allh_Click() = False = False = False = False = False = False = False GetStatus 戶(hù)口列表 End Sub Private Sub allp_Click() = False = False = False = False = False = False = False GetStatus 人口列表 End Sub Private Sub chaxun_Click() GetStatus 查詢(xún)修改信息 第 21頁(yè) End Sub Private Sub chuhao_Click() = False = False = False = False = False = False = False GetStatus 查詢(xún)戶(hù)號(hào) End Sub Private Sub chuhome_Click() = False = False = False = False = False = False = False GetStatus 遷出戶(hù)口 End Sub Private Sub chupeople_Click() = False = False = False = False = False = False = False 第 22頁(yè) GetStatus 遷出人口 End Sub Private Sub Command1_Click() = False = False = False = False = False = False = False = False = False = False = False = False = GetStatus 添加、遷入戶(hù)口 End Sub Private Sub Command2_Click() = False = False = False = False = Fa