【正文】 鍵否 描述 idear_id int Y 意見 ID idear_subject varchar 30 N 意見主題 idear_text varchar 50 N 意見內(nèi)容 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 notice_id int Y 通知 ID notice_date datetime N 通知時間 notice_person vachar 12 N 發(fā)布通知人 notice_acceptDept vachar 30 N 通知部門 notice_acceptPerson vachar 12 N 通知人 notice_bit bit 1 N 標記 notice_text vachar 500 N 備注 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 file_id int Y ID file_subject varchar 30 N 文件主題 file_text varchar 50 N 文件描述 file_person varchar 16 N 傳送人 file_dept varchar 30 N 接收 部門 file_name varchar 16 N 接收人 file_date datetime 8 N 傳送日期 file_file image 16 N 文件 file_type varchar 20 N 文件類型 ***學校畢業(yè)論文 5 表 6 tbOA_vote 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 vote_id int Y 活動 ID vote_subject varchar 30 N 活動主題 vote_memo varchar 50 N 活動備注 vote_qty float N 投票數(shù)量 表 7 tbOA_voteRecord 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 voteRecord_id int Y ID voteRecord_name varchar 16 N 投票人 表 8 tbOA_dept 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 dept_id int Y 部門編號 dept_name varchar 30 N 部門名稱 dept_describe Text 16 N 描述信息 ***學校畢業(yè)論文 6 第 4 章 主要功能模塊的設計 公共模塊設計 為了節(jié)省系統(tǒng)資源，實現(xiàn)代碼重用，可以在系統(tǒng)中新建一個 Module1 模塊。就本系統(tǒng)而言，該模塊主要用于實現(xiàn)數(shù)據(jù)庫的共享連接。在以后的編程中，如果使用對象訪問數(shù)據(jù)庫或“ ADO Data”控件訪問數(shù)據(jù)庫則可以直接將數(shù)據(jù)庫連字符串的值賦給相應的“ ConnectionString ”屬性，從而 避免了重復建立數(shù)據(jù)庫的麻煩，以防失去 ADO+SQL 的優(yōu)越性能。 代碼如下： Public pstr As String Public Sub main() 39。共享連接字符串 pstr = Provider=。Persist Security Info=False。User ID=sa。 pwd=sa。Initial Catalog=db_OA。Data Source=APC 39。調(diào)用 frm_login 窗口 End Sub 登錄界面設計 本系統(tǒng)屬 于 OA 辦公自動化系統(tǒng)，用戶權(quán)限分為系統(tǒng)管理員和普通用戶兩種?！跋到y(tǒng)登錄”窗體用于難操作員及其密碼，主要通過打開數(shù)據(jù)庫連接、打開數(shù)據(jù)結(jié)合if 語句 ，判斷用戶輸入的操作員及密碼是否符合數(shù)據(jù)庫中的操作員和密碼，如果符合則允許登錄，并給予相應的權(quán)限，否則提示用戶不存在。 新建一個窗體，將窗體的 BorderStyle 屬性設置為“ 0None” ,設置 Picture 屬性，為窗體添加圖片。 添加兩個“ Label”控件，設置其 BackStyle 屬性設置為“ 0Transparent”。 添加兩個“ TextBox”控件，設置其 BorderStyle 屬性為“ 0None”。 添加兩個“ CommondButton”控件，分別將其 Caption 屬性設置為“登錄”、“退 ***學校畢業(yè)論文 7 出”。 “系統(tǒng)登錄”窗體的設計結(jié)果如下圖所示： 圖 2. 代碼設計 雙擊“登錄”按鈕（ labLogin）添加如下事件代碼： Private Sub labLogin_Click() Set con = New Set rs = New = pstr mysql=select * from dbOA_user where user_name =39。 + + 39。 mysql, con 39。判斷是否存在用戶 If Then MsgBox 沒有這個用戶，請重新輸入用戶名！ ***學校畢業(yè)論文 8 = 39。如果存在，判斷用戶輸入的密碼是否正確 Else If Trim(rs(user_pwd)) = Trim() Then 39。(1) = 39。如果密碼正確，判斷用戶權(quán)限，如果用戶沒有管理權(quán)限則設置主界面的TreeView 控件 39。的樹狀菜單為操作員的樣式 If (2) = False Then (1).Text = 操作職員： amp。 39。顯示系統(tǒng)時間 (2).Text = Format(Now, m/d/yy) 39。設置 treeview 控件的樹狀菜單 Set n1 = (, tvwChild, 通知管理 , 通知管理 , 1) Set node1 = (n1, tvwChild, 發(fā)布通知 , 發(fā)布通知 , 1) Set node1 = (n1, tvwChild, 接收通知 , 接收通知 , 1) Set node1 = (n1, tvwChild, 已發(fā)通知 , 已發(fā)通知 , 1) Set n2 = (, tvwChild, 新聞管理 , 新聞管理 , 1) Set node2 = (n2, tvwChild, 新聞發(fā)布 , 新聞發(fā)布 , 1) Set node2 = (n2, tvwChild, ***學校畢業(yè)論文 9 接收新聞 , 接收新聞 , 1) Set node2 = (n2, tvwChild, 已發(fā)新聞 , 已發(fā)新聞 , 1) Set n3 = (, tvwChild, 文件傳送 , 文件傳送 , 1) Set node3 = (n3, tvwChild, 傳送文件 , 傳送文件 , 1) Set node3 = (n3, tvwChild, 接收文件 , 接收文件 , 1) Set node3 = (n3, tvwChild, 已發(fā)文件 , 已發(fā)文件 , 1) Set n4 = (, tvwChild, 交流管理 , 交流管理 , 1) Set node4 = (n4, tvwChild, 意見箱 , 意見箱 , 1) Set node4 = (n4, tvwChild, 投票活動 , 投票活動 , 1) Else 39。擁有操作權(quán)限，設置 TreeView 控件的樹狀菜單為管理員的樣式 (1).Text = 管理職員： amp。 (2).Text = Format(Now, m/d/yy) Set n1 = (, tvwChild, 通知管理 , 通知管理 , 1) Set node1 = (n1, tvwChild, 發(fā)布通知 , 發(fā)布通知 , 1) Set node1 = (n1, tvwChild, 接收通知 , 接收通知 , 1) Set node1 = (n1, tvwChild, 已發(fā)通 ***學校畢業(yè)論文 10 知 , 已發(fā)通知 , 1) Set n2 = (, tvwChild, 新聞管理 , 新聞管理 , 1) Set node2 = (n2, tvwChild, 新聞發(fā)布 , 新聞發(fā)布 , 1) Set node2 = (n2, tvwChild, 接收新聞 , 接收新聞 , 1) Set node2 = (n2, tvwChild, 已發(fā)新聞 , 已發(fā)新聞 , 1) Set n3 = (, tvwChild, 文件傳送 , 文件傳送 , 1) Set node3 = (n3, tvwChild, 傳送文件 , 傳送文件 , 1) Set node3 = (n3, tvwChild, 接收文件 , 接收文件 , 1) Set node3 = (n3, tvwChild, 已發(fā)文件 , 已發(fā)文件 , 1) Set n4 = (, tvwChild, 交流管理 , 交流管理 , 1) Set node4 = (n4, tvwChild, 意見箱, 意見箱 , 1) Set node4 = (n4, tvwChild, 投票活動 , 投票活動 , 1) Set n5 = (, tvwChild, 系統(tǒng)維護管理, 系統(tǒng)維護管理 , 1) Set node5 = (n5, tvwChild, 投票管理 , 投票管理 , 1) Set node5 = (n5, tvwChild, 意見箱管理 , 意見箱管理 , 1) ***學校畢業(yè)論文 11 Set node5 = (n5, tvwChild, 添加用戶 , 添加用戶 , 1) Set node5 = (n5, tvwChild, 密碼修改 , 密碼修改 , 1) End If Else 39。密碼不正確則顯示提示框 MsgBox 輸入密碼不正確，請重新輸入！ ,vbOKOnly + vbExclamation, 警告 = End If End If End Sub 主界面設計 主界面主要包括樹狀菜單、工具欄、狀態(tài)欄、時間顯示以及顯 示 OA 辦公系統(tǒng)的最新新聞和通知。 1 窗體設計 1）新建一個窗體，將窗體的“ Caption”屬性設置為“ OA辦公自動化系統(tǒng)” ,設置“ BackColor”屬性為窗體選擇合適的背景顏色。 2）添加“ ImageList”控件。該控件屬于 ActiveX 控件，在使用之前必須從“部件”對話框中將其添加到工具箱中。添加 方法為：在“部件”對話框中選中“ Microsoft Windows Common Controls (SP6)”列表項。 3）向窗體中添加“ Treeview”控件，設置其“ Appearance”屬性為“ 0ccfat”。“ TreeView”控件屬于“ ActiveX” rpwr ,使用前必須將其添加到工具箱中。為了使“ ImageList”控件中的圖像能夠順利地顯示在“ TreeView”控件的節(jié)點中，需將“ ImageList”綁定到“ TreeView”控件上，綁定方法為：在“ TreeView”控件上單擊鼠 標右