【正文】 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 2 第六章 詳細設(shè)計說明書 14 ⒈ 引言 14 ⒉過程設(shè)計 14 第七章 軟件實現(xiàn) 17 ⒈ 引言 17 ⒉編碼實現(xiàn) 17 ⒊系統(tǒng)測試 34 第八章 結(jié)束語 36 致謝 37 參考 文獻 38 附錄 39 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 3 摘要 學(xué)生檔案管理系統(tǒng)是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。 學(xué)生信息管理系統(tǒng)主要是完成學(xué)生各種信息的管理工作 (包括基本信息、成績、課程等 )，通過對不同的用戶設(shè)置不同的權(quán)限來完成整個系統(tǒng)的管理，這樣不但方便了老師和學(xué)生查閱自己所想得到的信息而且還有效的保證了系統(tǒng)數(shù)據(jù)的安全性 . 關(guān)鍵字：控件、窗體、域。目的是通過對用戶的調(diào)查訪問，寫出關(guān)于軟件性質(zhì)的書面報告，經(jīng)過討論修改得到用戶的確認，為以后的工作確定方向。學(xué)生信息 管理 系統(tǒng)需要完成的功能主要 包括對學(xué)生基本信息、課程、成績的輸入、查詢、修改、統(tǒng)計和維護等操作。 c、 課程子系統(tǒng)應(yīng)該包括 對 課程信息、開課時 間、選課人數(shù)等 的管理。 ⑵ 項目背景 該項目為學(xué)校學(xué)生信息管理系統(tǒng)軟件 ， 是 為了更好的方便對學(xué)生各項信息進行綜合的管理。 隨著 目前社會上信息管理系統(tǒng) 的飛快發(fā)展， 各個企事業(yè)單位都引入了信息管理軟件來管理自己日益增長的各種信息 ， 學(xué)生管理系統(tǒng)也是有了很大的發(fā)展 ， 商業(yè)化的學(xué)生信息管理軟件也不少 。 (2)經(jīng)濟可行性分析中最重要的內(nèi)容之一是 對 成本－－效益 問題的 分析。所以在法律方面不會存在侵權(quán)等問題 。 第三章 軟件項目計劃 ⒈ 引 言 經(jīng)過可行性分析 階段的研究 ，得出項目可進一步進行下去的結(jié)論，在軟件繼續(xù)進一步的開發(fā)之前首先給出此軟件項目計劃 ， 以使軟件 開發(fā)者 理解軟件開發(fā)要求，進行開發(fā)。在需求分析階段結(jié)束之前，系統(tǒng)分析員應(yīng)該寫出軟件需求規(guī)格說明書，以書面形式準確的描述軟件需求。 ⒉ 任務(wù)概 述 (1)確定對系統(tǒng)的綜合要求，包括功能需求，性能需求，可靠性和可用性需求，出錯處理需求，接口需求，約束及將來可能提出的要求。 ⒊ 數(shù)據(jù) 庫 ⑴ 數(shù)據(jù)庫描述 根據(jù)上面的分析就可以設(shè)計出能夠滿足用戶需求的各種數(shù)據(jù)實體以及它們之間的關(guān)系 ， 為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ) 。在時間方 面，由于 本系統(tǒng)的數(shù)據(jù)庫較小，所以程序在響應(yīng)時間，數(shù)據(jù)更新處理時間上性能比較突出 。總體設(shè)計 的基本目的就是回答“概括的說，系統(tǒng)應(yīng)該如何實現(xiàn)”這個問題。軟件運行時有較友好的界面，基本能夠?qū)崿F(xiàn)用戶的數(shù)據(jù)處理要求 。 軟件設(shè)計是把軟件需求變換成為軟件的具體設(shè)計方案，即模塊結(jié)構(gòu)的過程。內(nèi)部過程描述是模塊內(nèi)部 的算法設(shè)計。 b、 算法 在本文檔中都統(tǒng)一使用 PAD 圖 即樹形問題分析圖 (Problem Analysis Diagram)作為描述程序處理過程的工具 。 (4)課程 設(shè)置模塊 a、 課程設(shè)置模塊 主要實現(xiàn) 添加課程信息、修改課程信息以及設(shè)置年級課程信息的 功能 。 輸出記錄 姓名有效？ 輸出記錄 出錯處理 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 17 第七章 軟件實現(xiàn) ⒈ 引言 通常把編碼和測試統(tǒng)稱為實現(xiàn)。這樣設(shè)計更好的維護了系統(tǒng)數(shù)據(jù)的正確性。 Trim(Combo1(1).Text) amp。 amp。判斷是否日期格式 ssss = MsgBox(應(yīng)輸入日期 mmddyy, vbInformation + vbOKOnly, 警告) Text1(2).SetFocus Text1(2).SelStart = 0 Text1(2).SelLength = Len(Text1(2).Text) Exit Sub End If If Not IsDate(Text1(6).Text) Then ssss = MsgBox(應(yīng)輸入日期 mmddyy, vbInformation + vbOKOnly, 警告) Text1(6).SetFocus Text1(6).SelStart = 0 Text1(6).SelLength = Len(Text1(6).Text) Exit Sub End If If modi = True Then 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 22 txtsql1 = update xj set 學(xué)號 =39。,姓 名 =39。,性別 =39。,班級 =39。,出生年月 = amp。 Trim(Text1(3).Text) amp。 Trim(Text1(4).Text) amp。 Trim(Text1(5).Text) amp。 ,備注=39。where 學(xué)號 =39。 Set mrc = ExecuteSQL(txtsql1) txtsql1 = update cj set 學(xué)號 =39。 where 學(xué)號 =39。 Set mrc = ExecuteSQL(txtsql1) txtsql1 = update jf set 學(xué)號 =39。 where 學(xué)號 =39。 39。 Trim((, 1)) amp。 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 25 圖 學(xué)生信息查詢 窗口 所有用戶都可以進行學(xué)生信息查詢操作，用戶可以根據(jù)自己的要求進行查詢，也可按姓名關(guān)鍵字查詢（如上圖所示）。超級用戶可以對課程進行添加操作和刪除操作，將課程所學(xué)專業(yè)，課程名，開始學(xué)習(xí)時間及任課教師等信息輸入數(shù)據(jù)庫中，刪除操作必須在該課程沒有 成績時才能進行。具體操作同上?？坑? Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub xuefeidata() jfshowtitle max Dim mrc As Dim mrc2 As txtsql = select , , , , , , , from jf inner join xj on = where =39。 and =39。 order by , Set mrc = ExecuteSQL(txtsql) 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 29 If = True Then txtsql = select , , , , , , , from jf inner join xj on = where =39。 and =39。 order by , Set mrc = ExecuteSQL(txtsql) If = True Then Exit Sub Else maxx = maxx amp。 amp。 amp。 amp。Set mrc1 = ExecuteSQL(txtsql) txtsql = select 學(xué)號 ,sum(欠費 ) from jf where 學(xué)號 in (select 學(xué)號 from xj where 班級 =39。) group by 學(xué)號 Set mrc2 = ExecuteSQL(txtsql) Dim j As Integer Dim i As Integer If = True Then Exit Sub End If With MSF1 .Rows = 20 .Row = 1 Do Until .Rows = .Rows + 1 .TextMatrix(.Row, 1) = (0) .TextMatrix(.Row, 2) = (1) .TextMatrix(.Row, 3) = (2) .TextMatrix(.Row, 4) = (3) .TextMatrix(.Row, 5) = ￥ amp。 .MergeCol(7) = True 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 30 .TextMatrix(.Row, 6) = ￥ amp。jfshowtitle jftree End Sub Private Sub max() Dim mrc As txtsql = select max(學(xué)期 ) from jf where 學(xué)號 in (select 學(xué)號 from class where 班級=39。) Set mrc = ExecuteSQL(txtsql) If = True Then Exit Sub Else If IsNull((0)) Then Exit Sub End If 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 31 End If maxx = Left((0), 11) g = 1 End Sub Private Sub Form_Load() jfshowtitle End Sub Private Sub MSF1_DblClick() If Trim((, 1)) = Then sssss = MsgBox(無當(dāng)前選擇記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If 1 End Sub Public Sub jftree() Dim nodex As Node Dim mrc As Dim mrc1 As Dim str As String Dim a As String a = 年級 = tvwRootLines str = select distinct 年級 from class order by 年級 Set mrc = ExecuteSQL(str) str = select distinct 年級 ,班級 from class order by 年級 ,班級 Set mrc1 = ExecuteSQL(str) Do Until Set nodex =