【正文】 ness, information can be sufficient and whether the response of the information sensitive and accurate measure of the market is increasingly being an important factor in China39。商 場(chǎng)如戰(zhàn)場(chǎng)，新一代的戰(zhàn)爭(zhēng)是信息化戰(zhàn)爭(zhēng)，如何通過互聯(lián)網(wǎng)這一利器，使企業(yè)信息化建設(shè)完善起來 ?這就需要一種高效，穩(wěn)定的辦公自動(dòng)化系統(tǒng)！ 通過本系統(tǒng)，企業(yè)機(jī)關(guān)辦公中存在的信息不暢、效率 低 下等一系列問題得到了解決。 隨著中國加入 WTO，各行各業(yè)都在努力提高自身的競(jìng)爭(zhēng)力，電信的重組、 企業(yè)信息化管理進(jìn)程的加快都在說明一個(gè)趨勢(shì)：傳統(tǒng)以紅頭文件為主的、強(qiáng)調(diào)公文處理的辦公自動(dòng)化將從主導(dǎo)地位逐漸減弱，以強(qiáng)調(diào)信息服務(wù)、知識(shí)管理為主的企業(yè)信息服務(wù)系統(tǒng)將逐漸代替原有的辦公自動(dòng)化。 該系統(tǒng)具有 新聞管理、文件傳送管理、通知管理、交流管理、系統(tǒng)維護(hù)功能，而且還根據(jù)大多數(shù)客戶需求增加了瀏覽器、播放器等功能，這樣既可以時(shí)時(shí)掌握最新網(wǎng)絡(luò)資源還可以 制造一個(gè)輕松的辦公氛圍 。 *由于操作人員的計(jì)算機(jī)知識(shí)普遍較差，因此要求有良好的人機(jī)界面。 *通過座機(jī)能夠直接“透視”公司的各項(xiàng)工作及活動(dòng)安排。 本系 統(tǒng)的數(shù)據(jù)庫采用目前比較滸的 SQL Server 2021，該數(shù)據(jù)庫系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢(shì)，并且處理數(shù)據(jù)量大、效率高；前臺(tái)采用Microsoft 公司的 Visual Basic 作為主要的開發(fā)工具，它可與 SQL Server 2021 數(shù)據(jù)庫無縫鏈接。 （ 3） 文件管理模塊 該模塊主要負(fù)責(zé)文件的發(fā)布、接收等。 dbOA_user 系統(tǒng)用戶表用來存儲(chǔ)系統(tǒng)操作員的基本信息 tbOA_news 新聞表主要用于存儲(chǔ)新聞的發(fā)布信息。 tbOA_vote 投票表主要用來存儲(chǔ)活動(dòng)投票的基本信息。就本系統(tǒng)而言，該模塊主要用于實(shí)現(xiàn)數(shù)據(jù)庫的共享連接。Persist Security Info=False。Data Source=APC 39。 添加兩個(gè)“ Label”控件，設(shè)置其 BackStyle 屬性設(shè)置為“ 0Transparent”。 + + 39。(1) = 39。顯示系統(tǒng)時(shí)間 (2).Text = Format(Now, m/d/yy) 39。密碼不正確則顯示提示框 MsgBox 輸入密碼不正確，請(qǐng)重新輸入！ ,vbOKOnly + vbExclamation, 警告 = End If End If End Sub 主界面設(shè)計(jì) 主界面主要包括樹狀菜單、工具欄、狀態(tài)欄、時(shí)間顯示以及顯 示 OA 辦公系統(tǒng)的最新新聞和通知。添加 方法為：在“部件”對(duì)話框中選中“ Microsoft Windows Common Controls (SP6)”列表項(xiàng)。 5）添加“ StatusBar”（狀 態(tài)欄）控件，它主要用來顯示操作員信息、系統(tǒng)時(shí)間及公司名稱網(wǎng)站。在“ Form” 窗體的“ Activate”事件下添加如下代碼： 39。單擊樹狀菜單中的菜單時(shí)，根據(jù)所選 擇的菜單顯示相應(yīng)的窗體 Private Sub TreeView1_NodeClick(ByVal Node As ) 39。Provider=。Initial Catalog=db_OA 39。 Private Sub Timer1_Timer() = Now If CStr(Now) Then ***學(xué)校畢業(yè)論文 15 = Now 39。代碼設(shè)計(jì)如下： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 39。 設(shè)置過濾器 = 所有文件 (*.*)|*.*|文本文件 (*.txt)|*.txt|Word 文檔 (*.doc)|*.doc| 可 執(zhí) 行 文 件 (*.exe)|*.exe| 所 有 圖 片 (*.BMP,*.GIF,*,PNG,*.JPEG)|*.BMP,*.GIF,*,PNG,*.JPEG 39。其中， 發(fā)布通知用來將通知發(fā)布給某部門某人，接收用來接收其他職員發(fā)布的通知，已發(fā)通知是用來查看發(fā)布給其他職員的通知。顯示日期 = 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 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。 order by notice_date Set = adoNotice Call setNotice_Caption End Sub 新聞管理 新聞管理包含 3個(gè)部分：新聞發(fā)布、新聞接收、已發(fā)新聞。該控件屬于“ ActiveX”控件，在使用之前必須從“部件”對(duì)話框中添加工具箱中，添加方法為：在“部件”對(duì)話框中選中“ Microsoft Windows Common Controls2 ”列表項(xiàng)。 ***學(xué)校畢業(yè)論文 23 3）添加“ DataGrid”控件，使用默認(rèn)名稱。 文件管理 1. 文件傳送 文件傳送在 OA 辦公自動(dòng)化系統(tǒng)中占據(jù)很重要的位置，本系統(tǒng)的文件傳送可以傳送多種類型的文件（如： exe\bat\rar\frm\doc 等）。 ***學(xué)校畢業(yè)論文 25 * 建立“ adoDept”控件的數(shù)據(jù)庫連接。 在“ Form”窗體的“ Load” 事件中添加如下代碼： Private Sub Form_Load() = 39。設(shè)置鼠標(biāo)的形狀，沙漏型的 Set = New = pstr Set rs = New select * from tboa_file, , adOpenStatic, adLockOptimistic Set st = New = adTypeBinary (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = Now (7).Value = (8).Value = 39。 設(shè)置標(biāo)志，標(biāo)題欄 = cdlOFNHideReadOnly 39。文本框顯示文件路徑 = Exit Sub errHandler: 39?！拔募邮铡贝绑w的設(shè)計(jì)結(jié)果如圖 所示： 圖 2）代碼設(shè)計(jì) 本窗體中聲明變量，代碼如下： Public filePath As String Dim As , rs As , st As 通過鼠標(biāo)選擇“ DataGrid”表格中數(shù)據(jù)，然后單擊“刪除文件記錄”按鈕，將選中的文件數(shù)據(jù)刪除。 amp。 str() amp。 str() amp。 amp。 str() amp。 str() amp。 amp。 傳送來的【 amp。 如果為真則轉(zhuǎn)到 errhandler 處，執(zhí)行 exit sub 語句 filePath = = 11 Set = New = pstr Set rs = New select * from tboa_file where file_id = 39。, , adOpenStatic, adLockOptimistic Set st = New = adTypeBinary (7).Value filePath, adSaveCreateOverWrite 39。投票項(xiàng)目的名稱是動(dòng)態(tài)生成的，有幾項(xiàng)活動(dòng)將生成幾個(gè)“ CheckBox”控件。判斷是否已經(jīng)投過票了 = pstr = select * from tbOA_voteRecord where voteRecord_name=39。下面是“提交”怕 Click 事件代碼： Private Sub cmdSave_Click() For i = 0 To 1 If Check1(i).Value = 1 Then 39。 39。 投票管理窗體的設(shè)計(jì)結(jié)果如圖 所示 圖 在本窗體中用到“ MSChart”控件，該控件為“ ActiveX”控件，因此在使用之前必須從“部件”中添加上中，添加方法為：在“部件”對(duì)話框中選中“ Micrsoft ***學(xué)校畢業(yè)論文 36 Chart Control (OLEDB)”項(xiàng)。 3 添加用戶 “添加用戶成員”窗體設(shè)計(jì)如圖 所示 ***學(xué)校畢業(yè)論文 38 圖 部分代碼設(shè)計(jì)如下： Private Sub Command1_Click() If = Then MsgBox 請(qǐng)輸入要添加的操作員信息！ , vbInformation, 提示： ElseIf (Len() 6 And ) Or (Len() 6 And ) Then = * 密碼必須 6位字符