oa辦公自動化系統(編輯修改稿)

　

【文章內容簡介】 If = 密 碼 修 改 Then End Sub 在 “Form”窗體的裝載過程中，將最新的新聞和通知顯示在 MSHFlexGrid 表格中。 Private Sub Form_Load() ?設置新聞 = = pstr ?Provider=。Persist Security Info=False。User ID=sa。pwd=sa。Initial Catalog=db_OA ?檢索最新的 8條新聞 = select top 8 news_date,news_text from tboa_news order by news_date desc Set = adoNews Call setNewsDataGrid_Caption ?設置通知 = pstr = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notic e_text from tboa_notice order by notice_date desc Set = adoNotice Call setNoticeDataGrid_Caption End Sub 每隔一分鐘就更新一次最新新聞和最新通知。在 “Timer”控件的 “Timer”事件 下添加如下代碼。 Private Sub Timer1_Timer() = Now If CStr(Now) Then 14 *** 學校畢業論文 = Now ?刷新新聞 = pstr = select top 8 news_date,news_text from tboa_news order by news_date desc Call setNewsDataGrid_Caption ?刷新通知 = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notic e_text from tboa_notice order by notice_date desc Call setNoticeDataGrid_Caption End If End Sub 自定義過程 setNewsDataGrid_Caption()用來初始化新聞 MSHFlexGrid2控件的 列標題和表格寬度。 Sub setNewsDataGrid_Caption() For i = 1 To (i, 0) = i Next (0, 0) = 序號 (0, 1) = 發布日期 (0, 2) = 新聞內容 (0) = 800 (1) = 2021 (2) = 6700 End Sub 15 *** 學校畢業論文 窗體中的 ToolBar 控件為了方便用戶打開文件、聽音樂、查看幫助、退出。代碼 設計如下： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 ? 設置 “CancelError”為 True = True On Error GoTo errHandle ? 如果為真則轉到 errhandler 處，執行 exit sub 語 句 ? 設置標志，標題欄 = cdlOFNHideReadOnly ? 設置過濾器 = 所有文件 (*.*)|*.*|文 文檔 (*.doc)|*.doc|可執行文件 (*.exe)|*.exe|所有圖片 (*.BMP,*.GIF,*,PNG,*.JPEG)|*.BMP,*.GIF,*,PNG,*.JPEG ? 指定缺省的過濾器 = 2 Shell , FileProtocolHandler + , vbNormalFocus Exit Sub errHandle: ? 用戶按了 “取消 ”按鈕 Exit Sub Case 2 Case 3 Case 4 16 *** 學校畢業論文 Case 5 Unload Me End Select End Sub 至于工具欄上用到的窗體將會在 。 通知管理 通知管理包含 3個部分：發布通知、接收通知、已發通知。其中，發布通知 用來將通知發布給某部門某人，接收用來接收其他職員發布的通知，已發通知是 用來查看發布給其他職員的通知。 1 發布通知 窗體設計結果如圖 圖 部分代碼如下： 17 *** 學校畢業論文 窗體裝載事件代碼如下： Private Sub Form_Load() = For i = 0 To 1 (0).Value Next i ?顯示用戶 For i = 0 To 1 (0).Value Next i ?設置通知人 = ?顯示日期 = Now End Sub “發布通知 ”按鈕的 Click事件代碼如下： Private Sub Command1_Click() If = Then MsgBox 請選擇接收通知的部門！ , vbInformation, 提示： Exit Sub ElseIf = Then MsgBox 請選擇接收通知的人！ , vbInformation, 提示： Exit Sub ElseIf = Then MsgBox 請輸入通知內容！ , vbInformation, 提示： Exit Sub End If 18 *** 學校畢業論文 (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = 0 (6).Value = MsgBox 您的通知已經發送成功！ , vbInformation, 提示： = = = End Sub 2 接收通知 “接收通知 ”窗體的設計結果如圖 ： 圖 “查詢 ”按鈕的代碼如下： Private Sub cmdFind_Click() 19 *** 學校畢業論文 = pstr = select * from tboa_notice where notice_date between ? + str() + ?and ? + str() + ?and notice_acceptperson=? + + ?order by notice_date desc Set = adoNotice Call setDataGrid_Caption End Sub “顯示所有通知 ”按鈕代碼如下： Private Sub cmdshow_Click() = pstr = select * from tboa_notice where notice_acceptperson =? + + ? order by notice_date desc Set = adoNotice Call setDataGrid_Caption End Sub 3 已發通知 “已發通知 ”窗體設計結果如圖 ： 20 ***學校畢業論文 圖 主要代碼如下： Private Sub Form_Load() = pstr = select notice_date,notice_person,notice_acceptdept,notice_acceptperson,notic e_text from tboa_notice where notice_person=? amp。 amp。 ? order by notice_date Set = adoNotice Call setNotice_Caption End Sub 新聞管理 新聞管理包含 3個部分：新聞發布、新聞接收、已發新聞 。其中，新聞發布 用來將