【文章內(nèi)容簡介】 種連接是指一個表被連接到它自己的一個字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。 4． 2數(shù)據(jù)庫需求分析 根據(jù)調(diào)查有關(guān)單位的教師考核管理的實際情況，分析得到如下的數(shù)據(jù)庫結(jié)構(gòu)。 以科研經(jīng)費管理的表為例，其余的表的信息參見目錄下的“教師考核 .mdb”數(shù)據(jù)庫。 教師考核收支表： 收入 /支出項目表： 用戶管 理表： 4． 3表的詳細結(jié)構(gòu)說明 教師考核收支表的詳細信息： 收入項目表的詳細結(jié)構(gòu)為： 支出項目表的詳細結(jié)構(gòu)為： 用戶管理表的詳細結(jié)構(gòu)為： 4． 4測試用例 教師考核收支表的測試用例： 收入項目表的測試用例： 支出項目表的測試用例： 第五章 系統(tǒng)的實現(xiàn) 5． 1系統(tǒng)登錄模塊的實現(xiàn) 1．流程圖 2．界面： 界面包括的控件有標(biāo)簽、文本框、命令按鈕等控件。 3．實現(xiàn)過程： 第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上 單擊鼠標(biāo)并拖動鼠標(biāo)，即可把由所選取的控件生成的對象添加到窗體上。如下圖： Y N 開始 輸入登錄密碼 是否正確 主界面 第二步，選擇窗體或控件進行屬性設(shè)置，如圖為窗體的屬性設(shè)置界面 : 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼： 如此窗體上“進入”與“退出”按鈕的代碼如下： Private Sub Command1_Click() SQL = select * from 用戶管理 where user =39。 amp。 Trim() amp。 39。 = SQL If Then MsgBox 沒有此用戶！ , , 提示 = 用戶管理 Else If Trim() = Trim() Then Else MsgBox 密碼錯誤！ , , 提示 End If End If End Sub Private Sub Command2_Click() Unload Me End Sub 此程序段中，“ IF”語句的作用是判斷用戶輸入的用戶名與密碼和數(shù)據(jù)庫的是否相同，如果相同，則執(zhí)行 （隱藏當(dāng)前的窗體）和 （調(diào)出系統(tǒng)主界面），如果用戶名或密碼輸入錯誤，則提示： 使用戶重新輸入用戶名或密碼。 Unload me 語句的作用是下載窗體。 此窗體上另外還有 Data Text3 二個控件在程序運行時是看不到的，它們的作用是使 VB 與 Access數(shù)據(jù)庫相連，然后判斷用戶輸入的用戶名與密碼是否與數(shù)據(jù)庫中的一致，如果一致，則允許用戶進入系統(tǒng)。此三個控件的創(chuàng)建方法如下： 首先，將 Data、 Text 控件拖放到窗體上，其次，設(shè)置它們的屬性： （ 1） Data1 控件的屬性設(shè)置如下： = amp。 \教師考核 .mdb 此屬性的作用是保證 Data 控件與數(shù)據(jù)庫相連。 Visible 屬性是使此控件運行時在窗體上不顯示。 （ 2） Text3 控件的屬性設(shè)置如下： 數(shù) 據(jù) 庫的名稱 運行時是否隱 藏 Visible 屬性的設(shè)置同 Data1 控件。 5． 2主界面的實現(xiàn) 主界面是用菜單形式表現(xiàn)的，如圖： 菜單的制作過程如下： 此數(shù)據(jù)控件綁定到何數(shù)據(jù)庫 此數(shù)據(jù)控件綁定到何字段 首先通過“工具”菜單中的“菜單編輯器”調(diào)出菜單編輯器，然后進行菜單的設(shè)置，如下圖： 此過程中要注意各菜單的名稱唯一，還要注意菜單的級別，另外此設(shè)計過程中我們還可以給菜單加快捷鍵。 最后設(shè)置如下的代碼（只要單擊菜單即可設(shè)置各菜單代碼），部分代碼如下： Private Sub exit_Click() End End Sub Private Sub SRWF_Click() End Sub Private Sub ZCWF_Click() End Sub Private Sub szwf_Click() End Sub Private Sub szcx_Click() 調(diào)節(jié)菜單的級別 設(shè)置快捷鍵 End Sub Private Sub YFGL_Click() End Sub 主要是通過 Show 方法調(diào)用相應(yīng)的窗體。 5． 3教師信息管理模塊的實現(xiàn) 5． 3． 1 教師信息維護模塊 的實現(xiàn) 流程圖： 運行界面： 實現(xiàn)過程： 第一步將所需的控件放到表單的相應(yīng)位置；方法：首先在“表單控件”N Y 開始 增加刪除等操作 是否繼續(xù) 退出 工具欄先選中所需的控件圖件，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動鼠標(biāo)，即可把由所選取的控件生成的對象添加到表單上 ,如 上 圖： 包括的控件主要有：標(biāo)簽、文本框、命令按鈕、組合框等。 第二步，選擇窗體或控件進行屬性設(shè)置， 先選取中需要設(shè)置屬性的對象 ，然后 在屬性窗口里顯示了該控件對象的所有屬性、事件和方法。 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫程序。 數(shù)據(jù)庫的連接方法同 ，主要代碼如 下： Private Sub Combo1_Click() Text1(1).Text = End Sub Private Sub Command1_Click() = False = False = False = True = True = True = True = True = True Text1(1).Text = For i = 0 To 5 Text1(i).Enabled = True Next Text1(0).SetFocus End Sub Private Sub Command2_Click() 增加記錄 If MsgBox(確認(rèn)刪除當(dāng)前記錄嗎？ , vbYesNo, 確認(rèn)窗口 ) = vbYes Then = False = False If Then End If End If End Sub Private Sub Command3_Click() = False = False = False = True = True = True = True = True = True For i = 0 To 5 Text1(i).Enabled = True Next Text1(0).SetFocus End Sub Private Sub Command4_Click() = False = False 刪除記錄 修改記錄 = False = False For i = 0 To 5 Text1(i).Enabled = False Next = True = True = True = False = False End Sub Private Sub Command5_Click() = False = False = False = False = True = True = True = False = False End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub DataCombo1_Click(Area As Integer) 更新記錄 取消更新 Text1(3).Text = End Sub Private Sub DataCombo2_Click(Area As Integer) Text1(4).Text = End Sub Private Sub DataCombo3_Click(Area As Integer) Text1(5).Text = End Sub Private Sub Form_Load() 男 女 = amp。 \教師考核 .mdb = Provider=。Data Source= amp。 amp。 \教師考核 .mdb。Persist Security Info=False = 專業(yè) = Provider=。Data Source= amp。 amp。 \教師考核 .mdb。Persist Security Info=False = 系別 = Provider=。Data Source= amp。 amp。 \教師考核 .mdb。Persist Security Info=False = 任教班級 End Sub 5． 3． 2 教師信息查詢模塊的實現(xiàn) 實現(xiàn)與數(shù)據(jù)庫的連接 實現(xiàn)與數(shù)據(jù)庫中的表的連接 流程圖： 運行界面： 實現(xiàn)過程： 第一步將所需的控件放到表單的相應(yīng)位置；方法：首先在“表單控件”工具欄先選中所需的控件圖件，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動鼠標(biāo)，即可把由所選取的控件生成的對象添加到表單上 ,如 上 圖： 包括的控件主要有：標(biāo)簽、文本框、單選命令、表格等。 第二步，選擇窗體或控件進行屬性設(shè)置， 先選取中需要設(shè)置屬性的對象 ，然后 在屬性窗口里顯示了該控件對象的所有屬性、事件和方法。 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫程序。 “查詢”的主要代碼如下： Private Sub Command1_Click() N Y 開始 設(shè)置查詢條件查詢 是否繼續(xù) 退出 If Then SQL = select * from 教師基本情況 where 教師編號 = 39。 amp。 Trim() amp。 39。 = SQL If Then MsgBox 沒有此編號的教師情況！ , , 提示 = select * from 教師基本情況 End If End If If Then SQL = select * from 教師基本情況 where 教師姓名 = 39。 amp。 Trim() amp。 39。 = SQL If Then MsgBox 沒有該教師的情況！ , , 提示 = select * from 教師基本情況 End If End If If Then SQL = select * from 教師基本情況 where 系別 = 39。 amp。 Trim() amp。 39。 = SQL If Then MsgBox 沒有該系別的教師情況！ , , 提示 = select * from 教師基本情況 End If End If End Sub 5． 4教師任課管理模塊的實現(xiàn) 5． 4． 1 教師任課信息維護模塊的實現(xiàn) 流程圖： 運行界面： 實現(xiàn)過程： 第一步將所需的控件放到表單的相應(yīng)位置；方法：首先在“表單控件”工具欄先選中所需的控件圖件，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動鼠標(biāo)，即可把由所選取的控件生成的對象添加到表單上 ,如 上 圖： N Y 開始 增加刪除等操作 是否繼續(xù) 退出 包括的控件主要有：標(biāo)簽、文本框、命令按鈕、 DATA 等。 第二步，選擇窗體或控件進行屬性設(shè)置， 先選取中需要設(shè)置屬性的對象 ，然后 在屬性窗口里顯示了該控件對象的所有屬性、事件和方法。 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫程序。 代碼同 。 5． 4． 2 教師任課信息查詢模塊的實現(xiàn) 流程圖： 運行界面： 實現(xiàn)過程： N Y 開始 設(shè)置查詢條件查詢 是否繼續(xù) 退出 第一步將所需的控件放到表單的相應(yīng)位置；方法：首先在“表單控件”工具欄先選中所需的控件圖件，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動鼠標(biāo)，即可把由所選取的控件生成的對象添加到表單上 ,如 上 圖： 包括的控件主要有：命令按鈕、文本框、單選按鈕、表格等。 第二步，選擇窗體或控件進行屬性設(shè)置， 先選取中需要設(shè)置屬性的對象 ，然后 在屬性窗口里顯示了該控件對象的所有屬性、事件和方法。 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫程 序。 代碼如下： Private Sub Command1_Click() = = True If Then