【導(dǎo)讀】礎(chǔ)的工作，如打印報(bào)表，從而發(fā)展到檔案管理系統(tǒng)、人事管理等項(xiàng)目管理。程，本系統(tǒng)實(shí)現(xiàn)了學(xué)生信息的基本情況、學(xué)生各種信息的查詢、添加、刪除等功能。其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。據(jù)庫(kù)，要求其完整性和安全性好；而對(duì)于應(yīng)用程序則要求程序完備、使用方便靈活等。界面顯示出來(lái)，并進(jìn)行修改，查詢等操作。文章闡述了用Access2021和VisualBasic

　　

【正文】 —— 黃 磊老師， 身上學(xué)到了很多東西。 黃老師 認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我 受 益匪淺。無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對(duì)于我以 后 的工作和學(xué)習(xí)都有一種巨大的幫助， 在此 感謝 她 耐心的輔導(dǎo)。 在撰寫論文階段，黃老師幾次審閱我們的論文，提 出 了許多寶貴意見 。 另外， 我還要感謝在這幾年來(lái)對(duì)我有所教導(dǎo)的老師，她們孜孜不倦的教誨不但讓我學(xué)到了很多知識(shí)，而且讓我掌握了學(xué)習(xí)的方法，更教會(huì)了我做人處事的道理，在此表示感謝。同時(shí)，在 系統(tǒng)開發(fā)過(guò)程中還有同組的同學(xué) 也 給 了 我不少幫助，在 這里表 示感謝。 邵陽(yáng)學(xué)院畢業(yè) 設(shè)計(jì) (論文 ) 38 附 錄 部分代碼 如下 ： Dim dbname As String Dim flag As String Dim my As Boolean Private Sub Command1_Click() If = 系統(tǒng)管理員 Then flag = 1 If flag = 1 Then 39。系統(tǒng)管理員 ’ If = 1 And = 1 Then Unload Me Else MsgBox 密碼錯(cuò)誤 , vbOKOnly + vbExclamation, 警告 End If End If End If If = 一般用戶 Then flag = 2 If flag = 2 Then With If .RecordCount 0 Then While Not .EOF If .Fields(1) = And .Fields(0) = Then Unload Me = False = False = False 邵陽(yáng)學(xué)院畢業(yè) 設(shè)計(jì) (論文 ) 39 = False = False = False = False = False = False Exit Sub Else: .MoveNext End If Wend Else: MsgBox 密碼庫(kù)中沒(méi)有記錄 , vbOKOnly, 警告 Exit Sub End If End With End If End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() ‘初始化 ’ (系統(tǒng)管理員 ) (一般用戶 ) ‘ 打開數(shù)據(jù)庫(kù) ’ dbname = If Right$(dbname, 1) \ Then dbname = dbname amp。 \ End If dbname = dbname amp。 = dbname 邵陽(yáng)學(xué)院畢業(yè) 設(shè)計(jì) (論文 ) 40 = student_info End Sub Private Sub addcinfoMenu_Click() (1).Text = 添加班級(jí) End Sub Private Sub addcourseMenu_Click() (1).Text = 添加課程 End Sub Private Sub addresultMenu_Click() (1).Text = 添加成績(jī) End Sub Private Sub addsinfoMenu_Click() (1).Text = 添加學(xué)籍 End Sub Private Sub exitsinfoMenu_Click() Unload frminquireinfo (1).Text = 查詢成績(jī) End Sub Private Sub banzhu_Click() (1).Text = 系統(tǒng)幫助 End Sub Private Sub chaxun_Click() (1).Text = 查詢班級(jí)課程信息 End Sub Private Sub gradecourseMenu_Click() 邵陽(yáng)學(xué)院畢業(yè) 設(shè)計(jì) (論文 ) 41 (1).Text = 設(shè)置年級(jí)課程 End Sub Private Sub inquireresultMenu_Click() (1).Text = 查詢成績(jī) End Sub Private Sub inquiresinfoMenu_Click() (1).Text = 查詢學(xué)籍信息 End Sub Private Sub MDIForm_Load() = GetSetting(, Settings, MainLeft, 1000) = GetSetting(, Settings, MainTop, 1000) = GetSetting(, Settings, MainWidth, 6500) = GetSetting(, Settings, MainHeight, 6500) End Sub Private Sub MDIForm_Unload(Cancel As Integer) If vbMinimized Then SaveSetting , Settings, MainLeft, SaveSetting , Settings, MainTop, SaveSetting , Settings, MainWidth, SaveSetting , Settings, MainHeight, End If End Sub Private Sub modifycinfoMenu_Click() (1).Text = 修改班級(jí)信息 End Sub Private Sub modifycourseMenu_Click() 邵陽(yáng)學(xué)院畢業(yè) 設(shè)計(jì) (論文 ) 42 (1).Text = 修改課程信息 End Sub Private Sub modifyresultMenu_Click() (1).Text = 修改成績(jī)信息 End Sub Private Sub modifysinfo_Menu_Click() (1).Text = 修改學(xué)籍信息 End Sub Private Sub tuichu_Click() End End Sub Dim mybookmark As Variant Dim mcclean As Boolean Dim dbname As String Dim txtSQL As String Private Sub Command1_Click() Dim findname As String Dim criteria As String Dim mybookmark As String Dim sqll As String findname = InputBox$(請(qǐng)輸入要查找的學(xué)生學(xué)號(hào) :, 查找 ) mybookmark = criteria = 學(xué)生學(xué)號(hào) = amp。 39。 amp。 findname amp。 39。 (criteria) If Then = mybookmark 邵陽(yáng)學(xué)院畢業(yè) 設(shè)計(jì) (論文 ) 43 MsgBox 沒(méi)有滿足要求的記錄 !, 0, 查找結(jié)果 Else Call viewData End If End Sub Private Sub editCommand_Click() mcclean = False = False = False = False = False = False = False = True = True = True = True = True = True = True = True = True mybookmark = End Sub Private Sub cancelCommand_Click() If Not mcclean Then = True = True = True 邵陽(yáng)學(xué)院畢業(yè) 設(shè)計(jì) (論文 ) 44 = True = True = False = False = False = False = False = False = False = False = mybookmark Call viewData Else MsgBox 什么都沒(méi)有修改，有什么好取消的！ , vbOKOnly + vbExclamation, 警告 End If End Sub Private Sub deleteCommand_Click() mybookmark = str2$ = MsgBox(警告 !刪除該記錄會(huì)刪除與此有關(guān)的所有記錄 .是否刪除當(dāng)前記錄？ , vbOKCancel, 刪除當(dāng)前記錄 ) If str2$ = vbOK Then SQL = select * from result_info where 學(xué)生學(xué) 號(hào) =39。 amp。 Trim() amp。 39。 = SQL With Do While Not .EOF .Delete 邵陽(yáng)學(xué)院畢業(yè) 設(shè)計(jì) (論文 ) 45 .MoveNext Loop End With If Then mybookmark = = mybookmark Call viewData Else mybookmark = = mybookmark Call viewData End If Else = mybookmark Call viewData End If End Sub Private Sub firstCommand_Click() Call viewData End Sub Private Sub Form_Load() dbname = 39。打開數(shù)據(jù)庫(kù) If Right$(dbname,