【正文】 。 另外，我還要感謝在這幾年來(lái)對(duì)我有所教導(dǎo)的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識(shí)，而且讓我掌握了學(xué)習(xí)的方法，更教會(huì)了我做人處事的道理，在此表示感謝。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到很大的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，在此感謝他耐心的輔導(dǎo)。 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師劉慧巍，身上學(xué)到了很多東西。通過(guò)開(kāi)發(fā)這個(gè) 系統(tǒng)，我掌握了項(xiàng)目的基本開(kāi)發(fā)過(guò)程，了解了的基本知識(shí)鞏固 了我對(duì) Visual Basic 的學(xué)習(xí)，但在這次設(shè)計(jì)中的最大收獲并不是掌握這幾門開(kāi)發(fā)工具的應(yīng)用，而是學(xué)會(huì)了設(shè)計(jì)系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的 精神。因?yàn)閷?duì)學(xué)生管理的整個(gè)流程不夠熟悉，在需求分析時(shí)未能做到完全滿足用戶的需求。 TransactSQL (sql) MsgBox 密碼修改成功！ , vbOKOnly + vbExclamation, 修改結(jié)果 Unload Me Else MsgBox 原密碼不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If Else 學(xué)生信息管理系統(tǒng) –23– Unload Me End If End If End Sub 學(xué)生信息管理系統(tǒng) –24– 結(jié) 論 在本系統(tǒng)的開(kāi)發(fā)過(guò)程中，由于本人是初次開(kāi)發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不足。 gUserName amp。 where adName=39。 amp。 Set rs = TransactSQL(sql) If iflag = 1 Then If = True Then MsgBox 登陸信息出錯(cuò)請(qǐng)重新登陸！ , vbOKOnly + vbExclamation, 警告 Else If Trim((2)) = Trim() Then sql = update Administrator set adPassword=39。 gUserName amp。 代碼實(shí)現(xiàn)如下： Private Sub cmdOK_Click() Dim sql As String Dim rs As If Trim() = Then MsgBox 請(qǐng)輸入舊密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub ElseIf Trim() = Then MsgBox 請(qǐng)輸入新密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub 學(xué)生信息管理系統(tǒng) –22– ElseIf Trim( = ) Then MsgBox 請(qǐng)?jiān)俅屋斎胄旅艽a , vbOKOnly + vbExclamation, 警告 = Exit Sub ElseIf Trim() Trim() Then MsgBox 兩次輸入不一致！ , vbOKOnly + vbExclamation, 警告 = Else sql = select * from Administrator where adName=39。以修改管理員密碼為例。 39。 amp。 39。 amp。 39。 amp。 當(dāng)選定院系，專業(yè)后系統(tǒng)將從所數(shù)據(jù)庫(kù)獲得選定院系，專業(yè)現(xiàn)存的班級(jí)編號(hào)，按倒序排列后獲得最后的編碼，由系統(tǒng)自動(dòng)加 1 顯示在控件上。 39。 amp。 Set rs = TransactSQL(sql) facID = rs(0) 39。 amp。選定院系后刷新獲得院系所含專業(yè) sql = select * from faculty where fName=39。 Set rs = TransactSQL(sql) Do While Not s = rs(1) (s) Loop End Sub 由于在表中只存儲(chǔ)編號(hào)信息，程序中顯示名稱我們以添加新的班級(jí)為例。 facultyID amp。 sql = select * from special where sfID=39。 39。 amp。 Dim fID As String Dim s As String 39。 Set rs = TransactSQL(sql) classID = rs(0) 班級(jí)添加 由于院系，專業(yè)，班級(jí)有包含關(guān)系所以在這里 bobox 控件加入代碼，實(shí)現(xiàn)選擇院系后所包含的專業(yè)自動(dòng)加入隊(duì)列。 amp。 學(xué)生信息管理系統(tǒng) –18– Dim sql As String Dim rs As sql = select * from special where sName=39。 classID amp。 facultyID amp。 = sql endID = Right(Format(1000 + eID), 2) 39。 order by id desc Set rs = TransactSQL(sql) eID = rs(0) eID = Right(eID, 2) + 1 39。 classID amp。 and cID=39。 specialID amp。 and speID=39。 facultyID amp。 Dim faculty, special, class As String If facultyID = Then MsgBox 請(qǐng)輸入院系！ , vbOKOnly + vbExclamation, 警告 學(xué)生信息管理系統(tǒng) –17– Exit Sub ElseIf specialID = Then MsgBox 請(qǐng)輸入專業(yè)！ , vbOKOnly + vbExclamation, 警告 Exit Sub ElseIf classID = Then MsgBox 請(qǐng)輸入班級(jí)！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else enterTime = Mid(, 1, 4) sql = select id from student where id and fID=39。) Call TransactSQL(sql) MsgBox 注冊(cè)成功！ , vbOKOnly + vbExclamation, 添加結(jié)果 Call init End If End If End If End Sub 學(xué)生信息管理系統(tǒng) –16– 學(xué)生注冊(cè)頁(yè)面 圖 學(xué)生注冊(cè)界面 優(yōu)化功能： 為用戶提供便捷的操作，以及在目標(biāo)中提到的要求，在學(xué)生注冊(cè)系統(tǒng)中加入了一些便捷操作： 由于沒(méi)個(gè)學(xué)生由于院系，專業(yè)，班級(jí)不同學(xué)號(hào)有 所不同所以學(xué)號(hào)由系統(tǒng)自動(dòng)生成，以減少人工干預(yù)，降低系統(tǒng)出錯(cuò)率。 amp。,39。 amp。,39。 amp。,39。 amp。判 斷用戶名是否存在 If = False Then MsgBox 這個(gè)用戶已存在，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 = 學(xué)生信息管理系統(tǒng) –15– = = Exit Sub Else If Trim() = Then Ms