【正文】 battlefield, the war is a new generation of information warfare and how this tool via the Inter to enable enterprises to improve information technology?This requires an efficient and stable system, office automation!Through the system, corporate bodies that exist in the information office poor efficiency, such as a range of issues have been idea of knowledge management into the business life of modern society, thus enhancing the modern enterprise level information has changed people39。 *由于操作人員的計(jì)算機(jī)知識(shí)普遍較差，因此要求有良好的人機(jī)界面。 *方便 數(shù)據(jù) 的查詢，修改。 *通過座機(jī)能夠直接“透視”公司的各項(xiàng)工作及活動(dòng)安排。 *在相應(yīng)的權(quán)限下，管理員可以刪除數(shù)據(jù) 可行性分析 開發(fā)任何一個(gè)基于計(jì)算機(jī)的系統(tǒng)時(shí)，都會(huì)受到時(shí)間和資源上的限制。 本系 統(tǒng)的數(shù)據(jù)庫采用目前比較滸的 SQL Server 2021，該數(shù)據(jù)庫系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢，并且處理數(shù)據(jù)量大、效率高；前臺(tái)采用Microsoft 公司的 Visual Basic 作為主要的開發(fā)工具，它可與 SQL Server 2021 數(shù)據(jù)庫無縫鏈接。 （ 1）通知管理模塊 該模塊主要負(fù)責(zé)信息的發(fā)布、接收等。 （ 3） 文件管理模塊 該模塊主要負(fù)責(zé)文件的發(fā)布、接收等。 （ 5） 系統(tǒng)維護(hù)管理模塊 該模塊主要負(fù)責(zé)用戶添加、刪除，密碼、權(quán)限的修改，意見箱的管理，投票活動(dòng)管理。 dbOA_user 系統(tǒng)用戶表用來存儲(chǔ)系統(tǒng)操作員的基本信息 tbOA_news 新聞表主要用于存儲(chǔ)新聞的發(fā)布信息。 tbOA_file 文件數(shù)據(jù)表主要用來存儲(chǔ)文件傳送的基本信息。 tbOA_vote 投票表主要用來存儲(chǔ)活動(dòng)投票的基本信息。 tbOA_dept 部門表主要用來存儲(chǔ)公司部門信息的表 。就本系統(tǒng)而言，該模塊主要用于實(shí)現(xiàn)數(shù)據(jù)庫的共享連接。 代碼如下： Public pstr As String Public Sub main() 39。Persist Security Info=False。 pwd=sa。Data Source=APC 39。“系統(tǒng)登錄”窗體用于難操作員及其密碼，主要通過打開數(shù)據(jù)庫連接、打開數(shù)據(jù)結(jié)合if 語句 ，判斷用戶輸入的操作員及密碼是否符合數(shù)據(jù)庫中的操作員和密碼，如果符合則允許登錄，并給予相應(yīng)的權(quán)限，否則提示用戶不存在。 添加兩個(gè)“ Label”控件，設(shè)置其 BackStyle 屬性設(shè)置為“ 0Transparent”。 添加兩個(gè)“ CommondButton”控件，分別將其 Caption 屬性設(shè)置為“登錄”、“退 ***學(xué)校畢業(yè)論文 7 出”。 + + 39。判斷是否存在用戶 If Then MsgBox 沒有這個(gè)用戶，請(qǐng)重新輸入用戶名！ ***學(xué)校畢業(yè)論文 8 = 39。(1) = 39。的樹狀菜單為操作員的樣式 If (2) = False Then (1).Text = 操作職員： amp。顯示系統(tǒng)時(shí)間 (2).Text = Format(Now, m/d/yy) 39。擁有操作權(quán)限，設(shè)置 TreeView 控件的樹狀菜單為管理員的樣式 (1).Text = 管理職員： amp。密碼不正確則顯示提示框 MsgBox 輸入密碼不正確，請(qǐng)重新輸入！ ,vbOKOnly + vbExclamation, 警告 = End If End If End Sub 主界面設(shè)計(jì) 主界面主要包括樹狀菜單、工具欄、狀態(tài)欄、時(shí)間顯示以及顯 示 OA 辦公系統(tǒng)的最新新聞和通知。 2）添加“ ImageList”控件。添加 方法為：在“部件”對(duì)話框中選中“ Microsoft Windows Common Controls (SP6)”列表項(xiàng)。“ TreeView”控件屬于“ ActiveX” rpwr ,使用前必須將其添加到工具箱中。 5）添加“ StatusBar”（狀 態(tài)欄）控件，它主要用來顯示操作員信息、系統(tǒng)時(shí)間及公司名稱網(wǎng)站?！?StatusBar”控件的名稱為默認(rèn)名，單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性頁”命令，為“ StatusBar”控件添加 3 個(gè)窗格，第一個(gè)窗格顯示系統(tǒng)操作員、第二個(gè)窗格顯示系統(tǒng)日期、第三個(gè)窗格顯示公司名稱和網(wǎng)址。在“ Form” 窗體的“ Activate”事件下添加如下代碼： 39。展開全部節(jié)點(diǎn) (i).Expanded = True Next i End Sub 單擊樹狀菜單中的菜單，根據(jù)所選擇的菜單顯示相應(yīng)的窗體。單擊樹狀菜單中的菜單時(shí)，根據(jù)所選 擇的菜單顯示相應(yīng)的窗體 Private Sub TreeView1_NodeClick(ByVal Node As ) 39。 Private Sub Form_Load() 39。Provider=。User ID=sa。Initial Catalog=db_OA 39。設(shè)置通知 = pstr = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date desc Set = adoNotice Call setNoticeDataGrid_Caption End Sub 每隔一分鐘就更新一次最新新聞和最新通知。 Private Sub Timer1_Timer() = Now If CStr(Now) Then ***學(xué)校畢業(yè)論文 15 = Now 39。刷新通知 = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date desc Call setNoticeDataGrid_Caption End If End Sub 自定義過程 setNewsDataGrid_Caption()用來初始化新聞 MSHFlexGrid2 控件的列標(biāo)題和表格寬度。代碼設(shè)計(jì)如下： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 39。 如果為真則轉(zhuǎn)到 errhandler 處，執(zhí)行 exit sub 語句 39。 設(shè)置過濾器 = 所有文件 (*.*)|*.*|文本文件 (*.txt)|*.txt|Word 文檔 (*.doc)|*.doc| 可 執(zhí) 行 文 件 (*.exe)|*.exe| 所 有 圖 片 (*.BMP,*.GIF,*,PNG,*.JPEG)|*.BMP,*.GIF,*,PNG,*.JPEG 39。 用戶按了 “ 取消 ” 按鈕 Exit Sub Case 2 Case 3 Case 4 ***學(xué)校畢業(yè)論文 17 Case 5 Unload Me End Select End Sub 至于工具欄上用到的窗體將會(huì)在 中介紹。其中， 發(fā)布通知用來將通知發(fā)布給某部門某人，接收用來接收其他職員發(fā)布的通知，已發(fā)通知是用來查看發(fā)布給其他職員的通知。顯示用戶 For i = 0 To 1 (0).Value Next i 39。顯示日期 = Now End Sub “發(fā)布通知”按鈕的 Click 事件代碼如下： Private Sub Command1_Click() If = Then MsgBox 請(qǐng)選擇接收通知的部門！ , vbInformation, 提示： Exit Sub ElseIf = Then MsgBox 請(qǐng)選擇接收通知的人！ , vbInformation, 提示： Exit Sub ElseIf = Then MsgBox 請(qǐng)輸入通知內(nèi)容！ , vbInformation, 提示： Exit Sub End If ***學(xué)校畢業(yè)論文 19 (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = 0 (6).Value = MsgBox 您的通知已經(jīng)發(fā)送成功！ , vbInformation, 提示： = = = End Sub 2 接收通知 “接收通知”窗體的設(shè)計(jì)結(jié)果如圖 所示： 圖 “查詢”按鈕的代碼如下： Private Sub cmdFind_Click() ***學(xué)校畢業(yè)論文 20 = pstr = select * from tboa_notice where notice_date between 39。and 39。and notice_acceptperson=39。order by notice_date desc Set = adoNotice Call setDataGrid_Caption End Sub “顯示所有通知”按鈕代碼如下： Private Sub cmdshow_Click() = pstr = select * from tboa_notice where notice_acceptperson =39。 order by notice_date desc Set = adoNotice Call setDataGrid_Caption End Sub 3 已發(fā)通知 “已發(fā)通知”窗體設(shè)計(jì)結(jié)果如圖 所示： ***學(xué)校畢業(yè)論文 21 圖 主要代碼如下： Private Sub Form_Load() = pstr = select notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice where notice_person=39。 amp。 order by notice_date Set = adoNotice Call setNotice_Caption End Sub 新聞管理 新聞管理包含 3個(gè)部分：新聞發(fā)布、新聞接收、