【導(dǎo)讀】針對學(xué)校的實(shí)際需要，分析了科教研管理系統(tǒng)的功能，并以科研教研資料的查。統(tǒng)經(jīng)過測試，達(dá)到了科研教研信息管理系統(tǒng)的基本要求。

　　

【正文】 （ 3） 點(diǎn)擊相關(guān)按鈕編寫代碼，實(shí)現(xiàn)功能。 5 其他 程序處理 用 EXCEL 保存文件 在 Visual 中使用 excel 連接功能 ，需要做一些準(zhǔn)備： （ 1） 工程菜單中選擇引用，添加 excel 圖書館相關(guān)組件，如圖 19所示： 圖 19 庫文件的引入 22 （ 2） 在窗體里面添加相應(yīng)的按鈕控件。 （ 3） 點(diǎn)擊保存按鈕編寫代碼 ： Dim i As Integer, r As Integer, c As Integer Dim newxls As Dim newbook As Dim newsheet As Set newxls = CreateObject() 39。創(chuàng)建 excel 應(yīng)用程序 ,打開excel2021 Set newbook = 39。創(chuàng)建工作簿 Set newsheet = (1) 39。創(chuàng)建工作表 If SQL Then = SQL End If If 0 Then For i = 0 To 1 (1, i + 1) = (i).Caption Next i 39。指定表格內(nèi)容 Do Until r = For c = 0 To 1 = c (r + 1, c + 1) = (c) Next c 23 Loop End If With CommonDialog1 .InitDir = 39。將 CommonDialog1 打開時(shí)初始路徑設(shè)為當(dāng)前程序路徑 .Filter = 數(shù)據(jù)文件 |*.xls 39。設(shè)置其過濾屬性為 xls 文件，就是只顯示該文件夾內(nèi)xls 文件 .CancelError = True 39。如果點(diǎn)了取消鍵，不用報(bào)錯，直 接跳過 End With On Error GoTo ErrSave 39。彈出保存對話框 If Then MsgBox Excel 文件保存成功，位置： amp。 amp。 , , 提示窗口 Else MsgBox , , 提 示窗口 End If Set newsheet = Nothing Set newbook = Nothing Set newxls = Nothing ErrSave: 24 Exit Sub 打印 程序 處理 VB 的打印主要有 3 種方法： Printer 對象 、報(bào)表、連接 excel 打印。對比 3 種方法，后兩種的效果較好，所以本人選擇了后兩種。 報(bào)表實(shí)現(xiàn)起來也很簡單。使用 DataReport 控件， 在 DataReport 中設(shè)計(jì)好報(bào)表的各個字段名 ，然后再 通過動態(tài)綁定 DataReport 的 DataSource 到數(shù)據(jù)庫的映像，就可以 調(diào)用 DataReport 的打印功能 ， 實(shí)現(xiàn)對所需數(shù)據(jù)的打印 了。 25 6 結(jié)語 本系統(tǒng)是一個面向 學(xué)?？平萄?管理的 ，具有一定實(shí)用性的數(shù)據(jù)庫信息管理系統(tǒng)。它主要完成對 科教研信息 的一系列管理，包括 科研、教研、管理員等 信息 的 管理。本系統(tǒng)采用面向?qū)ο蟮拈_發(fā)工具 Visual 來完成整個系統(tǒng)的設(shè)計(jì)，在數(shù)據(jù)庫的設(shè)計(jì)上利用了 SQL 的便利性和實(shí)用性。 通過本次設(shè)計(jì)，我學(xué) 不僅會了許多專業(yè)知識，還 悟出 了很多 書本沒有的知識 。 通過書本、網(wǎng)上、同學(xué)交流， 我學(xué) 會 了 VB 的編程技術(shù)，基本上掌握 VB 一些 實(shí)用 技術(shù)，也 能很好的運(yùn)用到 本次設(shè)計(jì) 中去，可以說是 學(xué)以至用 ，自學(xué)的能力也得到了提高 。 在開發(fā)過程 中 積累了很多的編程經(jīng)驗(yàn)。 尤其在實(shí)現(xiàn)打印、保存功能時(shí)，由于對此一竅不通，一開始遇到了很多問題，后來通過網(wǎng)上查閱，在網(wǎng)上找到了很多辦法和代碼，但是直接使用那些代碼時(shí)，錯誤連連發(fā)生 ，使我走了許多彎路 ，在請教同學(xué)時(shí)才發(fā)現(xiàn)，有些代碼是要作修改才能用，有些則是本來就有誤， 最后在同學(xué)的幫助下總算完成了該功能，從中 獲益良多，不僅僅學(xué)會了很多 vb 的相關(guān)知識，也使我明白到，網(wǎng)上的東西只能作為參考，不能盡信，想偷懶，想直接套用別人勞動成果是不對的。 雖然系統(tǒng)的功能基本完成，但是離我最初預(yù)想還是有一定距離，我覺得最遺憾的就是沒有實(shí)現(xiàn) C/S 或 B/S 的模式，這失敗的原因不僅僅是我學(xué)藝不精，這與我一開始就選用 VB 編程語言也有關(guān)，后來用到才知道 VB 實(shí)現(xiàn) C/S 或 B/S 是比較困難的，很多人都問我為什么不選用 ASP、 .NET 等，可惜現(xiàn)在已經(jīng)無法換回了 ，這次 畢業(yè)設(shè)計(jì)使我明白 ，編程和做其他事一樣，一開始就要，再加上努力，這樣才有成效，才能成功 。吸取這次經(jīng)驗(yàn)教訓(xùn)，在今后人生道路中，我一定會認(rèn)準(zhǔn)目標(biāo)，選對方法不斷努力 。 26 參 考 文 獻(xiàn) [1]薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 .第三版 . [M].高等教育出版社 ,2021 [2]劉曉華 .SQL Server 2021數(shù)據(jù)庫應(yīng)用開發(fā) . [M].電子工業(yè)出版社 , 2021 [3]張勇 .Visual Basic 課程設(shè)計(jì)案例精編 . [M].中國水利水電出版社 , 2021 [4]EVangelos Petroutsos,Kevin Basic6 高級開發(fā)指南 . [M].電子工業(yè)出版社 ,1999. [5]唐大仕 .visual basic 程序設(shè)計(jì) . [M]. 機(jī)械工業(yè)出版社 ,2021 ,02. [6] 鄭人杰 ,殷人昆 ,陶永雷 .實(shí)用軟件工程 .[M]. 清華大學(xué)出版社 ,2021,10. [7] 葉小平 .數(shù)據(jù)庫系統(tǒng)基礎(chǔ)教程 .[M]. 清華大學(xué)出版社 . 2021,03 [8]張鑫燕 .SQL Server 2021程序設(shè)計(jì) .[M]. 科學(xué)出版社 . . [9]Thearon Willis, Jonathan Crossland, Richard 2021.[M].Wrox（出版社） .202104,03 [10]李曉黎 ,張巍 .Visual Basic + SQL Server 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)與實(shí)例 .[M].人民郵電出版社 ,2021,08. [11]張春葆 .VB 數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)與開發(fā) .[M].清華大學(xué)出版社 , 2021,08 [12]李玉林 .Visual Basic 畢業(yè)設(shè)計(jì)指南與項(xiàng)目實(shí)踐 .[M]. 科學(xué)出版社 ,2021,04. [13]黃明 ,梁旭 .畢業(yè)設(shè)計(jì)指導(dǎo)及案例剖析 .[M]. 機(jī)械工業(yè)出版 社 , 2021. [14]李玉琳 .Visual Basic 畢業(yè)設(shè)計(jì)指南與項(xiàng)目 實(shí)踐 .[M]. 科學(xué)出版社 , 2021. [15] basic 中文版控件大全 .[M].電子工業(yè)出版社 ,2021. 27 Scientific tearching research Management Information System Zhang lian (College of Computer Science and Engineering ,Zhongkai University of Agricultural and Engineering,Guangzhou 510225,China) Abstract： This system is a management software which is for school research and tearching on Bank Managing management system uses Microsoft Visual as a tool for future development,and uses SQL Server2021 as the background the actual needs of schools,the article analysis the functions of teaching and research management system,and focus on query on information science teaching and research . The following describes the module structure of the two subsystems design and the implementation techniques in the process .The management system achives some functions such as the research data management , query management and user the VB programming interface to achieve the Visualization system has been tested , and it achieves the basic requirements for teaching and research management system. Keywords:Teaching and research in Information Management。 informationise。 system development