VisualBasic程序設計案例驅動型教程 第4篇 Visual Basic數據庫編程實戰(zhàn).ppt

1、Visual Basic數據庫編程實戰(zhàn),案例 科研工作量統(tǒng)計系統(tǒng),案例 科研工作量統(tǒng)計系統(tǒng),需求背景 系統(tǒng)數據庫設計 系統(tǒng)模塊結構 基本信息維護管理模塊 科研項目管理模塊 論文管理模塊 科技著作管理模塊 系統(tǒng)設置模塊,系統(tǒng)的開發(fā)意義： 為減少不必要的重復工作，保證數據錄入準確，更好地統(tǒng)計教師科研工作，以便做到科研工作的統(tǒng)計更加公平、合理、有效，開發(fā)一套適合高校智能化管理的科研工作量統(tǒng)計系統(tǒng)具有重要意義。,需求背景,需求背景,科研工作量的計算方法 科研項目 根據科研項目的等級不同予以計分。,需求背景,科研工作量的計算方法 (2) 學術論文 教職工發(fā)表的二級及以上學術論文，學院給予獎勵。 同一篇論

2、文被多家刊物轉載、收錄，按最高分數計，不重復計分。 論文被中國社會科學文摘論點摘要、新華文摘論點摘編摘錄，加4分，但總分不超過10分。 一篇學術論文以4000字為標準字數，少于4000字的一級論文計5分、二級論文計2分；少于等于3000字的一級論文計4分、二級論文計1.5分；文科類少于等于1500字的一級論文計2分。 合作論文按一定系數分配,需求背景,科研工作量的計算方法 (3) 學術著作 (1) 學術著作注重學術價值，不包括通俗性、普及性（含科普）、知識性出版物，特指具有獨到的、較大學術創(chuàng)新意義的著作。 (2) 學術著作超過30萬字，以30萬字計算。,需求背景,3) 科研工作量的輸出要求 (

3、1) 科研項目,需求背景,3) 科研工作量的輸出要求 (2) 論文,需求背景,3) 科研工作量的輸出要求 (3) 科技著作,系統(tǒng)數據庫設計,根據系統(tǒng)需求分析資料所提供的數據及用戶最終的數據輸出要求，本系統(tǒng)創(chuàng)建一個Access數據庫“ky.mdb” 。,系統(tǒng)數據庫設計,1) 教師表 由于教師的科研統(tǒng)計需要以系部為單位進行匯總，因此教師表主要提供學院所有教師的姓名和系部，其主要結構如下。,系統(tǒng)數據庫設計,2) 科研項目等級表 科研項目的等級及相應的分值由該高?？蒲刑幋_定，且隨著時間而發(fā)生改變。表結構如表4-6所列。,系統(tǒng)數據庫設計,3) 科研項目表 本表主要用于確定教師科研項目的相關數據，其中教師

4、的姓名是從教師表中獲得的，課題等級與分值是從科研項目等級表中獲取的，表結構如下。,系統(tǒng)數據庫設計,4) 論文級別表 教師發(fā)表論文的雜志的等級及分值是由該高校科研處根據相關科研政策而定的，并且隨著時間而改變，該表主要用于確定論文的級別與分值，結構如下。,系統(tǒng)數據庫設計,5) 論文合作表 教師的論文若屬多人合作的，則分值與其排名是密切相關的。本表主要用于確定教師論文合作的排名與系數，表結構如下。,系統(tǒng)數據庫設計,6) 論文刊物表 本表主要用于確定論文刊物的信息，不同的論文刊物其級別不一樣，級別不同的刊物上發(fā)表的論文其計分是有區(qū)別的，表結構如下。,系統(tǒng)數據庫設計,7) 論文轉載表 若論文被不同的刊物

5、轉載，則應給予相應的加分。本表主要用于確定論文轉載刊物及分值，結構如表所示。,系統(tǒng)數據庫設計,8) 教師論文表 本表主要用于存放教師論文的信息。其中教師姓名、系部是從教師表中獲取的，刊物名稱、國內刊號、國際刊號、核定等級的數據均是從論文刊物表中獲取的，論文分值是最終統(tǒng)計得到的，計酬分值是扣減掉三級論文后的分值，表結構如表所示。,系統(tǒng)數據庫設計,9) 著作類別計分表 本表主要用于確定著作類別的信息，不同類別的著作計分標準不同，表結構如表所示。,系統(tǒng)數據庫設計,10) 教師著作表 本表主要用于存放教師著作的綜合信息，其中教師姓名、系部來自教師表，著作類別、分值來自著作類別計分表，表結構如表所示。,

6、系統(tǒng)數據庫設計,11) 用戶表 為了保證系統(tǒng)數據的安全，本系統(tǒng)登錄時需要相應的身份。本表主要用于存放系統(tǒng)的管理員的信息，通過該表可識別用戶登錄時是否合法，表結構如表所示。,系統(tǒng)模塊結構,根據系統(tǒng)需求分析結果，確定科研工作量統(tǒng)計系統(tǒng)功能主要包括科研項目、教師論文、教師著作三方面科研工作的數據錄入、查詢和報表統(tǒng)計處理。此外，為方便管理員進行數據更新，增加了相關科研內容的基本信息維護處理與數據備份等系統(tǒng)設置功能。,系統(tǒng)模塊結構,1) 主界面 系統(tǒng)主要功能界面如圖所示。,系統(tǒng)模塊結構,2) 系統(tǒng)模塊結構 系統(tǒng)的主要模塊結構如圖所示。,系統(tǒng)模塊結構,3) 標準模塊 由于該系統(tǒng)大部分模塊中均使用了數據庫對

7、象、記錄集對象、查詢字符串等，因此該系統(tǒng)添加了一個標準模塊Module1。在此模塊中定義了下列全局變量，如圖所示。,基本信息維護管理模塊,基本信息維護，是指按科研管理處制定的政策（如科研級別分值、論文級別分值、著作記分標準等）進行信息的維護。由于這些信息會隨著時間的移動而經常發(fā)生改變，因此需要經常進行維護操作。在系統(tǒng)設計中，由于這些維護操作基本相似，故這里只介紹教師數據和科研項目等級的維護兩塊內容。,基本信息維護管理模塊,教師數據維護子模塊 (1) 效果圖。 教師數據設置主要用于添加、修改、刪除本院教師的姓名與系部，效果如圖所示。,教師數據維護子模塊,(2) 具體設計要求。 窗體運行初始時，“

8、添加”、“刪除”和“修改”按鈕可用，“確認”和“取消”按鈕不可用。單擊“添加”后，“刪除”和“修改”按鈕不可用，“確認”和“取消”按鈕可用。單擊“刪除”按鈕后彈出相應的提示信息。 選中“確定”按鈕則刪除記錄，否則不刪除記錄。 單擊“修改”按鈕時，姓名和系部所在的文本框可用。,教師數據維護子模塊,(3) 主要代碼。 初始化代碼如圖所示 。,教師數據維護子模塊,(3) 主要代碼。 “添加”按鈕代碼,教師數據維護子模塊,(3) 主要代碼 “刪除”按鈕代碼,教師數據維護子模塊,(3) 主要代碼 “修改”按鈕代碼,教師數據維護子模塊,(3) 主要代碼 “確認”按鈕代碼,基本信息維護管理模塊,2) 科研項

9、目等級設置子模塊 (1) 效果圖。 科研項目等級設置主要用于添加、修改、刪除教師科研項目的等級與計分標準，效果如右圖所示。,科研項目等級設置子模塊,(2) 具體設計要求。 窗體運行初始時，“添加”、“刪除”和“修改”按鈕可用，“確認”和“取消”按鈕不可用。單擊“添加”按鈕后，“刪除”和“修改”按鈕不可用 ，“確認”和“取消”按鈕可用。單擊“刪除”按鈕后彈出提示信息。選中“確定”按鈕則刪除記錄，否則不刪除記錄。 單擊“修改”按鈕時，課題級別和計分所在的文本框可用。,科研項目等級設置子模塊,(3) 主要代碼。 初始化代碼如圖所示。,科研項目等級設置子模塊,(3) 主要代碼。 “添加”按鈕代碼,科研

10、項目等級設置子模塊,(3) 主要代碼。 “刪除”按鈕代碼,科研項目等級設置子模塊,(3) 主要代碼。 “修改”按鈕代碼,科研項目等級設置子模塊,(3) 主要代碼。 “確認”按鈕代碼,科研項目管理模塊,教師科研項目，主要是指教師每學年所主持承擔的課題研究工作，包括學院級、市廳級、省部級、教育部級、國家級等各種級別的課題。科研項目管理模塊主要包括科研項目的數據錄入、科研項目數據查詢和科研項目報表三大模塊?？蒲许椖繑祿浫胫饕獙崿F：管理員錄入教師科研項目數據時，可自動選擇教師姓名、系部、課題等級、分值等，只需輸入科研項目名稱、項目編號、立項時間等少數信息?？蒲许椖繑祿樵冎饕獙崿F：管理員可按教師姓名

11、、系部、科研項目名稱、科研項目編號進行科研項目的查詢?？蒲许椖繄蟊碇饕菍⒔處煹目蒲许椖堪凑樟㈨棔r間分為上半年和下半年分別導入到Excel文件中，并且按照系部進行了科研項目匯總，以便讓用戶通過Excel打印輸出所需的科研項目統(tǒng)計表格。,科研項目管理模塊,科研項目數據錄入子模塊 (1) 效果圖。 根據科研項目輸出表格的要求，科研項目數據錄入情況如圖所示。,科研項目數據錄入子模塊,(2) 具體設計要求。 “添加”按鈕：將教師姓名和科研項目等級添加到姓名和核定等級處；教師姓名來自教師表，教師姓名確定后自動顯示相應的系部名；科研項目的等級來自科研等級表，等級確定后自動顯示相應的分值。 “保存”按鈕：當

12、管理員輸入所有科研項目數據信息后將其保存到科研項目表中，若數據不完整則提示管理員。 “取消”按鈕：進行重新輸入，將教師姓名、項目名稱、項目編號和審批部門等數據清空。,科研項目數據錄入子模塊,(3) 界面設置。 該模塊程序的界面關鍵控件設置如圖所示。,科研項目數據錄入子模塊,(4) 主要代碼。 “添加”按鈕代碼,科研項目數據錄入子模塊,(4) 主要代碼。 確定教師系部代碼,科研項目數據錄入子模塊,(4) 主要代碼。 確定相應等級的科研項目的分值,科研項目數據錄入子模塊,(4) 主要代碼。 “保存”按鈕代碼,科研項目管理模塊,2) 科研項目查詢子模塊 (1) 效果圖。 科研項目查詢分為按教師姓名、

13、系部查詢和科研項目名稱、編號的查詢。其中，按教師信息的查詢是一種公共的查詢方式，界面如圖所示。,科研項目查詢子模塊,(2) 具體設計要求。 查詢方式主要以教師的系部和姓名、科研項目的名稱和編號為依據進行查詢。當選擇按教師系部或姓名查詢時，可自動顯示學院的系部名稱或在職教師姓名；當選擇按科研項目名稱或項目編號查詢時，可自動列出所有項目的名稱或編號。單擊“取消”按鈕時，則將查詢方式和查詢條件值清空。單擊“修改”按鈕時，則可修改表格中的數據。單擊“刪除”按鈕時，可刪除當前記錄行。,科研項目查詢子模塊,(3) 界面設置。 該模塊程序的界面關鍵控件設置，如圖所示。,科研項目查詢子模塊,(4) 主要代碼。

14、 確定相應的查詢值代碼,科研項目查詢子模塊,(4) 主要代碼。 “查詢”按鈕代碼,科研項目查詢子模塊,(4) 主要代碼。 “修改”按鈕設置 “刪除”按鈕設置,科研項目管理模塊,3) 科研項目報表子模塊 (1) 報表制作方法。 利用數據環(huán)境設計器(Data Environment Designer)與數據報表設計器(Data Report Designer) 兩個工具來設計。這是Visual Basic中最常規(guī)的報表制作方法。 使用第三方產品來完成并通過ActiveX控件輸出。可以從網絡上下載如水晶報表、ActiveReport、VideoSoft VsGrid等工具設計報表。 利用Excel對

15、象將數據庫導出到Excel工作簿。,科研項目報表子模塊,(2) Excel對象。 Application對象。Application對象處于Excel對象層次結構的頂層，表示Excel自身的運行應用程序。 Workbook對象。Workbook對象處于Application對象的下層，表示一個Excel工作簿文件。 Worksheet對象。Worksheet對象包含于Workbook對象，表示一個Excel工作表。 Cells對象。Cells對象包含于Worksheet對象，表示Excel工作表中的一個單元格。,科研項目報表子模塊,(3) VB創(chuàng)建Excel報表流程。 用VB創(chuàng)建Excel對象

16、。每個Microsoft Office應用程序提供了一個頂層Application對象，Excel應用程序提供了一個Excel對象。Visual Basic中使用該對象前需引用相應的對象庫才能使用它。Visual Basic中引用Excel對象庫的步驟是：選擇菜單“工程”“引用”后，選中“Microsoft Excel 9.0 Object Library”，單擊“確定”按鈕即可。,科研項目報表子模塊,(3) VB創(chuàng)建Excel報表流程。 引用完成后，可對Microsoft Excel的 Application 對象進行引用，即定義相應的Excel對象變量，代碼如圖所示。,科研項目報表子模塊,

17、(3) VB創(chuàng)建Excel報表流程。 創(chuàng)建了工作簿、工作表對象變量后，可以用這些變量來訪問在Excel應用程序中的從屬對象，以及這些對象的屬性和方法，代碼如圖所示。,科研項目報表子模塊,(3) VB創(chuàng)建Excel報表流程。 生成工作表內容。生成了Excel工作表文件后，再對工作表中的單元格進行格式設置和賦值，就可完成報表的制作了。,科研項目報表子模塊,(3) VB創(chuàng)建Excel報表流程。 生成工作表內容。,科研項目報表子模塊,(3) VB創(chuàng)建Excel報表流程。 生成工作表內容。,論文管理模塊,論文主要包括教師發(fā)表在國家規(guī)定的一級、二級和三級期刊和學院自定的一些級別的刊物上的論文。論文管理主要

18、包括教師論文相關數據的錄入、論文數據查詢和論文報表三大模塊。論文數據錄入模塊實現：管理員可自動選擇教師姓名、系部、論文字數、期次、發(fā)表的刊物的名稱、級別及分值、論文轉載刊物信息等。論文數據查詢是指可按照教師姓名、系部、論文名稱、刊物名稱等方式進行論文查詢。論文報表主要是將教師的論文按照發(fā)表時間，分為上半年和下半年分別導入到Excel文件中，并按照系部進行論文匯總，以便通過Excel輸出論文統(tǒng)計表格。,論文管理模塊,1) 論文數據錄入子模塊 效果圖。 論文數據錄入主要包括論文基本信息，論文基本信息如圖所示。,論文數據錄入子模塊,（1）效果圖。 論文刊物信息如圖所示。,論文數據錄入子模塊,（1）效

19、果圖。 論文轉載或收錄情況如圖所示。,論文數據錄入子模塊,(2) 具體設計要求。 教師姓名與系部是自動從教師表中取出的，論文發(fā)表的刊物雜志的信息是由刊物表提供的，論文作者的排序是由作者排序表提供的，論文轉載是由轉載表提供的。,論文數據錄入子模塊,(3) 界面設置。 該模塊程序的界面關鍵控件設置如圖所示。,論文數據錄入子模塊,(4) 主要代碼。 模塊變量定義： Dim str1 As String Dim jh As Integer Dim jbf As single論文基本分 Dim jczf As Single計酬總分,論文數據錄入子模塊,(4) 主要代碼。 “添加”按鈕主要功能是將本院所有

20、教師的姓名添加到姓名組合框Cmb_xm中，代碼如圖所示。,論文數據錄入子模塊,(4) 主要代碼。 教師對應系部的確定,論文數據錄入子模塊,(4) 主要代碼。 不同字數論文的分值標記 。,論文數據錄入子模塊,(4) 主要代碼。 論文刊物名稱裝載。,論文數據錄入子模塊,(4) 主要代碼。 論文刊物的等級與分值錄入 。,論文數據錄入子模塊,(4) 主要代碼。 論文多作者的人數錄入。,論文數據錄入子模塊,(4) 主要代碼。 論文多作者排序設置 。,論文數據錄入子模塊,(4) 主要代碼。 論文多作者排序系數的設置。,論文數據錄入子模塊,(4) 主要代碼。 論文轉載刊物的設置。,論文數據錄入子模塊,(4)

21、 主要代碼。 論文轉載分值的確定 。,論文數據錄入子模塊,(4) 主要代碼。 論文分值統(tǒng)計 。,論文數據錄入子模塊,(4) 主要代碼。 “保存”代碼 。,論文管理模塊,2) 論文查詢子模塊 (1) 效果圖。 論文的查詢分為按教師信息查詢和論文信息查詢兩種方式，效果如圖所示。,論文查詢子模塊,(2) 具體設計要求。 選擇不同的查詢方式后，可自動列出相應的值供選擇進行查詢。按系部查詢時，可列出本院現有系部名稱；選擇姓名時，可列出本院現有教師姓名；選擇論文題目時，可列出教師發(fā)表的論文題目；選擇刊物名稱時，可列出教師發(fā)表的論文的刊物。,論文查詢子模塊,(3) 主要代碼。 按教師信息進行查詢設置的代碼與

22、科研項目中的代碼相同。 按論文題目和刊物名稱進行查詢設置的代碼如圖所示，將此段代碼添加到課題查詢代碼之后即可。,提示：提示：當單擊主界面中的“科研論文”下的“論文查詢”時，需要設置查詢字符串的初始值：strsjcx = select * from lw: strcnt = select count(*) from lw,論文管理模塊,3) 論文報表子模塊 論文報表的生成步驟與科研項目報表的生成步驟相同 ， 主要代碼如圖。,科技著作管理模塊,科技著作，是指教師獨立或者與他人合作所編寫的教材、專著等?？萍贾鞯墓芾碇饕萍贾鞯臄祿浫?、科技著作數據查詢和科技著作報表三大模塊?？萍贾鲾祿浫?/p>

23、主要實現：管理員可自動選擇教師姓名、系部、著作類別、計分標準，可自動計算著作的分值等?？萍贾鲾祿樵兡K實現：管理員可選擇按教師姓名、系部、著作名稱、類別等方式進行著作查詢?？萍贾鲌蟊砟K可將教師的著作分為上半年和下半年兩期著作導入到Excel文件中，并按照教師系部進行著作的匯總，以便通過Excel輸出教師科技著作統(tǒng)計表格。,科技著作管理模塊,1) 著作數據錄入子模塊 (1) 效果圖。 教師的著作數據主要涉及到教師姓名和所在系部、著作的名稱、類別、字數、計分標準等相關信息，其數據錄入的界面如圖所示。,著作數據錄入子模塊,(2) 具體設計要求。 著作數據錄入時，著作作者來自本院教師，著作類別

24、計分標準均由管理員設置好后自動導入。,著作數據錄入子模塊,(3) 界面設置。 該模塊程序的界面關鍵控件設置如圖所示。,著作數據錄入子模塊,(4) 主要代碼。 著作類別載入代碼,著作數據錄入子模塊,(4) 主要代碼。 著作的計分標準設置,著作數據錄入子模塊,(4) 主要代碼。 著作的最終分值計算,著作數據錄入子模塊,(4) 主要代碼。 “添加”按鈕代碼。,著作數據錄入子模塊,(4) 主要代碼。 保存著作數據。,科技著作管理模塊,2) 著作查詢子模塊 (1) 效果圖。 著作查詢除了全部、姓名、系部3種查詢方式外，還分為按著作作者信息查詢和著作名稱與類別查詢兩種查詢方式，如圖所示。,著作查詢子模塊,

25、(2) 具體設計要求。 按著作作者查詢時，作者姓名來自本院教師姓名；按著作信息查詢時，著作名稱、類別自動從教師著作表中獲取。,著作查詢子模塊,(3) 主要代碼。 按著作名稱和著作類別進行查詢設置，如圖所示。將該段代碼添加到課題查詢代碼的查詢方式之后即可。,提示：提示：當單擊主界面中的“科技著作”下的“著作查詢”時，需要設置查詢字符串的初始值：strsjcx = select * from jczz: strcnt = select count(*) from jczz,科技著作管理模塊,3) 著作報表子模塊 著作報表的生成步驟與科研項目報表的生成步驟相同 ，主要代碼如下。,系統(tǒng)設置模塊,系統(tǒng)設

26、置是指系統(tǒng)所提供的系統(tǒng)輔助功能，如系統(tǒng)初始化、數據備份、數據導入、用戶身份設置等。本系統(tǒng)設置模塊包括用戶管理、系統(tǒng)初始化和數據備份等模塊。用戶管理模塊主要是添加刪除和修改系統(tǒng)的使用用戶；系統(tǒng)初始化模塊主要是將系統(tǒng)中教師的科研項目表、論文表和著作表中的數據清空，以便重新錄入新的學年的科研數據；數據備份是將已經錄入成功的科研數據備份到磁盤中，以防止數據丟失。,系統(tǒng)設置模塊,1) 用戶管理設置子模塊 (1) 效果圖。 用戶管理主要用于設置系統(tǒng)管理員的信息，包括用戶名稱、密碼與身份，效果如圖所示。,用戶管理設置子模塊,(2) 具體設計要求。 窗體運行初始時，“添加”、“刪除”、“修改”按鈕可用，“確認

27、”、“取消”按鈕不可用。單擊“添加”按鈕后，“刪除”、“修改”按鈕不可用 ，“確認”、“取消”按鈕可用。單擊“刪除”按鈕后彈出相應的提示信息。單擊“確定”按鈕，則刪除記錄，否則不刪除記錄。 單擊“修改”按鈕時，用戶名、口令和身份所在的控件可用。,用戶管理設置子模塊,(3) 主要代碼。 初始化代碼,用戶管理設置子模塊,(3) 主要代碼。 “添加”按鈕代碼,用戶管理設置子模塊,(3) 主要代碼。 “刪除”按鈕代碼,用戶管理設置子模塊,(3) 主要代碼。 “修改”按鈕代碼,用戶管理設置子模塊,(3) 主要代碼。 “確認”按鈕代碼,系統(tǒng)設置模塊,2) 初始化設置子模塊 本模塊主要用于清空科研項目表、論文表和科技著作表中的數據，其主要代碼如圖所示。,系統(tǒng)設置模塊,3) 數據備份子模塊 本模塊主要是將已經錄入的科研項目、論文和著作等數據的數據庫復制到磁盤上備份，以防數據丟失。主要代碼如圖所示。,實訓練習,(1) 設計并運行調試科研項目數據錄入模塊。 (2) 設計并運行調試科研項目