【正文】 投票管理窗體的設(shè)計(jì)結(jié)果如圖 所示 圖 在本窗體中用到“ MSChart”控件，該控件為“ ActiveX”控件，因此在使用之前必須從“部件”中添加上中，添加方法為：在“部件”對(duì)話框中選中“ Micrsoft ***學(xué)校畢業(yè)論文 36 Chart Control (OLEDB)”項(xiàng)。投票項(xiàng)目的名稱是動(dòng)態(tài)生成的，有幾項(xiàng)活動(dòng)將生成幾個(gè)“ CheckBox”控件。 amp。 str() amp。文本框顯示文件路徑 = Exit Sub errHandler: 39。 ***學(xué)校畢業(yè)論文 25 * 建立“ adoDept”控件的數(shù)據(jù)庫(kù)連接。 order by notice_date Set = adoNotice Call setNotice_Caption End Sub 新聞管理 新聞管理包含 3個(gè)部分：新聞發(fā)布、新聞接收、已發(fā)新聞。其中， 發(fā)布通知用來(lái)將通知發(fā)布給某部門(mén)某人，接收用來(lái)接收其他職員發(fā)布的通知，已發(fā)通知是用來(lái)查看發(fā)布給其他職員的通知。Initial Catalog=db_OA 39。 5）添加“ StatusBar”（狀 態(tài)欄）控件，它主要用來(lái)顯示操作員信息、系統(tǒng)時(shí)間及公司名稱網(wǎng)站。(1) = 39。Persist Security Info=False。 （ 3） 文件管理模塊 該模塊主要負(fù)責(zé)文件的發(fā)布、接收等。 該系統(tǒng)具有 新聞管理、文件傳送管理、通知管理、交流管理、系統(tǒng)維護(hù)功能，而且還根據(jù)大多數(shù)客戶需求增加了瀏覽器、播放器等功能，這樣既可以時(shí)時(shí)掌握最新網(wǎng)絡(luò)資源還可以 制造一個(gè)輕松的辦公氛圍 。 *由于該系統(tǒng)的使用對(duì)象多，因此要有較好的權(quán)限管理。 tbOA_notice 通知表主要用來(lái)存儲(chǔ)辦公通知信息。調(diào)用 frm_login 窗口 End Sub 登錄界面設(shè)計(jì) 本系統(tǒng)屬 于 OA 辦公自動(dòng)化系統(tǒng)，用戶權(quán)限分為系統(tǒng)管理員和普通用戶兩種。設(shè)置 treeview 控件的樹(shù)狀菜單 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, ***學(xué)校畢業(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, 意見(jiàn)箱 , 意見(jiàn)箱 , 1) Set node4 = (n4, tvwChild, 投票活動(dòng) , 投票活動(dòng) , 1) Else 39。激活窗體的 Activate 事件， Private Sub Form_Activate() For i = 1 To 39。刷新新聞 = pstr = select top 8 news_date,news_text from tboa_news order by news_date desc Call setNewsDataGrid_Caption 39。 + str() + 39。 3）程序代碼類似于“發(fā)布通知”窗體的代碼類似這里就不再贅述了。設(shè)置 bo1 = pstr = select * from tboa_dept For i = 0 To 1 (0).Value Next i 39。下面是“刪除文件記錄”按鈕的“ Click”事件代碼： Private Sub cmddel_Click() On Error Resume Next 39。 39。 ***學(xué)校畢業(yè)論文 30 (1).Text amp。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 !!! = = ElseIf = Then = 請(qǐng)輸入用戶密碼！ ***學(xué)校畢業(yè)論文 39 ElseIf isbool() = True Or isbool() = True Then MsgBox 用戶密碼中不能包含空格！請(qǐng)重新輸入密碼！ , vbInformation, 提示： = = ElseIf = Then = 請(qǐng)輸入 確認(rèn)密碼！ ElseIf Then MsgBox 兩次輸入的密碼不一致，請(qǐng)重新輸入！ , vbInformation, 提示： = = Else (0).Value = (1).Value = (2).Value = Abs() 39。 Check1(i).Caption amp。 39。 amp。 amp。 如果為真則轉(zhuǎn)到 errhandler 處，執(zhí)行 exit sub 語(yǔ)句 39。添加“ DataGrid”控件，名稱為默認(rèn)名稱“ DataGrid1” 程序代碼與“接收新聞”中的代碼設(shè)計(jì)類似，這里就不再贅述了。 + + 39。 設(shè)置標(biāo)志，標(biāo)題欄 = cdlOFNHideReadOnly 39。設(shè)置新聞 = = pstr 39。該控件屬于 ActiveX 控件，在使用之前必須從“部件”對(duì)話框中將其添加到工具箱中。 “系統(tǒng)登錄”窗體的設(shè)計(jì)結(jié)果如下圖所示： 圖 2. 代碼設(shè)計(jì) 雙擊“登錄”按鈕（ labLogin）添加如下事件代碼： Private Sub labLogin_Click() Set con = New Set rs = New = pstr mysql=select * from dbOA_user where user_name =39。 主要數(shù)據(jù)表的結(jié)構(gòu) 表 1 dbOA_user 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 描述 username vachar 20 Y 用戶名 userjpwd vachar 20 N 密碼 userbit bit N 權(quán)限標(biāo)記 表 2 tbOA_news 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 描述 news_id int Y 新聞 ID news_date datetime N 新聞發(fā)布時(shí)間 news_person vachar 12 N 發(fā)布人 news_acceptDept vachar 50 N 新聞接收部門(mén) news_acceptPerson vachar 12 N 接收人 news_bit bit N 標(biāo)記 news_text vachar 50 N 備注 ***學(xué)校畢業(yè)論文 4 表 3 tbOAnotice 表 4 tbOA_file 表 5 tbOA_idea 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 描述 idear_id int Y 意見(jiàn) ID idear_subject varchar 30 N 意見(jiàn)主題 idear_text varchar 50 N 意見(jiàn)內(nèi)容 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 描述 notice_id int Y 通知 ID notice_date datetime N 通知時(shí)間 notice_person vachar 12 N 發(fā)布通知人 notice_acceptDept vachar 30 N 通知部門(mén) notice_acceptPerson vachar 12 N 通知人 notice_bit bit 1 N 標(biāo)記 notice_text vachar 500 N 備注 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 描述 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 接收 部門(mén) file_name varchar 16 N 接收人 file_date datetime 8 N 傳送日期 file_file image 16 N 文件 file_type varchar 20 N 文件類型 ***學(xué)校畢業(yè)論文 5 表 6 tbOA_vote 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 描述 vote_id int Y 活動(dòng) ID vote_subject varchar 30 N 活動(dòng)主題 vote_memo varchar 50 N 活動(dòng)備注 vote_qty float N 投票數(shù)量 表 7 tbOA_voteRecord 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 描述 voteRecord_id int Y ID voteRecord_name varchar 16 N 投票人 表 8 tbOA_dept 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 描述 dept_id int Y 部門(mén)編號(hào) dept_name varchar 30 N 部門(mén)名稱 dept_describe Text 16 N 描述信息 ***學(xué)校畢業(yè)論文 6 第 4 章 主要功能模塊的設(shè)計(jì) 公共模塊設(shè)計(jì) 為了節(jié)省系統(tǒng)資源，實(shí)現(xiàn)代碼重用，可以在系統(tǒng)中新建一個(gè) Module1 模塊。因此，在接受任何一個(gè)項(xiàng)目開(kāi)發(fā)任務(wù)之前，必須根據(jù)客戶可能提供的時(shí)間和資源條件進(jìn)行可行性分析，以減少項(xiàng)目 開(kāi)發(fā)風(fēng)險(xiǎn)，避免人力、物力和財(cái)力的浪費(fèi)。 ******學(xué)校 畢業(yè)設(shè)計(jì)（論文） 作者 : 學(xué)號(hào) : 系部 :