【文章內(nèi)容簡(jiǎn)介】 圖 菜單編輯器 主界面如 如圖 示 ： 圖 主界面 8 在主窗體 FrmMain 中添加代碼： Private Sub Form_Load() 1 End Sub 當(dāng)主窗體啟動(dòng)時(shí)，首先打開(kāi) “登錄 ”對(duì)話框。如果不能通過(guò)身份驗(yàn)證，則不能進(jìn)入系統(tǒng)。 當(dāng)選擇 “退出系統(tǒng) ”菜單項(xiàng)時(shí)，觸發(fā) mn_exit_Click 事件，代碼如下： Private Sub mn_exit_Click() DBapi_Disconnect End End Sub 函數(shù) DBapi_Disconnect（） 是自定義函數(shù)，它的功能是強(qiáng)制斷開(kāi)與數(shù)據(jù)庫(kù)的連接。 部門(mén)管理模塊可以實(shí)現(xiàn) :系統(tǒng) 管理員可以添加部門(mén)記錄 ,修改部門(mén)記錄 ,刪除部門(mén)記錄和查看部門(mén)記錄 。 而普通用戶只能查看部門(mén)數(shù)據(jù) 。 使用 TreeView 控件 [6] 為了表現(xiàn)部門(mén)間的層次結(jié)構(gòu) ,本設(shè)計(jì)中使用 TreeView 控件對(duì)部門(mén)數(shù)據(jù)進(jìn)行管理 。 TreeView 控件是顯示 Node(結(jié)點(diǎn) )對(duì)象的分層列表 ,每個(gè) Node 對(duì)象均由一個(gè)標(biāo)簽和一個(gè)可選的位圖組成 。 關(guān)于 TreeView 控件的使用方法如下 : 選擇 “工 程 ”菜單中的 “部件 ”命令 ,打開(kāi) ”部件屬性 ”對(duì)話框 .在控件列表中 ,查找并選擇 Microsoft Windows Common Controls。 同時(shí)添加近來(lái)的是一組控件 。 這個(gè)模塊將使用其中的 TreeView 控件 ImageList 控件 。 ImageList 控件像圖象的儲(chǔ)藏室 ,同時(shí) ,它需要第二個(gè)控件顯示所儲(chǔ)存的圖象 。 在這里 ImageList 控件用來(lái)為 TreeView 控件提供圖象 。 在 窗 體中添加一個(gè) ImageList 控件 ,右擊此控件 ,選擇菜單中的 “屬性 ” 命令 ,打開(kāi)“屬性頁(yè) ”對(duì)話框 。 單擊 “圖象 ”選項(xiàng)卡 ,通過(guò)單擊 “插入 圖象 ”和 “刪除圖象 ”來(lái)編輯圖象列表 ,如圖 所示 。 9 圖 輯圖像列表 在窗體中添加一個(gè) TreeView 控件 。 右擊此空間 ,選擇菜單中的 ”屬性 ”命令 ,打開(kāi) ”屬性頁(yè) ”對(duì)話框 。 將 ”圖象列表 ”屬性設(shè)置為 ImageList1,其他屬性可以根據(jù)需要設(shè)置 。TreeView 控件的屬性對(duì)話框如圖 所示 。 TreeView 控件使用惟一的關(guān)鍵字來(lái)標(biāo)識(shí)，每一個(gè)結(jié)點(diǎn)，關(guān)鍵字的第一個(gè)字符必須是字母。在這里我們規(guī)定關(guān)鍵字的格式為 “a”加上部門(mén)編號(hào)，如果部門(mén)編號(hào)為 1，則此部門(mén)在 TreeView 控件中的關(guān)鍵字為 “a1”。 在 GeneralFunc 模塊中，有一個(gè)字定義過(guò)程 Add_DepTOtree()。它的功能是把所有的部門(mén)名稱按照上下級(jí)關(guān)系添加到 TreeView 控件 中。 圖 TreeView 控件的屬性 10 設(shè)計(jì)部門(mén)編輯窗體 編輯部門(mén)信息的窗體可以用來(lái)添加和修改部門(mén)信息 。 創(chuàng)建一個(gè)新的窗體 ,參照前面的方法設(shè)置窗體屬性 。 雙體名稱設(shè)置為 FrmDepEdit。 窗體 FrmDepEdit 的布局如 圖 所示 ： 圖 編輯部門(mén)信息 需注意的是此窗體過(guò)程代碼中全局變量 Modify 用來(lái)標(biāo) 記當(dāng)前的數(shù)據(jù)庫(kù)訪問(wèn)狀態(tài)。當(dāng) Modify=True 時(shí)，表示修改已有的數(shù)據(jù)；當(dāng) Modify=False 時(shí)，表示插入新的數(shù)據(jù)。 Cmd_OK_Click()過(guò)程：當(dāng)用戶單擊 “確定 ”按鈕時(shí)，觸發(fā) Cmd_Ok_Click 事件，對(duì)應(yīng)代碼如下： Private Sub Cmd_OK_Click() If Trim(txtDep) = Then MsgBox 請(qǐng)輸入部門(mén)名稱 Exit Sub End If 39。將新輸入的數(shù)據(jù)保存到類(lèi)變量中 With MyDep .DepName = MakeStr(txtDep) .Describes = MakeStr(txtDescribe) If Modify = False Then 39。插入 If .In_DB(.DepName, .UpperId) = True Then MsgBox Trim(txtDep) + 已經(jīng)存在 Exit Sub End If 39。CurDep 中保存在部門(mén)管理窗體中選中的部門(mén)信息 39。當(dāng)插入新記錄時(shí)，新記錄將做為當(dāng)前部門(mén)的下級(jí)部門(mén) 11 .UpperId = Bh = .Insert 39。生成 TreeView 中一個(gè)結(jié)點(diǎn)的關(guān)鍵字 Tmp_Key = a + Trim(Str(Bh)) 39。設(shè)置結(jié)點(diǎn)的圖像 = 1 = 2 = 3 39。在樹(shù)中添加一個(gè)結(jié)點(diǎn) Set TmpNode = (, _ tvwChild, Tmp_Key, .DepName, 4, 5) = True Else 39。修改 If Trim(txtDep) Then If .In_DB(Trim(txtDep), .UpperId) = True Then MsgBox Trim(txtDep) + 已經(jīng)存在 Exit Sub End If End If 39。當(dāng)修改記錄時(shí)，不能改變上下級(jí)之間的關(guān)系 .UpperId = .Update () If Trim(txtDep) Then = Trim(txtDep) End If 39。設(shè)置 CurDep 變量 = Trim(txtDep) End If End With 39。關(guān)閉窗口 Unload Me End Sub 在上面的程序段中，分別對(duì)插入部門(mén)數(shù)據(jù)和修改部門(mén)數(shù)據(jù)兩種情況進(jìn)行處理。插入數(shù)據(jù)時(shí)調(diào)用 ()過(guò)程 ,修改數(shù)據(jù)時(shí)調(diào)用 ()過(guò)程 。插入新節(jié)點(diǎn)時(shí)， 需要調(diào)用 函數(shù)：修改當(dāng)前節(jié)點(diǎn)信息時(shí)，需要設(shè)置 屬性。 SelectedItem屬性表示當(dāng)前選中的節(jié)點(diǎn) 。 設(shè)計(jì)部門(mén)管理窗體 創(chuàng)建一個(gè)新窗體 ,參照前面的方法設(shè)置窗體屬性 .窗體名稱設(shè)置為 FrmDepMan。 12 部門(mén)管理窗體的布局如 圖 ： 圖 部門(mén)管理設(shè)計(jì) 再在代碼窗體中填寫(xiě)對(duì)應(yīng)的代碼。當(dāng)裝入窗體 FrmDepMan 時(shí)，觸發(fā) Form_Load事件，在此過(guò)程中將根據(jù)用戶類(lèi) 型的不同決定顯示的界面，只有系統(tǒng)管理員用戶才能看到添加修改和刪除等按鈕。 其中當(dāng)用戶單擊“刪除”按鈕時(shí)，觸發(fā) Cmd_Del_Click事件。在刪除部門(mén)前，應(yīng)對(duì)部門(mén)信息進(jìn)行判斷，當(dāng)部門(mén)為根結(jié)點(diǎn)或包含下一級(jí)部門(mén)或包含員工時(shí)不能刪除。當(dāng)用戶單擊部門(mén)列表時(shí)，觸發(fā) TreeView 1_Click 事件。此過(guò)程的主要功能是根據(jù)選中的部門(mén)關(guān)鍵字獲取部門(mén)信息，并保存在 CurDep 對(duì)象中。 設(shè)計(jì)選擇部門(mén)窗體 為了方便 用戶 在其他模塊中選擇部門(mén) ,在此設(shè)計(jì)一個(gè)選擇部門(mén)窗體 ,窗體名為FrmDepSet。 布局如 圖 。 圖 選擇部門(mén)窗體 “ 選擇部門(mén) ” 窗體與 ” 部門(mén)窗體 ” 的界面相似 ,也需要使用 TreeView 控件來(lái)顯示部門(mén) 。 使用 ImageList 控件來(lái)管理 TreeView 控件中的圖象信息 。 “ 選擇部門(mén) ” 窗體中的很多代碼與 ” 部門(mén)管理 ” 窗體中的代碼相同 。 需注意的 13 是 ,當(dāng)用戶單擊 ”確定 ”按鈕時(shí) ,觸發(fā) Cmd_Ok_Click 事件 ,對(duì)應(yīng)的代碼如下 : Private Sub Cmd_Ok_Click() If = 0 Then MsgBox 請(qǐng)選擇部門(mén) Exit Sub End If 39。將選擇部門(mén)的數(shù)據(jù)保存在 CurDep 變量中 = () Unload Me End Sub 在其他模塊中 ,可以從 CurDep 變量中得到選擇部門(mén)的數(shù) 據(jù) 。 在主界面中增加部門(mén)管理代碼 當(dāng)選擇 ”部門(mén)管理菜單項(xiàng)時(shí) ,觸發(fā) mn_dep_Click 事件 ,代碼如下 : Private Sub mn_dep_Click() 1 End Sub 設(shè)計(jì)選擇員工窗體 在編輯員工基本信息時(shí) ,要選擇員工的上級(jí) 。 為了方便用戶在其他模塊中選擇員工 ,可以設(shè)計(jì)選擇員工窗體 ,窗體名為 FrEmpSel。 窗體布局如 圖 所示： 圖 選擇員工 窗體 參照“選擇部門(mén)”窗體設(shè)置窗體的屬性。在窗體 FrEmpSel 中，使用 TreeView和 ImageList 控件來(lái)顯示部門(mén)數(shù)據(jù)。參照部門(mén)管理窗體的內(nèi)容設(shè)置 TreeView 和 14 ImageList 控件的屬性。 在此只寫(xiě)出部分代碼： Private Sub Form_Load() Dim TmpNode As Node 39。設(shè)置默認(rèn)選擇的部門(mén) FocusDepName = 人事部 Focuskey = 39。添加并設(shè)置根結(jié)點(diǎn) Set TmpNode = (, , a0, 部門(mén)信息 , 1, 3) = True = 2 39。調(diào)用函數(shù)將所有部門(mén)添加到 TreeView1 中 Call Add_DepToTree(TreeView1, a0) 39。設(shè)置員工狀態(tài)為在職 = 0 TreeView1_Click End Sub 編輯員工基本信息的窗體可以用來(lái)添加和修改員工的基本信息。創(chuàng)建一個(gè)新窗體，參照前面的方法設(shè)置窗體屬性。窗體名稱設(shè)置為 FrmEmpEdit。 窗體布局如 圖 所示： 圖 在窗體中使用 DTPicker 控件選擇日期數(shù)據(jù)。 DTPicke 控件需要手動(dòng)將其添加到工程中。選擇 “工程菜單 ”中的 “部件 ”命令，打開(kāi) “部件屬性 ”的對(duì)話 框，在控件列表中，查找并選擇 Microsoft Windows Common (SP4)。 15 窗體 FrmEm