【正文】 oteRecord) 39?！撅@示圖表】按鈕的 Click 事件下添加代碼如下： Private Sub cmdChar_Click() If = 顯示圖表 Then = 顯示列表 = True = False = select vote_subject as 活動(dòng)名稱(chēng) ,vote_qty as 投票數(shù)量 from tbOA_vote Set = adoVote ElseIf = 顯示列表 Then = 顯示圖表 = False: = True = select * from tbOA_vote order by vote_qty desc (0).Caption = 序號(hào) : (1).Caption = 活動(dòng)名稱(chēng) (2).Caption = 活動(dòng)描述 : (3).Caption = 活動(dòng)票數(shù) End If End Sub 單擊【添加】按鈕，添加相關(guān)投票活動(dòng)。添加方法為：在“工程” /“部件”對(duì)話(huà)框中勾選“ Microsoft Chart Controls （ OLEDB）”列表項(xiàng)。 （ 2）添加 2 個(gè) Label 標(biāo)簽控件、 2 個(gè) TextBox 文本框控件及 4 個(gè)河北科技大學(xué)專(zhuān)科畢業(yè)論文 24 CommandButton 按鈕控件。 文件保存在： amp。 (0).Value amp。 】傳送來(lái)的『 amp。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 amp。 amp。order by file_date desc Set = adoFile ‘ 將數(shù)據(jù)源綁定到 DataGrid表格上 Call setDataGrid_Caption End Sub 通過(guò)鼠標(biāo)選擇 DataGrid 表格中數(shù)據(jù)，然后單擊【刪除文件記錄】按鈕，將選河北科技大學(xué)專(zhuān)科畢業(yè)論文 22 中的文件數(shù)據(jù)刪除。 （ 3）添加 ADO 控件和 DataGrid 控件，設(shè)置名稱(chēng)分別為 adoFile 和DataGrid1。本窗體主要實(shí)現(xiàn)的功能為：以日期 為標(biāo)準(zhǔn)查詢(xún)接收文件、下載接收文件、刪除接收文件、顯示所有接收文件。 amp。User ID=sa。 （ 3）獲取系統(tǒng)操作職員姓名，并通過(guò) txtName 控件顯示出來(lái)。 CommonDialog 控件為 ActiveX 控件，在使用之前必須從“部件”對(duì)話(huà)框中添加到工具箱 中。 （ 2）添加 2 個(gè) Combo 控件、 4 個(gè) TextBox 控件、 3 個(gè) CommandButton 控件，其屬性設(shè)置如圖 所示。 Set = adoNews Call setDataGrid_Caption End Sub 39。 （ 2）添加 ADO 控件，設(shè)置“名稱(chēng)”屬性為 adoNews，設(shè)置 Visible 屬性為False；添加 DataGrid 控件 “名稱(chēng)”屬性為默認(rèn)名稱(chēng) DataGrid1；添加CommandButton 控件名稱(chēng)為默認(rèn)名稱(chēng)、其 Caption 屬性為“退出”。order by news_date desc Set = adoNews Call setDataGrid_Caption ‘ 調(diào)用自定義過(guò)程 End Sub 單擊【顯示所有新聞】按鈕后，顯示系統(tǒng)操作職員接收到的所有新聞，代碼如下： Private Sub Command1_Click() = PublicStr = select * from tbOA_news where news_acceptPerson=39。 amp。 amp。 在窗體裝載過(guò)程中，將 adoNews 控件查詢(xún)的數(shù)據(jù)通過(guò) DataGrid 控件顯示，代碼如下： Private Sub Form_Load() = PublicStr ‘ 建立數(shù)據(jù)庫(kù)連接 ‘ 數(shù)據(jù)庫(kù)查詢(xún)（以日期為標(biāo)準(zhǔn)降序 查詢(xún)） = select * from tbOA_news where news_acceptPerson=39。 （ 2）添加 4個(gè) ComandButton 控件和 1個(gè) Adodc 控件。 （ 4）使 DTPicker1 控件顯示系統(tǒng)當(dāng)前日期。 新聞發(fā)布就是將要發(fā)布的新聞按部門(mén)、職員和新聞數(shù)據(jù)存儲(chǔ)到 tbOA_news 數(shù)據(jù)表中。 （ 2）在窗體中添加 4 個(gè) Label 控件、 2 個(gè) Combo 控件、 3 個(gè) ADO 控件、 2 個(gè)TextBox 控件和 2 個(gè) CommandButton 控件。其中新聞發(fā)布用來(lái)將新聞發(fā)布給某部門(mén)中某人；新聞接收用來(lái)接收其他職員發(fā)布新聞；已發(fā)新聞?dòng)脕?lái)瀏覽將新聞發(fā)布給其他職員的新聞。 39。) ORDER BY news_date DESC Call setNewsDataGrid_Caption 39。////設(shè)置 NEWS = SELECT news_date,news_text FROM tbOA_news WHERE (news_acceptPerson = 39。 amp。 39。 Private Sub Form_Load() 39。 程序代碼設(shè)計(jì) 當(dāng)窗體激活時(shí)，將 TreeView 控件中所有的節(jié)點(diǎn)展開(kāi)。 （ 4）添加 MSHFlexGrid 控件，該控件屬于 ActiveX 控件，使用之前必須將MSHFlexGrid 控件添加到工具箱中，添加方法為：在“工程” /“部件”對(duì)話(huà)框中勾選“ Microsoft Hierarchical FlexGrid Control ”列表，添加 2 個(gè)MSHFlexGrid 控件，名稱(chēng)分別為 MSHFlexGrid1 和 MSHFlexGrid2，二者的屬性完全相同，主要設(shè)置控件的背景色、前景色及表格顏色，方法為：在控件上單擊鼠標(biāo)右鍵選擇“屬性”菜單，彈出“屬性頁(yè)”選擇“顏色”選項(xiàng)卡設(shè)置控件的相關(guān)顏色，如圖 5 所示。 河北科技大學(xué)專(zhuān)科畢業(yè)論文 11 圖 4 主界面 窗體設(shè)計(jì) （ 1）新建 1 個(gè)窗體，將窗體的“名稱(chēng)”屬性設(shè)置為 frm_mainBefore，Caption 屬性為“★ OA 辦公自動(dòng)化系統(tǒng)★”， MaxButton 屬性為 False，設(shè)置Picture 屬性，為窗體添加背景圖片。設(shè)置控件 TreeView樹(shù)狀菜單 Set n1 = (, tvwChild, 通知管理 , 通知管理 , 1) Set node1 = (, tvwChild, 發(fā)布通知 , 發(fā)布通知 , 1) Set node1 = (, tvwChild, 接收通知 , 接河北科技大學(xué)專(zhuān)科畢業(yè)論文 10 收通知 , 1) Set node1 = (, tvwChild, 已發(fā)通知 , 已發(fā)通知 , 1) Set n2 = (, tvwChild, 新聞管理 , 新聞管理 , 1) Set nnode2 = (, tvwChild, 新聞發(fā)布 , 新聞發(fā)布 , 1) Set node2 = (, tvwChild, 接收新聞 , 接收新聞 , 1) Set node2 = (, tvwChild, 已發(fā)新聞 , 已發(fā)新聞 , 1) Set n4 = (, tvwChild, 文件傳送 , 文件傳送 , 1) Set nnode4 = (, tvwChild, 傳送文件 , 傳送文件 , 1) Set node4 = (, tvwChild, 接收文件 , 接收文件 , 1) Set node4 = (, tvwChild, 已發(fā)文件 , 已發(fā)文件 , 1) Set n3 = (, tvwChild, 交流管理 , 交流管理 , 1) Set node3 = (, tvwChild, 意見(jiàn)箱 , 意見(jiàn)箱 , 1) Set node3 = (, tvwChild, 投票活動(dòng) , 投票活動(dòng) , 1) Set node3 = (, tvwChild, 短消息服務(wù) , 短消息服務(wù) , 1) Set n5 = (, tvwChild, 系統(tǒng)維護(hù)管理 , 系統(tǒng)維護(hù)管理 , 1) Set node5 = (, tvwChild, 人事管理 , 人事管理 , 1) Set node5 = (, tvwChild, 投票管理 , 投票管理 , 1) Set node5 = (, tvwChild, 意見(jiàn)箱管理 , 意見(jiàn)箱管理 , 1) Set node5 = (, tvwChild, 系統(tǒng)設(shè)置 , 系統(tǒng)設(shè)置 , 1) End If Unload Me End If End Sub 主界面設(shè)計(jì) 主界面主要包括菜單、樹(shù)狀菜單（ TreeView 控件實(shí)現(xiàn)）、狀態(tài)欄以及顯示 OA辦公系統(tǒng)的最新新聞和最新通知。權(quán)限約束 (1).Text = 操作職 員： amp。 + + 39。 （ 4）添加 2 個(gè) Label 控件，將名稱(chēng)設(shè)置為 labLogin 和 labEnd， BackStyle屬性為 0Transparent。 窗體設(shè)計(jì) （ 1）新建一個(gè)窗體，將窗體的“名稱(chēng)”屬性設(shè)置為 frm_login， BorderStyle屬性設(shè)置為 0None，設(shè)置 Picture 屬性，為窗體添加背景圖片。Data Source= amp。PWD= amp。Persist Security Info=False。 39。, filename1 = N39。 39。 。 uid amp。 \) 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。 為了優(yōu)化 ADO+SQL 數(shù)據(jù)庫(kù)的連接，在公共模塊（ Module1）中建立數(shù)據(jù)庫(kù)連接共享字符串。 河北科技大學(xué)專(zhuān)科畢業(yè)論文 6 系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖 系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖如圖 1 所示。 ? 新聞管理模塊 該模塊的主要負(fù)責(zé)新聞的發(fā)布、接收等。 可行性分析 開(kāi)發(fā)任何一個(gè)基于計(jì)算機(jī)的系統(tǒng)，都會(huì)受到時(shí)間和資源上的限制。 ? 信息發(fā)布與文件傳送速度快。 河北科技大學(xué)專(zhuān)科畢業(yè)論文 5 1 系統(tǒng)分析 需求分析 通過(guò)調(diào)查，要求系統(tǒng)需要有以下功能： ? 由于操作人員的計(jì)算機(jī)知識(shí)普遍較差，那么就要求有良好的人機(jī)界面。商場(chǎng)如戰(zhàn)場(chǎng)，新一代的戰(zhàn)爭(zhēng)是信息化戰(zhàn)爭(zhēng)，如何使企業(yè)信息化建設(shè)完善起來(lái) ? 在這種情況下，開(kāi)發(fā) OA 辦公自動(dòng)化系統(tǒng)是當(dāng)務(wù)之急的事了。用信息化手段和新一代的管理思想提供了強(qiáng)有力的網(wǎng)絡(luò)化、電子化支持。用信息化的手段和新一代規(guī)范等一系列問(wèn)題。s life. 【 Keyword 】 the OA transact automation 河北科技大學(xué)專(zhuān)科畢業(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)圖