【正文】 沒有數(shù)據(jù)時(shí)，進(jìn)行錯(cuò)誤處理 End Sub 在日期輸入框輸入開始日期和截止日期后，單擊【查詢】按鈕，將查詢結(jié)果顯示在 DataGrid 控件中，代碼如下： Private Sub cmdFind_Click() = select * from tbOA_file where file_name=39。文件接收窗體的設(shè)計(jì)結(jié)果如圖 10 所示。Initial Catalog=db_OA。添加方法為：在“工程” /“部件”對話框中勾選“ Microsoft Common Dialog ”列表項(xiàng)。此處代碼，請參見光盤 傳送文件 文件傳送在 OA 辦公自動(dòng)化系統(tǒng)中占據(jù)很重要的位置，本系統(tǒng)文件傳送可以傳送多種類型的文件（如 EXE， BAT， RAR， FRM， DOC 等等）。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 39。 （ 3）添加 2個(gè) DTPicker 控件，名稱分別為 DTPicker1 和 DTPicker2。在【發(fā)布新聞】按鈕的 Click 事件下添加如下代碼： Private Sub cmdSave_Click() (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = 0 (6).Value = MsgBox 通知發(fā)布成功！ , vbInformation End Sub Form 窗體載入時(shí)，主要實(shí)現(xiàn)以下 功能： （ 1）建立 adoNews 控件和 adoDept 控件數(shù)據(jù)庫連接。 下面筆者分別講解新聞發(fā)布、新聞接收和已發(fā)新聞的開發(fā)過程。//////設(shè)置通知 = SELECT notice_date,notice_person,notice_acceptDept,notice_acceptPerson,notice_text FROM tbOA_notice WHERE (notice_acceptPerson = 39。 39。////設(shè)置 NEWS = PublicStr = SELECT news_date,news_text FROM tbOA_news WHERE (news_acceptPerson = 39。 河北科技大學(xué)?？飘厴I(yè)論文 12 圖 5 設(shè)置 MSHFlexGrid 控件顏色屬性 （ 5）添加 StatusBar（狀態(tài)欄）控件，主要用來顯示系統(tǒng)操作員信息、系統(tǒng)時(shí)間及公司名稱和網(wǎng)站。界面設(shè)計(jì)簡單明了，為用戶提供便捷的訪問途徑，把一些具有共性的命令集中于一個(gè)簡單的菜單之下。 and userpwd=39。 （ 2）添加 Adodc 控件，設(shè)置名稱為 adoLogin， Visible 屬性為 False，由于該控件屬于 ActiveX 控件，在使用之前必須從“部件”對話框?qū)⑵涮砑拥焦ぞ呦渲小?pwd amp。 str, con, 1, adLockOptimistic Set rs = (Str) 39。打開數(shù)據(jù)庫連接 Set rs = New 39。 。在以后的編程中，如果使用對象訪問數(shù)據(jù)庫或 ADO Data 控件訪問數(shù)據(jù)庫，則可以直接將數(shù)據(jù)庫共享連接字符串（ PublicStr）值賦值給相應(yīng)的ConnectionString 屬性，從而避免了重復(fù)建立數(shù)據(jù)庫連接的麻煩，而失去了ADO+SQL 的優(yōu)越性能。 ? 文件傳送管理模塊 該模塊主要負(fù)責(zé)文件的傳送與接收等。 ? 通過計(jì)算機(jī)，能夠直接 “ 透視 ” 公司的各項(xiàng)工作及活動(dòng)安排。本系統(tǒng)是以新聞發(fā)布、文件傳送為核心的辦公自動(dòng)化系統(tǒng)，是一套集新聞管理、文件傳送管理、信息發(fā)布、人事管理、局域網(wǎng)短消息快速傳送等 5 部分為一體的辦公自動(dòng)化系統(tǒng)。河北科技大學(xué)?？飘厴I(yè)論文 1 河 北 科 技 大 學(xué) 畢 業(yè) 設(shè) 計(jì) 學(xué)生姓名： 學(xué) 號： 學(xué) 院： 河北科技大學(xué) 專 業(yè) ： 計(jì)算機(jī)應(yīng)用技術(shù)專業(yè) 題 目： 辦公自動(dòng)化系統(tǒng) 指導(dǎo)教師： 評閱教師： 2020 年 6 月 河北科技大學(xué)專科畢業(yè)論文 2 摘要 【摘要】 系統(tǒng)針對企業(yè)機(jī)關(guān)辦公中存在的信息不暢、效率底下、操作不規(guī)范等一系列問題。 該系統(tǒng)除了必須滿足當(dāng)前的應(yīng)用要求外，在整套系統(tǒng)的設(shè)計(jì)過程中，還專門強(qiáng)調(diào)了其先進(jìn)性及可擴(kuò)展性。 ? 圖表分析活動(dòng)投票管理。 ? 交流管理模塊 該模塊主要實(shí)現(xiàn)意見反饋、活動(dòng)投票、短消息服務(wù)（局域網(wǎng)）。 模塊中代碼如下： Public PublicStr As String Dim con As New , rs As New Dim Str As String, Server As String, uid As String, Dim pwd As String Public Sub main() 39。PWD= amp。開始附加數(shù)據(jù)庫 Str = EXEC sp_attach_db dbname = N39。關(guān)閉數(shù)據(jù)庫連接 39。 。添加方法為： 在“工程” /“部 件”對話框中 勾 選“ Microsoft Ado Data Controls (SP4)”列表項(xiàng)。 + + 39。狀態(tài)欄將顯示系統(tǒng)運(yùn)行時(shí)間、公司信息和操作員信息，其中狀態(tài)欄上的操作員信息主要通過“系統(tǒng)登錄窗體”中“登錄操作員”項(xiàng)傳遞而得到的。該控件屬于 ActiveX 控件，添加 ImageList 控件時(shí)已經(jīng)將該控件添加到工具箱中。 amp。) ORDER BY notice_date DESC Set = adoNotice Call setNoticeDataGrid_Caption End Sub 每隔一分多鐘就更新一次最新新聞和最新通知。 amp。 新聞發(fā)布 新聞管理窗體的設(shè)計(jì)結(jié)果如圖 6 所示。 （ 2）為 Combo1 控件中添加部門名稱數(shù)據(jù)。 （ 4）添加 DataGrid 控件，使用默認(rèn)名稱。 and 39。order by news_date desc Set = adoNews Call setDataGrid_Caption End Sub 由于本系統(tǒng)數(shù)據(jù)表中的字段都是英文字段，因此將 ADO Data 控件綁定到DataGrid 控件后， DataGrid 控件的列標(biāo)題都為英文字段名稱，為方便用戶使用，筆者在此建立了 setDataGrid_Caption()過程，該過程主要用于設(shè)置 DataGrid 控件的列標(biāo)題和列寬，代碼如下： Sub setDataGrid_Caption() (0).Caption = 序號 (1).Caption = 通日期 (2).Caption = 發(fā)布新聞人 (3).Caption = 接收部門 (4).Caption = 接收人 (5).Visible = False (6).Caption = 新聞內(nèi)容 (0).Width = 600 (1).Width = 1000 (2).Width = 1000 (3).Width = 2020 (4).Width = 1000 河北科技大學(xué)?？飘厴I(yè)論文 18 (6).Width = 4000 End Sub 已發(fā)新聞 已發(fā)新聞窗體的設(shè)計(jì)結(jié)果如圖 8 所示。傳送文件窗體的設(shè)計(jì)結(jié)果如圖 9所示。 程序代碼設(shè)計(jì) 在 Form 窗體裝載中，主要實(shí)現(xiàn)以下功能： （ 1）建立 adoDept 控件數(shù)據(jù)庫連接。Data Source=MRZYT Set rs = New select * from tbOA_file, , adOpenStatic, adLockOptimistic Set mst = New = adTypeBinary (1).Value = : (2).Value = (3).Value = : (4).Value = (5).Value = : (6).Value = (7).Value = : (8).Value = fileName : = 0 MsgBox 文件傳送成功！ , vbInformation End Sub 在 Combo1 控件中選擇部門，將檢索該部門的所有員工，并將其添加到 Combo2控件中。 圖 10 文件接收窗體設(shè)計(jì)結(jié)果 窗體設(shè)計(jì) （ 1）新建一個(gè)窗體，設(shè)置窗體“名稱”屬性為 frmFile_incept， Caption 屬性為“文件接收”， MaxButton 屬性為 False。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 39。 』嗎？ , vbQuestion + vbYesNo) = vbYes Then = (8).Text filePath = = 11 Set = New = PublicStr Set rs = New select * from tbOA_file where file_id=39。投票活動(dòng)管理窗體的設(shè)計(jì)結(jié)果如圖 11所示。窗體的 Load 事件代碼如下： Private Sub Form_Load() 39。 系 統(tǒng) 退 出f r m _ m m . f r m （ 系 統(tǒng) 登 錄 ）f r m _ m a i n . f r m （ 系 統(tǒng) 主 界 面 ）輔 助 工 具系 統(tǒng) 維 護(hù) 管 理交 流 管 理文 件 傳 送新 聞 管 理通 知 管 理 圖 系統(tǒng)主文件架構(gòu)圖 通知管理和新聞管理文件架構(gòu)如圖 所示?？墒牵矣謺?huì)有點(diǎn)自戀式地安慰自己：做一件事情，不必過于在乎最終的結(jié)果，可貴的是過程中的收獲。 這次做論文的經(jīng)歷也會(huì)使我終身受益，我感受到做論文是要真真正正用心去做的一件事情，是真正的自己學(xué)習(xí)的過程和研究的過程，沒有學(xué)習(xí)就不可能有研究的能力，沒有自己的研究，就不會(huì)有所突破，那也就不叫論文了。 文 件 傳 送傳 送 文 件f r m F i l e . f r m已 發(fā) 文 件f r m F i l e _ t o F i l e . f r m接 收 文 件f r m F i l e _ i n c e p t . f r m 意 見 箱f r m A C _ i d e a r . f r m交 流 管 理投 票 活 動(dòng)f r m A C _ v o t e . f r m短 消 息 服 務(wù)f r m A C _ Q Q . f r m 圖 文件傳送和交流管理文件架構(gòu)圖 系統(tǒng)維護(hù)管理文件架構(gòu)如圖 所示?！撅@示圖表】按鈕的 Click 事件下添加代碼如下： Private Sub cmdChar_Click() If = 顯示圖表 Then = 顯示列表 = True = False = select vote_subject as 活動(dòng)名稱 ,vote_qty as 投票數(shù)量 from tbOA_vote Set = adoVote ElseIf = 顯示列表 Then = 顯示圖表 = False: = True = select * from tbOA_vote order by vote_qty desc (0).Caption = 序號 : (1).Caption = 活動(dòng)名稱 (2).Caption = 活動(dòng)描述 : (3).Caption = 活動(dòng)票數(shù) End If End S