vb課程設(shè)計學(xué)生信息管理系統(tǒng)-資料下載頁
2025-05-14 00:56本頁面
【導(dǎo)讀】通過課程設(shè)計，我們能達(dá)到具備設(shè)計功能較為復(fù)雜的Windows應(yīng)用程序的能力。隨著高校規(guī)模的不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長，因此開發(fā)一套對學(xué)生信息進(jìn)行管理的軟件是極其重要的，而且是必需的，通過這樣。的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計和快速的查詢，從而減少管理方面的工作量。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)?，F(xiàn)學(xué)生成績管理的電子化，減輕管理人員的負(fù)擔(dān)。利用這一系統(tǒng)，管理人員能夠更好的對。用Visualbasic高級語言進(jìn)行程序編制，以SQLServer2021數(shù)據(jù)庫為后臺數(shù)據(jù)庫。希望通過這次課程更清楚地了解自己的知識水平。充分的認(rèn)識到自己真實(shí)情況。更好的完善自己，為以后的學(xué)習(xí)生活以及工作奠定。及的計算過程不是很復(fù)雜。結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。此學(xué)生信息管理信息系統(tǒng)是面向大學(xué)的管理系統(tǒng)，其目的是對學(xué)校內(nèi)的學(xué)生，班級，
【正文】 Dim txtSQL As String If Not Testtxt() Then MsgBox 請輸入考試編號！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請選擇班號！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入姓名！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 課程設(shè)計說明書 沈 陽 大 學(xué) if Not Testtxt() Then MsgBox 請輸入教室房間號！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not IsNumeric(Trim()) Then MsgBox 請輸入數(shù)字！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = select * from class_Info Set mrc = ExecuteSQL(txtSQL, MsgText) While ( = False) If (Trim((0)) = Trim()) Then MsgBox 班號已經(jīng)存在，請重新輸入班號！ , vbOKOnly + vbExclamation, 警告 Exit Sub = Else End If Wend (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() MsgBox 添加成績信息成功！ , vbOKOnly + vbExclamation, 添加成績信息 End Sub Private Sub Command2_Click() Unload Me End Sub 修改查詢成績模塊 代碼如下： Private Sub Command1_Click() If = Then 課程設(shè)計說明書 沈 陽 大 學(xué) MsgBox 請輸入內(nèi)容！ Else 輸入內(nèi)容不能為空 (0) = (1) = (2) = (3) = (4) = (5) = (6) = = Str((Val() + Val() + Val()) / 3) (7) = MsgBox 修改成功 對數(shù)據(jù)庫進(jìn)行修改，并將修改后的數(shù)據(jù)存入數(shù)據(jù)庫 End If End Sub Private Sub Command10_Click() If Trim() = Then MsgBox 學(xué)號不能為空，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Else 輸入學(xué)號不能為空 = select * from 成績表 where 學(xué)號 =39。 amp。 amp。 39。 If Then MsgBox 學(xué)號不存在，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = 判斷輸入的學(xué)號是否存在，若不存在，彈出警告，并請空格文本框。 = = = = = = = = Else = (0) = (1) = (2) 課程設(shè)計說明書 沈 陽 大 學(xué) = (3) = (4) = (5) = (6) End If End If 存在時，調(diào)出數(shù)據(jù)庫。 End Sub Private Sub Command2_Click() End Sub 進(jìn)入主界面 Private Sub Command3_Click() If = Then MsgBox 請輸入內(nèi)容！ Else 判斷輸入是否為空 mybookmark = Str2$ = MsgBox(是否刪除當(dāng)前記錄？ , vbOKCancel, 當(dāng)前記錄 ) If Str2$ = vbOK Then = = = = = = = = = End If 請空格文本框 End If End Sub 查詢成績 代碼如 下： Private Sub Command1_Click() If = 按學(xué)號 Then = select * from 成績表 where 學(xué)號 =39。 amp。 amp。 39。 Else = select * from 成績表 where 姓名 =39。 amp。 amp。 39。 課程設(shè)計說明書 沈 陽 大 學(xué) 選擇查詢條件 End If If = Then = select * from 成績表 order by 成績 desc End If End Sub Private Sub Command2_Click() End Sub 進(jìn)入主界面 Private Sub Form_Load() = select * from 成績表 order by 成績 desc End Sub 課程設(shè)計說明書 沈 陽 大 學(xué)
研究報告相關(guān)推薦
鄂ICP備17016276號-1