oa辦公自動(dòng)化畢業(yè)論文

1、<p><b>　　畢 業(yè) 論 文</b></p><p>　　信息管理 專業(yè) 20XX 級(jí) X 隊(duì)</p><p>　　學(xué)員 xxx 指導(dǎo)教員 xxx </p><p>　　課題 OA辦公自動(dòng)化系統(tǒng) </p><p>　　xxxxxxxxxx學(xué)院</p>

2、;<p><b>　　二○一零年六月</b></p><p><b>　　OA辦公自動(dòng)化系統(tǒng)</b></p><p><b>　　xxx</b></p><p>　?。╔XXXXXX學(xué)院 浙江 杭州 211101）（六號(hào)宋體,并將內(nèi)容放在括弧內(nèi)）</p><

3、p>　　摘要：摘要二字用六號(hào)黑體，靠左邊起頭。摘要內(nèi)容用六號(hào)楷體。XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX，</p><p>　　XXXXXXXXXXXXX。</p><p>　　關(guān)鍵詞：XXX；XXXX；XXX 關(guān)鍵詞二字使用六號(hào)黑體，關(guān)鍵詞內(nèi)容使用六號(hào)楷體。關(guān)鍵詞之間用分號(hào)隔離，最后一個(gè)關(guān)鍵詞不加標(biāo)點(diǎn)符號(hào)。</

4、p><p>　　畢業(yè)設(shè)計(jì)(論文)中文摘要</p><p>　　(題目)：OA辦公自動(dòng)化系統(tǒng)</p><p>　　摘要：在市場(chǎng)競(jìng)爭(zhēng)中，對(duì)于一個(gè)企業(yè)而言，對(duì)信息的掌握程度、信息獲取是否及時(shí)、信息能否得到充分的、對(duì)信息的反應(yīng)是否敏感準(zhǔn)確越來(lái)越成為衡量其市場(chǎng)競(jìng)爭(zhēng)能力的重要因素。隨著中國(guó)加入WTO，各行各業(yè)都在努力提高自身的競(jìng)爭(zhēng)力，電信的重組、企業(yè)信息化管理進(jìn)程的加快都在說(shuō)明一個(gè)

5、趨勢(shì)：傳統(tǒng)以紅頭文件為主的、強(qiáng)調(diào)公文處理的辦公自動(dòng)化將從主導(dǎo)地位逐漸減弱，以強(qiáng)調(diào)信息服務(wù)、知識(shí)管理為主的企業(yè)信息服務(wù)系統(tǒng)將逐漸代替原有的辦公自動(dòng)化。商場(chǎng)如戰(zhàn)場(chǎng)，新一代的戰(zhàn)爭(zhēng)是信息化戰(zhàn)爭(zhēng)，如何通過(guò)互聯(lián)網(wǎng)這一利器，使企業(yè)信息化建設(shè)完善起來(lái)?這就需要一種高效，穩(wěn)定的辦公自動(dòng)化系統(tǒng)！通過(guò)本系統(tǒng)，企業(yè)機(jī)關(guān)辦公中存在的信息不暢、效率低下等一系列問(wèn)題得到了解決。把知識(shí)管理的思想帶入了現(xiàn)代社會(huì)的辦公生活，從而提升了現(xiàn)代企業(yè)的信息化程度，改變了人們的生活

6、。</p><p>　　本論文主要闡述OA辦公自動(dòng)化系統(tǒng)的后臺(tái)操作過(guò)程及一些關(guān)鍵技術(shù)。該系統(tǒng)具有新聞管理、文件傳送管理、通知管理、交流管理、系統(tǒng)維護(hù)功能，而且還根據(jù)大多數(shù)客戶需求增加了瀏覽器、播放器等功能，這樣既可以時(shí)時(shí)掌握最新網(wǎng)絡(luò)資源還可以制造一個(gè)輕松的辦公氛圍。</p><p>　　關(guān)鍵字 ：自動(dòng)化，管理，ActiveX </p><p><b>　　

7、目 錄</b></p><p><b>　　第1章 系統(tǒng)分析</b></p><p>　　1.1 需求分析 …………………………………………………………… 1</p><p>　　1.2 可行性分析 …………………………………………………………… 1</p><p><b>　　第2

8、章 總體設(shè)計(jì)</b></p><p>　　2.1 項(xiàng)目規(guī)劃 ……………………………………………………………… 2 </p><p>　　2.2 系統(tǒng)功能架構(gòu)圖 ……………………………………………………… 2</p><p>　　第3章 數(shù)據(jù)庫(kù)的設(shè)計(jì)</p><p>　　3.1 數(shù)據(jù)表的概要說(shuō)明 ………………………………

9、…………………… 3</p><p>　　3.2 主要數(shù)據(jù)表的結(jié)構(gòu) …………………………………………………… 3</p><p>　　第4章 主要功能模塊的設(shè)計(jì) </p><p>　　4.1 公共模塊設(shè)計(jì) ………………………………………………………… 6</p><p>　　4.2 登錄界面設(shè)計(jì) …………………………………………

10、…………… 6</p><p>　　4.3 主界面設(shè)計(jì) ………………………………………………………… 10</p><p>　　4.4 通知管理 ……………………………………………………………… 14</p><p>　　4.5 新聞管理 ……………………………………………………………… 21</p><p>　　4.6 文件管

11、理 ……………………………………………………………… 24</p><p>　　4.7 交流管理 ……………………………………………………………… 31</p><p>　　4.8 系統(tǒng)維護(hù)管理 ……………………………………………………… 35 </p><p>　　4.9 其它模塊 ……………………………………………………………… 43</p>

12、;<p>　　第5章 問(wèn)題分析與解決 </p><p>　　5.1 由于“ADO”屬性中記錄源命令類型設(shè)置不同出現(xiàn)的問(wèn)題…………51 </p><p>　　5.2 如何利用CommonDialog 控件……………………………………… 52</p><p>　　5.3 ComboBox 控件設(shè)置為只讀屬性后，如何添加列表…………………53<

13、;/p><p>　　5.4 如何將多種格式的文件保存到數(shù)據(jù)庫(kù)中…………………………… 54</p><p><b>　　結(jié)論</b></p><p><b>　　致謝</b></p><p><b>　　參考文獻(xiàn)</b></p><p>　　第 1 章

14、系統(tǒng)分析</p><p><b>　　1.1 需求分析</b></p><p>　　通過(guò)調(diào)查，要求系統(tǒng)具有以下功能。</p><p>　　*由于操作人員的計(jì)算機(jī)知識(shí)普遍較差，因此要求有良好的人機(jī)界面。</p><p>　　*由于該系統(tǒng)的使用對(duì)象多，因此要有較好的權(quán)限管理。</p><p>　　*方

15、便數(shù)據(jù)的查詢，修改。</p><p>　　*信息發(fā)布與文件傳送的速度快。</p><p>　　*通過(guò)座機(jī)能夠直接“透視”公司的各項(xiàng)工作及活動(dòng)安排。</p><p>　　*用MSChart圖表顯示活動(dòng)投票結(jié)果。</p><p>　　*在相應(yīng)的權(quán)限下，管理員可以刪除數(shù)據(jù) </p><p>　　1.2 可行性分析</

16、p><p>　　開(kāi)發(fā)任何一個(gè)基于計(jì)算機(jī)的系統(tǒng)時(shí)，都會(huì)受到時(shí)間和資源上的限制。因此，在接受任何一個(gè)項(xiàng)目開(kāi)發(fā)任務(wù)之前，必須根據(jù)客戶可能提供的時(shí)間和資源條件進(jìn)行可行性分析，以減少項(xiàng)目開(kāi)發(fā)風(fēng)險(xiǎn)，避免人力、物力和財(cái)力的浪費(fèi)。 </p><p>　　本系統(tǒng)的數(shù)據(jù)庫(kù)采用目前比較滸的SQL Server 2000，該數(shù)據(jù)庫(kù)系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢(shì)，并且處理數(shù)據(jù)量大、效率高；前臺(tái)采用Mic

17、rosoft 公司的Visual Basic 6.0 作為主要的開(kāi)發(fā)工具，它可與SQL Server 2000 數(shù)據(jù)庫(kù)無(wú)縫鏈接。</p><p>　　第 2 章 總體設(shè)計(jì)</p><p><b>　　2.1 項(xiàng)目規(guī)劃</b></p><p>　　OA 辦公自動(dòng)化系統(tǒng)是一個(gè)典型的網(wǎng)絡(luò)辦公開(kāi)發(fā)應(yīng)用程序，它包含通知管理模塊、新聞管理模塊、文件管理模塊

18、、交流管理模塊、系統(tǒng)維護(hù)管理模塊等。</p><p><b>　?。?）通知管理模塊</b></p><p>　　該模塊主要負(fù)責(zé)信息的發(fā)布、接收等。</p><p>　　（2）新聞管理模塊 </p><p>　　該模塊主要負(fù)責(zé)新聞的發(fā)布、接收等。</p><p>　?。?） 文件管理模塊</

19、p><p>　　該模塊主要負(fù)責(zé)文件的發(fā)布、接收等。</p><p>　?。?）交流管理模塊 </p><p>　　該模塊主要實(shí)現(xiàn)意見(jiàn)反饋、活動(dòng)投票。</p><p>　　（5） 系統(tǒng)維護(hù)管理模塊</p><p>　　該模塊主要負(fù)責(zé)用戶添加、刪除，密碼、權(quán)限的修改，意見(jiàn)箱的管理，投票活動(dòng)管理。</p><

20、p>　　2.2 系統(tǒng)功能構(gòu)架圖</p><p><b>　　系統(tǒng)構(gòu)功能架圖</b></p><p>　　第3章 數(shù)據(jù)庫(kù)的設(shè)計(jì)</p><p>　　3.1 數(shù)據(jù)庫(kù)的概要說(shuō)明</p><p>　　系統(tǒng)數(shù)據(jù)庫(kù)的名稱為db_OA，包含有8張表，下面給出各數(shù)據(jù)表的作用。</p><p>　　3.2

21、主要數(shù)據(jù)表的結(jié)構(gòu)</p><p>　　表1 dbOA_user</p><p>　　表2 tbOA_news</p><p>　　表3 tbOAnotice</p><p>　　表4 tbOA_file</p><p>　　表5 tbOA_idea</p><p>　　表6 tbOA_vote

22、</p><p>　　表7 tbOA_voteRecord</p><p>　　表8 tbOA_dept</p><p>　　第 4 章 主要功能模塊的設(shè)計(jì)</p><p>　　4.1 公共模塊設(shè)計(jì)</p><p>　　為了節(jié)省系統(tǒng)資源，實(shí)現(xiàn)代碼重用，可以在系統(tǒng)中新建一個(gè)Module1模塊。就本系統(tǒng)而言，該模塊主要用

23、于實(shí)現(xiàn)數(shù)據(jù)庫(kù)的共享連接。在以后的編程中，如果使用對(duì)象訪問(wèn)數(shù)據(jù)庫(kù)或“ADO Data”控件訪問(wèn)數(shù)據(jù)庫(kù)則可以直接將數(shù)據(jù)庫(kù)連字符串的值賦給相應(yīng)的“ ConnectionString ”屬性，從而避免了重復(fù)建立數(shù)據(jù)庫(kù)的麻煩，以防失去ADO+SQL的優(yōu)越性能,代碼如下：</p><p>　　Public pstr As String</p><p>　　Public Sub main()</p

24、><p><b>　　'共享連接字符串</b></p><p>　　pstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;</p><p>　　pwd=sa;Initial Catalog=db_OA;Data Source=A-PC"<

25、;/p><p>　　'調(diào)用frm_login窗口</p><p>　　frm_login.Show</p><p><b>　　End Sub</b></p><p>　　4.2 登錄界面設(shè)計(jì)</p><p>　　本系統(tǒng)屬于OA辦公自動(dòng)化系統(tǒng)，用戶權(quán)限分為系統(tǒng)管理員和普通用戶兩種。“系統(tǒng)登錄

26、”窗體用于難操作員及其密碼，主要通過(guò)打開(kāi)數(shù)據(jù)庫(kù)連接、打開(kāi)數(shù)據(jù)結(jié)合if語(yǔ)句，判斷用戶輸入的操作員及密碼是否符合數(shù)據(jù)庫(kù)中的操作員和密碼，如果符合則允許登錄，并給予相應(yīng)的權(quán)限，否則提示用戶不存在。</p><p><b>　　1.窗體設(shè)計(jì)</b></p><p>　　新建一個(gè)窗體，將窗體的BorderStyle 屬性設(shè)置為“0-None”,設(shè)置Picture 屬性，為窗體添

27、加圖片。</p><p>　　添加兩個(gè)“Label”控件，設(shè)置其 BackStyle 屬性設(shè)置為“0-Transparent”。</p><p>　　添加兩個(gè)“TextBox”控件，設(shè)置其BorderStyle 屬性為“0-None”。</p><p>　　添加兩個(gè)“CommondButton”控件，分別將其Caption屬性設(shè)置為“登錄”、“退出”。</p&

28、gt;<p>　　“系統(tǒng)登錄”窗體的設(shè)計(jì)結(jié)果如下圖所示：</p><p><b>　　圖4.2</b></p><p><b>　　2. 代碼設(shè)計(jì)</b></p><p>　　雙擊“登錄”按鈕（labLogin）添加如下事件代碼：</p><p>　　Private Sub labLo

29、gin_Click()</p><p>　　mysql="select * from dbOA_user where user_name ='" + Text1.Text + "'"</p><p>　　rs.Open mysql, con</p><p><b>　　'判斷是否存在用戶<

30、;/b></p><p>　　If rs.EOF Then</p><p>　　MsgBox "沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名！" </p><p>　　'如果存在，判斷用戶輸入的密碼是否正確</p><p><b>　　Else</b></p><p>

31、　　If Trim(rs("user_pwd")) = Trim(Text2.Text) Then 'rs.fields(1) = Text2.Text</p><p>　　frm_login.Hide</p><p>　　'如果密碼正確，判斷用戶權(quán)限，如果用戶沒(méi)有管理權(quán)限則設(shè)置主界面的TreeView控件</p><p>　

32、　'的樹(shù)狀菜單為操作員的樣式</p><p>　　If rs.Fields(2) = False Then</p><p>　　frm_mainbefore.Show</p><p>　　frm_mainbefore.StatusBar1.Panels(1).Text = "操作職員：" & Text1.Text</p>

33、;<p><b>　　'顯示系統(tǒng)時(shí)間</b></p><p>　　frm_mainbefore.StatusBar1.Panels(2).Text = Format(Now, "m/d/yy")</p><p><b>　　……………</b></p><p><b>　　

34、End If</b></p><p><b>　　Else</b></p><p><b>　　End Sub</b></p><p>　　4.3 主界面設(shè)計(jì) </p><p>　　主界面主要包括樹(shù)狀菜單、工具欄、狀態(tài)欄、時(shí)間顯示以及顯示OA辦公系統(tǒng)的最新新聞和通知。</p>

35、;<p><b>　　1 窗體設(shè)計(jì)</b></p><p>　　1）新建一個(gè)窗體，將窗體的“Caption”屬性設(shè)置為“OA辦公自動(dòng)化系統(tǒng)”,設(shè)置“BackColor”屬性為窗體選擇合適的背景顏色。</p><p>　　2）添加“ImageList”控件。該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中將其添加到工具箱中。添加方法為：在“

36、部件”對(duì)話框中選中“ Microsoft Windows Common Controls 6.0(SP6)”列表項(xiàng)。</p><p>　　3）向窗體中添加“Treeview”控件，設(shè)置其“Appearance”屬性為“0-ccfat”。“TreeView”控件屬于“ActiveX”rpwr ,使用前必須將其添加到工具箱中。為了使“ImageList”控件中的圖像能夠順利地顯示在“TreeView”控件的節(jié)點(diǎn)中，需

37、將“ImageList”綁定到“TreeView”控件上，綁定方法為：在“TreeView”控件上單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性”命令，彈出“屬性頁(yè)”對(duì)話框，然后將圖像列表屬性設(shè)置為“ImageList1”</p><p>　　4)添加“MSHFlexGrid”控件，該控件屬于Active控件，在使用之前必須將“MSHFlexGrid”控件添加到工具箱中，添加方法為：在“部件”對(duì)話框中選中“Microso

38、ft Hierarchical FlexGrid Control 6.0”列表項(xiàng)，添加兩個(gè)MSHFlexGrid控件，“MSHFlexgrid1”和“MSHFlexGrid2”控件。</p><p>　　5）添加“StatusBar”（狀態(tài)欄）控件，它主要用來(lái)顯示操作員信息、系統(tǒng)時(shí)間及公司名稱網(wǎng)站。該控件屬于“ActiveX”控件，添加“ImaggeList”控件時(shí)已經(jīng)將該控件添加到工具箱中?！癝tatusBa

39、r”控件的名稱為默認(rèn)名，單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性頁(yè)”命令，為“StatusBar”控件添加3個(gè)窗格，第一個(gè)窗格顯示系統(tǒng)操作員、第二個(gè)窗格顯示系統(tǒng)日期、第三個(gè)窗格顯示公司名稱和網(wǎng)址。</p><p>　　主界面的運(yùn)行結(jié)果如下圖所示：</p><p><b>　　圖4.3</b></p><p><b>　　2 代碼設(shè)計(jì)&

40、lt;/b></p><p>　　當(dāng)窗體激活時(shí)，將“TreeView”控件中所有的節(jié)點(diǎn)展開(kāi)。在“Form”窗體的“Activate”事件下添加如下代碼：</p><p>　　'激活窗體的Activate事件，</p><p>　　Private Sub Form_Activate()</p><p>　　For i = 1 To

41、 TreeView1.Nodes.Count</p><p><b>　　'展開(kāi)全部節(jié)點(diǎn)</b></p><p>　　TreeView1.Nodes(i).Expanded = True</p><p><b>　　Next i</b></p><p><b>　　End Sub&

42、lt;/b></p><p>　　單擊樹(shù)狀菜單中的菜單，根據(jù)所選擇的菜單顯示相應(yīng)的窗體。在“TreeView”控件的NodeClick事件下添加如下代碼：</p><p>　　'單擊樹(shù)狀菜單中的菜單時(shí)，根據(jù)所選擇的菜單顯示相應(yīng)的窗體</p><p>　　Private Sub TreeView1_NodeClick(ByVal Node As MSCo

43、mctlLib.Node)</p><p>　　'key 返回設(shè)置字符串，在集合中唯一的標(biāo)識(shí)一個(gè)成員</p><p>　　If TreeView1.SelectedItem.Key = "發(fā)布通知" Then FrmNotice_issue.Show</p><p><b>　　……</b></p>&

44、lt;p>　　If TreeView1.SelectedItem.Key = "密碼修改" Then frmPwd_Change.Show</p><p><b>　　End Sub</b></p><p>　　在“Form”窗體的裝載過(guò)程中，將最新的新聞和通知顯示在MSHFlexGrid表格中。</p><p>　　

45、Private Sub Form_Load()</p><p><b>　　'設(shè)置新聞</b></p><p>　　Me.Icon = Image1.Picture</p><p><b>　　………</b></p><p><b>　　End Sub</b></

46、p><p>　　每隔一分鐘就更新一次最新新聞和最新通知。在“Timer”控件的“Timer”事件下添加如下代碼。</p><p>　　Private Sub Timer1_Timer()</p><p><b>　　………</b></p><p>　　MSHFlexGrid1.ColWidth(2) = 6700</p

47、><p><b>　　End Sub</b></p><p>　　窗體中的ToolBar控件為了方便用戶打開(kāi)文件、聽(tīng)音樂(lè)、查看幫助、退出。代碼設(shè)計(jì)如下：</p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>

48、;　　Select Case Button.Index</p><p><b>　　Case 1</b></p><p><b>　　……</b></p><p>　　End Select</p><p><b>　　End Sub</b></p><p&g

49、t;　　至于工具欄上用到的窗體將會(huì)在4.9中介紹。</p><p><b>　　4.4 通知管理</b></p><p>　　通知管理包含3個(gè)部分：發(fā)布通知、接收通知、已發(fā)通知。其中，發(fā)布通知用來(lái)將通知發(fā)布給某部門某人，接收用來(lái)接收其他職員發(fā)布的通知，已發(fā)通知是用來(lái)查看發(fā)布給其他職員的通知。</p><p><b>　　1 發(fā)布通知

50、</b></p><p>　　窗體設(shè)計(jì)結(jié)果如圖4.4.1所示</p><p><b>　　圖4.4.1</b></p><p><b>　　部分代碼如下：</b></p><p>　　窗體裝載事件代碼如下：</p><p>　　Private Sub Form_L

51、oad()</p><p>　　DTPicker1.Value = Now</p><p><b>　　End Sub</b></p><p>　　“發(fā)布通知”按鈕的Click事件代碼如下：</p><p>　　Private Sub Command1_Click()</p><p><b&

52、gt;　　……</b></p><p><b>　　End Sub</b></p><p><b>　　2 接收通知</b></p><p>　　“接收通知”窗體的設(shè)計(jì)結(jié)果如圖4.4.2所示：</p><p><b>　　圖4.4.2</b></p>

53、<p>　　“查詢”按鈕的代碼如下：</p><p>　　Private Sub cmdFind_Click()</p><p>　　adoNotice.ConnectionString = pstr</p><p><b>　　……</b></p><p>　　Call setDataGrid_Caption

54、</p><p><b>　　End Sub</b></p><p><b>　　3 已發(fā)通知</b></p><p>　　“已發(fā)通知”窗體設(shè)計(jì)結(jié)果如圖4.4.3所示：</p><p><b>　　圖4.4.3</b></p><p><b>

55、　　主要代碼如下：</b></p><p>　　Private Sub Form_Load()</p><p>　　adoNotice.ConnectionString = pstr</p><p><b>　　……</b></p><p>　　Call setNotice_Caption</p>

56、<p><b>　　End Sub</b></p><p><b>　　4.5 新聞管理</b></p><p>　　新聞管理包含3個(gè)部分：新聞發(fā)布、新聞接收、已發(fā)新聞。其中，新聞發(fā)布用來(lái)將新聞發(fā)布給某部門中的某人，新聞接收用來(lái)接收其他職員發(fā)布的新聞，已發(fā)新聞?dòng)脕?lái)瀏覽發(fā)布給其他職員的新聞。</p><p>

57、　　下面介紹新聞發(fā)布、新聞接收和已發(fā)新聞的開(kāi)發(fā)過(guò)程。</p><p><b>　　1 新聞發(fā)布</b></p><p>　　窗體設(shè)計(jì)結(jié)果如圖4.5所示： </p><p><b>　　圖4.5.1</b></p><p>　　1）在窗體中添加4個(gè)“Label”控件、兩個(gè)“Combo”控件、3個(gè)“A

58、DO”控件、兩個(gè)“TextBox”控件和兩個(gè)“CommandButton”控件，屬性設(shè)置如圖所示：</p><p>　　2）添加“DTPicker”控件。該控件屬于“ActiveX”控件，在使用之前必須從“部件”對(duì)話框中添加工具箱中，添加方法為：在“部件”對(duì)話框中選中“Microsoft Windows Common Controls-2 6.0”列表項(xiàng)。</p><p>　　3）程序代碼

59、類似于“發(fā)布通知”窗體的代碼類似這里就不再贅述了。</p><p><b>　　2 新聞接收</b></p><p>　　1）添加4個(gè)“CommandButton”和一個(gè)“ADO”控件。</p><p>　　2）添加2個(gè)“DTPicker”控件，名稱分別為“DTPicker1”和“DTPicker2”。</p><p>

60、;　　3）添加“DataGrid”控件，使用默認(rèn)名稱。</p><p>　　“新聞接收”窗體的設(shè)計(jì)結(jié)果如圖4.5.2所示：</p><p><b>　　圖4.5.2</b></p><p>　　程序代碼與“接收通知”類似，這里就不再贅述了。</p><p><b>　　3 已發(fā)新聞</b></

61、p><p>　　“已發(fā)新聞”窗體設(shè)計(jì)結(jié)果如圖4.5.3所示：</p><p><b>　　圖4.5.3</b></p><p>　　添加“ADO”控件，名稱為“adoNews”，設(shè)置其“Visible”屬性為“False”;添加“DataGrid”控件，名稱為默認(rèn)名稱“DataGrid1”</p><p>　　程序代碼與“接

62、收新聞”中的代碼設(shè)計(jì)類似，這里就不再贅述了。</p><p><b>　　4.6 文件管理</b></p><p><b>　　1. 文件傳送</b></p><p>　　文件傳送在OA辦公自動(dòng)化系統(tǒng)中占據(jù)很重要的位置，本系統(tǒng)的文件傳送可以傳送多種類型的文件（如：exe\bat\rar\frm\doc等）?！拔募魉汀?/p>

63、窗體的設(shè)計(jì)結(jié)果如圖4.6.1所示：</p><p><b>　　圖4.6.1</b></p><p>　　1）在該窗體中用到“CommonDialog”控件，該控件是“ActiveX”控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱中，在“部件”對(duì)話框中選中“Microsoft Common Dialog 6.0”列表項(xiàng)。</p><p>　

64、　其它控件設(shè)置，在這里就不再贅述了。</p><p><b>　　2)代碼設(shè)計(jì)</b></p><p>　　在“Form”窗體裝載時(shí)，主要實(shí)現(xiàn)以下功能。</p><p>　　* 建立“adoDept”控件的數(shù)據(jù)庫(kù)連接。</p><p>　　* 為“Commbo1”控件添加部門名稱數(shù)據(jù)。</p><p&

65、gt;　　* 獲取系統(tǒng)操作員的姓名，并通過(guò)“txtName”控件顯示出來(lái)。</p><p>　　* 使“DTPicker1”控件顯示當(dāng)前日期。 </p><p>　　單擊“瀏覽文件”按鈕，選擇將要傳送的文件，代碼如下：</p><p>　　Private Sub cmdFile_Click()</p><p>　　' 設(shè)置“Cance

66、lError”為 True</p><p>　　CommonDialog1.CancelError = True</p><p>　　On Error GoTo errHandler ' 如果為真則轉(zhuǎn)到errhandler 處，執(zhí)行exit sub 語(yǔ)句</p><p><b>　　……</b></p><p>

67、　　' 用戶按了“取消”按鈕</p><p>　　Exit Sub '</p><p><b>　　End Sub</b></p><p><b>　　2. 文件接收</b></p><p><b>　　1）窗體設(shè)計(jì)</b></p><p&g

68、t;　　文件接收”窗體主要用來(lái)接收其他員工傳送來(lái)的文件，并且將文件下載保存到本機(jī)中。 本窗體主要實(shí)現(xiàn)的功能為：以日期 為標(biāo)準(zhǔn)，查詢接收文件、下載接收文件、刪除接收文件、顯示所有的接收文件?！拔募邮铡贝绑w的設(shè)計(jì)結(jié)果如圖4.6.2所示：</p><p><b>　　圖4.6.2</b></p><p><b>　　2）代碼設(shè)計(jì)</b></p&

69、gt;<p>　　通過(guò)鼠標(biāo)選擇“DataGrid”表格中數(shù)據(jù)，然后單擊“刪除文件記錄”按鈕，將選中的文件數(shù)據(jù)刪除。下面是“刪除文件記錄”按鈕的“Click”事件代碼：</p><p>　　Private Sub cmddel_Click()</p><p>　　On Error Resume Next '當(dāng)數(shù)據(jù)表中沒(méi)有數(shù)據(jù)時(shí)，進(jìn)行錯(cuò)誤處理</p><

70、;p>　　adoFile.Recordset.Delete</p><p><b>　　End Sub</b></p><p>　　在日期輸入框中輸入開(kāi)始日期和截止日期后，“查詢”按鈕，將查詢結(jié)果顯示在DataGrid控件中，代碼如下：</p><p>　　Private Sub cmdFind_Click()</p>&l

71、t;p>　　adoFile.ConnectionString = pstr</p><p>　　adoFile.RecordSource = "select * from tboa_file where file_acceptperson='" & frm_login.Text1.Text & "' and file_date between &

72、#39;" & str(DTPicker1.Value) & "' and '" & str(DTPicker2.Value) & "' order by file_date desc "</p><p>　　adoFile.Refresh</p><p><b>　　End

73、 Sub</b></p><p>　　單擊“顯示所有文件”按鈕的事件代碼如下 ：</p><p>　　Private Sub cmdshow_Click()</p><p>　　adoFile.ConnectionString = pstr</p><p>　　adoFile.RecordSource = "select

74、 * from tboa_file where file_acceptperson ='" & frm_login.Text1.Text & "' order by file_date desc "</p><p>　　adoFile.Refresh</p><p><b>　　End Sub</b><

75、;/p><p>　　雙擊“DataGrid”表格中的一行，可以下載文件的事件代碼如下：</p><p>　　Private Sub DataGrid1_DblClick()</p><p>　　On Error GoTo UNEX</p><p>　　If MsgBox("是否接收" & DataGrid1.Colum

76、ns(3).Text & "傳送來(lái)的【" & DataGrid1.Columns(1).Text & "】嗎？", vbQuestion + vbYesNo) = vbYes Then</p><p>　　CommonDialog1.FileName = DataGrid1.Columns(8).Text</p><p>&l

77、t;b>　　……</b></p><p>　　MsgBox "沒(méi)有文件可供下載!", vbInformation, "溫馨提示："</p><p><b>　　End Sub</b></p><p><b>　　3 已發(fā)文件</b></p><p

78、>　　已發(fā)文件的窗體設(shè)計(jì)界面如圖4.6.3所示：</p><p><b>　　圖4.6.3</b></p><p><b>　　4.7 交流管理</b></p><p><b>　　1 投票活動(dòng)</b></p><p>　　“投票活動(dòng)”主要是對(duì)公司內(nèi)部的活動(dòng)進(jìn)行投票。投

79、票項(xiàng)目的名稱是動(dòng)態(tài)生成的，有幾項(xiàng)活動(dòng)將生成幾個(gè)“CheckBox”控件?！盎顒?dòng)投票”窗體的設(shè)計(jì)結(jié)果如圖4.7.1所示：</p><p><b>　　圖4.7.1</b></p><p><b>　　代碼設(shè)計(jì)如下 ：</b></p><p>　?。?）窗體裝載的代碼：</p><p>　　Privat

80、e Sub Form_Load()</p><p><b>　　……</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　?。?）單擊“提交”按鈕，將投票添加表中。下面是“提交”怕Click事件代碼：&

81、lt;/p><p>　　Private Sub cmdSave_Click()</p><p><b>　　………</b></p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p><b

82、>　　2 意見(jiàn)箱</b></p><p>　　“意見(jiàn)箱”窗體設(shè)計(jì)果如圖4.7.2所示： </p><p><b>　　圖4.7.2</b></p><p>　　4.8 系統(tǒng)維護(hù)管理 </p><p><b>　　1 投票管理</b></p><p>

83、　　投票管理主要用于添加投票活動(dòng)、刪除投票活動(dòng)、清除投票記錄，用列表形式統(tǒng)計(jì)票數(shù)。</p><p>　　投票管理窗體的設(shè)計(jì)結(jié)果如圖4.8.1所示</p><p><b>　　圖4.8.1</b></p><p>　　在本窗體中用到“MSChart”控件，該控件為“ActiveX”控件，因此在使用之前必須從“部件”中添加上中，添加方法為：在“部件

84、”對(duì)話框中選中“Micrsoft Chart Control 6.0(OLEDB)”項(xiàng)。</p><p><b>　　部分代碼如下：</b></p><p>　　“清除投票結(jié)果”按鈕的Click事件代碼如下：</p><p>　　Private Sub cmdClear_Click()</p><p>　　adoVote

85、.RecordSource = "select *from tbOA_vote"</p><p>　　adoVote.Refresh</p><p>　　If adoVote.Recordset.RecordCount > 0 Then</p><p>　　For i = 0 To adoVote.Recordset.RecordCount

86、 - 1</p><p>　　adoVote.Recordset.Fields(3).Value = 0</p><p>　　adoVote.Recordset.MoveNext</p><p><b>　　Next i</b></p><p><b>　　End If</b></p>

87、<p>　　Set con = New ADODB.Connection</p><p>　　con.ConnectionString = pstr</p><p><b>　　con.Open</b></p><p>　　MsgBox "數(shù)據(jù)清除成功！", vbInformation, "提示：&qu

88、ot;</p><p>　　Call setDataGrid</p><p><b>　　End Sub</b></p><p><b>　　2 意見(jiàn)箱管理</b></p><p>　　“意見(jiàn)箱管理”窗體設(shè)計(jì)如圖4.8.2所示：</p><p><b>　　圖4.8

89、.2</b></p><p><b>　　代碼略。</b></p><p><b>　　3 添加用戶</b></p><p>　　“添加用戶成員”窗體設(shè)計(jì)如圖4.8.3所示</p><p><b>　　圖4.8.3</b></p><p>&

90、lt;b>　　4 修改密碼</b></p><p>　　窗體設(shè)計(jì)如圖4.8.4所示：</p><p><b>　　圖4.8.4</b></p><p><b>　　部分代碼設(shè)計(jì)如下：</b></p><p>　　“修改”按鈕的Click事件代碼：</p><p&

91、gt;　　Private Sub cmdUserUpdate_Click()</p><p>　　If Combo1.Text = "" Then</p><p>　　MsgBox "請(qǐng)?jiān)谙吕藛沃羞x擇要修改的操作員信息！",vbInformation,"提示："</p><p>　　Combo1.SetF

92、ocus</p><p>　　ElseIf (Len(Text3.Text) <> 6 And Text3.Text <> "") Or (Len(Text4.Text) <> 6 And Text4.Text <> "") Then</p><p><b>　　……</b><

93、;/p><p>　　ElseIf Text3.Text = "" Then</p><p><b>　　……</b></p><p>　　ElseIf isbool(Text3.Text) = True Or isbool(Text4.Text) = True Then</p><p>　　MsgBox&

94、quot;用戶密碼中不能包含空格！請(qǐng)重新輸入密碼",vbExclamation,"警告："</p><p><b>　　……</b></p><p>　　ElseIf Text4.Text = "" Then</p><p><b>　　……</b></p>

95、<p>　　ElseIf Text3.Text <> Text4.Text Then</p><p><b>　　………</b></p><p><b>　　Else</b></p><p><b>　　……</b></p><p><b>　　

96、Unload Me</b></p><p><b>　　End Sub</b></p><p>　　“刪除”按鈕的Click事件代碼：</p><p>　　Private Sub cmdUserDel_Click()</p><p>　　If Combo1.Text = "" Then&l

97、t;/p><p>　　MsgBox "請(qǐng)?jiān)谙吕藛沃羞x擇您要?jiǎng)h除的用戶！"</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p><b>　　…….</b></p><p>&

98、lt;b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　4.9 其它模塊</b></p><p><b>　　1 瀏覽器</b></p><p>　　窗體中的按鈕控件是一組數(shù)組控件，做法是：在工具箱中

99、添加一個(gè)按鈕后，選中它右擊復(fù)制，然后粘貼，就可以設(shè)計(jì)出數(shù)組控件了。</p><p>　　在“Web 瀏覽器”這一窗體中用到一個(gè)控件“WebBrowser”，該控件需要從“部件”中添加，添加方法：在“部件”中添加“Microsoft Internet Controls”列表項(xiàng)。 </p><p>　　窗體設(shè)計(jì)結(jié)果如圖4.9.1所示：</p><p>　　圖4.9.1

100、所部分代碼如下：</p><p><b>　　2 播放器</b></p><p>　　窗體設(shè)計(jì)結(jié)果如圖4.9.2所示：</p><p><b>　　圖4.9.2</b></p><p>　　該窗體中用到“Windows Media Player”控件，添加方法：從“部件”對(duì)話框中添加“Windows

101、 Media Player”列表項(xiàng)，該控件是利用操作系統(tǒng)自帶的一種播放器。</p><p><b>　　部分代碼如下：</b></p><p>　　窗體裝載過(guò)程中，將播放文件夾中自帶的音樂(lè)文件</p><p>　　Private Sub Form_Load()</p><p>　　Me.Icon = frm_mainbe

102、fore.Image1.Picture</p><p>　　ReDim mp3list(1) As String '----------</p><p>　　WindowsMediaPlayer1.Left = 0</p><p>　　WindowsMediaPlayer1.Top = 0</p><p>　　List1

103、.Top = 0</p><p>　　List1.Left = Me.Width - List1.Width</p><p>　　WindowsMediaPlayer1.Width = Me.Width - List1.Width</p><p>　　WindowsMediaPlayer1.Height = Command1.Top</p><p

104、>　　List1.Height = WindowsMediaPlayer1.Height</p><p>　　WindowsMediaPlayer1.uiMode = "full" '隱藏mp3播放器控制面板</p><p><b>　　……</b></p><p><b>　　End Sub<

105、/b></p><p>　　按鈕“打開(kāi)”“下一首”“上一首”代碼如下：</p><p>　　Private Sub Command1_Click()</p><p>　　On Error GoTo mp3</p><p>　　CommonDialog1.CancelError = True</p><p>　　&

106、#39; 設(shè)置標(biāo)志，標(biāo)題欄</p><p>　　CommonDialog1.Flags = cdlOFNHideReadOnly</p><p>　　CommonDialog1.Filter = "所有文件 (*.*)|*.*|Mp3格式 文件 (*.mp3)|*.mp3|WMA格式 文件(*.wma)|*.wma"</p><p>　　'

107、; 指定缺省的過(guò)濾器</p><p>　　CommonDialog1.FilterIndex = 2</p><p>　　CommonDialog1.ShowOpen</p><p>　　str = CommonDialog1.FileName</p><p>　　filestr = "\"</p><

108、p>　　WindowsMediaPlayer1.URL = str</p><p>　　strlen = InStr(StrReverse(str), "\")</p><p>　　ml = False</p><p><b>　　End Sub</b></p><p>　　Private Su

109、b Command2_Click()</p><p>　　On Error GoTo nexturl</p><p>　　If mp3list(uj + 1) <> "" Then</p><p>　　WindowsMediaPlayer1.URL = mp3list(uj + 1)</p><p><b

110、>　　Else</b></p><p><b>　　nexturl:</b></p><p>　　WindowsMediaPlayer1.URL = mp3list(1)</p><p><b>　　End If</b></p><p>　　WindowsMediaPlayer1.

111、Controls.Play</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p><b>　　……</b></p><p><b>　　End Sub</b></p>&l

112、t;p><b>　　3 幫助</b></p><p>　　“幫助”窗體是在新建一個(gè)窗體時(shí)選擇新建一個(gè)“幫助”窗體，</p><p>　　設(shè)計(jì)結(jié)果如圖4.9.3所示：</p><p><b>　　圖4.9.3</b></p><p><b>　　結(jié)論</b></p&g

113、t;<p>　　本次設(shè)計(jì)讓我從中嘗到很多知識(shí)，設(shè)計(jì)中用到的很多控件在平常學(xué)習(xí)中從來(lái)沒(méi)有用過(guò)的，所以在做的過(guò)程中碰到了許多的問(wèn)題，有的一個(gè)問(wèn)題困繞著我好幾天；有時(shí)明明覺(jué)得程序語(yǔ)法沒(méi)有錯(cuò)誤可是就是運(yùn)行不起來(lái)；有時(shí)因“隱蔽”的拼寫(xiě)的錯(cuò)誤耽誤畢業(yè)設(shè)計(jì)的進(jìn)度……各種各樣的困難，不像實(shí)訓(xùn)時(shí)做的課程設(shè)計(jì)，畢業(yè)設(shè)計(jì)比平時(shí)做的東西要多得多，各種資料都是通過(guò)自己查閱、收集，功能的設(shè)計(jì)需要通過(guò)調(diào)查分析……雖然出現(xiàn)許多困難，但是通過(guò)網(wǎng)上查閱資料、

114、圖書(shū)館查閱書(shū)籍、尋求老師的幫助，最終完成了任務(wù)。</p><p>　　通過(guò)本次設(shè)計(jì)，我提高了快速學(xué)習(xí)新知識(shí)的能力、分析解決問(wèn)題的能力、排版文檔的能力。學(xué)習(xí)的耐心和解決問(wèn)題的決心得到了考驗(yàn)，同時(shí)動(dòng)手能力也被大大的提高。</p><p>　　我體會(huì)到：在想一個(gè)問(wèn)題時(shí)，如果從某方面想不通或者說(shuō)想不出結(jié)果，我們不防使用其他方法，從另一方面著想，會(huì)發(fā)現(xiàn)問(wèn)題會(huì)很快被解決而且很簡(jiǎn)單。這對(duì)于我以后做人做事

115、都有一個(gè)很大的啟發(fā)。</p><p>　　遇到問(wèn)題不要鉆牛角尖，要學(xué)會(huì)變通的繞開(kāi)，重新尋找思考的角度。</p><p><b>　　致謝</b></p><p>　　五個(gè)月的精心準(zhǔn)備，畢業(yè)論文終于到了劃句號(hào)的時(shí)候了。論文寫(xiě)作的過(guò)程并不輕松，知識(shí)的積累尚欠火候，于是，我只能一次次埋頭于書(shū)本中，一次次在深夜奮筆疾書(shū)。第一次花費(fèi)如此長(zhǎng)的時(shí)間和如此多的

116、精力來(lái)完成一篇論文，其中的艱辛與困難難以訴說(shuō)，敲完最后一個(gè)字符，重新從頭細(xì)細(xì)閱讀早已不陌生的文字，我感觸頗多。雖然其中沒(méi)有什么值得特別炫耀的成果，但對(duì)我而言，是寶貴的。它是無(wú)數(shù)教誨、關(guān)愛(ài)和幫助的結(jié)果。</p><p>　　首先，我要感謝我的指導(dǎo)教師xxx老師。xxx老師雖身負(fù)教學(xué)、科研重任，但仍能抽出時(shí)間，不時(shí)召集我和同組的同學(xué)以督責(zé)課業(yè)，耳提面命，殷殷之情盡在諄諄教誨中。這篇論文更傾注了她的大量的心血。從初稿到

117、定稿，**老師不厭其煩，一審再審，大到篇章布局的偏頗，小到語(yǔ)句格式的瑕疵，都一一予以指出。同時(shí)，衷心感謝實(shí)習(xí)單位——中國(guó)鐵通的領(lǐng)導(dǎo)和同事。他們從多方面給予我畢業(yè)設(shè)計(jì)大量的支持，讓我能夠全身心地投入到論文的寫(xiě)作中。本論文的完成遠(yuǎn)非終點(diǎn)，文中的不足和淺顯之處則是我新的征程上一個(gè)個(gè)新的起點(diǎn)。</p><p><b>　　我將繼續(xù)前行！</b></p><p><b&g

118、t;　　參考文獻(xiàn)</b></p><p>　　1劉瑞新,，李樹(shù)東，萬(wàn)朝陽(yáng). Visual Basic 程序設(shè)計(jì)教程. 電子工業(yè)出版社,2000</p><p>　　2周穎 Visual Basic 6.0 實(shí)例精通.清華大學(xué)出版社，2000:55~74</p><p>　　3高春艷，李俊民.Visual Basic數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)案例精選，人民郵電出版社

119、.2006</p><p>　　4宋昆、李嚴(yán). SQL Server數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析.機(jī)械工業(yè)出版社2006</p><p>　　5賽奎春、高春艷Visual Basic精彩編程200例.機(jī)械工業(yè)出版社 2003</p><p>　　6姚巍.Visual Basic數(shù)據(jù)庫(kù)開(kāi)發(fā)及工程實(shí)例 人民郵電出版社 2003</p><p>　　7高春艷

120、、李俊民等 Visual Basic工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社2005</p><p>　　8.劉志鵬、王建國(guó)等 數(shù)據(jù)庫(kù)程序設(shè)計(jì)——SQL Server 2000 人民郵電出版社2004</p><p>　　9.劉志銘、高春艷等 Visual Basic數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 2003</p><p>　　10.段興主編.Visual Basic

121、實(shí)用教程100例.北京：人民郵電出版社，2002</p><p>　　11.劉炳文編著.精通Visual Basic 6.0中文版.北京：電子工業(yè)出版社，1999</p><p>　　12.劉鋼，楊崇禮等編著.Visual Basic 6.0程序設(shè)計(jì)實(shí)用教程.北京：中國(guó)民航出版社，2000</p><p>　　13.晶辰工作室編著.Visual Basic 6.0中