【文章內(nèi)容簡介】 第 12頁 （ 3） 怎樣創(chuàng)建一個數(shù)據(jù)表 上面已經(jīng)講了如何創(chuàng)建一個數(shù)據(jù)庫文件， 按照上面的步驟建立一個數(shù)據(jù)庫文件后，需要在數(shù)據(jù)庫文件中建立一個數(shù)據(jù)表。 在下面的對話框中選 ” 使用設計器創(chuàng)建表 ” ，上面還有三個按鈕，一個是打開，一個是設計，一個是新建，點擊設計，就可以開始設計數(shù)據(jù)表了。 第 13頁 出現(xiàn)設計的界面后，就可以開始設計數(shù)據(jù)表了！ （ 4） VB連接 ACCESS2020數(shù)據(jù)庫 用 vb編寫一個管理軟件，如果不能連接數(shù)據(jù)庫，那也沒有什么用處。先看看 VB是如何與 ACCESS2020數(shù)據(jù)庫相連接的。 第 14頁 Sub ConnStr() 39。連接數(shù)據(jù)庫 Set conn = CreateObject() 39。建立數(shù)據(jù)庫連接對像 DBpath = amp。 \ amp。 39。設置數(shù)據(jù)的路徑 Provider=。Data Source= amp。 DBpath 39。打開數(shù)據(jù)庫連接 Set rs = CreateObject() 39。設置數(shù)據(jù)庫對像 End Sub 上面的一段代碼就是連接數(shù)據(jù)庫的。上用到了三個變量 conn,Dbpath,rs。其中 有兩個變量要定義為公用的變量，因為這段代碼是放在一個模塊中的，為了在每一個窗體中能夠使用這個變量，所以必須要聲明為公用變量。聲明公用變量的方法如下： Public conn Public rs 上面就是聲明為公用變量，上面的聲明一定要放在模塊的最上面。如果聲明在下面，那就成了局部變量，那么作用范圍就會不同了，作用就更不同，而且在其它窗體中使用到了這個變量，程序會出錯。 在系統(tǒng)中設計一個數(shù)據(jù)庫 ，其中包含如下數(shù)據(jù)表 : 人口表 : 第 15頁 戶口表 : 用戶表 : 第 16頁 第四章 系統(tǒng)的具體設計 、 Windows 下的 Visual Basic 編程環(huán)境簡介 Visual Basic 應用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對象，每一個對象都具有一些特性和行為（屬性、事件和方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個對象。使用應用程序具有可通用性、可擴展性和強有力的功能。 Visual Basic 應用由一系列對象組成，包括有函數(shù)、菜單、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應用中重復 使用。 本節(jié)介紹管理系統(tǒng)各組成部分的實現(xiàn)方法 ,對于窗體，給出執(zhí)行功能、設計界面、主要對象的屬性和方法。 、 系統(tǒng)模塊的具體實現(xiàn) 、 Frmdl 窗體 : Frmdl 窗體用于接受用戶的用戶名 /密碼輸入，判斷是否合法。如果是合法用戶，釋放該窗體并調(diào)出 Frmver 窗體；否則信息提示無此用戶。 Frmdl 窗體的設計界面如圖所示，窗體中的主要對象及其屬性如表所示： 第 17頁 對 象 屬 性 屬性取值 Text1 Caption “ 用戶名“ Text2 passwordchar “ *“ Command1 Caption “確定” Command2 Caption “取消” 在該窗體上設計如下事件過程： 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頁 MsgBox 請輸入用戶名 , , 警告 Else If = Then MsgBox 請輸入密碼 , , 警告 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ù)庫 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 = 第 19頁 Unload frmdl 39。判斷登陸用戶是否為 admin If username = admin Then = True 39。激活主窗口系統(tǒng)菜單 Else = False End If 39。顯示版本窗口 Else MsgBox 您輸入的密碼不正確，請重新輸入！ , , 警告 = End If Else MsgBox 系統(tǒng)中無此用戶 , , 警告 = End If End If End Sub Private Sub Timer1_Timer() End Sub Private Sub Form_Load() End Sub 、 mainfrm 窗體 : mainfrm 窗體 是一個多文檔窗體，窗體中包含的主要對象及其屬性 ,在該窗體有一個菜單，該菜單的結(jié)構(gòu)如下： Private Sub adduser_Click() 39。增加用戶 = False 第 20頁 = False = False = False = False = False = False GetStatus 添加用戶 End Sub Private Sub allh_Click() = False = False = False = False = False = False = False GetStatus 戶口列表 End Sub Private Sub allp_Click() = False = False = False = False = False = False = False GetStatus 人口列表 End Sub Private Sub chaxun_Click() GetStatus 查詢修改信息 第 21頁 End Sub Private Sub chuhao_Click() = False = False = False = False = False = False = False GetStatus 查詢戶號 End Sub Private Sub chuhome_Click() = False = False = False = False = False = False = False GetStatus 遷出戶口 End Sub Private Sub chupeople_Click() = False = False = False = False = False = False = False 第 22頁 GetStatus 遷出人口 End Sub Private Sub Command1_Click() = False = False = False = False = False = False = False = False = False = False = False = False = GetStatus 添加、遷入戶口 End Sub Private Sub Command2_Click() = False = False = False = False = Fa