【正文】 BAT， RAR， FRM， DOC 等等）。 （ 3）程序代碼。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 39。 39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 （ 3）添加 2個(gè) DTPicker 控件，名稱分別為 DTPicker1 和 DTPicker2。 Form 窗體的 Load 事件過(guò)程中的代碼如下： Private Sub Form_Load() = PublicStr ‘ 建立數(shù)據(jù)庫(kù)連接 = select * from tbOA_news ‘ 檢索數(shù)據(jù)表數(shù)據(jù) = PublicStr = select * from tbOA_dept For i = 0 To – 1 ‘ 將所有部門(mén)名稱添加到 Combo1中 (1).Value Next i = Mid((1).Text, 6, Len((1).Text) 5) ‘ 獲取操作員姓名 = Date ‘ 顯示系統(tǒng)當(dāng)前日期 End Sub 在 Combo1 控件中選擇不同的部門(mén)，檢索該部門(mén)的所有員 工并將其添加到Combo2 控件中。在【發(fā)布新聞】按鈕的 Click 事件下添加如下代碼： Private Sub cmdSave_Click() (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = 0 (6).Value = MsgBox 通知發(fā)布成功！ , vbInformation End Sub Form 窗體載入時(shí)，主要實(shí)現(xiàn)以下 功能： （ 1）建立 adoNews 控件和 adoDept 控件數(shù)據(jù)庫(kù)連接。 （ 3）添加 DTPicker 控件，該控件屬于 ActiveX 控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱中。 下面筆者分別講解新聞發(fā)布、新聞接收和已發(fā)新聞的開(kāi)發(fā)過(guò)程。) ORDER BY notice_date DESC Call setNoticeDataGrid_Caption 39。//////設(shè)置通知 = SELECT notice_date,notice_person,notice_acceptDept,notice_acceptPerson,notice_text FROM tbOA_notice WHERE (notice_acceptPerson = 39。 amp。 39。) ORDER BY news_date DESC Set = adoNews Call setNewsDataGrid_Caption 39。////設(shè)置 NEWS = PublicStr = SELECT news_date,news_text FROM tbOA_news WHERE (news_acceptPerson = 39。在 Form 窗體的Activate 事件下添加如下代碼： Private Sub Form_Activate() For i = 1 To 39。 河北科技大學(xué)?？飘厴I(yè)論文 12 圖 5 設(shè)置 MSHFlexGrid 控件顏色屬性 （ 5）添加 StatusBar（狀態(tài)欄）控件，主要用來(lái)顯示系統(tǒng)操作員信息、系統(tǒng)時(shí)間及公司名稱和網(wǎng)站。 （ 2）為窗體設(shè)計(jì)菜單。界面設(shè)計(jì)簡(jiǎn)單明了，為用戶提供便捷的訪問(wèn)途徑，把一些具有共性的命令集中于一個(gè)簡(jiǎn)單的菜單之下。 39。 and userpwd=39。 系統(tǒng)登錄窗體的設(shè)計(jì)結(jié)果如圖 3 所示。 （ 2）添加 Adodc 控件，設(shè)置名稱為 adoLogin， Visible 屬性為 False，由于該控件屬于 ActiveX 控件，在使用之前必須從“部件”對(duì)話框?qū)⑵涮砑拥焦ぞ呦渲小?Server amp。 pwd amp。User ID= amp。 str, con, 1, adLockOptimistic Set rs = (Str) 39。 + + \DataBase\ + 39。打開(kāi)數(shù)據(jù)庫(kù)連接 Set rs = New 39。Initial Catalog=db_OA。 。附加數(shù)據(jù)庫(kù) On Error Resume Next = Provider=。在以后的編程中，如果使用對(duì)象訪問(wèn)數(shù)據(jù)庫(kù)或 ADO Data 控件訪問(wèn)數(shù)據(jù)庫(kù)，則可以直接將數(shù)據(jù)庫(kù)共享連接字符串（ PublicStr）值賦值給相應(yīng)的ConnectionString 屬性，從而避免了重復(fù)建立數(shù)據(jù)庫(kù)連接的麻煩，而失去了ADO+SQL 的優(yōu)越性能。 S Q L S e r v e r服 務(wù) 器公 司 職 員計(jì) 算 機(jī)公 司 職 員計(jì) 算 機(jī)公 司 職 員計(jì) 算 機(jī)公 司 職 員計(jì) 算 機(jī)公 司 職 員計(jì) 算 機(jī) 圖 1 系統(tǒng)工作原理網(wǎng)絡(luò)結(jié)構(gòu)圖 系統(tǒng)功能結(jié)構(gòu)圖 系 統(tǒng) 主 界 面發(fā)布通知系 統(tǒng) 啟 動(dòng)系 統(tǒng) 登 錄接收通知已發(fā)通知新聞發(fā)布新聞接收已發(fā)新聞通 知 管 理 新 聞 管 理 文 件 傳 送 交 流 管 理文件傳送文件接收已傳文件意見(jiàn)箱投票活動(dòng)短消息服務(wù)系 統(tǒng) 維 護(hù) 管 理人事管理投票管理意見(jiàn)箱管理系統(tǒng)設(shè)置 圖 2 系統(tǒng)功能結(jié)構(gòu)圖 河北科技大學(xué)專科畢業(yè)論文 7 3 詳細(xì)設(shè)計(jì) 公共模塊設(shè)計(jì) 為了節(jié)省系統(tǒng)資源，實(shí)現(xiàn)代碼重用，可以在系統(tǒng)中新建一個(gè) Modulel 模塊。 ? 文件傳送管理模塊 該模塊主要負(fù)責(zé)文件的傳送與接收等。因此，在接受任何一個(gè)項(xiàng)目開(kāi)發(fā)任務(wù)之前，必須根據(jù)客戶可能提供的時(shí)間和資源條件進(jìn)行可行性分析，以減少項(xiàng)目開(kāi)發(fā)風(fēng)險(xiǎn)，避免人力、物力和財(cái)力的浪費(fèi)。 ? 通過(guò)計(jì)算機(jī)，能夠直接 “ 透視 ” 公司的各項(xiàng)工作及活動(dòng)安排。 ? 由于該系統(tǒng)的使用對(duì)象多，要求有較好的權(quán)限管理。本系統(tǒng)是以新聞發(fā)布、文件傳送為核心的辦公自動(dòng)化系統(tǒng)，是一套集新聞管理、文件傳送管理、信息發(fā)布、人事管理、局域網(wǎng)短消息快速傳送等 5 部分為一體的辦公自動(dòng)化系統(tǒng)。把協(xié)同辦公的理念、知識(shí)管理的思想帶入了現(xiàn)代社會(huì)的辦公生活，從而提升了現(xiàn)代企業(yè)的信息化程度，改變了人們的生活。河北科技大學(xué)?？飘厴I(yè)論文 1 河 北 科 技 大 學(xué) 畢 業(yè) 設(shè) 計(jì) 學(xué)生姓名： 學(xué) 號(hào)： 學(xué) 院： 河北科技大學(xué) 專 業(yè) ： 計(jì)算機(jī)應(yīng)用技術(shù)專業(yè) 題 目： 辦公自動(dòng)化系統(tǒng) 指導(dǎo)教師： 評(píng)閱教師： 2020 年 6 月 河北科技大學(xué)專科畢業(yè)論文 2 摘要 【摘要】 系統(tǒng)針對(duì)企業(yè)機(jī)關(guān)辦公中存在的信息不暢、效率底下、操作不規(guī)范等一系列問(wèn)題。 【關(guān)鍵詞】 OA 辦公自動(dòng)化系統(tǒng) Abstract The system transacts a medium existent information to business enterprise anization not lucid , efficiency underneath, operation not norm etc. a series of problem. The management thought which uses informationbased means and new generation provided a powerful work to turn, strong support. Taking the thought of principle, knowledge management which is in conjunction with to transact went into a modern a society of transact a life, promoted the informationbased degree of the modern business enterprise thus, changed people39。 該系統(tǒng)除了必須滿足當(dāng)前的應(yīng)用要求外，在整套系統(tǒng)的設(shè)計(jì)過(guò)程中，還專門(mén)強(qiáng)調(diào)了其先進(jìn)性及可擴(kuò)展性。 ? 原始數(shù)據(jù)修改簡(jiǎn)單方便，支持多條件修改。 ? 圖表分析活動(dòng)投票管理。 本系統(tǒng)數(shù)據(jù)庫(kù)采用目前比較流行的 Microsoft SQL Server，該數(shù)據(jù)庫(kù)系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢(shì)，并且處理數(shù)據(jù)庫(kù)量大，效率高；前臺(tái) 采用 Microsoft 公司的 Visual Basic 作為主要的開(kāi)發(fā)工具，其可與 SQL Server 2020 數(shù)據(jù)庫(kù)無(wú)縫鏈接。 ? 交流管理模塊 該模塊主要實(shí)現(xiàn)意見(jiàn)反饋、活動(dòng)投票、短消息服務(wù)（局域網(wǎng)）。就本系統(tǒng)而言，該模塊主要實(shí)現(xiàn)數(shù)據(jù)庫(kù)安裝和共享數(shù)據(jù)庫(kù)連接。 模塊中代碼如下： Public PublicStr As String Dim con As New , rs As New Dim Str As String, Server As String, uid As String, Dim pwd As String Public Sub main() 39。Persist Security Info=False。PWD= amp。Data Source= amp。開(kāi)始附加數(shù)據(jù)庫(kù) Str = EXEC sp_attach_db dbname = N39。, filename2 = N39。關(guān)閉數(shù)據(jù)庫(kù)連接 39。 uid amp。 。 河北科技大學(xué)專科畢業(yè)論文 8 End Sub 系統(tǒng)登錄設(shè)計(jì) 本系統(tǒng)屬于 OA 辦公自動(dòng)化系統(tǒng)，用戶權(quán)限分為兩種：系統(tǒng)管理員和普通用戶。添加方法為： 在“工程” /“部 件”對(duì)話框中 勾 選“ Microsoft Ado Data Controls (SP4)”列表項(xiàng)。 圖 3 系統(tǒng)登錄窗體設(shè)計(jì) 代碼設(shè)計(jì) 單擊名稱為 labLogin 的 Label 控件用來(lái)進(jìn)行用戶安全性檢查，如果用戶 名稱和密碼正確，則進(jìn)入系統(tǒng)并分配相應(yīng)的權(quán)限。 + + 39。設(shè)置控件 TreeView樹(shù)狀菜單 Set n1 = (, tvwChild, 通知管理 , 通知管理 , 1) Set node1 = (, tvwChild, 發(fā)布通知 , 發(fā)布通知 , 1) Set node1 = (, tvwChild, 接收通知 , 接收通知 , 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)箱 ,