學生信息查詢 數(shù)據(jù)庫課程設(shè)計_第1頁
學生信息查詢 數(shù)據(jù)庫課程設(shè)計_第2頁
學生信息查詢 數(shù)據(jù)庫課程設(shè)計_第3頁
學生信息查詢 數(shù)據(jù)庫課程設(shè)計_第4頁
學生信息查詢 數(shù)據(jù)庫課程設(shè)計_第5頁
已閱讀5頁,還剩18頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)

文檔簡介

1、數(shù)據(jù)庫原理與應(yīng)用課程設(shè)計(論文)學生信息查詢系統(tǒng)設(shè)計與實現(xiàn) 院(系)名稱 專業(yè)班級 學號 學生姓名 指導(dǎo)教師起 止 時 間: 2015.7.62015.7.17課程設(shè)計(論文)任務(wù)及評語院(系):電子與信息工程學院 教研室:學 號學生姓名專業(yè)班級課程設(shè)計(論文)題目學生信息查詢系統(tǒng)課程設(shè)計(論文)任務(wù)任務(wù)要求:學生信息查詢系統(tǒng)實現(xiàn)以下幾個功能模塊:按學號查詢學生信息及成績模塊、按姓名查詢學生信息及成績模塊、查詢所有學生信息及成績模塊。按學號查詢學生信息及成績模塊能夠根據(jù)學號,查詢該學生信息及成績;按姓名查詢信息及成績模塊能夠根據(jù)姓名,查詢該學生信息;查詢所有學生信息及成績模塊能夠直接查看所有學

2、生信息及成績。技術(shù)要求:1、用ER圖的設(shè)計方法設(shè)計數(shù)據(jù)庫,采用SQLserver2005作為數(shù)據(jù)庫工具。2、數(shù)據(jù)庫設(shè)計范式要達到3NF。3、數(shù)據(jù)庫連接采用ADO技術(shù)/采用代碼直接連接。4、軟件能正常運行。軟件界面要友好、操作要簡單。5、采用Vsiual Basic編寫代碼,不少于 200行。指導(dǎo)教師評語及成績平時成績: 答辯成績: 論文成績: 總成績: 指導(dǎo)教師簽字: 年 月 日注:平時成績占20%,答辯成績占40%,論文成績占40%。本科生課程設(shè)計(論文)摘 要隨著學校學生的增多,信息技術(shù)的發(fā)展,以前的學生信息的記錄方式已經(jīng)滿足不了需求,紙質(zhì)的記錄方式在老師查詢學生信息的時候,使得老師的工作

3、量不僅大而且繁瑣。計算機管理技術(shù)的發(fā)展恰恰解決了這個問題,它使計算機技術(shù)與現(xiàn)代管理技術(shù)相配合,以便更準確的完成學生信息管理工作。系統(tǒng)的開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。本系統(tǒng)使用SQL Server 2008 建立數(shù)據(jù)庫后臺,使用Visual Basic進行前臺界面和處理程序的開發(fā),前者建立成數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的數(shù)據(jù)庫,而后者具有應(yīng)用程序功能完備,易使用等特點。學生信息查詢系統(tǒng)是通過在visual Basic里對學生信息進行按學號查詢、按姓名查詢和查詢所有學生信息及學生成績,以實現(xiàn)查詢學生信息及成績的功能。關(guān)鍵詞:學生信息;查詢;SQL Serv

4、er 2008;Visual Basic 目 錄第1章 緒論11.1研究背景11.2開發(fā)意義1第2章 系統(tǒng)需求分析22.1開發(fā)環(huán)境和軟件22.2 Visual Basic22.3 SQL server數(shù)據(jù)庫32.4系統(tǒng)功能分析3第3章 系統(tǒng)設(shè)計43.1系統(tǒng)功能結(jié)構(gòu)設(shè)計43.2數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計43.3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計63.4 SQL實現(xiàn)6第4章 系統(tǒng)實現(xiàn)84.1用戶登錄界面84.2主要功能界面84.2.1功能界面84.2.2學生信息查詢界面94.2.3學生成績查詢界面10第5章 課設(shè)總結(jié)13參考文獻14附 錄15II第1章 緒論1.1研究背景學生信息查詢系統(tǒng)是學校管理的重要工具,是學校不可或

5、缺的部分。 隨著在校大學生人數(shù)的不斷增加,教務(wù)系統(tǒng)的數(shù)量也不斷的上漲,。學校工作繁雜、資料眾多,人工管理信息的難度也越來越大,顯然是不能滿足實際的需要,效率也是很低的。并且這種傳統(tǒng)的方式存在著很多的弊端,如:信息的保密性差、查詢不便、老師的工作效率低等。然而,本系統(tǒng)針對以上缺點能夠極大地提高學生信息查詢的效率,也是科學化、正規(guī)化的查詢。學生信息的管理是一個比較繁瑣的事情,很多時候老師在希望找到某個學生的具體信息時不能快速的查到,需要很久才能找到,而這個查詢系統(tǒng)可以解決這一問題,使得老師可以準確、快速的查到指定學號、指定姓名的學生,可以查詢指定學號的學生的成績,指定姓名的學生的成績以及所有的學生

6、的考試成績,也可以在表中對數(shù)據(jù)庫的信息進行修改,插入和刪除功能,大大的提高老師的工作效率,節(jié)省很多的時間。1.2開發(fā)意義隨著這些年電腦計算機的速度質(zhì)的提高,成本的下降,IT互聯(lián)網(wǎng)大眾趨勢的發(fā)展。我們使用電腦的高效率才處理數(shù)據(jù)信息成為可能。而簡單的系統(tǒng)開發(fā)也比較容易,實現(xiàn)幾個簡單的功能已不是難事。學生學籍管理系統(tǒng)的出現(xiàn),正是管理人員與信息數(shù)據(jù),計算機的進入互動時代的體現(xiàn)。隨著信息技術(shù)的發(fā)展,友好的人機交互模式,清晰簡明的圖形界面,細小但卻精巧的功能,高效安全的操作使得我們對成千上萬的信息的管理得心應(yīng)手。通過這個系統(tǒng),可以做到信息的規(guī)范管理,科學統(tǒng)計和快速的查詢,從而減少管理方面的工作量毋庸置疑,

7、切實有效地把計算機管理引入學校教務(wù)管理中,既有利于計算機系統(tǒng)的推廣,本系統(tǒng)可以實現(xiàn)的查詢功能就是利用系統(tǒng)開發(fā)的技術(shù),利用開發(fā)前臺程序與數(shù)據(jù)庫相連接,從而實現(xiàn)對數(shù)據(jù)庫內(nèi)學生信息以及學生成績信息的插入、刪除、修改與查詢,使得老師可以準確、快速的查到指定學號、指定姓名的學生信息以及學生成績,也可以在表中對數(shù)據(jù)庫的信息進行修改,插入和刪除功能使得學生的信息管理更為方便,也對于促進學校管理制度,提高學校教學質(zhì)量與辦學水平有著顯著意義第2章 系統(tǒng)需求分析2.1開發(fā)環(huán)境和軟件(1) 操作系統(tǒng):Windows 7 (2) 數(shù)據(jù)庫軟件:SQL Server 2008 (3) 開發(fā)工具:VB 6.02.2 Vis

8、ual BasicVisual Basic是一種由 Microsoft 公司開發(fā)的結(jié)構(gòu)化的、模塊化的、面向?qū)ο蟮?、包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動為機制的可視化程序設(shè)計語言。從任何標準來說,VB都是世界上使用人數(shù)最多的語言不管是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程語言。VB擁有圖形用戶界面(GUI)和快速應(yīng)用程序開發(fā)(RAD)系統(tǒng),可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫,或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應(yīng)用程序。Visual是指開發(fā)用戶界面(GUI)的方法。Visual 的意思是“視覺的”或“可視的”,也就是直觀的

9、編程方法。在VB 中引入了控件的概念,VB將其模式化,并且每個控件都有若干屬性來控制其外觀和方法。Basic 是指BASIC(Beginner's All-purpose Symbolic Instruction Code)語言,VB以BASIC語言作為代碼,專業(yè)人員可以用VB實現(xiàn)其他任何Windows 編程語言的功能,初學者只要掌握幾個關(guān)鍵字就可以建立實用的應(yīng)用程序。VB是從BASIC發(fā)展而來的,對于開發(fā)Windows應(yīng)用程序而言,VB具有目前開發(fā)所有語言中最簡單的、最容易使用的語言。作為程序設(shè)計語言,VB程序設(shè)計具有以下特點:(1)可視化的設(shè)計平臺:VB提供可視化設(shè)計平臺,把Win

10、dows界面設(shè)計的復(fù)雜性“封裝起來”,并且可以自動生成大量程序代碼。(2)面向?qū)ο蟮脑O(shè)計方法:VB采用面向?qū)ο蟮木幊谭椒ǎ∣OP),把程序和數(shù)據(jù)封裝起來作為一個對象,并且賦予相應(yīng)的屬性。(3)事件驅(qū)動的編程機制:VB通過事件執(zhí)行對象的操作,在設(shè)計應(yīng)用程序時,不必獎勵具有明顯開始和結(jié)束的程序,而是編寫若干個微小的子程序,及過程。(4)結(jié)構(gòu)化的設(shè)計語言:VB是在結(jié)構(gòu)化的BASIC語言基礎(chǔ)上發(fā)展起來的,加上了面向?qū)ο蟮脑O(shè)計方法,因此是更具有結(jié)構(gòu)化的程序設(shè)計語言。(5)充分利用Windows資源:VB提供的動態(tài)數(shù)據(jù)交換(DDE)編程技術(shù),可以在應(yīng)用程序中實現(xiàn)與其它Windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換

11、、在不同的應(yīng)用程序之間進行通信的功能。VB提供的對象鏈接與嵌入(OLE)技術(shù)則是將每個應(yīng)用程序都看作一個對象,將不同的對象鏈接起來,嵌入到某個應(yīng)用程序中,從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式文件。(6)開放的數(shù)據(jù)庫功能與網(wǎng)絡(luò)支持:VB具有很強的數(shù)據(jù)庫管理功能。不僅可以管理MS Access 格式的數(shù)據(jù)庫,還能訪問其他外部數(shù)據(jù)庫,如FoxPro、Paradox 等格式的數(shù)據(jù)庫。另外,VB還提供了開放式數(shù)據(jù)連接(ODBC)功能,可以通過直接訪問或建立連接的方式使用并操作后臺大量網(wǎng)絡(luò)數(shù)據(jù)庫,如SOL Server、Oracle等。2.3 SQL server數(shù)據(jù)庫數(shù)據(jù)庫技術(shù)

12、是計算機軟件的一個重要分支,它產(chǎn)生于20世紀60年代,最早是由IBM公司推出的IMS數(shù)據(jù)庫系統(tǒng)。數(shù)據(jù)庫技術(shù)從開始到現(xiàn)在大致經(jīng)歷了三個階段,分別是:人工管理階段、文件管理階段和數(shù)據(jù)庫管理階段。SQL Server 是Microsoft 公司推出的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)。具有使用方便可伸縮性好與相關(guān)軟件集成程度高等優(yōu)點,可跨越從運行Microsoft Windows 98 的膝上型電腦到運行Microsoft Windows 2012 的大型多處理器的服務(wù)器等多種平臺使用。Microsoft SQL Server 是一個全面的數(shù)據(jù)庫平臺,使用集成的商業(yè)智能 (BI)工具提供了企業(yè)級的數(shù)據(jù)管理。Mic

13、rosoft SQL Server 數(shù)據(jù)庫引擎為關(guān)系型數(shù)據(jù)和結(jié)構(gòu)化數(shù)據(jù)提供了更安全可靠的存儲功能,使您可以構(gòu)建和管理用于業(yè)務(wù)的高可用和高性能的數(shù)據(jù)應(yīng)用程序。Microsoft SQL Server 2008是一個重大的產(chǎn)品版本,它推出了許多新的特性和關(guān)鍵的改進,使得它成為至今為止的最強大和最全面的Microsoft SQL Server版本。微軟的這個數(shù)據(jù)平臺滿足這些數(shù)據(jù)爆炸和下一代數(shù)據(jù)驅(qū)動應(yīng)用程序的需求,支持數(shù)據(jù)平臺愿景:關(guān)鍵任務(wù)企業(yè)數(shù)據(jù)平臺、動態(tài)開發(fā)、關(guān)系數(shù)據(jù)和商業(yè)智能。2.4系統(tǒng)功能分析 學生信息查詢系統(tǒng),可用于學校等機構(gòu)的學生信息查詢,使用方便,易用性強,圖形界面清晰明了。該軟件用VB

14、語言編寫,用SQLServer2008數(shù)據(jù)庫作為后臺的數(shù)據(jù)庫進行信息的存儲,用SQL語句完成學生學籍信息的添加,查詢,修改,刪除的操作以及成績的錄入,修改,刪除等。該系統(tǒng)實現(xiàn)的大致功能:(1)按學號對學生信息進行精確查詢; (2)按姓名對學生信息進行精確查詢;(3)查詢所有學生信息。 第3章 系統(tǒng)設(shè)計3.1系統(tǒng)功能結(jié)構(gòu)設(shè)計學生信息查詢學生信息學生成績退出按學號查詢按姓名查詢查詢所有返 回按學號查詢按姓名查詢查詢所有返 回圖3.1 系統(tǒng)功能流程圖該圖為學生信息查詢系統(tǒng)的結(jié)構(gòu)圖,由登錄界面可進入主界面,在主界面內(nèi)可選擇學生信息查詢、學生成績查詢或者退出,在學生信息查詢界面內(nèi)可進行按學號查詢、按姓名

15、查詢和查詢所有學生信息,返回功能可以返回到主界面,學生成績查詢界面功能與之類似,可查詢成績信息。3.2數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 學生信息E-R圖:學生信息姓名性別年齡專業(yè)年級學號圖3.2學生信息E-R圖此圖為數(shù)據(jù)庫設(shè)計的學生信息E-R圖,實體為學生信息,共10個屬性,學號為主鍵,所有屬性都不能為空值。學生信息E-R圖:成績學號姓名課程分數(shù)圖3.3學生成績E-R圖此圖為數(shù)據(jù)庫設(shè)計的學生成績E-R圖,實體為成績,共4個屬性,學號為主鍵,所有屬性都不能為空值,此E-R圖可以查詢數(shù)據(jù)庫中的儲存的學生成績信息。數(shù)據(jù)庫E-R圖:學生信息姓名性別年齡專業(yè)年級學號成績學號姓名課程分數(shù)學生_成績11圖3.4數(shù)據(jù)庫概念

16、結(jié)構(gòu)圖此圖為數(shù)據(jù)庫設(shè)計的E-R圖,實體為學生信息與學生成績,共10個屬性,表學生信息中有6個屬性,為該系統(tǒng)要查詢的學生信息,表學生成績中有四個屬性,為該系統(tǒng)要查詢到學生成績信息。3.3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計表3.3 學生信息表字段名稱數(shù)據(jù)類型NULL鍵字段描述學號Char(10)非空PK學生學號姓名Char(10)非空學生姓名性別Char(4)非空學生性別年齡Int非空學生年齡專業(yè)Char(20)非空學生所學的專業(yè)年級Char(10)非空學生所在的年級學號即學生學號,是用于標識學生的唯一編號,該編號不允許為空,為該表的主鍵,保持唯一性。姓名即學生姓名,不允許為空。性別即學生性別,不允許為空。年齡即

17、學生年齡,用int類型存儲,不允許為空。專業(yè)即學生所學專業(yè),不允許為空。年級即學生所在年級,不允許為空。表3.4 學生成績表字段名稱數(shù)據(jù)類型NULL鍵字段描述學號Char(10)非空PK學生學號姓名Char(10)非空學生姓名課程Char(4)非空學生學習的課程分數(shù)Int非空學生所得的分數(shù)學號即學生學號,是用于標識學生的唯一編號,該編號不允許為空,為該表的主鍵,保持唯一性。姓名即學生姓名,不允許為空。課程即學生所學課程,不允許為空。分數(shù)即學生所學課程所得的分數(shù),用int類型存儲,不允許為空。3.4 SQL實現(xiàn)數(shù)據(jù)表的創(chuàng)建:(1)學生信息表創(chuàng)建:create table 學生信息(學號 char

18、(10) primary key ,姓名 char(10) not null,性別 char(4) not null年齡 int not null專業(yè) char(20) not null年級 char(10) not null);(2)學生成績表創(chuàng)建:create table 學生成績(學號 char(10) primary key ,姓名 char(10) not null,課程 char(10) not null分數(shù) int not null)第4章 系統(tǒng)實現(xiàn)4.1用戶登錄界面用戶登陸界面如圖4.1所示。登錄密碼:123456圖4.1系統(tǒng)登錄界面該界面為簡單的管理員登錄界面,登錄密碼為:1

19、23456,管理員利用管理員登錄密碼便可登錄學生信息查詢系統(tǒng),由此界面進入功能界面。4.2主要功能界面4.2.1功能界面功能界面如圖4.2所示。圖4.2功能界面該圖為學生信息查詢系統(tǒng)的功能界面,點擊“學生信息”按鈕可進入學生信息查詢界面,點擊“學生成績”按鈕可進入學生成績查詢界面,點擊“退出”可直接退出學生信息查詢系統(tǒng)。4.2.2學生信息查詢界面所有學生信息查詢界面如圖4.3所示圖4.3所有學生信息查詢界面圖該界面為查詢所有學生信息界面,在該界面里,點擊“查詢所有”按鈕,便可在右側(cè)顯示出數(shù)據(jù)庫中所有的學生信息,這個功能能夠使管理員查看數(shù)據(jù)庫中的所有記錄的學生信息。按學號查詢學生信息界面如圖4.

20、4所示。圖4.4按學號查詢學生信息界面圖按學號查詢學生信息,在“按學號查詢”的右側(cè)輸入框中輸入要查詢的學生學號,然后點擊“按學號查詢”按鈕,右側(cè)就可以顯示出精確查詢的學生信息。按姓名查詢學生信息界面如圖4.5所示。圖4.5按姓名查詢學生信息界面圖按姓名查詢學生信息,在“按姓名查詢”的右側(cè)輸入框中輸入要查詢的學生姓名,然后點擊“按姓名查詢”按鈕,右側(cè)就可以顯示出精確查詢的學生信息。4.2.3學生成績查詢界面所有學生成績查詢界面如圖4.6所示。圖4.6所有學生成績查詢界面圖該界面為查詢所有學生成績界面,在該界面里,點擊“查詢所有”按鈕,便可在右側(cè)顯示出數(shù)據(jù)庫中所有的學生成績信息,這個功能能夠使管理

21、員查看數(shù)據(jù)庫中的所有記錄的學生成績。按學號查詢學生成績界面如圖4.7所示。圖4.7按學號查詢學生成績界面圖該界面為按學號查詢學生成績界面,在“按學號查詢”的右側(cè)輸入框中輸入要查詢的學生學號,然后點擊“按學號查詢”按鈕,右側(cè)就可以顯示出精確查詢的學生成績。按姓名查詢學生成績界面如圖4.8所示。圖4.8按姓名查詢學生成績界面圖該界面為按姓名查詢學生成績信息界面,在“按姓名查詢”的右側(cè)輸入框中輸入要查詢的學生姓名,然后點擊“按姓名查詢”按鈕,右側(cè)就可以顯示出精確查詢的學生成績。第5章 課設(shè)總結(jié)轉(zhuǎn)眼間兩周的課程設(shè)計時間過完,在老師的指導(dǎo)和自己的努力下我的課程設(shè)計也完成了。學生信息查詢的功能已經(jīng)基本實現(xiàn)

22、,在設(shè)計過程中,老師指引我們將理論知識與實踐想結(jié)合起來,從可行性研究、需求分析、總體設(shè)計到詳細設(shè)計,到編碼實現(xiàn),這其中遇到無數(shù)問題,有的是設(shè)計上的,有的是技術(shù)實現(xiàn)上的,在解決這些問題的過程中,我深深的領(lǐng)悟到了軟件開發(fā)的奧妙,也使我對軟件開發(fā)有了濃厚的興趣。從開始開發(fā)學生信息查詢系統(tǒng),就遇到了很多的問題,比如VB與數(shù)據(jù)庫的連接,以及各種新知識的學習。這也使我鍛煉了快速學習的能力,也對軟件開發(fā)的過程有了一個更深的了解,并且對程序的基本設(shè)計思路有了較深的認識,學會并掌握了前臺軟件界面與后臺數(shù)據(jù)庫的連接方法,加深了對數(shù)據(jù)庫使用的熟練程度,對SQL編程語言的用法以及編碼規(guī)范有了更深的認識,對數(shù)據(jù)庫的設(shè)計

23、方法也照以前有了很大改進。開發(fā)設(shè)計的初級階段,我對學生信息管理方面的知識了解的并不多,通過查閱相關(guān)書籍,我對學生信息管理軟件的開發(fā)有了初步的認識。隨著設(shè)計的深入,逐步加深對該系統(tǒng)的認識和對編程語言的熟悉和理解。同時,我也閱讀大量的資料了解現(xiàn)在應(yīng)用中的學生信息管理的一些特點。課程設(shè)計是對所學知識的應(yīng)用,理論聯(lián)系實際讓我對學過的知識有了更加深刻的理解。通過程序的編寫、調(diào)試、修改、維護的過程,不但掌握了編程語言,也掌握了相關(guān)數(shù)據(jù)庫的基本操作由于編程語言學的不怎么好,致使編寫代碼出現(xiàn)了很大的問題,通過查閱資料以及向同學請教,最終自己完成了這個系統(tǒng)的制作,雖然系統(tǒng)功能比較簡單,但由自己親手做出來時還是有

24、一種成就感,通過這段時間里的學習,我了解到了自己在編程方面還有很大的欠缺,以后會多多學習這方面的知識,這個系統(tǒng)也會隨著學習更多的知識而繼續(xù)完善。參考文獻1 鄭阿奇,彭作民. Visual Basic.NET程序設(shè)計教程M.機械工業(yè)出版社,20062 李萬紅.Visual Basic.NET程序設(shè)計入門M . 清華大學出版社 ,20023 張玉亭,楊濤澤主編.Visual Basic.NET 編程M. 中國電力出版社 , 20054 曹祖圣主編. Visual Basic.NET學習范本M.科學出版社,20035 李建中譯 .Visual Basic.NET語言描述M.華中科技大學出版社,200

25、46 王珊,薩師煊主編,數(shù)據(jù)庫系統(tǒng)概論M.高等教育出版社,20067 陳文軍 陳曉銘主編,Visual Basic.NET數(shù)據(jù)庫編程M. 清華大學出版社,20058 王穎,李敏主編,Visual Basic+SQL Server數(shù)據(jù)庫應(yīng)用實例完全解析M.人民郵電出版社,20069 夏萬志,李小白,薛國利.基于VB的學生信息管理系統(tǒng)的設(shè)計J.電腦知識與技術(shù),200910 趙彥.數(shù)據(jù)庫原理與應(yīng)用技術(shù)-SQL ServerM.北京:清華大學出版社,2009附 錄部分主要代碼由于篇幅有限,所以只附上主要功能的代碼:1、登陸界面:Private Sub Command1_Click() If LCase

26、(Text1.Text) = "123456" Then Unload Me Form2.Show Else MsgBox "對不起,登陸密碼錯誤!" Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocusEnd IfEnd SubPrivate Sub Form_Resize()Image1.Top = 0Image1.Left = 0Image1.Stretch = TrueImage1.Height = Me.ScaleHeightImage1.Width = Me.S

27、caleWidthImage1.Picture = Me.PictureEnd Sub2、功能界面Private Sub Command1_Click() Unload Me Form3.ShowEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Resize()Image1.Top = 0Image1.Left = 0Image1.Stretch = TrueImage1.Height = Me.ScaleHeightImage1.Width = Me.ScaleWidthImage1.Picture = Me.Pict

28、ureEnd Sub3、學生信息查詢界面Private Sub Command2_Click()Dim cnn As New ADODB.Connectioncnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學生信息查詢;Data Source=IDEA-PC"cnn.OpenDim rs1 As New ADODB.RecordsetIf cnn.State = adStateOpen Then D

29、im sql As String sql = "select * from 學生信息 where 姓名= '" & Trim(Text3.Text) & "'" Set rs1.ActiveConnection = cnn rs1.Open sql If rs1.EOF = True Then MsgBox "要查詢的借閱信息不存在,請重新輸入!", vbInformation, "提示" Text11.SetFocus Else Text1.Text = rs1.Fields(0)

30、.Value Text5.Text = rs1.Fields(1).Value Text4.Text = rs1.Fields(2).Value Text6.Text = rs1.Fields(3).Value Text7.Text = rs1.Fields(4).Value Text8.Text = rs1.Fields(5).Value End If End IfEnd SubPrivate Sub Command3_Click()DataGrid1.Visible = TrueEnd SubPrivate Sub Command1_Click()Dim cnn As New ADODB.

31、Connectioncnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學生信息查詢;Data Source=IDEA-PC"cnn.OpenDim rs1 As New ADODB.RecordsetIf cnn.State = adStateOpen Then Dim sql As String sql = "select * from 學生信息 where 學號= '"

32、 & Trim(Text2.Text) & "'" Set rs1.ActiveConnection = cnn rs1.Open sql If rs1.EOF = True Then MsgBox "要查詢的借閱信息不存在,請重新輸入!", vbInformation, "提示" Text1.SetFocus Else Text1.Text = rs1.Fields(0).Value Text5.Text = rs1.Fields(1).Value Text4.Text = rs1.Fields(2).Val

33、ue Text6.Text = rs1.Fields(3).Value Text7.Text = rs1.Fields(4).Value Text8.Text = rs1.Fields(5).Value End If End IfEnd Sub4、成績查詢界面Private Sub Command4_Click()Unload Me Form2.ShowEndPrivate Sub Command1_Click()Dim cnn As New ADODB.Connectioncnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學生信息查詢;Data Source=IDEA-PC"cnn.OpenDim rs1 As New ADODB.RecordsetIf cnn.State = adStateOpen Then Dim sql As String sql = "select * from 成績 where 學號= '" & Trim(Text1.Text) & "'" Set

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
  • 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論