oa辦公自動化系統畢業論文(存儲版)

　　

【正文】 k() = select * from tbOA_file where file_name=39。文件接收窗體的設計結果如圖10所示。Initial Catalog=db_OA。添加方法為：在“工程”/“部件”對話框中勾選“Microsoft Common Dialog ”列表項。此處代碼，請參見光盤 傳送文件文件傳送在OA辦公自動化系統中占據很重要的位置，本系統文件傳送可以傳送多種類型的文件（如EXE，BAT，RAR，FRM，DOC等等）。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 39。（3）添加2個DTPicker控件，名稱分別為DTPicker1和DTPicker2。在【發布新聞】按鈕的Click事件下添加如下代碼：Private Sub cmdSave_Click() (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = 0 (6).Value = MsgBox 通知發布成功！, vbInformationEnd SubForm窗體載入時，主要實現以下功能：（1）建立adoNews控件和adoDept控件數據庫連接。下面筆者分別講解新聞發布、新聞接收和已發新聞的開發過程。//////設置通知 = SELECT notice_date,notice_person,notice_acceptDept,notice_acceptPerson,notice_text FROM tbOA_notice WHERE (notice_acceptPerson = 39。 39。////設置 NEWS = PublicStr = SELECT news_date,news_text FROM tbOA_news WHERE (news_acceptPerson = 39。圖5 設置MSHFlexGrid控件顏色屬性（5）添加StatusBar（狀態欄）控件，主要用來顯示系統操作員信息、系統時間及公司名稱和網站。界面設計簡單明了，為用戶提供便捷的訪問途徑，把一些具有共性的命令集中于一個簡單的菜單之下。 and userpwd=39。（2）添加Adodc控件，設置名稱為adoLogin，Visible屬性為False，由于該控件屬于ActiveX控件，在使用之前必須從“部件”對話框將其添加到工具箱中。 pwd amp。 str, con, 1, adLockOptimistic Set rs = (Str) 39。打開數據庫連接 Set rs = New 39。 。在以后的編程中，如果使用對象訪問數據庫或ADO Data控件訪問數據庫，則可以直接將數據庫共享連接字符串（PublicStr）值賦值給相應的ConnectionString屬性，從而避免了重復建立數據庫連接的麻煩，而失去了ADO+SQL的優越性能。q 文件傳送管理模塊該模塊主要負責文件的傳送與接收等。q 通過計算機，能夠直接“透視”公司的各項工作及活動安排。q 原始數據修改簡單方便，支持多條件修改。本系統數據庫采用目前比較流行的Microsoft SQL Server，該數據庫系統在安全性、準確性、運行速度方面有絕對的優勢，并且處理數據庫量大，效率高；前臺采用Microsoft公司的Visual Basic ，其可與SQL Server 2000數據庫無縫鏈接。就本系統而言，該模塊主要實現數據庫安裝和共享數據庫連接。Persist Security Info=False。Data Source= amp。, filename2 = N39。 uid amp。 End Sub 系統登錄設計本系統屬于OA辦公自動化系統，用戶權限分為兩種：系統管理員和普通用戶。圖3 系統登錄窗體設計2．代碼設計單擊名稱為labLogin的Label控件用來進行用戶安全性檢查，如果用戶名稱和密碼正確，則進入系統并分配相應的權限。設置控件TreeView樹狀菜單 Set n1 = (, tvwChild, 通知管理, 通知管理, 1) Set node1 = (, tvwChild, 發布通知, 發布通知, 1) Set node1 = (, tvwChild, 接收通知, 接收通知, 1) Set node1 = (, tvwChild, 已發通知, 已發通知, 1) Set n2 = (, tvwChild, 新聞管理, 新聞管理, 1) Set nnode2 = (, tvwChild, 新聞發布, 新聞發布, 1) Set node2 = (, tvwChild, 接收新聞, 接收新聞, 1) Set node2 = (, tvwChild, 已發新聞, 已發新聞, 1) Set n4 = (, tvwChild, 文件傳送, 文件傳送, 1) Set nnode4 = (, tvwChild, 傳送文件, 傳送文件, 1) Set node4 = (, tvwChild, 接收文件, 接收文件, 1) Set node4 = (, tvwChild, 已發文件, 已發文件, 1) Set n3 = (, tvwChild, 交流管理, 交流管理, 1) Set node3 = (, tvwChild, 意見箱, 意見箱, 1) Set node3 = (, tvwChild, 投票活動, 投票活動, 1) Set node3 = (, tvwChild, 短消息服務, 短消息服務, 1) Else (1).Text = 操作職員： amp。（3）添加ImageList控件，使用默認名稱，該控件屬于ActiveX控件，在使用之前必須從“部件”對話框將其添加到工具箱中。展開全部節點 (i).Expanded = True Next iEnd Sub單擊樹狀菜單中的菜單，根據所選擇的菜單顯示相應的窗體。/////設置通知 = PublicStr = SELECT notice_date,notice_person,notice_acceptDept,notice_acceptPerson,notice_text FROM tbOA_notice WHERE (notice_acceptPerson = 39。 Mid((1).Text, 6, Len((1).Text) 5) amp。 調用自定義過程End Sub自定義過程setNewsDataGrid_Caption()用來初始化新聞MSHFlexGrid2控件的列標題和表格寬度。添加方法為：在“工程”/“部件”對話框中勾選“Microsoft Windows Common Controls ”列表項，添加DTPicker控件后，其名稱為默認的DTPicker1。Combo1控件Click事件的代碼如下：Private Sub Combo1_Click() = PublicStr = select * from tbOA_employee For i = 0 To 1 (1).Value Next iEnd Sub2．新聞接收新聞接收窗體的設計結果如圖7所示。order by news_date desc Set = adoNews ‘將數據源綁定到DataGrid表格中 Call setDataGrid_CaptionEnd Sub通過鼠標選擇DataGrid表格中數據，然后單擊【刪除】按鈕，將選中的數據刪除，代碼如下：Private Sub cmdDel_Click() On Error Resume Next End Sub在日期輸入框輸入開始日期和截止日期后，單擊【查詢】按鈕，將在DataGrid控件中顯示相應查詢結果，代碼如下：Private Sub cmdFind_Click() = PublicStr = select * from tbOA_news where news_date between 39。 and news_acceptPerson=39。在窗體裝載過程中，將adoNews控件查詢的數據通過DataGrid控件顯示，代碼如下：Private Sub Form_Load() = PublicStr = select * from tbOA_news where news_person=39。（4）添加1個DTPicker控件，默認名稱為DTPicker1。在Form窗體的Load事件添加如下代碼：Private Sub Form_Load() = PublicStr = select * from tbOA_dept For i = 0 To 1 (1).Value Next i = Mid((1).Text, 6, Len((1).Text) 5) = DateEnd Sub單擊【傳送文件】按鈕，將相應的文件數據保存到數據庫中，代碼如下：Private Sub cmdSave_Click()Dim As , rs As , mst As = 11 Set = New = Provider=。 39。2．程序代碼設計在本窗體中聲明變量，代碼如下：Public filePath As StringDim As , rs As , mst As 在窗體的裝載過程中，查詢系統操作職員接收的所有文件，并通過DataGrid控件顯示，代碼如下：Private Sub Form_Load() = Publi