【正文】 ub 單擊【添加】按鈕，添加相關(guān)投票活動。 （ 2）添加 2 個 Label 標(biāo)簽控件、 2 個 TextBox 文本框控件及 4 個河北科技大學(xué)?？飘厴I(yè)論文 24 CommandButton 按鈕控件。 (0).Value amp。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 amp。 （ 3）添加 ADO 控件和 DataGrid 控件，設(shè)置名稱分別為 adoFile 和DataGrid1。 amp。 （ 3）獲取系統(tǒng)操作職員姓名，并通過 txtName 控件顯示出來。 （ 2）添加 2 個 Combo 控件、 4 個 TextBox 控件、 3 個 CommandButton 控件，其屬性設(shè)置如圖 所示。 （ 2）添加 ADO 控件，設(shè)置“名稱”屬性為 adoNews，設(shè)置 Visible 屬性為False；添加 DataGrid 控件 “名稱”屬性為默認(rèn)名稱 DataGrid1；添加CommandButton 控件名稱為默認(rèn)名稱、其 Caption 屬性為“退出”。 amp。 在窗體裝載過程中，將 adoNews 控件查詢的數(shù)據(jù)通過 DataGrid 控件顯示，代碼如下： Private Sub Form_Load() = PublicStr ‘ 建立數(shù)據(jù)庫連接 ‘ 數(shù)據(jù)庫查詢（以日期為標(biāo)準(zhǔn)降序 查詢） = select * from tbOA_news where news_acceptPerson=39。 （ 4）使 DTPicker1 控件顯示系統(tǒng)當(dāng)前日期。 （ 2）在窗體中添加 4 個 Label 控件、 2 個 Combo 控件、 3 個 ADO 控件、 2 個TextBox 控件和 2 個 CommandButton 控件。 39。////設(shè)置 NEWS = SELECT news_date,news_text FROM tbOA_news WHERE (news_acceptPerson = 39。 39。 程序代碼設(shè)計(jì) 當(dāng)窗體激活時，將 TreeView 控件中所有的節(jié)點(diǎn)展開。 河北科技大學(xué)?？飘厴I(yè)論文 11 圖 4 主界面 窗體設(shè)計(jì) （ 1）新建 1 個窗體，將窗體的“名稱”屬性設(shè)置為 frm_mainBefore，Caption 屬性為“★ OA 辦公自動化系統(tǒng)★”， MaxButton 屬性為 False，設(shè)置Picture 屬性，為窗體添加背景圖片。權(quán)限約束 (1).Text = 操作職 員： amp。 （ 4）添加 2 個 Label 控件，將名稱設(shè)置為 labLogin 和 labEnd， BackStyle屬性為 0Transparent。Data Source= amp。Persist Security Info=False。, filename1 = N39。 。 \) For Input As 1 Line Input 1, Intext Server = Mid(Intext, 10, Len(Trim(Intext)) 9) Line Input 1, Intext uid = Mid(Intext, 7, Len(Trim(Intext)) 6) Line Input 1, Intext pwd = Mid(Intext, 7, Len(Trim(Intext)) 6) Close 1 39。 河北科技大學(xué)專科畢業(yè)論文 6 系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖 系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖如圖 1 所示。 可行性分析 開發(fā)任何一個基于計(jì)算機(jī)的系統(tǒng)，都會受到時間和資源上的限制。 河北科技大學(xué)專科畢業(yè)論文 5 1 系統(tǒng)分析 需求分析 通過調(diào)查，要求系統(tǒng)需要有以下功能： ? 由于操作人員的計(jì)算機(jī)知識普遍較差，那么就要求有良好的人機(jī)界面。用信息化手段和新一代的管理思想提供了強(qiáng)有力的網(wǎng)絡(luò)化、電子化支持。s life. 【 Keyword 】 the OA transact automation 河北科技大學(xué)專科畢業(yè)論文 3 目錄 摘要 ?????????????????????????????? 2 目錄 ?????????????????????????????? 3 引言 ?????????????????????????????? 4 1 系統(tǒng)分析 ????????? ????????????????? 5 需求分析 ???????????????????????? 5 可行性分析 ??????????????????????? 5 2 總體分析 ??????????????? ??? ???????? 5 項(xiàng)目規(guī)劃 ????????????? ? ?????????? 6 系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖 ????????????????? 6 系統(tǒng)功能結(jié)構(gòu)圖 ????????????????????? 6 3 詳細(xì)設(shè)計(jì) ??????????????? ????? ??? ??? 7 公共模塊設(shè)計(jì) ?????????????? ? ??????? 7 系統(tǒng)登錄設(shè)計(jì) ?????????????????????? 8 窗體設(shè)計(jì) ?????????????????????? 8 代碼設(shè)計(jì) ?????????????????????? 8 主界面設(shè)計(jì) ???????????????????? ? ?? 10 窗體設(shè)計(jì) ????????????????????? 11 程序代碼設(shè)計(jì) ??? ???????????????? 11 新聞管理 ???????????????????????? 13 新聞發(fā)布 ????????????????????? 13 新聞接收 ????????????????????? 15 已發(fā)新聞 ????????????????????? 17 傳送文件 ???????????????????????? 18 文件接收 ???????????????????????? 20 投票活 動管理 ?????????????????????? 22 附錄 A 參考文獻(xiàn) ??????????????????????? 26 附錄 B 數(shù)據(jù)表結(jié)構(gòu) ?????????????????????? 27 附錄 C 文件架構(gòu)圖 ?????????????????????? 30 結(jié)束語 ?? ?? ????????????????????? 31 河北科技大學(xué)?？飘厴I(yè)論文 4 引言 在市場競爭過程中，對于一個企業(yè)而言，對信息的掌握程度、信息獲取是否及時、信息能否得到充分的利用、對信息的反應(yīng)是否敏感準(zhǔn)確，也越來越成為衡量一個企 業(yè)市場競爭能力的重要因素。 ? 方便的數(shù)據(jù)查詢，支持多條件查詢。 2 總體設(shè)計(jì) 項(xiàng)目規(guī)劃 OA 辦公自動化系統(tǒng)是一個典型的網(wǎng)絡(luò)辦公開發(fā)應(yīng)用程序，包含通知管理模塊、新聞管理模塊、文件傳送管理模塊、交流管理模塊、系統(tǒng)維護(hù)管理模塊 5 部分組成，規(guī)劃系統(tǒng)功能模塊如下： ? 通知管理模塊 該模塊主要負(fù)責(zé)信息的發(fā)布、接收等。 系統(tǒng)第一次使用時，根據(jù)用戶設(shè)置的 配置文件， 將數(shù)據(jù)庫文件（ ）和數(shù)據(jù)庫日志文件（ ）自動安裝到指定的 SQL Server 數(shù)據(jù)庫服務(wù)器上。User ID= amp。 Server amp。 + + \DataBase\ + 39。 。 系統(tǒng)登錄驗(yàn)證操作員及其密碼，主要通過記錄集結(jié)果（ RecordSet）結(jié)合 If語句， 判斷用戶輸入的操作員及密碼是否符合數(shù)據(jù)庫中的操作員和密碼，如果符合則允許登錄，并給予相應(yīng)的權(quán)限，否則提示用戶非法登錄。在 Label 控件名稱為 labLogin 的Click 事件下，添加代碼如下： Private Sub labLogin_Click() = PublicStr 河北科技大學(xué)?？飘厴I(yè)論文 9 = select * from tbOA_user where username=39。 39。添加方法為：在“工程” /“部件”對話框中勾選“ Microsoft Windows Common Controls （ SP6）”列表項(xiàng)。在 TreeView 控件的 NodeClick 事件下添加代碼如下： Private Sub TreeView1_NodeClick(ByVal Node As ) If = 發(fā)布通知 Then If = 接收通知 Then If = 已發(fā)通知 Then If = 新聞發(fā)布 Then If = 接收新聞 Then If = 已發(fā)新聞 Then If = 新聞發(fā)布 Then If = 接收新聞 Then If = 已發(fā)新聞 Then If = 傳送文件 Then 河北科技大學(xué)?？飘厴I(yè)論文 13 If = 接收文件 Then If = 已發(fā)文件 Then If = 意見箱 Then If = 投票活動 Then If = 短消息服務(wù) Then If = 人事管理 Then If = 投票管理 Then If = 意見箱管理 Then If = 系統(tǒng)設(shè)置 Then End Sub 在 Form 窗體的裝載過程中，將最新的新聞和通知顯示在 MSHFlexGrid 表格中。 amp。 39。 Sub setNewsDataGrid_Caption() ‘ 初始化行序號 For i = 1 To (i, 0) = i Next ‘ 初始化表格標(biāo)題和列寬 (0, 0) = 序號 : (0, 1) = 發(fā)布日期 (0, 2) = 新聞內(nèi)容 : (0) = 400 (1) = 1000: (2) = 6700 End Sub 新聞管理 新聞管理包含 3 個部分：新聞發(fā)布、新聞接收、已發(fā)新聞。 （ 4）程序代碼。 圖 7 新聞接收設(shè)計(jì)圖 （ 1）新建一個窗體，設(shè)置窗體的“名稱”屬性為 frmNews_incept、 Caption屬性為“新聞接收”、 MaxButton 屬性為 False。 amp。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 （ 5）添加 CommonDialog 控件，默認(rèn)名稱 CommonDialog1。Persist Security Info=False。 For i = 0 To 1 (1).Value Next i End Sub 單擊【瀏覽文件】按鈕，選擇將要傳送的文件，代碼如下： Private Sub cmdFile_Click() = : fileName = End Sub 河北科技大學(xué)?？飘厴I(yè)論文 21 文件接收 文件接收窗體主要用來接收其他員工傳送來的文件，并且將文件下載保存到本機(jī)器中。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 and 39。 (3).Text amp。保存文件， adSaveCreateOverWrite為覆蓋以存在文件 河北科技大學(xué)專科畢業(yè)論文 23 = 0 MsgBox 現(xiàn)在成功！ amp。由于 MSChart 控件為ActiveX 控件，在使用之前必須從“部件”對話框中添加到工具箱中。下面是【清除投票記錄】按鈕的 Click 事件代碼： Private Sub cmdClear_Click() = select * from tbOA_vote If 0 Then For i = 0 To 1 (3).Value = 0 39。 踉踉蹌蹌地忙碌了兩個月，我的畢業(yè)設(shè)計(jì)課題也終將告一段落