【正文】 以此語言來安撫我尚沒平復(fù)的心。 通 知 管 理發(fā) 布 通 知f r m N o t i c e _ i s s u e . f r m已 發(fā) 通 知f r m N o t i c e _ t o V o i c e . f r m接 收 通 知f r m N o t i c e _ i n c e p t . f r m 新 聞 管 理新 聞 接 收f r m N e w s _ i n c e p t . f r m已 發(fā) 新 聞f r m N e w s _ t o N e w s . f r m新 聞 發(fā) 布f r m N e w s _ i s s u e . f r m 圖 通知管理和新聞管理文件架構(gòu)圖 文件傳送和交流管理文件架構(gòu)如圖 所示。///投票活動(dòng)設(shè)置 = PublicStr = select * from tbOA_vote order by vote_qty desc Set = adoVote (0).Caption = 序號(hào) : (1).Caption = 活動(dòng)名稱 (2).Caption = 活動(dòng)描述 : (3).Caption = 活動(dòng)票數(shù) End Sub 單擊【顯示圖表】按鈕，可以切換通過圖表顯示投票結(jié)果或列表顯示投票結(jié)果。 圖 11 活動(dòng)投票管理窗體設(shè)計(jì)圖 窗體設(shè)計(jì) （ 1）新建一個(gè)窗體，將窗體的“名稱”屬性設(shè)置為 frmSys_vote，設(shè)置Caption 屬性為“活動(dòng)投票管理”，設(shè)置 MaxButton 屬性為 False。 amp。 Call setDataGrid_Caption End Sub Private Sub Command1_Click() = PublicStr = select * from tbOA_file where file_name=39。and file_date between 39。 （ 2）添加 4 個(gè) CommandButton 按鈕控件，名稱分別為 cmdFind、 cmdDel、Command Command2，其 Caption 屬性為“查詢”、“刪除文件記錄”、“顯示所有文件”和“退出”。 Combo1 控件的 Click 事件下代碼如下： Private Sub Combo1_Click() = PublicStr = select * from tbOA_employee where e_dept=39。 （ 2）為 Combo1 控件中添加部門名稱數(shù)據(jù)。 河北科技大學(xué)?？飘厴I(yè)論文 19 圖 9 傳送文件窗體設(shè)計(jì)結(jié)果 窗體設(shè)計(jì) （ 1）新建 1 個(gè)窗體，設(shè)置窗體“名稱”屬性為 frmFile、 Caption 屬性為“文件傳送” 、 MaxButton 屬性為 False。 圖 8 已發(fā)新聞窗體設(shè)計(jì)圖 （ 1）新建 1 個(gè)窗體，將窗體的“名稱”屬性設(shè)置為 frmNews_toNews，設(shè)置Caption 屬性為“已發(fā)布新聞”，設(shè)置 MaxButton 屬性為 False。 amp。 （ 5）程序代碼。 （ 3）獲取系統(tǒng)操作職員姓名，并通過 Text2 控件顯示出來。 圖 6 新聞發(fā)布設(shè)計(jì)圖 （ 1）新建 1 個(gè)窗體，設(shè)置窗體的“名稱”屬性為 frmNews_issue、 Caption屬性為“新聞發(fā)布”， MaxButton 屬性為 False。 Mid((1).Text, 6, Len((1).Text) 5) amp。在 Timer 控件的 Timer 事件下添加如下代碼： Private Sub Timer1_Timer() 39。 amp。 StatusBar 控件的名稱為默認(rèn)名，單擊鼠標(biāo)右鍵打開“屬性頁”，為StatusBar 控件添加 3 個(gè)窗格，第 1 個(gè)窗格顯示系統(tǒng)操作員、第 2 個(gè)窗格顯示系統(tǒng)日期、第 3 個(gè)窗格顯示公司名稱和網(wǎng)址，該控件的屬性設(shè)置方法在前面的章節(jié)中已經(jīng)詳細(xì)講解過了，這里就不做介紹了。主界面運(yùn)行結(jié)果如圖 4 所示。 If 0 Then If (2).Value = 0 Then = False 39。 （ 3）添加 2 個(gè) TextBox 控件，分別設(shè)置名稱（ Name 屬性）為 Text1 和Text2，設(shè)置 BorderStyle 屬性為 0None。Initial Catalog=db_OA。共享連接字符串 PublicStr = Provider=。db_SSS39。 pwd amp。讀取數(shù)據(jù)庫配置文件 Open ( amp。 ? 系統(tǒng)維護(hù)管理模塊 部門信息的基礎(chǔ)設(shè)置、職員信息的基礎(chǔ)設(shè)置、投票活動(dòng)管理設(shè)置、系統(tǒng)操作員 及權(quán)限設(shè)置。 ? 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好。當(dāng)前的信息技術(shù)日新月異，如果這套系統(tǒng)只著眼于當(dāng)前的需求，而忽視了對系統(tǒng)技術(shù)的前瞻性，可以在不久的將來，系統(tǒng)必將不 能滿足客戶日益增長的需求，導(dǎo)致系統(tǒng)的生命周期縮短，從而增加客戶在信息化建設(shè)上的投資。用信息化的手段和新一代規(guī)范等一系列問題。商場如戰(zhàn)場，新一代的戰(zhàn)爭是信息化戰(zhàn)爭，如何使企業(yè)信息化建設(shè)完善起來 ? 在這種情況下，開發(fā) OA 辦公自動(dòng)化系統(tǒng)是當(dāng)務(wù)之急的事了。 ? 信息發(fā)布與文件傳送速度快。 ? 新聞管理模塊 該模塊的主要負(fù)責(zé)新聞的發(fā)布、接收等。 為了優(yōu)化 ADO+SQL 數(shù)據(jù)庫的連接，在公共模塊（ Module1）中建立數(shù)據(jù)庫連接共享字符串。 uid amp。 39。 39。PWD= amp。 窗體設(shè)計(jì) （ 1）新建一個(gè)窗體，將窗體的“名稱”屬性設(shè)置為 frm_login， BorderStyle屬性設(shè)置為 0None，設(shè)置 Picture 屬性，為窗體添加背景圖片。 + + 39。設(shè)置控件 TreeView樹狀菜單 Set n1 = (, tvwChild, 通知管理 , 通知管理 , 1) Set node1 = (, tvwChild, 發(fā)布通知 , 發(fā)布通知 , 1) Set node1 = (, tvwChild, 接收通知 , 接河北科技大學(xué)?？飘厴I(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, 意見箱 , 意見箱 , 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, 意見箱管理 , 意見箱管理 , 1) Set node5 = (, tvwChild, 系統(tǒng)設(shè)置 , 系統(tǒng)設(shè)置 , 1) End If Unload Me End If End Sub 主界面設(shè)計(jì) 主界面主要包括菜單、樹狀菜單（ TreeView 控件實(shí)現(xiàn)）、狀態(tài)欄以及顯示 OA辦公系統(tǒng)的最新新聞和最新通知。 （ 4）添加 MSHFlexGrid 控件，該控件屬于 ActiveX 控件，使用之前必須將MSHFlexGrid 控件添加到工具箱中，添加方法為：在“工程” /“部件”對話框中勾選“ Microsoft Hierarchical FlexGrid Control ”列表，添加 2 個(gè)MSHFlexGrid 控件，名稱分別為 MSHFlexGrid1 和 MSHFlexGrid2，二者的屬性完全相同，主要設(shè)置控件的背景色、前景色及表格顏色，方法為：在控件上單擊鼠標(biāo)右鍵選擇“屬性”菜單，彈出“屬性頁”選擇“顏色”選項(xiàng)卡設(shè)置控件的相關(guān)顏色，如圖 5 所示。 Private Sub Form_Load() 39。 amp。) ORDER BY news_date DESC Call setNewsDataGrid_Caption 39。其中新聞發(fā)布用來將新聞發(fā)布給某部門中某人；新聞接收用來接收其他職員發(fā)布新聞；已發(fā)新聞?dòng)脕頌g覽將新聞發(fā)布給其他職員的新聞。 新聞發(fā)布就是將要發(fā)布的新聞按部門、職員和新聞數(shù)據(jù)存儲(chǔ)到 tbOA_news 數(shù)據(jù)表中。 （ 2）添加 4個(gè) ComandButton 控件和 1個(gè) Adodc 控件。 amp。order by news_date desc Set = adoNews Call setDataGrid_Caption ‘ 調(diào)用自定義過程 End Sub 單擊【顯示所有新聞】按鈕后，顯示系統(tǒng)操作職員接收到的所有新聞，代碼如下： Private Sub Command1_Click() = PublicStr = select * from tbOA_news where news_acceptPerson=39。 Set = adoNews Call setDataGrid_Caption End Sub 39。 CommonDialog 控件為 ActiveX 控件，在使用之前必須從“部件”對話框中添加到工具箱 中。User ID=sa。本窗體主要實(shí)現(xiàn)的功能為：以日期 為標(biāo)準(zhǔn)查詢接收文件、下載接收文件、刪除接收文件、顯示所有接收文件。order by file_date desc Set = adoFile ‘ 將數(shù)據(jù)源綁定到 DataGrid表格上 Call setDataGrid_Caption End Sub 通過鼠標(biāo)選擇 DataGrid 表格中數(shù)據(jù)，然后單擊【刪除文件記錄】按鈕，將選河北科技大學(xué)?？飘厴I(yè)論文 22 中的文件數(shù)據(jù)刪除。 amp。 】傳送來的『 amp。 文件保存在： amp。添加方法為：在“工程” /“部件”對話框中勾選“ Microsoft Chart Controls （ OLEDB）”列表項(xiàng)。將投票數(shù)量設(shè)置為 0 Next i End If Dim con As Dim rs As Set con = New = PublicStr Set rs = New Set rs = (DELETE FROM tbOA_voteRecord) 39。點(diǎn)擊運(yùn)行，也基本達(dá)到預(yù)期的效果，虛榮的成就感在沒人的時(shí)候也總會(huì)冒上心頭。 。在此向 黃波 老師表示深深的感謝和崇高的敬意。下面是【刪除】按鈕的 Click 事件代碼： Private Sub cmdVoteDel_Click() On Error Resume Next ‘ 數(shù)據(jù)表沒有數(shù)據(jù)時(shí)，進(jìn)行錯(cuò)誤處理 (0).Caption = 序號(hào) : (1).Caption = 活動(dòng)名稱 (2).Caption = 活動(dòng)描述 : (3).Caption = 活動(dòng)票數(shù) End Sub 單擊【清除投票記錄】按鈕，將活動(dòng)的所有