【導(dǎo)讀】息量也在不斷成倍增長(zhǎng)。面對(duì)龐大的信息量，就需要有學(xué)生成績(jī)管理系統(tǒng)。來(lái)提高學(xué)生管理工作的效率。通過(guò)這樣的系統(tǒng)，我們可以做到信息的規(guī)范。管理和快速查詢(xún)，從而減少了管理方面的工作量。第一章簡(jiǎn)要介紹了本系統(tǒng)的設(shè)計(jì)總體線(xiàn)路。第二章概述了管理信息系。述、數(shù)據(jù)庫(kù)設(shè)計(jì)等內(nèi)容。第四章介紹了本系統(tǒng)的具體實(shí)現(xiàn)。系統(tǒng)開(kāi)發(fā)過(guò)程中結(jié)論及使用過(guò)程中的體會(huì)進(jìn)行了總結(jié)。

　　

【正文】 39。39。刷新網(wǎng)格控件 Call RefreshGrid Call ChangeBrowseState Call grdScan_Change End Sub Private Sub cmdNext_Click() Call ChangeBrowseState End Sub Private Sub cmdPrevious_Click() Call ChangeBrowseState End Sub Private Sub cmdReport_Click() On Error Resume Next Dim rpt As New rptStudentScore Load rpt = 學(xué)生 amp。 (1).CellText() amp。 的成績(jī)信息 1 End Sub Private Sub cmdSeek_Click() With frmFind Dim i As Integer 39。顯示查找窗口 Load frmFind 29 39。39。填充查找窗體的字段列表框 . For i = 0 To 1 . ((i).Name) Next i . = 0 .Show 1 If .mbFindFailed Then Exit Sub Dim sTemp As String If LCase(.msFindOp) = like Then sTemp = .msFindField amp。 amp。 .msFindOp amp。 39。% amp。 .msFindExpr amp。 %39。 Else sTemp = .msFindField amp。 amp。 .msFindOp amp。 39。 amp。 .msFindExpr amp。 39。 End If sTemp = select * from student where amp。 sTemp amp。 order by serial Unload frmFind End With 39。39。查找數(shù)據(jù)，并刷新用以導(dǎo)航的網(wǎng)格控件 sTemp Call RefreshGrid Exit Sub errHandler: MsgBox 沒(méi)有符合條件的紀(jì)錄！ , vbExclamation, 確認(rèn) End Sub Private Sub Form_Load() 39。 On Error Resume Next 30 Dim rsDep As New , rsClass As New Set rsDep = Set rsClass = 39。39。39。從 class 中讀取數(shù)據(jù)，填充到 cboClass 復(fù)合框中 If = adStateClosed Then 全部 While Not rsClass(Name) Wend = 0 = True If gnUserType = 0 Then 39。39。教師身份登錄 = True = True = True = True Else 39。39。學(xué)生身份登錄 = False = False = False If = adStateOpen Then select * from student where serial =39。 amp。 gsUserName amp。 39。 = sqlStudent End If Call grdScan_Change End Sub 31 Private Sub grdScan_Change() If 0 Then Call RefreshScore((0).CellText()) End If End Sub Private Sub grdScan_DblClick() = 1 End Sub Private Sub grdScan_RowColChange(LastRow As Variant, ByVal LastCol As Integer) 39。39。當(dāng)前行改變，則動(dòng)態(tài)改變所要顯示的記錄 If LastRow Then If 0 Then Call RefreshScore((0).CellText()) End If End If End Sub 在 Visual Basic 的集成開(kāi)發(fā)環(huán)境中創(chuàng)建好學(xué)生成績(jī)管理系統(tǒng)后，并無(wú)意味著全部工作已完成，此時(shí)生成的應(yīng)用程序只能在 Visual Basic 的集成環(huán)境中運(yùn)行，要想使應(yīng)用程序能夠脫離 Visual Basic 的集成開(kāi)發(fā)環(huán)境，首先要對(duì)學(xué)生成績(jī)管理程序進(jìn)行編譯并且生成 .exe 或其他類(lèi)型的文件，然后調(diào)用打包和展開(kāi)向?qū)?chuàng)建安裝程序。 編譯應(yīng)用程序 編譯學(xué)生成績(jī)管理程序就是將創(chuàng)建的應(yīng)用程序以及它的工程文件合并成一個(gè)可執(zhí)行文件。 在發(fā)布學(xué)生成績(jī)管理應(yīng)用程序之前，首先應(yīng)該使用測(cè)試和調(diào)試工具對(duì)改應(yīng)用程序進(jìn)行前面測(cè)試，在排除了所有可能的錯(cuò)誤后，才可以開(kāi)始對(duì)應(yīng)用程序進(jìn)行編譯。 32 編譯應(yīng)用程序的主要目的如下； ? 使應(yīng)用程序轉(zhuǎn)入和運(yùn)行更快。 ? 給發(fā)布應(yīng)用程序作準(zhǔn)備。 ? 使用應(yīng)用程序更安全。 將應(yīng)用程序進(jìn)行編譯后， Visual Basic 將工程中的所有文件進(jìn)行組織并將這些工程文件轉(zhuǎn)化成一個(gè)可執(zhí)行的文件 .exe。 Visual Basic 提供 APP 對(duì)象來(lái)存儲(chǔ)應(yīng)用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。在設(shè)計(jì)中，可以通過(guò)這些屬性來(lái)告訴 用戶(hù)一些重要的信息，在應(yīng)用程序運(yùn)行時(shí)用 Visual Basic 代碼讀出這些屬性值，也可以在 Windows 資源管理器中觀(guān)察應(yīng)用程序?qū)ο蟮陌姹拘畔傩灾?。右擊編譯過(guò)的 .exe 文件，然后從快捷菜單中選擇“屬性”命令打開(kāi)“屬性”對(duì)話(huà)框的版本標(biāo)簽，就可以看到應(yīng)用程序的版本信息。 當(dāng)完成當(dāng)前工程的 APP 對(duì)象的屬性后，就可以編譯代碼了。 Visual 支持兩種編譯格式： P 代碼和本地代碼。選擇 P 代碼格式編譯的應(yīng)用程序生成的可執(zhí)行文件較小，選擇本地代碼編譯的應(yīng)用程序生成的可執(zhí)行文件要大的多，但是可執(zhí)行文件的運(yùn)行 速度比較快。 因此，學(xué)生成績(jī)管理系統(tǒng)采用的視本地代碼的編譯格式。 打包應(yīng)用程序 創(chuàng)建 Visual Basic 應(yīng)用程序后，可以將創(chuàng)建的學(xué)生成績(jī)管理應(yīng)用程序通過(guò)磁盤(pán)，關(guān)盤(pán)，網(wǎng)絡(luò)等途徑自由發(fā)布，一般來(lái)說(shuō)，發(fā)布應(yīng)用程序必須經(jīng)過(guò)下面的兩個(gè)步驟： 打包 必須將應(yīng)用程序文件打包為一個(gè)或多個(gè)可以部署到選定位置的 .cab 文件（ .cab 文件是一種壓縮文件），對(duì)于某些類(lèi)型的軟件包，還必須為其創(chuàng)建安裝程序。 部署 必須將打包的應(yīng)用程序放置到適當(dāng)?shù)奈恢?，以便用?hù)來(lái)安裝應(yīng)用程序。 可以使用兩種工具來(lái)打包和發(fā)布應(yīng)用程序 。 ? 打包和展開(kāi)向?qū)В?Package and Deployment） ? Visual Basic 安裝軟件提供的安裝工具包。 打包和展開(kāi)向?qū)ㄟ^(guò)提供有關(guān)如何配置 .cab 文件的選項(xiàng)，使發(fā)布應(yīng)用程序所包含的許多步驟得以自動(dòng)運(yùn)行，這是用戶(hù)一般所采用的方法。 33 使用打包和展開(kāi)向?qū)нM(jìn)行打包的第一個(gè)步驟就是選擇一個(gè)工程，然后單擊打包按鈕，開(kāi)始創(chuàng)建一個(gè)可以發(fā)布的應(yīng)用程序。第三步，如果沒(méi)有編譯工程，打包和展開(kāi)向?qū)?huì)要求編譯工程。工程編譯完成后，向?qū)г?xún)問(wèn)想制作什么類(lèi)型的包，我們這里使用向?qū)е谱靼惭b程序。當(dāng)向?qū)瓿芍谱靼惭b包以后，它會(huì) 自動(dòng)生成一個(gè)帶有很多重要信息的報(bào)告。 發(fā)布應(yīng)用程序的步驟 將學(xué)生成績(jī)管理系統(tǒng)打包后，制作安裝程序的過(guò)程并沒(méi)有結(jié)束，必須將打包后的應(yīng)用程序發(fā)布到一個(gè)媒體上，比如軟盤(pán)，光盤(pán)等，發(fā)布學(xué)生成績(jī)管理系統(tǒng)的主要步驟如下：選擇“學(xué)生成績(jī)管理系統(tǒng)”這個(gè)包，然后指定把這個(gè)包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“學(xué)生成績(jī)管理系統(tǒng)”的發(fā)布工作了。 第三章：結(jié)論及體會(huì) 34 第五章 結(jié)論及體會(huì) 隨著學(xué)校規(guī)模的不斷擴(kuò)大，學(xué)生數(shù)量的急劇增加，有關(guān)學(xué)生的各種信息量也在不斷成倍增長(zhǎng)。面對(duì)龐大的信息量，就需要有學(xué)生成績(jī)管理系統(tǒng)來(lái)提高學(xué)生管理工作的效率。 傳統(tǒng)手工的學(xué)生成績(jī)管理，管理過(guò)程繁瑣而復(fù)雜，執(zhí)行效率低，并且易于出錯(cuò)。通過(guò)這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢(xún)，實(shí)現(xiàn)了學(xué)生成績(jī)管理的系統(tǒng)化、規(guī)范化和自動(dòng)化，這樣不僅減少了管理工作量，還提高了管理效率，降低了管理成本。 在軟件的編寫(xiě)過(guò)程中，我充分體會(huì)了軟件編程工作者的辛苦，因?yàn)槊恳粋€(gè)細(xì)微的細(xì)節(jié)都必須十分的注意，如果稍有不慎，就會(huì)全盤(pán)皆輸，而且往往很多的時(shí)候，程序我自己覺(jué)得非常的正確，但是就是編譯通不過(guò)，在查找錯(cuò)誤的過(guò)程中，面臨著否認(rèn)自己的過(guò)程，非常的痛苦，而且由于自己的經(jīng)驗(yàn)及各方面 的能力的不足，所以進(jìn)展的速度非常的緩慢，往往幾天的時(shí)間還沒(méi)有一點(diǎn)進(jìn)展。 在開(kāi)始編寫(xiě)程序的時(shí)候，我看到別人的軟件功能非常的詳細(xì)，而且界面非常的漂亮，總希望自己的軟件也非常的完善，但是，經(jīng)過(guò)二個(gè)月的學(xué)習(xí)，發(fā)現(xiàn)編一個(gè)優(yōu)秀的軟件決不是一蹴而就的事情，需要長(zhǎng)時(shí)間的積累和經(jīng)驗(yàn)，而這個(gè)方面又是我的弱項(xiàng)，因此，在朋友的幫助下，我終于認(rèn)清自己的不足及劣勢(shì)，不要貪圖大而全，只要盡我所能，編制一個(gè)實(shí)用簡(jiǎn)單的軟件也是件很不容易的事情。 在反反復(fù)復(fù)的學(xué)習(xí)及不恥下問(wèn)之下，我的辛勤努力有了匯報(bào)，終于做出了一個(gè)簡(jiǎn)單的軟件，雖然這個(gè)軟件的功 能非常的簡(jiǎn)單，而且我想，在實(shí)際的運(yùn)用中，肯定會(huì)有所不足，因?yàn)閷W(xué)生成績(jī)管理工作的內(nèi)容非常的豐富，我涉及到的僅僅是學(xué)生管理的一部分簡(jiǎn)單內(nèi)容，離實(shí)際的客戶(hù)需求肯定還有一定的差距。但是，它畢竟代表了我二個(gè)月辛勤的結(jié)晶。 由于我的知識(shí)淺薄，經(jīng)驗(yàn)不足及閱歷頗淺，因此，在該系統(tǒng)的設(shè)計(jì)方面還有很多不足，比如功能過(guò)少，界面不夠醒目等問(wèn)題，我會(huì)在工作的使用過(guò)程中，根據(jù)工作的具體要求不斷的修改，完善，爭(zhēng)取使該系統(tǒng)慢慢趨向完美。 在本系統(tǒng)的設(shè)計(jì)過(guò)程和論文編寫(xiě)過(guò)程中，很多老師、同事和朋友都給與了我許多無(wú)私的幫助，尤其是我的導(dǎo)師給我的 論文提出了很多寶貴的修改意見(jiàn)，在這里，我向這些無(wú)私幫助我的人表示衷心的感謝。 第三章：結(jié)論及體會(huì) 35 參考文獻(xiàn) 《 Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)指南》 王福成、周鐵柱、黃淼云等編著 清華大學(xué)出版社 2021 年 6 月第一版 《 入門(mén)經(jīng)典： 編程篇》 崔洪斌等譯 清華大學(xué)出版社 2021 年 05 月第一版 《 編程實(shí)例詳解 (含盤(pán) )》 王華杰編著 中國(guó)鐵道出版社 2021年 04 月第一版 《 高級(jí)編程》 康博譯 清華大學(xué)出版社 2021 年 03 月第一版 《 Instant 實(shí)例解析 應(yīng)用編程》 張龍卿編寫(xiě) 北京希望電子出版社 2021 年 01 月第一版 《 XML 編程 使用 VB 和 ASP》 [美 ]Mark Wilson,[美 ]Tracey Wilson 著 , 健蓮科技譯 中國(guó)電力出版社 2021 年 06 月第一版 《數(shù)據(jù)庫(kù)設(shè)計(jì)與編程實(shí)例詳解》 電子工業(yè)出版社 2021 年 02 月第一版 《編程技巧及故障排除即時(shí)通 (VB 篇 )》 清華天則工作室編著 兵器工業(yè)出版社 2021 年 02 月第一版 《引人入勝 Install Shield （含盤(pán)）》 張君編著 上海書(shū)店 2021 年 11 月第一版 《 中文版教程》 新智工作室編著 電子工業(yè)出版社 2021 年 03月第一版 1《企業(yè)管理的計(jì)算機(jī)化》 威廉謝爾 上?？茖W(xué)技術(shù)文獻(xiàn)出版社 2021年 When I was quite small I would sometimes dream of a city — which was strange because it began before I even knew what a city was. But this city, clustered