《數(shù)據(jù)庫課程設(shè)計》報告學(xué)生成績管理系統(tǒng)設(shè)計

計算機科學(xué)與技術(shù)專業(yè)數(shù)據(jù)庫課程設(shè)計 華科學(xué)院計算機科學(xué)與技術(shù)專業(yè) 數(shù)據(jù)庫課程設(shè)計報告 （2007/2008學(xué)年 第一學(xué)期）學(xué)生姓名： 學(xué)生班級： 學(xué)生學(xué)號： 指導(dǎo)教師： 2007年12月29日目錄第一章 學(xué)生成績管理系統(tǒng)概述31.1 開發(fā)背景及意義31.2 運行環(huán)境3第二章 需求分析42.1 可行性分析41設(shè)計思想42技術(shù)可行性43環(huán)境可行性42.2 系統(tǒng)需求41功能需求42性能要求52.3 數(shù)據(jù)流程圖52.4 數(shù)據(jù)字典6第三章 概念結(jié)構(gòu)設(shè)計83.1 實體E-R圖83.2 實體之間關(guān)系E-R圖93.3 課程管理模塊設(shè)計113.4 學(xué)生資料管理模塊11第四章 邏輯結(jié)構(gòu)設(shè)計13第五章 物理設(shè)計及實施155.1 系統(tǒng)數(shù)據(jù)庫設(shè)計155.2 相關(guān)模塊數(shù)據(jù)庫設(shè)計15第六章 系統(tǒng)設(shè)計及主要界面介紹176.各主要界面介紹176.1 登陸界面176.2 系統(tǒng)主要界面176.2編碼實現(xiàn)：226.1 連接數(shù)據(jù)庫及網(wǎng)絡(luò)函數(shù)申明226.2 登陸界面實現(xiàn)246.3 主界面代碼如下256. 成績錄入界面代碼296. 成績修改界面326. 成績查詢366. 用戶注冊39附錄 使用說明42附錄2 Db_score.sql 內(nèi)容42參考文獻48第一章 學(xué)生成績管理系統(tǒng)概述1.1 開發(fā)背景及意義在教育普及日趨完善的今天，一個學(xué)校擁有上萬人已經(jīng)很普遍，上萬個學(xué)生的數(shù)據(jù)匯集在一起，對學(xué)校信息的管理者而言其工作的龐雜和繁瑣程度是相當巨大的，如果只靠人工管理往往為了改一條數(shù)據(jù)就要翻查所有相關(guān)的資料，不僅容易產(chǎn)生錯誤，而且造成時間和人力很大的浪費，在網(wǎng)絡(luò)普及的今天，無紙化辦公已經(jīng)成為一種新的趨勢，在極短的時間內(nèi)讓學(xué)校變成無紙化辦公的場所是不現(xiàn)實的，但我們可以一步一步向這個方向發(fā)展。經(jīng)過仔細分析以后，學(xué)校的學(xué)生成績管理是學(xué)校龐大數(shù)據(jù)中的一角，編寫個學(xué)生成績管理系統(tǒng)來關(guān)學(xué)生的成績有很大的意義。1、 主要方便教師對學(xué)生成績的管理：教師只需坐在計算機前即可完成對學(xué)生成績、課程及學(xué)生資料的管理，不用在各個辦公室來回取送文件了。2、 減少數(shù)據(jù)出錯：人工對數(shù)據(jù)的管理產(chǎn)生錯誤是無法避免的，一旦產(chǎn)生錯誤，更正起來十分困難，使用本系統(tǒng)后可以減少出錯的幾率，修改錯誤也十分方便。3、 節(jié)約資源：系統(tǒng)普及后可以節(jié)約大量用來紀錄學(xué)生信息的紙張，可以減少以用來管理學(xué)生的人手，節(jié)約了物質(zhì)資源和人力資源，從而節(jié)約了學(xué)校的開支。1.2 運行環(huán)境1、裝有WIN98以上的操作系統(tǒng)的個人電腦2、安裝Access或 SQL Server其中一種數(shù)據(jù)庫。第二章 需求分析2.1 可行性分析1設(shè)計思想當今社會的信息流量越來越大，信息交流的效率顯得尤為重要。無紙化辦公已經(jīng)成為社會各工作場所必須具備的條件了。一個有用幾千人乃至上萬人的學(xué)校，要對每個學(xué)生的資料、成績、課程等數(shù)據(jù)進行管理，其信息量很大，如果通過人工管理的話將是一項十分巨大的工作，而且容易出錯。我們設(shè)計了這套系統(tǒng)為了能讓教師更輕松地對學(xué)生的成績、課程、學(xué)生資料進行管理，查詢成績，將大大簡化學(xué)生資料、成績和課程的添加、修改、查詢等管理的手續(xù)和時間，從而減輕了教師的工作負擔(dān)和繁瑣。2技術(shù)可行性C/S 模式的客戶端需要安本裝軟件通過對數(shù)據(jù)庫的訪問就可以得到所需信息，比其他方式更容易管理，符合使用者對使用系統(tǒng)的要求。為我們提供了系統(tǒng)設(shè)計的基本思想，為我們提供了系統(tǒng)設(shè)計的基本方向。3環(huán)境可行性 現(xiàn)在學(xué)校教師已經(jīng)普遍配有計算機，而且采用的是C/S模式，不需要為客戶安裝什么特殊的軟件，甚至不要求計算機能上網(wǎng)的要求。2.2 系統(tǒng)需求1功能需求整個系統(tǒng)共劃分為學(xué)生成績管理、學(xué)生資料管理、課程管理、登陸信息管理和用戶管理五大模塊，其中課程管理模塊提供用戶對課程的基本管理功能，包括課程的添加、修改、刪除和瀏覽。學(xué)生資料管理模塊提供用戶對學(xué)生資料的基本管理功能，包括學(xué)生資料的添加、修改、刪除和查詢。系統(tǒng)功能層次圖如圖2-1所示。成績管理系統(tǒng)學(xué)生資料管理用戶管理登陸信息管理課程管理學(xué)生成績管理圖 2.1系統(tǒng)功能層次圖2性能要求所開發(fā)的系統(tǒng)能在安裝有WIN98以后的系統(tǒng)上正常運行，數(shù)據(jù)庫文件的查詢修改所需響應(yīng)時間不能大于10秒。要求系統(tǒng)能對數(shù)據(jù)庫信息的基本保密，并對超級管理員提供對數(shù)據(jù)庫的直接修改功能，對不同的對象提供不同的權(quán)限資格，讓使用者不能越權(quán)修改資料，并且要求數(shù)據(jù)的唯一，不能產(chǎn)生數(shù)據(jù)重復(fù)輸入的情況。對于源代碼能保密，出現(xiàn)問題后能及時的做出相應(yīng)的調(diào)整。要求客戶機上有安裝Access或 SQL Server等數(shù)據(jù)庫。2.3 數(shù)據(jù)流程圖 如下圖2.2所示圖 2.2 數(shù)據(jù)流程圖2.4 數(shù)據(jù)字典數(shù)據(jù)字典是關(guān)于數(shù)據(jù)的信息集合，也就是對數(shù)據(jù)流圖中包含的所有元素的定義的集合。數(shù)據(jù)字典的作用是在軟件分析和設(shè)計的過程中給人提供關(guān)于數(shù)據(jù)的描述信息。本軟件的相關(guān)數(shù)據(jù)字典如表2-1下：表2-1 數(shù)據(jù)字典名字：學(xué)生信息記錄別名：描述：描述學(xué)生的具體信息的信息表定義：學(xué)生信息記錄 = 學(xué)號 + 姓名 + 性別 + 年齡 + 班級 位置：登陸用戶信息表（tb_login）學(xué)生信息表(tb_stuInfo)名字：教師注冊表別名：系統(tǒng)登陸用戶信息描述：教師注冊為本系統(tǒng)的合法用戶時，所提供給用戶的信息。定義：教師注冊表 = 系統(tǒng)ID + 教師號 + 姓名 + 性別 + 院系位置：登陸用戶信息表（tb_login）教師信息表(tb_teacherInfo)名字：課程安排表記錄別名：描述：記錄課程安排的信息表定義：課程安排表記錄 = 科目號 + 科目名 + 上課時間+上課地點位置：課程安排表（tb_claInfo）數(shù)據(jù)項描述：系統(tǒng)ID = 教師登陸用戶名 | 管理員登陸用戶名 | 學(xué)生登陸用戶名教師登陸用戶名 = 0字母或數(shù)字12管理員登陸用戶名 = 0字母或數(shù)字12學(xué)生登陸用戶名 = 學(xué)號學(xué)號 = 12數(shù)字字符12第三章 概念結(jié)構(gòu)設(shè)計3.1 實體E-R圖E-R圖（Entity-Relationship Diagran）是用來描述現(xiàn)實世界的概念模型。本系統(tǒng)的主要E-R圖3.1 圖3.6所示：管理員姓名性別系統(tǒng)ID圖3.1 管理員實體E-R圖教師教師號姓名性別系統(tǒng)ID圖3.2 教師實體E-R圖姓名學(xué)號性別年齡班級學(xué)生圖3.3 學(xué)生教師實體E-R圖姓名學(xué)號課程名表號班級成績圖3.4 成績實體E-R圖課程課程號課程名圖3.5 課程實體E-R圖院系籍貫入學(xué)時間專業(yè)班級學(xué)生資料政治面貌最高學(xué)歷圖3.6 學(xué)生資料實體E-R圖3.2 實體之間關(guān)系E-R圖圖 3.7實體之間關(guān)系E-R圖PS：管理員和學(xué)生、教師之間是管理的關(guān)系，由管理員管理學(xué)生和教師的權(quán)限。管理員具有最高權(quán)利，并管理課程安排；也可以對學(xué)生資料和學(xué)生成績進行管理。教師和成績、學(xué)生資料之間是管理的關(guān)系，由教師對成績、學(xué)生資料的添加、刪除、修改等功能進行管理；與課程是查詢關(guān)系，教師只能查詢課程安排。學(xué)生和課程、成績、學(xué)生資料之間是查詢的關(guān)系，學(xué)生在課程、成績、學(xué)生資料的模塊中查詢信息。3.3 課程管理模塊設(shè)計權(quán)限設(shè)計：權(quán)限為2的使用者為學(xué)生，權(quán)限為1的使用者為教師，權(quán)限為0的使用者為管理員。課程管理模塊：能提供基本的課程管理功能：添加課程、修改課程、刪除課程、瀏覽課程，每個功能的具體要求如下：課程管理功能層次圖如圖3.2所示：課程管理模塊課程添加課程修改課程查詢課程刪除圖3.2 課程管理功能層次圖 添加課程：為權(quán)限為0的用戶提供課程添加功能，要求能添加課編號、課程名稱。修改課程：為權(quán)限達為0的用戶提供課程修改功能，為了保證課程編號唯一，只能修改課程名稱，不能對課程編號進行修改，如果要修改課程編號，請先刪除課程，再添加對應(yīng)課程的編號和名稱。刪除課程：為權(quán)限為0的用戶提供課程刪除功能，選擇要刪除的課程編號，顯示出該課程的相關(guān)信息，確認后刪除課程。瀏覽課程：為所有用戶提供課程瀏覽功能，將所有課程信息以表格的形式顯示到新窗體上。3.4 學(xué)生資料管理模塊學(xué)生信息管理模塊：記錄學(xué)生基本信息，包括學(xué)生的學(xué)號、姓名、性別、出生日期、所在院系、專業(yè)、聯(lián)系方式以及備注信息，對學(xué)生的基本資料進行添加、修改、刪除、查詢等基本的管理操作。學(xué)生資料管理功能層次圖3.3所示學(xué)生資料管理模塊學(xué)生資料添加學(xué)生資料修改學(xué)生資料查詢學(xué)生資料刪除圖3.3 學(xué)生資料管理功能層次圖添加學(xué)生信息：為權(quán)限是1或0的用戶提供學(xué)生信息添加功能，要求能添加學(xué)生資料的所有項，并且確保學(xué)生學(xué)號的唯一性。修改學(xué)生信息：為權(quán)限是1或0的用戶提供學(xué)生信息修改功能，輸入要修改的學(xué)生學(xué)號后生成修改學(xué)生資料的頁面，并在上面進行修改操作，要求能修改學(xué)生資料。刪除學(xué)生信息：為權(quán)限是1或0的用戶提供學(xué)生信息刪除功能，要求在輸入要刪除的學(xué)生學(xué)號后生成刪除學(xué)生資料的頁面，使用者得到確認后，徹底的刪除改學(xué)生的所有資料。查詢學(xué)生信息：為所有用戶提供學(xué)生資料查詢功能，能提供不同類型的查詢，包括全部查詢、所在專業(yè)、班級、學(xué)號、姓名的查詢，在選擇選項并輸入相應(yīng)的數(shù)值后，生成學(xué)生的資料。第四章 邏輯結(jié)構(gòu)設(shè)計邏輯結(jié)構(gòu)設(shè)計的任務(wù)就是把概念結(jié)構(gòu)設(shè)計階段設(shè)計好的基本E-R圖轉(zhuǎn)換為與選用DBMS產(chǎn)品所支持的數(shù)據(jù)模型相符合的邏輯結(jié)構(gòu)。本系統(tǒng)的邏輯結(jié)構(gòu)如下圖4.1 圖4.4所示：圖4.1 tb_login 登陸用戶基本信息表圖4.2 tb_score 學(xué)生成績基本信息表圖4.3 tb_stuinfo 學(xué)生基本信息表圖4.4 tb_clas 課程基本信息表第五章 物理設(shè)計及實施5.1 系統(tǒng)數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫包括用戶表、課程表、成績表、學(xué)生資料表，在每個表中要求能紀錄相應(yīng)的基本信息，并做到分類和自動排序。在設(shè)計過程中，本機調(diào)試時采用了SQL數(shù)據(jù)庫。5.2 相關(guān)模塊數(shù)據(jù)庫設(shè)計1 系統(tǒng)用戶表記錄的系統(tǒng)登陸用戶的信息：登陸用戶資料表(tb_login) 如圖5.1所示：（以下所有圖，為了方便截圖，建立表語句后，加了個select 語句，所以有顯示批查詢完成）圖5.1 登陸用戶表2 學(xué)生成績表記錄了學(xué)生各科成績學(xué)生成績表(tb_score)如圖5.2所示：圖5.2 學(xué)生成績表3 課程表紀錄了課程的基本信息：課程資料表(tb_course)如圖5.3所示圖5.3 課程資料表 4、學(xué)生資料表記錄了學(xué)生的基本信息：學(xué)生資料表如圖5.4所示：圖5.4 學(xué)生資料表第六章 系統(tǒng)設(shè)計及主要界面介紹6.各主要界面介紹6.1 登陸界面登陸界面Frm_login如圖6.1所示：圖6.1 登陸界面6.2 系統(tǒng)主要界面（本系統(tǒng)的主界面具體的實際功能只有修改密碼，主要是起和后邊各個窗體連接作用，相當于導(dǎo)航器，功能不可小視 ，界面設(shè)計全是自己用photoshop等軟件自己設(shè)計的，所有素材保留在本程序目錄下的skin文件夾中）系統(tǒng)主要界面Frm_tmain 系統(tǒng)簡介如圖6.2所示：圖6.2 系統(tǒng)簡介系統(tǒng)幫助如圖6.所示：（主要是連接了些網(wǎng)上關(guān)于vb6.0和sql server 2000的資料，沒有自己設(shè)置窗體和文本）圖6. 幫助主題更改密碼界面如圖6.所示：圖6. 更改密碼成績查詢界面如圖6.5所示下：（查詢中也還有其他按紐功能，大體相同，不一一介紹）圖6.5 成績查詢成績查詢結(jié)果顯示如下如圖6.6所示（注：為了方便檢查我在數(shù)據(jù)庫中加入了本班部分同學(xué)的信息，各個窗體的相關(guān)標簽是相互關(guān)聯(lián)的，如上邊查詢的是200522030109,點擊查詢得到以下表中的信息，下同）圖6.6 成績查詢結(jié)果成績錄入界面如如圖6.7所示圖6.7 錄入成績選擇相應(yīng)的科目和班級提交后得到以下頁面如圖6.8所示圖6.8 錄入成績表格信息修改界面如下如圖6.9所示圖6. 修改信息選擇相應(yīng)的科目和班級提交后得到以下頁面：在此錄入修改信息，如下圖6.10所示圖6. 修改成績表格以下是注冊信息表如圖6.11所示圖6. 注冊界面（兩個）6.2編碼實現(xiàn)：6.1 連接數(shù)據(jù)庫及網(wǎng)絡(luò)函數(shù)申明這是兩模塊:modSql和toInternet的代碼（為了方便后邊的代碼方便簡單，就把這兩個常用部分，定義了兩個單獨模塊）如下：代碼簡單，不一一解釋了模塊一：ModSql:Public Function ExecuteSql(ByVal strSql As String) As ADODB.RecordsetOn Error GoTo ExecuteSql_Error 處理錯誤 Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset cnn.Open "filedsn=db_score.dsn;uid=sa;pwd=" rst.Open Trim$(strSql), cnn, adOpenKeyset, adLockOptimistic Set ExecuteSql = rstExecuteSql_Exit: Set rst = Nothing Set cnn = Nothing Exit FunctionExecuteSql_Error:Msgbox （"數(shù)據(jù)哭操作失敗，請檢查數(shù)據(jù)源配置！"）,vbokonly Resume ExecuteSql_ExitEnd Function模塊二：toInternet:Rem 連接網(wǎng)絡(luò) .api函數(shù)Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPublic Const SW_SHOWNORMAL = 1Public Sub toWeb(ByVal URL As String)Dim Sus As LongSus = ShellExecute(Handle, vbNullString, URL, vbNullString, nil, SW_SHOWNORMAL)End Sub 6.2 登陸界面實現(xiàn)其中有關(guān)代碼如下：Option ExplicitPrivate Sub CmdAdmin_Click() MsgBox "I am sorry! You are not the admin.", vbOKOnly + vbExclamation, "HKjsj052201h"End SubPrivate Sub CmdEnter_Click() Dim strSql As String sql查詢語句 Dim rst As New ADODB.Recordset If Trim(TxtUser.Text) = "" Then MsgBox "請輸入正確的用戶名!", vbOKOnly + vbExclamation, "警告" TxtUser.SetFocus Else strSql = "select * from tb_login where userid =" & TxtUser.Text & " " Set rst = ExecuteSql(strSql) If rst.EOF = True Then MsgBox "用戶名不存在，請重新輸入!", vbOKOnly + vbExclamation, "警告" Set rst = ExecuteSql(strSql) TxtUser.SetFocus Else If Trim(rst.Fields("userpwd") = Trim(TxtPwd.Text) Then rst.Close Me.Hide Frm_tMain.Show Else MsgBox "密碼不正確，請重新輸入!", vbOKOnly + vbExclamation, "警告" TxtPwd.Text = "" TxtPwd.SetFocus End If End If End If End SubPrivate Sub CmdNewuser_Click() Frm_Login.Hide Frm_Regester.ShowEnd Sub6.3 主界面代碼如下Private Sub CmdAddStu_Click() FmeAdd.Visible = True Frmcla04.Visible = FalseEnd SubPrivate Sub CmdAlterScore04_Click() FmeAdd.Visible = False Frmcla04.Visible = TrueEnd SubPrivate Sub CmdCan01_Click() TxtYuanxi01 = "" TxtMajor01 = "" TxtClas01 = ""End SubPrivate Sub CmdChaXun05_Click() Frm_tMain.Hide Frm_Stu_Score.ShowEnd SubPrivate Sub CmdCla_Click() FClaIn.Visible = True FSubIn.Visible = FalseEnd SubPrivate Sub CmdCutStu_Click() FmeAdd.Visible = True Frmcla04.Visible = FalseEnd SubPrivate Sub Cmdok01_Click() Frm_tMain.Hide Frm_InScores.ShowEnd SubPrivate Sub CmdOk03_Click() FrmSub04.Visible = True Frmcla04.Visible = FalseEnd SubPrivate Sub CmdOk02_Click() FClaIn.Visible = True FSubIn.Visible = FalseEnd SubPrivate Sub CmdOk05_Click() Me.Hide Frm_AlterScore.ShowEnd SubPrivate Sub CmdSelSCore05_Click() Fmeclas05.Visible = True FmeZdy05.Visible = False FmeCxStu05.Visible = FalseEnd SubPrivate Sub CmdStu05_Click() FmeCxStu05.Visible = True FmeZdy05.Visible = False Fmeclas05.Visible = FalseEnd SubPrivate Sub CmdSub_Click() FClaIn.Visible = False FSubIn.Visible = TrueEnd SubPrivate Sub CmdXcode_Click() If TxtNewcode01.Text <> TxtNewcode02.Text Then MsgBox "兩次輸入的密碼不一樣！", vbOKOnly + vbExclamation, "錯誤" End If Dim rst As New ADODB.Recordset Dim strSql As String strSql = "update tb_login set userpwd = " & TxtNewcode01.Text & " where userid =" & Frm_Login.TxtUser.Text & " " Set rst = ExecuteSql(strSql) MsgBox "密碼修改成功!", vbOKOnly + vbExclamation, "HKJSJ052201H" End SubPrivate Sub CmdZdy_Click() FmeZdy05.Visible = True Fmeclas05.Visible = False FmeCxStu05.Visible = FalseEnd SubPrivate Sub Form_Load() CobSub04.AddItem ("軟件工程") CobSub04.AddItem ("匯編語言") CobSub04.AddItem ("數(shù)據(jù)庫設(shè)計") CobSub04.AddItem ("計算機圖形學(xué)") CobSub04.AddItem ("JAVA程序設(shè)計") CobSub04.AddItem ("計算機組成原理")End SubPrivate Sub Form_Unload(Cancel As Integer) If MsgBox("真的要退出本系統(tǒng)嗎?", vbOKCancel + vbDefaultButton2, "退出系統(tǒng)") = vbCancel Then Cancel = 1End SubPrivate Sub LblHelp01_Click() Me.Hide Frm_AD.ShowEnd SubPrivate Sub LblHelp02_Click() Call toWeb("End SubPrivate Sub LblHelp03_Click() Call toWeb("")End SubPrivate Sub LblHelp04_Click() Call toWeb("End SubPrivate Sub LblHelp05_Click() Me.Hide Frm_421.ShowEnd SubPrivate Sub Timer1_Timer()LblTime.Caption = " 歡迎使用本系統(tǒng)! 祝學(xué)習(xí)工作愉快 " + Format(Now, "yyyy/mm/dd") _+ "" + Format(Now, "dddd") + " " + Format(Now, "hh:mm:ss AM/PM")End Sub6. 成績錄入界面代碼Private Sub Form_Load()With MSFlexGrid1 固定表頭 .FixedRows = 1 表頭項居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .Rows = 25 .Cols = 5End With 設(shè)置MSFlexGrid表格的列寬 MSFlexGrid1.ColWidth(0) = 1900 MSFlexGrid1.ColWidth(1) = 1800 MSFlexGrid1.ColWidth(2) = 3200 MSFlexGrid1.ColWidth(3) = 1200 MSFlexGrid1.ColWidth(4) = 2600 表頭 MSFlexGrid1.TextMatrix(0, 0) = " 學(xué)號" MSFlexGrid1.TextMatrix(0, 1) = " 姓名" MSFlexGrid1.TextMatrix(0, 2) = " 課程名" MSFlexGrid1.TextMatrix(0, 3) = " 分數(shù)" MSFlexGrid1.TextMatrix(0, 4) = " 備注"ShowData no return 添寫固定科目 For k = 1 To 17 MSFlexGrid1.TextMatrix(k, 2) = LblTitle.Caption Next k End Sub 讀取數(shù)據(jù)庫的函數(shù)/循環(huán)讀入Public Sub ShowData() Dim j As Integer Dim i As Integer strSql = "select 學(xué)號,姓名 from tb_score" Set rst = ExecuteSql(strSql) If rst.EOF = False Then With MSFlexGrid1 .Rows = 1 Do While Not rst.EOF .Rows = .Rows + 1 For i = 1 To rst.Fields.Count Select Case rst.Fields(i - 1).Type Case adDBDate .TextMatrix(.Rows - 1, i - 1) = Format(rst.Fields(i - 1) & "", "yyyy-mm-dd") Case Else .TextMatrix(.Rows - 1, i - 1) = rst.Fields(i - 1) & "" End Select Next i rst.MoveNext Loop End With End If rst.Close End Sub6. 成績修改界面Option ExplicitDim rst As New ADODB.RecordsetDim strSql As StringDim k As IntegerDim j As IntegerDim i As IntegerPublic Sub ShowData() strSql = "select 學(xué)號,姓名," & Trim(LblSub.Caption) & " from tb_score" Set rst = ExecuteSql(strSql) If rst.EOF = False Then With MSFlexGrid1 .Rows = 1 Do While Not rst.EOF .Rows = .Rows + 1 For i = 1 To rst.Fields.Count Select Case rst.Fields(i - 1).Type Case adDBDate .TextMatrix(.Rows - 1, i - 1) = Format(rst.Fields(i - 1) & "", "yyyy-mm-dd") Case Else .TextMatrix(.Rows - 1, i - 1) = rst.Fields(i - 1) End Select Next i rst.MoveNext Loop End With End If rst.Close End SubPublic Sub ShowScore() strSql = "select " & Trim(LblSub.Caption) & " from tb_score" Set rst = ExecuteSql(strSql) If rst.EOF = False Then With MSFlexGrid1 .Rows = 1 Do While Not rst.EOF .Rows = .Rows + 1 For i = 1 To rst.Fields.Count .TextMatrix(.Rows - 1, i + 2) = rst.Fields(i - 1) & "" Next i rst.MoveNext Loop End With End If rst.Close End SubPrivate Sub Command1_Click()End SubPrivate Sub CmdBack_Click() Me.Hide Frm_tMain.ShowEnd SubPrivate Sub CmdOk_Click() MsgBox "修改數(shù)據(jù)成功!單擊“確定”返回", vbOKOnly + vbInformation, "計算機052201H"End SubPrivate Sub CmdReTry_Click() Dim i As Integer For i = 0 To 16 Text1(i) = "" Next iEnd SubPrivate Sub Form_Load()On Error Resume NextLblSub.Caption = Frm_tMain.CobSub04.Text 顯示biao qianMSFlexGrid1.Rows = 24MSFlexGrid1.Cols = 4設(shè)置MSFlexGrid表格的列寬 MSFlexGrid1.ColWidth(0) = 2400 MSFlexGrid1.ColWidth(1) = 2400 MSFlexGrid1.ColWidth(2) = 1800 MSFlexGrid1.ColWidth(3) = 1800 表頭 MSFlexGrid1.TextMatrix(0, 0) = " 學(xué)號" MSFlexGrid1.TextMatrix(0, 1) = " 姓名" MSFlexGrid1.TextMatrix(0, 2) = " 成績" MSFlexGrid1.TextMatrix(0, 3) = " 編輯" 填充第一列 For k = 1 To 23 MSFlexGrid1.TextMatrix(k, 0) = " 20052203010" & k Next kShowScoreShowDataEnd Sub6. 成績查詢Option ExplicitDim rst As New ADODB.RecordsetDim rstName As New ADODB.RecordsetDim strSql, strSqlName As StringPublic Sub ShowData() Dim j As Integer Dim i As Integer strSql = "select 軟件工程,匯編語言, 數(shù)據(jù)庫設(shè)計,計算機圖形學(xué),JAVA程序設(shè)計,計算機組成原理 from tb_score where 學(xué)號 = " & LblStuNo.Caption & " " Set rst = ExecuteSql(strSql) If rst.EOF = False Then With MSFlexGrid1 .Rows = 1 Do While Not rst.EOF .Rows = .Rows + 1 For i = 1 To rst.Fields.Count Select Case rst.Fields(i - 1).Type Case adDBDate .TextMatrix(.Rows - 1, i - 1) = Format(rst.Fields(i - 1) & "", "yyyy-mm-dd") Case Else .TextMatrix(.Rows - 1, i - 1) = rst.Fields(i - 1) & "" End Select Next i rst.MoveNext Loop End With End If rst.Close End SubPublic Sub ShowName() Dim i As Integer strSql = "select 姓名 from tb_score where 學(xué)號 = " & LblStuNo.Caption & " " Set rst = ExecuteSql(strSql) If rst.EOF = False Then LblStuName.Caption = rst.Fields("姓名") End If rst.CloseEnd SubPrivate Sub CmdOk_Click() Unload Me Frm_tMain.ShowEnd SubPrivate Sub Form_Load()LblStuNo.Caption = Frm_tMain.TxtStuNoC05.Text With MSFlexGrid1 固定表頭 .FixedRows = 1 表頭項居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .Rows = 2 .Cols = 6 End With guding liekuan MSFlexGrid1.ColWidth(0) = 1200 MSFlexGrid1.ColWidth(1) = 1200 MSFlexGrid1.ColWidth(2) = 1500 MSFlexGrid1.ColWidth(3) = 2000 MSFlexGrid1.ColWidth(4) = 2000 MSFlexGrid1.ColWidth(5) = 2400 MSFlexGrid1.TextMatrix(0, 0) = "軟件工程" MSFlexGrid1.TextMatrix(0, 1) = "匯編語言" MSFlexGrid1.TextMatrix(0, 2) = "數(shù)據(jù)庫設(shè)計" MSFlexGrid1.TextMatrix(0, 3) = "計算機圖形學(xué)" MSFlexGrid1.TextMatrix(0, 4) = "JAVA程序設(shè)計" MSFlexGrid1.TextMatrix(0, 5) = "計算機組成原理" ShowName 函數(shù)調(diào)用ShowData 函數(shù)調(diào)用End Sub6. 用戶注冊O(shè)ption ExplicitPrivate Sub CmdOk_Click()On Error Resume Next Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim i As Long Dim strSqlReg, strSqlChk As String strSqlReg = "insert into tb_login (userid,userpwd) values (" & NewId.Text & "," & NewPwd1.Text & " )" strSqlChk = "select userid from tb_login where userid =" & NewId.Text & " " Set rst = ExecuteSql(strSqlChk) If Trim(NewId.Text) = "" Then MsgBox "請輸入正確的用戶名!", vbOKOnly + vbExclamation, "警告" NewId.SetFocus ElseIf NewId.Text = rst.Fields("userid") Then MsgBox "此用戶名已經(jīng)被注冊!請重新輸入新用戶名！", vbOKOnly + vbExclamation, "警告" End If If NewPwd0.Text <> NewPwd1.Text Then MsgBox "對不起!你你兩次輸入的密碼不一致!請仔細核對后重新輸入！", vbOKOnly + vbExclamation, "警告" NewPwd0.Text = "" NewPwd1.Text = "" NewPwd0.SetFocus End If Set rst = Nothing Set rst = ExecuteSql(strSqlReg) MsgBox "注冊成功！祝使用學(xué)習(xí)工作愉快！", vbOKOnly + vbExclamation, "謝謝使用" End SubPrivate Sub CmdToUp_Click() Frm_Regester.Hide Frm_Login.ShowEnd SubPrivate Sub EnterEle_Click() Frm_Regester.Hide Frm_RegEle.ShowEnd Sub結(jié)束語 “ 一個軟件產(chǎn)品或一項軟件服務(wù)幫助客戶改進了他們的業(yè)務(wù)，因此獲得客戶支付的報酬，軟件產(chǎn)品和服務(wù)的付出終于取得了回報?！蓖ㄟ^本次課程設(shè)計，我終于明白學(xué)的理論和實際運用原來有這么多意想不到的差別，而只有通過自己反復(fù)動手才能發(fā)現(xiàn)這些微妙的細節(jié)。無論是在設(shè)計數(shù)據(jù)庫還是在編程方面，我都收獲頗多，而這些收獲的的來，全來源于張老師對我們的嚴格和負責(zé)。我的報告修改了無數(shù)次了。我也從這無數(shù)次中鞏固了許多原本沒掌握好的知識和一種嚴謹?shù)淖鋈说览?，也許這次還不能達到老師的嚴格要求（為此，小女子在此表示深深的歉意=_=），不過在以后的學(xué)習(xí)生活中，無論是干什么我都會嚴格要求自己，都會想到這段難忘的數(shù)據(jù)庫設(shè)計周。 首先，我想對張老師說：張老師，您辛苦了！其次，我要感謝我們的學(xué)校領(lǐng)導(dǎo)，給我們安排了這次課程設(shè)計，給了我們展示自己才能的舞確立了我們的這個作業(yè)方向，設(shè)立了我這個作業(yè)項目（本來我是用JSP寫的，能力實在有限，就又用VB和SQL所以部分界面有些網(wǎng)頁化，就沒修改了。見諒），不過沒有他們的英明決策，我這個"產(chǎn)品"就不會在這個時候出現(xiàn)在這個美妙的地方。 其次，我要感謝我的朋友和同學(xué)，沒有他們的支持，就沒有這么“出色的軟件”啦；然后我還要感謝我的爸爸媽媽，親戚朋友，沒有他們哪兒有我呀，當然就沒的這軟件了. 附錄 使用說明1 本程序采用vb 6.0 ,SQL server 2000.2 為了方便老師檢驗，里邊配帶了已經(jīng)寫好的數(shù)據(jù)庫,在項目子目錄里面的sql目錄里，將db_score.sql的文件打開后，拷貝到SQL Server 2000的查詢分析器里,然后執(zhí)行將產(chǎn)生需要的數(shù)據(jù)庫結(jié)構(gòu)。3 配置ODBC數(shù)據(jù)源，按照說明進行數(shù)據(jù)源的配置，程序?qū)?shù)據(jù)庫的訪問需要通過ODBC來實現(xiàn)。打開"控制面板"中"管理工具"的"ODBC（數(shù)據(jù)源）"，在彈出的對話框中創(chuàng)建文件DSN。需要創(chuàng)建的文件DSN，創(chuàng)建名為db_score.dsn，登錄方式選擇"使用用戶輸入登錄ID和密碼的SQL Server驗證"，登錄ID為sa，密碼為空，選擇連接數(shù)據(jù)庫為db_score（就是在查詢分析器里創(chuàng)建的數(shù)據(jù)庫）。4 運行