【導(dǎo)讀】系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展。通過分析某一學(xué)校學(xué)生管理的不足，創(chuàng)建了一套行之有效。的計(jì)算機(jī)管理學(xué)生的方案。開發(fā)學(xué)生學(xué)籍管理系統(tǒng)的必要性????????信息量也成倍增長(zhǎng)。面對(duì)龐大的信息量需要有學(xué)生管理系統(tǒng)來(lái)提高學(xué)。生管理工作的效率。班級(jí)、所學(xué)課程和成績(jī)等。5）班級(jí)管理信息的查詢。7）學(xué)生課程的設(shè)置和修改。

　　

【正文】 另外， 我還要感謝在這幾年來(lái)對(duì)我有所教導(dǎo)的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識(shí)，而且讓我掌握了學(xué)習(xí)的方法，更教會(huì)了我做人處事的道理，在此表示感謝。同時(shí)，在 系統(tǒng)開發(fā)過程中還有同組的同學(xué) 也 給 了 我不少幫助，這里一并表示感謝。 40 參考文獻(xiàn) [1] 龔沛曾 主編 ．《面向?qū)ο蟪绦蛟O(shè)計(jì)系列教材》 [M]．北京：高等教育出版社． 2020 年 9 月 ． 169171． [2] 林陳雷 主編 ．《 Visual 》 [M]．北京：人民郵電出版社． 2020 年 9月 ． 124126． [3]常明華 主編 ． 《數(shù)據(jù)庫(kù)技術(shù)及開發(fā)教程》 [M]．北京： 人民大學(xué)出版社 ． 2020 年 4 月 ． 154156． [4] 劉炳文 主編 ． 《 Visual 程序設(shè)計(jì)教程第二版 》[M]．北京： 電子工業(yè)出版社 ． 2020 年 4月 ． 254256． [5] 黃明 梁旭 編著．《 Visual 信息系統(tǒng)設(shè)計(jì)與開發(fā)實(shí)例》 [M] ． 北京：機(jī)械工業(yè)出版社． 2020 年 9月． 165168． [6]潭浩強(qiáng) 主編．《學(xué)用 Visual Basic 編程》 [M]．西安：西安電子科技大學(xué)出版社 .2020 年 1月． 9899． [7]敬 錚 主編．《 Visual 數(shù)據(jù)庫(kù)開發(fā)與專業(yè)應(yīng)用》[M]．北京：國(guó)防工業(yè)出版社． 2020 年 4月 ． 154156． [8]溫賢發(fā) 主編．《 Visual 數(shù)據(jù)庫(kù)程序設(shè)計(jì)高手》[M] ．北京： 科學(xué)出版社． 2020 年 4月 ． 151152． [9]陳明主編．《 Visual 程序設(shè)計(jì)》 [M]．北京： 中央廣播電視大學(xué)出版社． 2020 年 4月 ． 164166． [10]何文俊主編．《 Visual 編程實(shí)例精解》 [M]． 北京： 清華大學(xué)出版社． 2020 年 7月． 254256． 41 附錄 1．添加學(xué)生代碼： Dim myCon As New Dim myRs As New Private Sub Command1_Click() Dim NianJi, ZhuanYe, RenShu, FuDaoYuan, BeiZu As String NianJi = ZhuanYe = RenShu = FuDaoYuan = BeiZu = = True If Trim(NianJi) = Or Trim(ZhuanYe) = Or Trim(RenShu) = Or Trim(FuDaoYuan) = Then MsgBox 班級(jí)資料不能為空 ,請(qǐng)?zhí)顚懲?整！ Exit Sub End If Provider=。Data Source=信息 .mdb。 select * from 班 級(jí) 表 where 年級(jí) =39。 amp。 Trim() amp。 39。 and 專業(yè) =39。 amp。 Trim() amp。 39。 , myCon If = False Then MsgBox 該班級(jí)已經(jīng)存在，請(qǐng)重新輸入！ Exit Sub End If 班級(jí)表 , myCon, 3, 2 (年級(jí) ) = 42 (專業(yè) ) = (人數(shù) ) = (輔導(dǎo)員 ) = If = Then (備注 ) = Else (備注 ) = End If MsgBox 添加成功 ! = select * from 班級(jí)表 order by 年級(jí) = = = = = End Sub Private Sub Command2_Click() Dim NianJi, xi, RenShu, FuDaoYuan, BeiZu As String NianJi = ZhuanYe = RenShu = FuDaoYuan = BeiZu = If Trim(NianJi) = Or Trim(ZhuanYe) = Or Trim(RenShu) = Or Trim(FuDaoYuan) = Then MsgBox 請(qǐng)?zhí)顚懸獎(jiǎng)h除班級(jí)的資料！ 43 Exit Sub End If If = 1 Then End If Provider=。Data Source=信息 .mdb。 Dim n As Integer select * from 班 級(jí) 表 where 年級(jí) =39。 amp。 Trim() amp。 39。, myCon, 3, 2 n = MsgBox(您確定要?jiǎng)h除嗎？ , vbYesNo, 提示 ) If n = 6 Then End If 39。MsgBox 您確定要?jiǎng)h除嗎？ , vbYesNo, 提示 = select * from 班級(jí)表 order by 年級(jí) = = = = = End Sub Private Sub Command3_Click() Unload Me End Sub 44 Private Sub DataGrid1_Click() = select * from 班級(jí)表 where 年級(jí) = 39。 amp。 Trim() amp。 39。 = (年級(jí) ) = (專業(yè) ) = (人數(shù) ) = (輔導(dǎo)員) = (備注 ) = False = True End Sub Private Sub Form_Load() = = = = = 39。 39。 End Sub Private Sub Text1_Change() = True End Sub 2. 檔案增加代碼： Private Sub DataGrid1_Click() = select * from 學(xué)生檔案 where 學(xué)號(hào) = 39。 amp。 Trim() amp。 39。 = (學(xué)號(hào) ) = (姓名 ) = (年級(jí) ) = (專業(yè) ) = (性別) 45 39。 = (出生年月 ) = (民族 ) = (籍貫 ) = (政治面貌 ) = (家庭地址 ) = (郵政編碼 ) = (聯(lián)系電話 ) 39。 = (入學(xué)時(shí)間 ) = (備注) = True End Sub Private Sub Form_Load() = Provider=。Data Source= 信息 .mdb。Persist Security Info=False (男 ) (女 ) (團(tuán)員 ) (黨員 ) (無(wú) ) = End Sub 3. 成績(jī)統(tǒng)計(jì)代碼： Private Sub Command1_Click() Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String 46 On Error Resume Next SQLoriginal = SELECT * FROM 成績(jī)表 SQLadd = WHERE 學(xué)號(hào) =學(xué)號(hào) AND 姓名 =姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號(hào) =39。 + Text1 + 39。 End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 姓名 =39。 + Text2 + 39。 End If If = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 考試科目 =39。 + Text3 + 39。 End If If = 1 Then SQLadd = SQLadd + and 科目分?jǐn)?shù) 60 End If strSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = = = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 47 = = = 39。 = End Sub ： Private Sub Command1_Click() Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String SQLoriginal = SELECT 年級(jí) ,專業(yè) ,人數(shù) ,輔導(dǎo)員 ,備注 FROM 班級(jí)表 SQLadd = WHERE 年級(jí) =年級(jí) AND 專業(yè) =專業(yè) SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 年級(jí) =39。 + Text1 + 39。 End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 專業(yè) =39。 + Text2 + 39。 End If If = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + and 人數(shù) =39。 + Text3 + 39。 End If If = 1 And Not IsNull(Text4) Then SQLadd = SQLadd + and 輔導(dǎo)員 =39。 + Text4 + 39。 End If strSql = SQLoriginal + SQLadd + SQLorde If = 1 Then 48 End If strSql vbModal = = = = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = = End Sub ： Private Sub Command1_Click() Dim a As String Dim CJCX1 As String Dim CJCX2 As String Dim str1 As String Dim str2 As String If = True Then a = Trim(Combo2) Select Case a Case = CJCX1 = amp。 amp。 amp。 amp。 39。 amp。 Trim(Text1) amp。 39。 39。 Case like 39。 CJCX1 = Instr(1, amp。 amp。 ,39。 amp。 49 Trim() amp。 39。)0 End Select a = Trim(Combo4) Select Case a Case = CJCX2 = amp。 amp。 amp。 amp。 39。 amp。 Trim(Text2) amp。