畢業(yè)論文--辦公自動(dòng)化系統(tǒng).doc

*學(xué)校畢業(yè)設(shè)計(jì)（論文）作者: 學(xué)號: 系部: 專業(yè): 題目： oa辦公自動(dòng)化系統(tǒng) 指導(dǎo)教師： 評閱教師： 完成時(shí)間： 2009 年 5 月 5 日1畢業(yè)設(shè)計(jì)(論文)中文摘要(題目)：oa辦公自動(dòng)化系統(tǒng)摘要：在市場競爭中，對于一個(gè)企業(yè)而言，對信息的掌握程度、信息獲取是否及時(shí)、信息能否得到充分的、對信息的反應(yīng)是否敏感準(zhǔn)確越來越成為衡量其市場競爭能力的重要因素。隨著中國加入wto，各行各業(yè)都在努力提高自身的競爭力，電信的重組、企業(yè)信息化管理進(jìn)程的加快都在說明一個(gè)趨勢：傳統(tǒng)以紅頭文件為主的、強(qiáng)調(diào)公文處理的辦公自動(dòng)化將從主導(dǎo)地位逐漸減弱，以強(qiáng)調(diào)信息服務(wù)、知識管理為主的企業(yè)信息服務(wù)系統(tǒng)將逐漸代替原有的辦公自動(dòng)化。商場如戰(zhàn)場，新一代的戰(zhàn)爭是信息化戰(zhàn)爭，如何通過互聯(lián)網(wǎng)這一利器，使企業(yè)信息化建設(shè)完善起來?這就需要一種高效，穩(wěn)定的辦公自動(dòng)化系統(tǒng)！通過本系統(tǒng)，企業(yè)機(jī)關(guān)辦公中存在的信息不暢、效率低下等一系列問題得到了解決。把知識管理的思想帶入了現(xiàn)代社會的辦公生活，從而提升了現(xiàn)代企業(yè)的信息化程度，改變了人們的生活。本論文主要闡述oa辦公自動(dòng)化系統(tǒng)的后臺操作過程及一些關(guān)鍵技術(shù)。該系統(tǒng)具有新聞管理、文件傳送管理、通知管理、交流管理、系統(tǒng)維護(hù)功能，而且還根據(jù)大多數(shù)客戶需求增加了瀏覽器、播放器等功能，這樣既可以時(shí)時(shí)掌握最新網(wǎng)絡(luò)資源還可以制造一個(gè)輕松的辦公氛圍。關(guān)鍵字 ：自動(dòng)化，管理，activex 畢業(yè)設(shè)計(jì)(論文)外文摘要title: oa office automation system abstract: competition in the market for a business, the degree of mastery of information, access to information timeliness, information can be sufficient and whether the response of the information sensitive and accurate measure of the market is increasingly becoming an important factor in competitiveness.with chinas accession to the wto, all walks of life are working hard to improve their own competitiveness, the restructuring of the telecommunications, enterprise information management processes to speed up a trend in the note:red file mainly traditional,stressing the correspondence to deal with office automation will be gradually weakened from the dominant position, in order to emphasize the information services, knowledge management services-based enterprise information system will gradually replace the existing office automation.shopping centers such as the battlefield, the war is a new generation of information warfare and how this tool via the internet to enable enterprises to improve information technology?this requires an efficient and stable system, office automation!through the system, corporate bodies that exist in the information office poor efficiency, such as a range of issues have been resolved.the idea of knowledge management into the business life of modern society, thus enhancing the modern enterprise level information has changed peoples lives. in this paper, mainly on the oa office automation system and the background process some of the key technology. the system has information management, file transfer management, notification management, communication management, system maintenance functions, but also increasing customer demand of the majority of the browser,the player and other functions, so that can keep abreast of the latest network resources can also easily create a atmosphere of the office.keywords : automation, management, activex目 錄第1章 系統(tǒng)分析1.1 需求分析 11.2 可行性分析 1第2章 總體設(shè)計(jì)2.1 項(xiàng)目規(guī)劃 2 2.2 系統(tǒng)功能架構(gòu)圖 2第3章 數(shù)據(jù)庫的設(shè)計(jì)3.1 數(shù)據(jù)表的概要說明 33.2 主要數(shù)據(jù)表的結(jié)構(gòu) 3第4章 主要功能模塊的設(shè)計(jì) 4.1 公共模塊設(shè)計(jì) 64.2 登錄界面設(shè)計(jì) 64.3 主界面設(shè)計(jì) 104.4 通知管理 144.5 新聞管理 214.6 文件管理 244.7 交流管理 314.8 系統(tǒng)維護(hù)管理 35 4.9 其它模塊 43第5章 問題分析與解決 5.1 由于“ado”屬性中記錄源命令類型設(shè)置不同出現(xiàn)的問題51 5.2 如何利用commondialog 控件 525.3 combobox 控件設(shè)置為只讀屬性后，如何添加列表535.4 如何將多種格式的文件保存到數(shù)據(jù)庫中 54結(jié)論致謝參考文獻(xiàn)*學(xué)校畢業(yè)論文 第 1 章 系統(tǒng)分析1.1 需求分析通過調(diào)查，要求系統(tǒng)具有以下功能。*由于操作人員的計(jì)算機(jī)知識普遍較差，因此要求有良好的人機(jī)界面。*由于該系統(tǒng)的使用對象多，因此要有較好的權(quán)限管理。*方便數(shù)據(jù)的查詢，修改。*信息發(fā)布與文件傳送的速度快。*通過座機(jī)能夠直接“透視”公司的各項(xiàng)工作及活動(dòng)安排。*用mschart圖表顯示活動(dòng)投票結(jié)果。*在相應(yīng)的權(quán)限下，管理員可以刪除數(shù)據(jù) 1.2 可行性分析 開發(fā)任何一個(gè)基于計(jì)算機(jī)的系統(tǒng)時(shí)，都會受到時(shí)間和資源上的限制。因此，在接受任何一個(gè)項(xiàng)目開發(fā)任務(wù)之前，必須根據(jù)客戶可能提供的時(shí)間和資源條件進(jìn)行可行性分析，以減少項(xiàng)目開發(fā)風(fēng)險(xiǎn)，避免人力、物力和財(cái)力的浪費(fèi)。 本系統(tǒng)的數(shù)據(jù)庫采用目前比較滸的sql server 2000，該數(shù)據(jù)庫系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對的優(yōu)勢，并且處理數(shù)據(jù)量大、效率高；前臺采用microsoft 公司的visual basic 6.0 作為主要的開發(fā)工具，它可與sql server 2000 數(shù)據(jù)庫無縫鏈接。第 2 章 總體設(shè)計(jì)2.1 項(xiàng)目規(guī)劃 oa 辦公自動(dòng)化系統(tǒng)是一個(gè)典型的網(wǎng)絡(luò)辦公開發(fā)應(yīng)用程序，它包含通知管理模塊、新聞管理模塊、文件管理模塊、交流管理模塊、系統(tǒng)維護(hù)管理模塊等。（1）通知管理模塊該模塊主要負(fù)責(zé)信息的發(fā)布、接收等。（2）新聞管理模塊 該模塊主要負(fù)責(zé)新聞的發(fā)布、接收等。（3） 文件管理模塊該模塊主要負(fù)責(zé)文件的發(fā)布、接收等。（4）交流管理模塊 該模塊主要實(shí)現(xiàn)意見反饋、活動(dòng)投票。（5） 系統(tǒng)維護(hù)管理模塊該模塊主要負(fù)責(zé)用戶添加、刪除，密碼、權(quán)限的修改，意見箱的管理，投票活動(dòng)管理。2.2 系統(tǒng)功能構(gòu)架圖系統(tǒng)構(gòu)功能架圖第3章 數(shù)據(jù)庫的設(shè)計(jì)3.1 數(shù)據(jù)庫的概要說明系統(tǒng)數(shù)據(jù)庫的名稱為db_oa，包含有8張表，下面給出各數(shù)據(jù)表的作用。dboa_user系統(tǒng)用戶表用來存儲系統(tǒng)操作員的基本信息tboa_news新聞表主要用于存儲新聞的發(fā)布信息。tboa_notice通知表主要用來存儲辦公通知信息。tboa_file文件數(shù)據(jù)表主要用來存儲文件傳送的基本信息。tboa_idea意見表主要用于存儲員工反饋的意見。tboa_vote投票表主要用來存儲活動(dòng)投票的基本信息。tboa_voterecord活動(dòng)投票記錄表主要用來存儲投票記錄人，以避免重復(fù)投票。tboa_dept部門表主要用來存儲公司部門信息的表。3.2 主要數(shù)據(jù)表的結(jié)構(gòu)表1 dboa_user字段名數(shù)據(jù)類型長度主鍵否描述usernamevachar20y用戶名userjpwdvachar20n密碼userbitbitn權(quán)限標(biāo)記表2 tboa_news字段名數(shù)據(jù)類型長度主鍵否描述news_idinty新聞idnews_datedatetimen新聞發(fā)布時(shí)間news_personvachar12n發(fā)布人news_acceptdeptvachar50n新聞接收部門news_acceptpersonvachar12n接收人news_bitbitn標(biāo)記news_textvachar50n備注表3 tboanotice字段名數(shù)據(jù)類型長度主鍵否描述notice_idinty通知idnotice_datedatetimen通知時(shí)間notice_personvachar12n發(fā)布通知人notice_acceptdeptvachar30n通知部門notice_acceptpersonvachar12n通知人notice_bitbit1n標(biāo)記notice_textvachar500n備注表4 tboa_file字段名數(shù)據(jù)類型長度主鍵否描述file_idintyidfile_subjectvarchar30n文件主題file_textvarchar50n文件描述file_personvarchar16n傳送人file_deptvarchar30n接收部門file_namevarchar16n接收人file_datedatetime8n傳送日期file_fileimage16n文件file_typevarchar20n文件類型表5 tboa_idea字段名數(shù)據(jù)類型長度主鍵否描述idear_idinty意見ididear_subjectvarchar30n意見主題idear_textvarchar50n意見內(nèi)容表6 tboa_vote字段名數(shù)據(jù)類型長度主鍵否描述vote_idinty活動(dòng)idvote_subjectvarchar30n活動(dòng)主題vote_memovarchar50n活動(dòng)備注vote_qtyfloatn投票數(shù)量表7 tboa_voterecord字段名數(shù)據(jù)類型長度主鍵否描述voterecord_idintyidvoterecord_namevarchar16n投票人表8 tboa_dept字段名數(shù)據(jù)類型長度主鍵否描述dept_idinty部門編號dept_namevarchar30n部門名稱dept_describetext16n描述信息第 4 章 主要功能模塊的設(shè)計(jì)4.1 公共模塊設(shè)計(jì)為了節(jié)省系統(tǒng)資源，實(shí)現(xiàn)代碼重用，可以在系統(tǒng)中新建一個(gè)module1模塊。就本系統(tǒng)而言，該模塊主要用于實(shí)現(xiàn)數(shù)據(jù)庫的共享連接。在以后的編程中，如果使用對象訪問數(shù)據(jù)庫或“ado data”控件訪問數(shù)據(jù)庫則可以直接將數(shù)據(jù)庫連字符串的值賦給相應(yīng)的“ connectionstring ”屬性，從而避免了重復(fù)建立數(shù)據(jù)庫的麻煩，以防失去ado+sql的優(yōu)越性能。代碼如下：public pstr as stringpublic sub main()共享連接字符串pstr = provider=sqloledb.1;persist security info=false;user id=sa;pwd=sa;initial catalog=db_oa;data source=a-pc調(diào)用frm_login窗口frm_login.showend sub4.2 登錄界面設(shè)計(jì)本系統(tǒng)屬于oa辦公自動(dòng)化系統(tǒng)，用戶權(quán)限分為系統(tǒng)管理員和普通用戶兩種。“系統(tǒng)登錄”窗體用于難操作員及其密碼，主要通過打開數(shù)據(jù)庫連接、打開數(shù)據(jù)結(jié)合if語句，判斷用戶輸入的操作員及密碼是否符合數(shù)據(jù)庫中的操作員和密碼，如果符合則允許登錄，并給予相應(yīng)的權(quán)限，否則提示用戶不存在。1.窗體設(shè)計(jì)新建一個(gè)窗體，將窗體的borderstyle 屬性設(shè)置為“0-none”,設(shè)置picture 屬性，為窗體添加圖片。添加兩個(gè)“l(fā)abel”控件，設(shè)置其 backstyle 屬性設(shè)置為“0-transparent”。添加兩個(gè)“textbox”控件，設(shè)置其borderstyle 屬性為“0-none”。添加兩個(gè)“commondbutton”控件，分別將其caption屬性設(shè)置為“登錄”、“退出”?！跋到y(tǒng)登錄”窗體的設(shè)計(jì)結(jié)果如下圖所示：圖4.22. 代碼設(shè)計(jì)雙擊“登錄”按鈕（lablogin）添加如下事件代碼：private sub lablogin_click()set con = new adodb.connectionset rs = new adodb.recordsetcon.connectionstring = pstrcon.openmysql=select * from dboa_user where user_name = + text1.text + rs.open mysql, con判斷是否存在用戶 if rs.eof then msgbox 沒有這個(gè)用戶，請重新輸入用戶名！ con.close text1.text = text1.setfocus 如果存在，判斷用戶輸入的密碼是否正確 else if trim(rs(user_pwd) = trim(text2.text) then rs.fields(1) = text2.text frm_login.hide如果密碼正確，判斷用戶權(quán)限，如果用戶沒有管理權(quán)限則設(shè)置主界面的treeview控件的樹狀菜單為操作員的樣式 if rs.fields(2) = false thenfrm_mainbefore.showfrm_mainbefore.statusbar1.panels(1).text = 操作職員： & text1.text 顯示系統(tǒng)時(shí)間frm_mainbefore.statusbar1.panels(2).text = format(now, m/d/yy) 設(shè)置treeview控件的樹狀菜單 set n1 = frm_mainbefore.treeview1.nodes.add(, tvwchild, 通知管理, 通知管理, 1) set node1 = frm_mainbefore.treeview1.nodes.add(n1, tvwchild, 發(fā)布通知, 發(fā)布通知, 1) set node1 = frm_mainbefore.treeview1.nodes.add(n1, tvwchild, 接收通知, 接收通知, 1) set node1 = frm_mainbefore.treeview1.nodes.add(n1, tvwchild, 已發(fā)通知, 已發(fā)通知, 1) set n2 = frm_mainbefore.treeview1.nodes.add(, tvwchild, 新聞管理, 新聞管理, 1) set node2 = frm_mainbefore.treeview1.nodes.add(n2, tvwchild, 新聞發(fā)布, 新聞發(fā)布, 1) set node2 = frm_mainbefore.treeview1.nodes.add(n2, tvwchild, 接收新聞, 接收新聞, 1) set node2 = frm_mainbefore.treeview1.nodes.add(n2, tvwchild, 已發(fā)新聞, 已發(fā)新聞, 1) set n3 = frm_mainbefore.treeview1.nodes.add(, tvwchild, 文件傳送, 文件傳送, 1) set node3 = frm_mainbefore.treeview1.nodes.add(n3, tvwchild, 傳送文件, 傳送文件, 1) set node3 = frm_mainbefore.treeview1.nodes.add(n3, tvwchild, 接收文件, 接收文件, 1) set node3 = frm_mainbefore.treeview1.nodes.add(n3, tvwchild, 已發(fā)文件, 已發(fā)文件, 1) set n4 = frm_mainbefore.treeview1.nodes.add(, tvwchild, 交流管理, 交流管理, 1) set node4 = frm_mainbefore.treeview1.nodes.add(n4, tvwchild, 意見箱, 意見箱, 1) set node4 = frm_mainbefore.treeview1.nodes.add(n4, tvwchild, 投票活動(dòng), 投票活動(dòng), 1) else frm_mainbefore.show 擁有操作權(quán)限，設(shè)置treeview控件的樹狀菜單為管理員的樣式 frm_mainbefore.statusbar1.panels(1).text = 管理職員： & text1.textfrm_mainbefore.statusbar1.panels(2).text = format(now, m/d/yy) set n1 = frm_mainbefore.treeview1.nodes.add(, tvwchild, 通知管理, 通知管理, 1) set node1 = frm_mainbefore.treeview1.nodes.add(n1, tvwchild, 發(fā)布通知, 發(fā)布通知, 1) set node1 = frm_mainbefore.treeview1.nodes.add(n1, tvwchild, 接收通知, 接收通知, 1) set node1 = frm_mainbefore.treeview1.nodes.add(n1, tvwchild, 已發(fā)通知, 已發(fā)通知, 1) set n2 = frm_mainbefore.treeview1.nodes.add(, tvwchild, 新聞管理, 新聞管理, 1) set node2 = frm_mainbefore.treeview1.nodes.add(n2, tvwchild, 新聞發(fā)布, 新聞發(fā)布, 1) set node2 = frm_mainbefore.treeview1.nodes.add(n2, tvwchild, 接收新聞, 接收新聞, 1) set node2 = frm_mainbefore.treeview1.nodes.add(n2, tvwchild, 已發(fā)新聞, 已發(fā)新聞, 1) set n3 = frm_mainbefore.treeview1.nodes.add(, tvwchild, 文件傳送, 文件傳送, 1) set node3 = frm_mainbefore.treeview1.nodes.add(n3, tvwchild, 傳送文件, 傳送文件, 1) set node3 = frm_mainbefore.treeview1.nodes.add(n3, tvwchild, 接收文件, 接收文件, 1) set node3 = frm_mainbefore.treeview1.nodes.add(n3, tvwchild, 已發(fā)文件, 已發(fā)文件, 1) set n4 = frm_mainbefore.treeview1.nodes.add(, tvwchild, 交流管理, 交流管理, 1) set node4 = frm_mainbefore.treeview1.nodes.add(n4, tvwchild, 意見箱, 意見箱, 1) set node4 = frm_mainbefore.treeview1.nodes.add(n4, tvwchild, 投票活動(dòng), 投票活動(dòng), 1) set n5 = frm_mainbefore.treeview1.nodes.add(, tvwchild, 系統(tǒng)維護(hù)管理, 系統(tǒng)維護(hù)管理, 1) set node5 = frm_mainbefore.treeview1.nodes.add(n5, tvwchild, 投票管理, 投票管理, 1) set node5 = frm_mainbefore.treeview1.nodes.add(n5, tvwchild, 意見箱管理, 意見箱管理, 1) set node5 = frm_mainbefore.treeview1.nodes.add(n5, tvwchild, 添加用戶, 添加用戶, 1) set node5 = frm_mainbefore.treeview1.nodes.add(n5, tvwchild, 密碼修改, 密碼修改, 1) end if else密碼不正確則顯示提示框msgbox 輸入密碼不正確，請重新輸入！,vbokonly + vbexclamation, 警告 con.close text2.text = text2.setfocus end if end ifend sub4.3 主界面設(shè)計(jì) 主界面主要包括樹狀菜單、工具欄、狀態(tài)欄、時(shí)間顯示以及顯示oa辦公系統(tǒng)的最新新聞和通知。1 窗體設(shè)計(jì)1）新建一個(gè)窗體，將窗體的“caption”屬性設(shè)置為“oa辦公自動(dòng)化系統(tǒng)”,設(shè)置“backcolor”屬性為窗體選擇合適的背景顏色。2）添加“imagelist”控件。該控件屬于activex控件，在使用之前必須從“部件”對話框中將其添加到工具箱中。添加方法為：在“部件”對話框中選中“ microsoft windows common controls 6.0(sp6)”列表項(xiàng)。3）向窗體中添加“treeview”控件，設(shè)置其“appearance”屬性為“0-ccfat”?！皌reeview”控件屬于“activex”rpwr ,使用前必須將其添加到工具箱中。為了使“imagelist”控件中的圖像能夠順利地顯示在“treeview”控件的節(jié)點(diǎn)中，需將“imagelist”綁定到“treeview”控件上，綁定方法為：在“treeview”控件上單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性”命令，彈出“屬性頁”對話框，然后將圖像列表屬性設(shè)置為“imagelist1”4)添加“mshflexgrid”控件，該控件屬于active控件，在使用之前必須將“mshflexgrid”控件添加到工具箱中，添加方法為：在“部件”對話框中選中“microsoft hierarchical flexgrid control 6.0”列表項(xiàng)，添加兩個(gè)mshflexgrid控件，“mshflexgrid1”和“mshflexgrid2”控件。5）添加“statusbar”（狀態(tài)欄）控件，它主要用來顯示操作員信息、系統(tǒng)時(shí)間及公司名稱網(wǎng)站。該控件屬于“activex”控件，添加“imaggelist”控件時(shí)已經(jīng)將該控件添加到工具箱中?！皊tatusbar”控件的名稱為默認(rèn)名，單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性頁”命令，為“statusbar”控件添加3個(gè)窗格，第一個(gè)窗格顯示系統(tǒng)操作員、第二個(gè)窗格顯示系統(tǒng)日期、第三個(gè)窗格顯示公司名稱和網(wǎng)址。主界面的運(yùn)行結(jié)果如下圖所示：圖4.32 代碼設(shè)計(jì) 當(dāng)窗體激活時(shí)，將“treeview”控件中所有的節(jié)點(diǎn)展開。在“form”窗體的“activate”事件下添加如下代碼：激活窗體的activate事件，private sub form_activate() for i = 1 to treeview1.nodes.count 展開全部節(jié)點(diǎn) treeview1.nodes(i).expanded = true next iend sub單擊樹狀菜單中的菜單，根據(jù)所選擇的菜單顯示相應(yīng)的窗體。在“treeview”控件的nodeclick事件下添加如下代碼：單擊樹狀菜單中的菜單時(shí)，根據(jù)所選擇的菜單顯示相應(yīng)的窗體private sub treeview1_nodeclick(byval node as mscomctllib.node)key 返回設(shè)置字符串，在集合中唯一的標(biāo)識一個(gè)成員if treeview1.selecteditem.key = 發(fā)布通知 then frmnotice_issue.showif treeview1.selecteditem.key = 接收通知 then frmnotice_incept.showif treeview1.selecteditem.key = 已發(fā)通知 then frmnotice_tonoice.showif treeview1.selecteditem.key = 新聞發(fā)布 then frmnews_issue.showif treeview1.selecteditem.key = 接收新聞 then frmnews_incept.showif treeview1.selecteditem.key = 已發(fā)新聞 then frmnews_tonews.showif treeview1.selecteditem.key = 傳送文件 then frmfile.showif treeview1.selecteditem.key = 接收文件 then frmfile_incept.showif treeview1.selecteditem.key = 已發(fā)文件 then frmfile_tofile.showif treeview1.selecteditem.key = 意見箱 then frmac_idea.showif treeview1.selecteditem.key = 投票活動(dòng) then frmac_vote.showif treeview1.selecteditem.key = 投票管理 then frmsys_vote.showif treeview1.selecteditem.key = 意見箱管理 then frmsys_idear.showif treeview1.selecteditem.key = 添加用戶 then frmuser_add.showif treeview1.selecteditem.key = 密碼修改 then frmpwd_change.showend sub在“form”窗體的裝載過程中，將最新的新聞和通知顯示在mshflexgrid表格中。private sub form_load()設(shè)置新聞 me.icon = image1.pictureadonews.connectionstring = pstr provider=sqloledb.1;persist security info=false;user id=sa;pwd=sa;initial catalog=db_oa 檢索最新的8條新聞adonews.recordsource = select top 8 news_date,news_text from tboa_news order by news_date descadonews.refreshset mshflexgrid1.datasource = adonewscall setnewsdatagrid_caption設(shè)置通知adonotice.connectionstring = pstradonotice.recordsource = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date descadonotice.refreshset mshflexgrid2.datasource = adonoticecall setnoticedatagrid_captionend sub每隔一分鐘就更新一次最新新聞和最新通知。在“timer”控件的“timer”事件下添加如下代碼。private sub timer1_timer()labtime.caption = nowif labtime.caption cstr(now) thenlabtime.caption = now刷新新聞adonews.connectionstring = pstradonews.recordsource = select top 8 news_date,news_text from tboa_news order by news_date descadonews.refreshcall setnewsdatagrid_caption刷新通知adonotice.recordsource = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date desc adonotice.refreshcall setnoticedatagrid_captionend ifend sub自定義過程setnewsdatagrid_caption()用來初始化新聞mshflexgrid2控件的列標(biāo)題和表格寬度。sub setnewsdatagrid_caption()for i = 1 to adonews.recordset.recordcount mshflexgrid1.textmatrix(i, 0) = i next mshflexgrid1.textmatrix(0, 0) = 序號 mshflexgrid1.textmatrix(0, 1) = 發(fā)布日期 mshflexgrid1.textmatrix(0, 2) = 新聞內(nèi)容 mshflexgrid1.colwidth(0) = 800 mshflexgrid1.colwidth(1) = 2000 mshflexgrid1.colwidth(2) = 6700end sub窗體中的toolbar控件為了方便用戶打開文件、聽音樂、查看幫助、退出。代碼設(shè)計(jì)如下：private sub toolbar1_buttonclick(byval button as mscomctllib.button)select case button.indexcase 1 設(shè)置“cancelerror”為 truecommondialog1.cancelerror = trueon error goto errhandle 如果為真則轉(zhuǎn)到errhandler 處，執(zhí)行exit sub 語句 設(shè)置標(biāo)志，標(biāo)題欄commondialog1.flags = cdlofnhidereadonly 設(shè)置過濾器commondialog1.filter = 所有文件 (*.*)|*.*|文本文件 (*.txt)|*.txt|word 文檔 (*.doc)|*.doc|可執(zhí)行文件 (*.exe)|*.exe|所有圖片 (*.bmp,*.gif,*,png,*.jpeg)|*.bmp,*.gif,*,png,*.jpeg 指定缺省的過濾器commondialog1.filterindex = 2commondialog1.showopenshell rundll32.exe url.dll, fileprotocolhandler + commondialog1.filename, vbnormalfocusexit suberrhandle: 用戶按了“取消”按鈕exit subcase 2 frmbrowser.showcase 3 frmmp3.show case 4frmhelp.showcase 5 unload me end selectend sub至于工具欄上用到的窗體將會在4.9中介紹。4.4 通知管理 通知管理包含3個(gè)部分：發(fā)布通知、接收通知、已發(fā)通知。其中，發(fā)布通知用來將通知發(fā)布給某部門某人，接收用來接收其他職員發(fā)布的通知，已發(fā)通知是用來查看發(fā)布給其他職員的通知。1 發(fā)布通知窗體設(shè)計(jì)結(jié)果如圖4.4.1所示圖4.4.1部分代碼如下： 窗體裝載事件代碼如下：private sub form_load()me.icon = frm_mainbefore.image1.picturefor i = 0 to adonoticedept.recordset.recordcount - 1combo1.additem adonoticedept.recordset.fields(0).valueadonoticedept.recordset.movenextnext i顯示用戶for i = 0 to adonoticeuser.recordset.recordcount - 1combo2.additem adonoticeuser.recordset.fields(0).valueadonoticeuser.recordset.movenextnext i設(shè)置通知人text2.text = frm_login.text1.text顯示日期dtpicker1.value = nowend sub“發(fā)布通知”按鈕的click事件代碼如下：private sub command1_click()if combo1.text = then msgbox 請選擇接收通知的部門！, vbinformation, 提示： exit subelseif combo2.text = then msgbox 請選擇接收通知的人！, vbinformation, 提示： exit subelseif text1.text = then msgbox 請輸入通知內(nèi)容！, vbinformation, 提示： exit subend ifadonotice.recordset.addnewadonotice.recordset.fields(1).value = dtpicker1.valueadonotice.recordset.fields(2).value = frm_login.text1.textadonotice.recordset.fields(3).value = combo1.textadonotice.recordset.fields(4).value = combo2.textadonotice.recordset.fields(5).value = 0adonotice.recordset.fields(6).value = text1.textadonotice.recordset.update msgbox 您的通知已經(jīng)發(fā)送成功！, vbinformation, 提示： combo1.text = combo2.text = text1.text = end sub 2 接收通知 “接收通知”窗體的設(shè)計(jì)結(jié)果如圖4.4.2所示：圖4.4.2“查詢”按鈕的代碼如下：private sub cmdfind_click()adonotice.connectionstring = pstradonotice.recordsource = select * from tboa_notice where notice_date between + str(dtpicker1.value) + and + str(dtpicker2.value) + and notice_acceptperson= + frm_login.text1.text + order by notice_date descadonotice.refreshset datagrid1.datasource = adonoticecall setdatagrid_captionend su