版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、<p><b> 摘 要</b></p><p> 信息管理系統(tǒng)MIS(management information system)是一個(gè)利用計(jì)算的硬件資源及數(shù)據(jù)庫的人機(jī)系統(tǒng),它能提供信息支持企業(yè)或組織的運(yùn)行,管理和決策功能,在強(qiáng)調(diào)管理和信息的現(xiàn)代社會(huì)中變得越來越普及了。</p><p> 隨著信息技術(shù),特別是計(jì)算機(jī)技術(shù)和網(wǎng)絡(luò)技術(shù)的不斷發(fā)展,人們
2、建立了企業(yè)數(shù)據(jù)庫,鋪設(shè)了網(wǎng)絡(luò),人們應(yīng)用系統(tǒng)觀點(diǎn),實(shí)施全局規(guī)劃,設(shè)計(jì)出了許多比較完善的管理信息系統(tǒng)。社會(huì)的發(fā)展和社會(huì)的進(jìn)步是人們對(duì)系統(tǒng)的要求不斷地提高。</p><p> 管理系統(tǒng)的應(yīng)用非常廣泛,不僅大中型企業(yè)建立了自己的MIS,一些小型企業(yè)也不例外,普遍建立了公用數(shù)據(jù)網(wǎng)絡(luò)尤其是近年來Internet的飛速發(fā)展,為企業(yè)MIS提供了良好的支撐環(huán)境。</p><p> 管理信息系統(tǒng)影響一個(gè)公
3、司的許多層面,所以用它原因很復(fù)雜,雖然能直接節(jié)省成本及擁有處理許多難以用財(cái)務(wù)報(bào)表來量化的數(shù)據(jù)的好處。大體上來說,采用系統(tǒng)管理有4個(gè)主要理由:節(jié)省成本,經(jīng)營上考量,資源利用,發(fā)展戰(zhàn)略。</p><p> 關(guān)鍵字:數(shù)據(jù)庫 Visual Basic 6.0 管理信息系統(tǒng) 網(wǎng)絡(luò)</p><p><b> 目 錄</b></p><p>
4、第1章 需求分析1</p><p> 1.1編寫語言概述2</p><p> 1.2測(cè)試環(huán)境概述2</p><p> 1.3制作工具概述2</p><p> 第2章 基本設(shè)計(jì)思路3</p><p> 2.1 開發(fā)背景3</p><p> 2.2 系統(tǒng)簡介4</p&
5、gt;<p> 2.3系統(tǒng)功能介紹4</p><p> 第3章 系統(tǒng)設(shè)計(jì)概述5</p><p> 第4章 詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)6</p><p> 結(jié)論………………………………………………………………………………24</p><p> 考察文獻(xiàn)…………………………………………………………………………25</p&
6、gt;<p> 致謝………………………………………………………………………………26</p><p><b> 第一章 需求分析</b></p><p> 學(xué)生學(xué)籍管理系統(tǒng)是一個(gè)學(xué)校不可缺少的部分, 它的內(nèi)容對(duì)于學(xué)校管理者來說是至關(guān)重的,所以學(xué)生學(xué)籍管理系統(tǒng)應(yīng)該能夠?yàn)閷W(xué)校管理者提供充足的信息和快捷的查詢手段但一直以來人們使用人工的方式管理學(xué)生檔案
7、, 這種管理方式存在著許多缺點(diǎn), 如效率低、保密性差等, 另外時(shí)間長了將產(chǎn)生大量的文件和資料, 這對(duì)于查找、更新和維護(hù)都帶來了不少的困難,隨著學(xué)校的規(guī)模不斷的擴(kuò)大,學(xué)生數(shù)量急劇增加,有關(guān)學(xué)生的各種信息量也成倍增加。面對(duì)龐大的信息量,需要有學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理,科學(xué)統(tǒng)計(jì)和快速查詢,從而減少管理方面的工作量。因此開發(fā)學(xué)生管理系統(tǒng)是必要的。</p><p>
8、1.1 測(cè)試環(huán)境概述</p><p> 支持Win98 、WinNT、WinXP、Win2000 、Win2003 、Vista 、Win7系統(tǒng)。</p><p> 1.2 制作工具概述</p><p> 本系統(tǒng)的數(shù)據(jù)庫管理系統(tǒng)采用SQL Server Management Studio 2005,客戶端采用Windows XP,本系統(tǒng)開發(fā)工具主要采用VB6.
9、0設(shè)計(jì)系統(tǒng)。</p><p> 設(shè)計(jì)平臺(tái):Visual Basic</p><p> Visual Basic 6.0是功能最為強(qiáng)大可視化開發(fā)工具,它不僅支持傳統(tǒng)的軟件開發(fā)方法,更重要的是它能支持面向?qū)ο蟆⒖梢暬拈_發(fā)風(fēng)格。因此Visual Basic 6.0又稱作是一個(gè)集成開發(fā)工具,它提供了軟件代碼自動(dòng)生成和可視化的資源編輯功能。</p><p> Vis
10、ual Basic是一個(gè)對(duì)象導(dǎo)向設(shè)計(jì)的應(yīng)用程序語言,是開發(fā)數(shù)據(jù)庫前端的經(jīng)典工具,它的編程語言簡潔明快、組件功能強(qiáng)大和編程環(huán)境靈活方便。采用Visual Basic來開發(fā)數(shù)據(jù)庫應(yīng)用程序具有靈活性和可擴(kuò)展性。</p><p> 數(shù)據(jù)庫:Microsoft SQL2005</p><p> SQL2005 是關(guān)系數(shù)據(jù)庫開發(fā)工具,數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。SQL2005的優(yōu)
11、點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格,可以使數(shù)據(jù)庫一目了然。SQL2005 是一種關(guān)系數(shù)據(jù)庫工具,關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。SQL2005 多用于中小型企業(yè)來設(shè)計(jì)中小型數(shù)據(jù)庫,一般的學(xué)校教務(wù)系統(tǒng)的數(shù)據(jù)庫用SQL2005 來設(shè)計(jì)完全能達(dá)到要求。</p><p> SQL Server Management Studio 2005是微軟公司推
12、出的基于Windows的桌面關(guān)系數(shù)據(jù)庫管理系統(tǒng)(RDBMS,即Relational Database Management System),是Office系列應(yīng)用軟件之一。它提供了表、查詢、窗體、報(bào)表、頁、宏、模塊7種用來建立數(shù)據(jù)庫系統(tǒng)的對(duì)象;提供了多種向?qū)?、生成器、模板,把?shù)據(jù)存儲(chǔ)、數(shù)據(jù)查詢、界面設(shè)計(jì)、報(bào)表生成等操作規(guī)范化;為建立功能完善的數(shù)據(jù)庫管理系統(tǒng)提供了方便,也使得普通用戶不必編寫代碼,就可以完成大部分?jǐn)?shù)據(jù)管理的任務(wù)。</
13、p><p> 數(shù)據(jù)庫訪問方式:ADO</p><p> ADO(Active Data Objects)是一種提供訪問各種數(shù)據(jù)類型的連接機(jī)制。ADO設(shè)計(jì)為一種極簡單的格式,通過ODBC的方法同數(shù)據(jù)庫接口??梢允褂萌魏我环NODBC數(shù)據(jù)源,即不止適合于SQL Server、Oracle、Access 等數(shù)據(jù)庫應(yīng)用程序,也適合于Excel表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。ADO具有以下
14、的優(yōu)點(diǎn):對(duì)于本地和遠(yuǎn)程的數(shù)據(jù)庫訪問都與具體的數(shù)據(jù)庫無關(guān),由于ADO是Microsoft開發(fā)的,所以它對(duì)Microsoft的Access和SQL Server的數(shù)據(jù)訪問有著非常好的支持,因此如果是基于Access和SQL Server的數(shù)據(jù)庫應(yīng)用程序的開發(fā),那么采用ADO是很好的選擇。因?yàn)楸鞠到y(tǒng)是基于SQL2005數(shù)據(jù)庫的設(shè)計(jì),因此我們采用了ADO。</p><p> 1.3 軟件功能簡介</p>
15、<p> 本系統(tǒng)的開發(fā)目標(biāo)是有效管理學(xué)生信息,實(shí)現(xiàn)學(xué)生信息的數(shù)據(jù)錄入、瀏覽、修改等,實(shí)現(xiàn)學(xué)生信息的規(guī)范化、系統(tǒng)化、自動(dòng)化管理。根據(jù)對(duì)客戶端用戶和客戶進(jìn)行調(diào)研,得出下面的說明文本。</p><p> (1)由于學(xué)生學(xué)籍等信息具有一定的保密性,為了便于管理,應(yīng)該為用戶設(shè)置密碼保護(hù),提高系統(tǒng)的數(shù)據(jù)安全性。</p><p> ?。?)軟件能夠?qū)W(xué)生的學(xué)籍信息進(jìn)行記錄,并能夠非常方便地
16、瀏覽、添加、編輯和查詢學(xué)生的學(xué)籍信息。能夠通過軟件及時(shí)了解學(xué)生的基本情況,同時(shí)能夠提供學(xué)生學(xué)籍信息的報(bào)表打印功能。</p><p> ?。?)系統(tǒng)應(yīng)該具有數(shù)據(jù)庫維護(hù)功能,系統(tǒng)運(yùn)行在Windows平臺(tái)上,應(yīng)該具有較好的圖形用戶界面,還應(yīng)有較好的可擴(kuò)展性。</p><p> 第2章 基本設(shè)計(jì)思路</p><p><b> 2.1 開發(fā)背景</b>
17、;</p><p> 隨著Internet的飛速發(fā)展,以及數(shù)據(jù)庫技術(shù)的逐漸成熟,在各個(gè)高校,基于校園網(wǎng)的學(xué)生管理信息系統(tǒng)已經(jīng)相當(dāng)普及,而與此同時(shí),全國高職院校也在教育快速發(fā)展的浪潮中實(shí)現(xiàn)了規(guī)模的迅速擴(kuò)大,校園網(wǎng)絡(luò)也相當(dāng)?shù)钠占?,而現(xiàn)在廣大高職院校往往借用高等院校的學(xué)生管理信息系統(tǒng),由于辦學(xué)模式和管理制度的差異,高等院校的學(xué)生管理系統(tǒng)并不適合高職院校的實(shí)際需求。在這樣的背景下,全國高職院校對(duì)于一套針對(duì)高職院校的學(xué)生
18、管理信息系統(tǒng)需求非常迫切,學(xué)生信息管理系統(tǒng)也就是人們常說的管理信息系統(tǒng)。近年來作為計(jì)算機(jī)技術(shù)與通信技術(shù)相結(jié)合產(chǎn)生的計(jì)算機(jī)網(wǎng)絡(luò)得到了飛速的發(fā)展,并成為當(dāng)前現(xiàn)代家庭與社會(huì)的基礎(chǔ)設(shè)施,尤其是隨著Internet技術(shù)越來越廣泛的應(yīng)用,網(wǎng)絡(luò)覆蓋的區(qū)域不斷擴(kuò)大,正在向全球每一個(gè)角落延伸,并將逐步進(jìn)入到千家萬戶??梢哉f,計(jì)算機(jī)網(wǎng)絡(luò)的飛速發(fā)展,使人類正在面臨一場信息時(shí)代的變革,人類社會(huì)開始進(jìn)入真正的信息的時(shí)代。</p><p>
19、 隨著計(jì)算機(jī)性能進(jìn)一步提高以及網(wǎng)絡(luò)的普及,給予網(wǎng)絡(luò)的學(xué)生信息管理系統(tǒng)以其技術(shù)優(yōu)勢(shì)和完善的功能,必將具有廣泛的應(yīng)用前景。</p><p><b> 2.2 系統(tǒng)簡介</b></p><p> 本系統(tǒng)的功能和要求是解決某高校計(jì)算機(jī)系學(xué)生學(xué)籍的管理問題,為進(jìn)一步完善學(xué)校對(duì)學(xué)生檔案學(xué)籍管理。本系統(tǒng)有關(guān)的數(shù)據(jù)表有一個(gè),分別是:(表2-1 Student表(學(xué)生))<
20、/p><p><b> 表 2-1 學(xué)生表</b></p><p> 2.3 系統(tǒng)功能介紹</p><p> 本系統(tǒng)提供輸入用戶名和密碼為入口查詢學(xué)籍信息的功能。</p><p> 以用戶名和密碼為入口添加,修改,查詢學(xué)生學(xué)籍的信息,并有打印和幫助功能。 </p><p> 第3章 學(xué)生學(xué)籍
21、系統(tǒng)設(shè)計(jì)概述</p><p> 系統(tǒng)設(shè)計(jì)是在需要分析完成后,按照需求分析的要求進(jìn)行的。學(xué)生信息管理系統(tǒng)根據(jù)需求分析結(jié)果,可以包括下面幾個(gè)功能。</p><p> 有關(guān)學(xué)籍等信息的輸入,包括學(xué)生的基本信息所在班級(jí)聯(lián)系方式等。</p><p> 學(xué)生信息的查詢,包括學(xué)生的基本信息所在班級(jí)聯(lián)系方式等。</p><p><b> 學(xué)
22、生信息的修改。</b></p><p><b> 學(xué)生信息的打印</b></p><p> 根據(jù)上面的各項(xiàng)功能進(jìn)行集中分塊,按照結(jié)構(gòu)化程序設(shè)計(jì)的要求,可以得到如圖3-1</p><p> 圖3-1 系統(tǒng)功能模塊圖</p><p> 第4章 系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)</p><p>&l
23、t;b> 與數(shù)據(jù)庫的連接</b></p><p><b> 通用模塊定義:</b></p><p><b> '主模塊</b></p><p> Public Function executesql(ByVal sql As String, msgstring As String) As
24、ADODB.Recordset</p><p> Dim cnn As ADODB.Connection</p><p> Dim rst As ADODB.Recordset</p><p> Dim stokens() As String</p><p> On Error GoTo executesql_error</p&
25、gt;<p> stokens = Split(sql)</p><p> Set cnn = New ADODB.Connection '創(chuàng)建連接</p><p> cnn.Open connectstring '打開連接</p><p> '判斷字符串中是否含有指定內(nèi)容</p><p>
26、 If InStr("insert,delete,update", UCase$(stokens(0))) Then</p><p> cnn.Execute sql</p><p> msgstring = stokens(0) & "query successful"</p><p><b> E
27、lse</b></p><p><b> '創(chuàng)建數(shù)據(jù)集對(duì)象</b></p><p> Set rst = New ADODB.Recordset</p><p> rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic</p><p>
28、 Set executesql = rst</p><p> msgstring = "查詢到" & rst.RecordCount & "條記錄"</p><p><b> End If</b></p><p> executesql_exit:</p><p&
29、gt;<b> '中斷連接</b></p><p> Set rst = Nothing</p><p> Set cnn = Nothing</p><p> Exit Function</p><p><b> '錯(cuò)誤類型判斷</b></p><p&
30、gt; executesql_error:</p><p> msgstring = "查詢錯(cuò)誤:" & Err.Description</p><p> Resume executesql_exit</p><p> End Function</p><p> Public Function conne
31、ctstring() As String</p><p> Dim str As String</p><p> str = App.Path</p><p> If Right(str, 1) <> "\" Then</p><p> str = str + "\"</p&g
32、t;<p><b> End If</b></p><p> connectstring = "provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=student;Data Source=20100508-1342"</p&
33、gt;<p> End Function</p><p> Public Function testtxt(txt As String) As Boolean</p><p> If Trim(txt) = " " Then</p><p> testtxt = False</p><p><b
34、> Else</b></p><p> testtxt = True</p><p><b> End If</b></p><p> End Function</p><p><b> 4.1 進(jìn)入窗體</b></p><p> 點(diǎn)擊點(diǎn)擊進(jìn)入按
35、鈕就可以進(jìn)入用戶界面</p><p><b> 進(jìn)入窗體的代碼:</b></p><p> Private Sub Command1_Click()</p><p> form2.Show</p><p><b> End Sub</b></p><p> Priv
36、ate Sub tian_Click()</p><p> Form5.Show</p><p><b> End Sub</b></p><p> Private Sub Timer1_Timer()</p><p> Label3.Caption = Format(Date, "yyyy年mm月dd
37、日")</p><p> Label4.Caption = Format(Time, "hh時(shí)mm分ss秒")</p><p><b> End Sub</b></p><p> 進(jìn)入界面(圖4-1為第4章的第一個(gè)圖):</p><p> 4-1 學(xué)生管理系統(tǒng)</p>
38、<p> 4.2用戶管理界面設(shè)計(jì):</p><p> 用戶管理界面包括用戶名和密碼。在用戶管理界面有兩個(gè)label條,兩個(gè)文本框和兩個(gè)命令按鈕,輸入用戶名和密碼都正確后才可以進(jìn)入學(xué)生學(xué)籍添加界面,如果用戶名或密碼錯(cuò)誤則由信息提示,輸入錯(cuò)誤請(qǐng)重新輸入。</p><p><b> 用戶登錄代碼:</b></p><p> Priv
39、ate Sub add_Click()</p><p> Form5.Show</p><p><b> End Sub</b></p><p> Private Sub chaxun_Click()</p><p> Form8.Show</p><p><b> End S
40、ub</b></p><p> Private Sub dabao_Click()</p><p> Form3.Show</p><p><b> End Sub</b></p><p> Private Sub daxin_Click()</p><p> Form7.S
41、how</p><p><b> End Sub</b></p><p> Private Sub delect_Click()</p><p> Form9.Show</p><p><b> End Sub </b></p><p> 用戶管理的窗體(圖4-2
42、為第4章的第二個(gè)圖所示):</p><p> 圖4-2用戶管理系統(tǒng)</p><p> 4.3學(xué)籍信息管理模塊界面設(shè)計(jì)</p><p> 學(xué)籍信息管理模塊是實(shí)現(xiàn)學(xué)籍信息的添加,修改,查詢,刪除操作的,實(shí)現(xiàn)對(duì)每位學(xué)員學(xué)號(hào)、姓名、性別、出生日期、所在系部、班號(hào)、聯(lián)系方式、e-mail等信息的管理。按照不同的功能劃分,學(xué)籍信息管理模塊分為四部分,也就是四個(gè)不同的窗體,
43、即添加學(xué)籍信息窗體,修改學(xué)籍信息窗體,查詢學(xué)籍信息窗體和刪除學(xué)籍信息窗體。</p><p> 選擇“學(xué)籍管理|添加學(xué)籍信息”菜單,就能打開添加學(xué)籍信息窗體,如(圖4-3為第4章的第三個(gè)圖)所示:</p><p> 圖4-3 添加學(xué)籍信息</p><p> 添加學(xué)籍信息窗體主要包括多個(gè)文本框和文本框,兩個(gè)按鈕用來確定是否添加學(xué)籍信息,標(biāo)簽提示文本框需要輸入的內(nèi)
44、容。這些主要控件屬性(表4-1為第4章的第一個(gè)表)如下所示:</p><p> 表4-1 控件的屬性</p><p> 添加學(xué)籍信息窗體的代碼:</p><p> Private Sub Command1_Click()</p><p> Dim mrc As New ADODB.Recordset</p><p&
45、gt; Dim txtsql As String</p><p> Dim msgtext As String</p><p> If Not testtxt(Text1.Text) Then</p><p> MsgBox "請(qǐng)輸入學(xué)號(hào)!", vbOKOnly + vbExclamation, "警告"</p&
46、gt;<p> Text1.SetFocus</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p><b> '是否輸入學(xué)號(hào)</b></p><p> If Not testtxt(T
47、ext2.Text) Then</p><p> MsgBox "請(qǐng)輸入姓名!", vbOKOnly + vbExclamation, "警告"</p><p> Text2.SetFocus</p><p><b> Exit Sub</b></p><p><b&g
48、t; End If</b></p><p><b> '是否輸入姓名</b></p><p> If Not testtxt(Text9.Text) Then</p><p> MsgBox "請(qǐng)選擇性別!", vbOKOnly + vbExclamation, "警告"<
49、;/p><p> Text9.SetFocus</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p><b> '是否輸入性別</b></p><p> If Not testt
50、xt(Text3.Text) Then</p><p> MsgBox "請(qǐng)輸入出生日期!", vbOKOnly + vbExclamation, "警告"</p><p> Text3.SetFocus</p><p><b> Exit Sub</b></p><p>&
51、lt;b> End If</b></p><p><b> '是否輸入出生日期</b></p><p> If Not testtxt(Text4.Text) Then</p><p> MsgBox "請(qǐng)輸入班號(hào)!", vbOKOnly + vbExclamation, "警告&
52、quot;</p><p> Text4.SetFocus</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p><b> '是否輸入班號(hào)</b></p><p> If N
53、ot testtxt(Text10.Text) Then</p><p> MsgBox "請(qǐng)輸入聯(lián)系方式!", vbOKOnly + vbExclamation, "警告"</p><p> Text10.SetFocus</p><p><b> Exit Sub</b></p>
54、<p><b> End If</b></p><p><b> '是否輸入聯(lián)系方式</b></p><p> If Not testtxt(Text6.Text) Then</p><p> MsgBox "請(qǐng)輸入 E-mail!", vbOKOnly + vbExclam
55、ation, "警告"</p><p> Text6.SetFocus</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p> '是否輸入e-mail</p><p> If
56、Not testtxt(Text7.Text) Then</p><p> MsgBox "請(qǐng)輸入所在系部!", vbOKOnly + vbExclamation, "警告"</p><p> Text7.SetFocus</p><p><b> Exit Sub</b></p>&
57、lt;p><b> End If</b></p><p><b> '是否輸入所在系部</b></p><p> If Not IsNumeric(Trim(Text1.Text)) Then</p><p> MsgBox "請(qǐng)輸入數(shù)字", vbOKOnly + vbExclam
58、ation, "警告"</p><p><b> Exit Sub</b></p><p> Text1.SetFocus</p><p><b> End If</b></p><p> 'txtsql = "select * from student
59、 where number='" & Trim(Text1.Text) & "'"</p><p> 'Set mrc = Executesql(txtsql, msgtext)</p><p> 'If mrc.EOF = False Then</p><p> 'MsgB
60、ox "學(xué)號(hào)重復(fù),請(qǐng)重新輸入", vbOKOnly + vbExclamation, "警告"</p><p> 'mrc.Close</p><p> 'Text1(0).SetFocus</p><p><b> 'Else</b></p><p>
61、; 'mrc.Close</p><p> 'If Not IsDate(Text3.Text) Then</p><p> 'MsgBox "出生時(shí)間應(yīng)輸入日期格式(yyyy-mm-dd)", vbOKOnly + vbExclamation, "警告"</p><p> 'Text3
62、.SetFocus</p><p><b> 'Else</b></p><p> 'Text3(5) = Format(Text3(5), "yyyy-mm-dd")</p><p> txtsql = "select * from student"</p><
63、p> Set mrc = Executesql(txtsql, msgtext)</p><p> mrc.AddNew</p><p> mrc.Fields(0) = Trim(Text1.Text)</p><p> mrc.Fields(1) = Trim(Text2.Text)</p><p> mrc.Fields
64、(2) = Trim(Text9.Text)</p><p> mrc.Fields(3) = Trim(Text3.Text)</p><p> mrc.Fields(4) = Trim(Text4.Text)</p><p> mrc.Fields(5) = Trim(Text10.Text)</p><p> mrc.Field
65、s(6) = Trim(Text6.Text)</p><p> mrc.Fields(7) = Trim(Text7.Text)</p><p> 'mrc.Fields(8) = Trim(Text8.Text)</p><p> mrc.Update</p><p> MsgBox "添加學(xué)籍信息成功!&quo
66、t;, vbOKOnly + vbExclamation, "警告"</p><p><b> mrc.Close</b></p><p><b> '添加學(xué)籍信息</b></p><p><b> Me.Hide</b></p><p>&l
67、t;b> 'End If</b></p><p><b> 'End If</b></p><p><b> 'End If</b></p><p><b> End Sub</b></p><p> Private Sub
68、Form_Load()</p><p> Dim mrc As ADODB.Recordset</p><p> Dim txtsql As String</p><p> Dim msgtext As String</p><p> Dim i As Integer</p><p> 'Combo1
69、.AddItem "男"</p><p> 'Combo1.AddItem "女"</p><p> 'txtsql = "select * from student"</p><p> 'Set mrc = executesql(txtsql, msgtext)</p&
70、gt;<p> 'For i = 1 To mrc.RecordCount</p><p> 'comboclassno.AddItem mrc.Fields(0)</p><p><b> 'Next i</b></p><p> 'mrc.Close</p><p&g
71、t;<b> End Sub</b></p><p> 修改學(xué)籍信息窗體是從“學(xué)籍管理|修改學(xué)籍信息”菜單中打開的,主要控件和添加學(xué)籍信息窗體中的一樣,只是添加了兩排按鈕,(圖4-4為第4章的第四個(gè)圖)如下所示:。</p><p> 這些控件中的下面兩行按鈕的主要作用是:第一排是查看學(xué)籍信息,第二排是修改學(xué)籍信息。窗體中其他主要控件的屬性值設(shè)置和前面添加學(xué)籍信息
72、窗體相仿。</p><p> 圖4-4 修改學(xué)籍信息</p><p> 修改學(xué)籍信息的代碼:</p><p> Dim mrc As ADODB.Recordset</p><p> Public Sub viewdata()</p><p> Text1.Text = mrc.Fields(0)</p
73、><p> Text2.Text = mrc.Fields(1)</p><p> Text3.Text = mrc.Fields(3)</p><p> Text4.Text = mrc.Fields(4)</p><p> Text5.Text = mrc.Fields(5)</p><p> Text6.T
74、ext = mrc.Fields(6)</p><p> 'Text7.Text = mrc.Fields(7)</p><p> Text9.Text = mrc.Fields(2)</p><p><b> End Sub</b></p><p> '窗體加載時(shí),程序應(yīng)該對(duì)學(xué)籍信息表stude
75、nt_info表進(jìn)行查詢,并把查詢到的信息保存在recordset對(duì)象mrc中,</p><p> '窗體首先調(diào)用viewdata顯示一個(gè)學(xué)生的學(xué)籍信息</p><p> Private Sub Command1_Click()</p><p> mrc.MoveFirst</p><p> Call viewdata<
76、/p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</p><p> mrc.MovePrevious</p><p> If mrc.BOF Then</p><p> mrc.MoveLast</p>
77、<p><b> End If</b></p><p> Call viewdata</p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p> mrc.MoveNext</p>
78、<p> If mrc.EOF Then</p><p> mrc.MoveFirst</p><p><b> End If</b></p><p> Call viewdata</p><p><b> End Sub</b></p><p> Pr
79、ivate Sub Command4_Click()</p><p> mrc.MoveLast</p><p> Call viewdata</p><p><b> End Sub</b></p><p> Private Sub Command5_Click()</p><p>
80、mcclean = False</p><p> Frame1.Enabled = False</p><p> Command1.Enabled = False</p><p> Command2.Enabled = False</p><p> Command3.Enabled = False</p><p&g
81、t; Command4.Enabled = False</p><p> Text1.Enabled = True</p><p> Text2.Enabled = True</p><p> Text3.Enabled = True</p><p> Text4.Enabled = True</p><p>
82、; Text5.Enabled = True</p><p> Text6.Enabled = True</p><p> Text7.Enabled = True</p><p> Text9.Enabled = True</p><p> 'mybookmark = mrc.Bookmark</p><
83、;p><b> End Sub</b></p><p> Private Sub Command6_Click()</p><p> Dim txtsql As String</p><p> Dim msgtext As String</p><p> Dim mrcc As ADODB.Records
84、et</p><p><b> '定義變量</b></p><p> If mcclean Then</p><p> MsgBox "請(qǐng)先修改學(xué)籍信息", vbOKOnly + vbExclamation, "警告"</p><p><b> Exit
85、Sub</b></p><p><b> End If</b></p><p> If Not testtxt(Text1.Text) Then</p><p> MsgBox "請(qǐng)輸入學(xué)號(hào)!", vbOKOnly + vbExclamation, "警告"</p><
86、;p> Text1.SetFocus</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p> If Not testtxt(Text2.Text) Then</p><p> MsgBox "請(qǐng)輸入姓名!&quo
87、t;, vbOKOnly + vbExclamation, "警告"</p><p> Text2.SetFocus</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p> If Not testtxt(Tex
88、t9.Text) Then</p><p> MsgBox "請(qǐng)輸入性別!", vbOKOnly + vbExclamation, "警告"</p><p> Text9.SetFocus</p><p><b> Exit Sub</b></p><p><b>
89、 End If</b></p><p> If Not testtxt(Text3.Text) Then</p><p> MsgBox "請(qǐng)輸入出生日期!", vbOKOnly + vbExclamation, "警告"</p><p> Text3.SetFocus</p><p&g
90、t;<b> Exit Sub</b></p><p><b> End If</b></p><p> If Not testtxt(Text4.Text) Then</p><p> MsgBox "請(qǐng)輸入班號(hào)!", vbOKOnly + vbExclamation, "警告&qu
91、ot;</p><p> Text4.SetFocus</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p> If Not testtxt(Text5.Text) Then</p><p> MsgBo
92、x "請(qǐng)輸入聯(lián)系方式!", vbOKOnly + vbExclamation, "警告"</p><p> Text5.SetFocus</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p>
93、 If Not testtxt(Text6.Text) Then</p><p> MsgBox "請(qǐng)輸入e-mail!", vbOKOnly + vbExclamation, "警告"</p><p> Text6.SetFocus</p><p><b> Exit Sub</b></p
94、><p><b> End If</b></p><p> If Not testtxt(Text7.Text) Then</p><p> MsgBox "請(qǐng)輸入所在系部!", vbOKOnly + vbExclamation, "警告"</p><p> Text7.Set
95、Focus</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p> '檢查學(xué)籍信息各文本框都不為空</p><p> mrc.Delete</p><p><b> '刪除該記錄
96、</b></p><p> txtsql = "select * from student where number='" & Trim(Text1.Text) & "'"</p><p> Set mrcc = Executesql(txtsql, msgtext)</p><p&
97、gt; If mrcc.EOF = False Then</p><p> MsgBox "學(xué)號(hào)重復(fù)請(qǐng)重新輸入!", vbOKOnly + vbExclamation, "警告"</p><p> mrcc.Close</p><p> Text1.SetFocus</p><p><b&
98、gt; Else</b></p><p> mrcc.Close</p><p> mrc.AddNew</p><p> mrc.Fields(0) = Trim(Text1.Text)</p><p> mrc.Fields(1) = Trim(Text2.Text)</p><p> mr
99、c.Fields(2) = Trim(Text9.Text)</p><p> mrc.Fields(3) = Trim(Text3.Text)</p><p> mrc.Fields(4) = Trim(Text4.Text)</p><p> mrc.Fields(5) = Trim(Text5.Text)</p><p> mr
100、c.Fields(6) = Trim(Text6.Text)</p><p> mrc.Fields(7) = Trim(Text7.Text)</p><p> mrc.Update</p><p> MsgBox "修改學(xué)生信息成功!", vbOKOnly + vbExclamation, "修改學(xué)籍信息"</
101、p><p> Call viewdata</p><p> Frame1.Enabled = True</p><p> Command1.Enabled = True</p><p> Command2.Enabled = True</p><p> Command3.Enabled = True</p&
102、gt;<p> Command4.Enabled = True</p><p> Text1.Enabled = False</p><p> Text2.Enabled = False</p><p> Text9.Enabled = False</p><p> Text3.Enabled = True</p
103、><p> Text4.Enabled = True</p><p> Text5.Enabled = True</p><p> Text6.Enabled = True</p><p> Text7.Enabled = True</p><p> mcclean = True</p><p
104、><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command7_Click()</p><p> If Not mcclean Then</p><p> Frame2.Enabled = True<
105、;/p><p> Command1.Enabled = True</p><p> Command2.Enabled = True</p><p> Command3.Enabled = True</p><p> Command4.Enabled = True</p><p> Text1.Enabled =
106、False</p><p> Text2.Enabled = False</p><p> Text3.Enabled = False</p><p> Text4.Enabled = False</p><p> Text5.Enabled = False</p><p> Text6.Enabled =
107、False</p><p> Text7.Enabled = False</p><p> Text9.Enabled = False</p><p> 'mrc.Bookmark = mybookmark</p><p> Call viewdata</p><p><b> Else&l
108、t;/b></p><p> MsgBox "還未作出修改,請(qǐng)修改!", vbOKOnly + vbExclamation, "警告"</p><p><b> End If</b></p><p><b> End Sub</b></p><p>
109、; Private Sub Command8_Click()</p><p> mybookmark = mrc.Bookmark</p><p> str2$ = MsgBox("是否刪除當(dāng)前記錄?", vbOKCancel, "刪除當(dāng)前記錄")</p><p> If str2$ = vbOK Then</p
110、><p> mrc.MoveNext</p><p> If mrc.EOF Then</p><p> mrc.MoveFirst</p><p> mybookmark = mrc.Bookmark</p><p> mrc.MoveLast</p><p> mrc.Delete&
111、lt;/p><p> mrc.Bookmark = mybookmark</p><p> Call viewdata</p><p><b> Else</b></p><p> mybookmark = mrc.Bookmark</p><p> mrc.MovePrevious<
112、/p><p> mrc.Delete</p><p> mrc.Bookmark = mybookmark</p><p> Call viewdata</p><p><b> End If</b></p><p><b> Else</b></p>&
113、lt;p> mrc.Bookmark = mybookmark</p><p> Call viewdata</p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command9_Click()&
114、lt;/p><p> Form11.Show</p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Dim txtsql As String</p><p> Dim msgtext As String</
115、p><p> 'Combo2.AddItem "男"</p><p> 'Combo2.AddItem "女"</p><p><b> '定義變量</b></p><p> txtsql = "select * from student&qu
116、ot;</p><p> Set mrc = Executesql(txtsql, msgtext)</p><p><b> '查找學(xué)籍信息表</b></p><p> 'mrc.MoveFirst</p><p> Call viewdata</p><p><b
117、> End Sub</b></p><p> 查詢學(xué)籍信息窗體主要完成按照不同的方式對(duì)學(xué)生學(xué)籍信息的查詢,查詢方式有按照姓名,學(xué)號(hào)等不同的方式,其中主要有一個(gè)表格控件,幾個(gè)多選控件,文本框和三個(gè)按鈕,窗體通過選擇“學(xué)籍管理|查詢學(xué)籍信息”打開,圖4-5為第4章的第五個(gè)圖)如下所示:</p><p> 圖4-5 查詢學(xué)籍信息</p><p>
118、 查詢學(xué)籍信息窗體控件屬性表4-2為第4章的第二個(gè)表)如下所示:</p><p> 表 4-2 重要控件屬性</p><p> 其中的mshflexgrid控件為active控件,需要從部件中加載,該控件用來實(shí)現(xiàn)查詢結(jié)果的顯示,其屬性的設(shè)置和一般控件不同,右擊并在彈出的菜單中選擇properties,設(shè)置表格的行和列。</p><p> 查詢學(xué)籍信息的代碼:&
119、lt;/p><p> Private Sub Command1_Click()</p><p> Dim txtsql As String</p><p> Dim msgtext As String</p><p> Dim dd(3) As Boolean</p><p> Dim mrc As ADODB.
120、Recordset</p><p><b> '定義變量</b></p><p> txtsql = "select * from student "</p><p> '從學(xué)籍信息表中查詢記錄</p><p> If Check1.Value Then</p>
121、<p> If Trim(Text1.Text) = "" Then</p><p> smeg = "學(xué)號(hào)不能為空"</p><p> MsgBox smeg, vbOKOnly + vbExclamation, "警告"</p><p> Text1.SetFocus</p&g
122、t;<p><b> Exit Sub</b></p><p><b> Else</b></p><p> If Not IsNumeric(Trim(Text1.Text)) Then</p><p> MsgBox "請(qǐng)輸入數(shù)字!", vbOKOnly + vbExclama
123、tion, "警告"</p><p><b> Exit Sub</b></p><p> Text1.SetFocus</p><p><b> End If</b></p><p> dd(0) = True</p><p> txtsql
124、= txtsql & " where number=" & Int(Trim(Text1.Text))</p><p> '如果學(xué)號(hào)多選框被選中,則加入該查詢條件</p><p><b> End If</b></p><p><b> End If</b></p&g
125、t;<p> If Check2.Value Then</p><p> If Trim(Text2.Text) = "" Then</p><p> smeg = "姓名不能為空"</p><p> MsgBox smeg, vbOKOnly + vbExclamation, "警告"
126、;</p><p> Text2.SetFocus</p><p><b> Exit Sub</b></p><p><b> Else</b></p><p> dd(1) = True</p><p> If dd(0) Then</p><
127、;p> txtsql = txtsql & "and sname='" & Text2.Text & "'"</p><p><b> Else</b></p><p> txtsql = txtsql & "sname='" & T
128、ext2.Text & "'"</p><p><b> End If</b></p><p> '如果姓名復(fù)選框被選擇,則加入該查詢條件</p><p><b> End If</b></p><p><b> End If</b
129、></p><p> If Not (dd(0) Or dd(1) Or dd(2)) Then</p><p> MsgBox "請(qǐng)?jiān)O(shè)置查詢方式!", vbOKOnly + vbExclamation, "警告"</p><p><b> Exit Sub</b></p>&l
130、t;p><b> End If</b></p><p> '如果沒有設(shè)置查詢條件則提示用戶</p><p> txtsql = txtsql & " order by number "</p><p> Set mrc = Executesql(txtsql, msgtext)</p>
131、;<p><b> '執(zhí)行查詢</b></p><p> With MSFlexGrid1</p><p><b> .Rows = 4</b></p><p> .CellAlignment = 3</p><p> .TextMatrix(1, 0) = &quo
132、t;學(xué)號(hào)"</p><p> .TextMatrix(1, 1) = "姓名"</p><p> .TextMatrix(1, 2) = "性別"</p><p> .TextMatrix(1, 3) = "出生日期"</p><p> .TextMatrix(1,
133、 4) = "班號(hào)"</p><p> .TextMatrix(1, 5) = "手機(jī)號(hào)"</p><p> .TextMatrix(1, 6) = "e-mail"</p><p> .TextMatrix(1, 7) = "所在系部"</p><p>
134、 Do While Not mrc.EOF</p><p> .Rows = .Rows + 1</p><p> .CellAlignment = 3</p><p> .TextMatrix(.Rows - 1, 0) = mrc.Fields(0)</p><p> .TextMatrix(.Rows - 1, 1) = mrc
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- vb課程設(shè)計(jì)---學(xué)生成績管理系統(tǒng)
- vb課程設(shè)計(jì)----學(xué)生成績管理系統(tǒng)
- vb課程設(shè)計(jì)--學(xué)生成績管理系統(tǒng)
- vb課程設(shè)計(jì)---學(xué)生成績管理系統(tǒng)
- vb學(xué)生信息管理系統(tǒng)課程設(shè)計(jì)
- vb課程設(shè)計(jì)--學(xué)生成績管理系統(tǒng)
- vb課程設(shè)計(jì)--學(xué)生信息管理系統(tǒng)
- vb學(xué)生成績管理系統(tǒng)課程設(shè)計(jì)報(bào)告
- vb課程設(shè)計(jì)報(bào)告-- 學(xué)生信息管理系統(tǒng)
- vb課程設(shè)計(jì)報(bào)告--學(xué)生信息管理系統(tǒng)
- vb課程設(shè)計(jì)---員工管理系統(tǒng)
- vb課程設(shè)計(jì)--餐飲管理系統(tǒng)
- vb課程設(shè)計(jì)---倉庫管理系統(tǒng)
- vb課程設(shè)計(jì)-書籍管理系統(tǒng)
- vb課程設(shè)計(jì)-學(xué)生信息管理系統(tǒng)的實(shí)現(xiàn)
- vb課程設(shè)計(jì)設(shè)計(jì)報(bào)告---小型學(xué)生成績管理系統(tǒng)
- vb課程設(shè)計(jì)(論文)-采購管理系統(tǒng)
- vb圖書管理系統(tǒng)課程設(shè)計(jì)
- vb程序設(shè)計(jì)課程設(shè)計(jì)報(bào)告學(xué)生成績管理系統(tǒng)
- vb課程設(shè)計(jì)--學(xué)生信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)
評(píng)論
0/150
提交評(píng)論