【正文】 ，專業(yè)，年制，學(xué)期，學(xué)費(fèi)）學(xué)生交費(fèi)信息（學(xué)號(hào)，學(xué)期，交費(fèi)，欠費(fèi)，日期，操作員）班級(jí)課程設(shè)置信息（年級(jí)，專業(yè)，年制，學(xué)期，課程名稱）全面課程設(shè)置信息（課程名稱，教材）學(xué)生成績信息（學(xué)號(hào)，學(xué)期，類型，課程名稱，分?jǐn)?shù)）考試類型信息（類型）為了記憶方便，數(shù)據(jù)庫的名字都用簡單的英文和拼音命名。表 班級(jí)設(shè)置信息字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵年級(jí) 文本 否 否班級(jí) 文本 否 是教室 文本 否 否年制 文本 否 否專業(yè) 文本 否 否班主任 文本 否 否備注 備注 否 否學(xué)生檔案信息表：用來存儲(chǔ)在校學(xué)生的學(xué)籍檔案。表 班級(jí)課程設(shè)置表字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵年級(jí) 文本 否 是專業(yè) 文本 否 是年制 文本 否 否學(xué)期 文本 否 否課程名稱 文本 否 否全面課程設(shè)置信息表：存儲(chǔ)學(xué)校所設(shè)置的每門課程的名稱、教材信息。表 考試類型信息字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵類型 文本 否 是4 系統(tǒng)詳細(xì)設(shè)計(jì) 系統(tǒng)業(yè)務(wù)流程圖詳細(xì)調(diào)查的重點(diǎn)是對(duì)管理業(yè)務(wù)的流程進(jìn)行描述，通過采用系統(tǒng)流程圖中部分圖形工具來描述管理活動(dòng)，進(jìn)行規(guī)范化說明 [8]。即在對(duì)學(xué)生成績管理方式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的基礎(chǔ)上，排除現(xiàn)有組織機(jī)構(gòu)和業(yè)務(wù)分工所造成的信息障礙。關(guān)鍵代碼：Private Sub Command1_Click()Dim mrc As 學(xué)生信息管理系統(tǒng)系統(tǒng)管理班級(jí)管理學(xué)生檔案管理學(xué)生交費(fèi)管理課程管理成績管理txtsql = select username from use where username=39。Set mrc = ExecuteSQL(txtsql)If = True Then MsgBox 用戶名錯(cuò)誤！, vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Subusername = (0)txtsql = select username from use where password=39。Set mrc = ExecuteSQL(txtsql)If = True Then MsgBox 密碼錯(cuò)誤！, vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit SubEnd If = 系統(tǒng)管理系統(tǒng)管理主要是管理使用本軟件的人員賬號(hào)的。關(guān)鍵代碼：Dim mrc As txtsql = select * from use where username=39。Set mrc = ExecuteSQL(txtsql)If = False Then MsgBox 已存在該用戶！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text)Exit SubEnd If MsgBox 用戶添加成功！, vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub? 修改密碼圖 修改密碼功能實(shí)現(xiàn)：使用密碼模塊首先應(yīng)輸入舊密碼，再輸入新的密碼，確認(rèn)一遍，即可修改原來的密碼。分為：瀏覽班級(jí)了模塊、添加班級(jí)子模塊、班級(jí)查詢子模塊。刪除之前會(huì)出現(xiàn)一個(gè)警告對(duì)話框，提示：“確定要?jiǎng)h除該記錄嗎？繼續(xù)會(huì)導(dǎo)致該班級(jí)在成績和學(xué)費(fèi)記錄的數(shù)據(jù)丟失，繼續(xù)嗎？”(3)班級(jí)功能：可打印當(dāng)前班級(jí)的全部記錄。 Chr(13) amp。 Trim((, 2)) amp。 Trim((, 2)) amp。 amp。刪除在成績表中的所有該班級(jí)的記錄 txtsql = delete * from class where 班級(jí)=39。 Set mrc = ExecuteSQL(txtsql) 39。修改想要修改的數(shù)據(jù)項(xiàng)，確定即可。 39。 amp。 and 年級(jí)=39。 End Iftxtsql = select * from class where amp。本系統(tǒng)的修改數(shù)據(jù)項(xiàng)有：學(xué)號(hào)、姓名、性別、班級(jí)、出生年月、家庭住址、郵政編碼、聯(lián)系電話、入學(xué)時(shí)間、備注。? 瀏覽學(xué)生檔案圖 瀏覽學(xué)生檔案功能實(shí)現(xiàn)：點(diǎn)擊“瀏覽學(xué)生檔案”下拉菜單，在出現(xiàn)的對(duì)話框左側(cè)的“瀏覽數(shù)據(jù)”中，可樹形顯示各年級(jí)及其包含的班級(jí)詳細(xì)目錄，點(diǎn)擊想要查找的學(xué)生所在班級(jí)，雙擊該班級(jí)名稱，即可出現(xiàn)該班級(jí)所有學(xué)生的記錄。關(guān)鍵代碼：Public Sub showdata()Dim j As IntegeDim i As IntegerDim mrc As Set mrc = New Set mrc = ExecuteSQL(txtsql) If = False Then With MSF1 .Rows = 50 .Row = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Row, i) = (i 1) Next i .Row = .Row + 1 Loop End With Else If find = True Then zzz = MsgBox(對(duì)不起，沒有此學(xué)生的檔案記錄！, vbOKOnly, 查詢) (0) (0).SetFocus End If End If Set mrc = Nothing? 學(xué)生檔案查詢：圖 學(xué)生檔案查詢功能實(shí)現(xiàn)：點(diǎn)擊對(duì)話框左上角的“查找” ，會(huì)彈出一個(gè)“學(xué)生檔案查詢”對(duì)話框。關(guān)鍵代碼：Dim str As Stringstr = select * from xj where amp。select , ,xj.出生年月,xj. 備注 from xj inner join class on = where =39。 order by desc, desc, desc = 學(xué)生檔案查詢結(jié)果Unload MeEnd Sub 學(xué)生交費(fèi)管理學(xué)生交費(fèi)管理是全校各年級(jí)學(xué)生的各種交費(fèi)情況。管理員可對(duì)學(xué)生的交費(fèi)記錄進(jìn)行修改、查找、打印、刪除。關(guān)鍵代碼：同“學(xué)生檔案添加”模塊的代碼。 amp。 and 年級(jí)=39。 End IfEnd IfIf txtsql = Then ss = MsgBox(你至少要輸入一個(gè)條件以上才能查詢！, , 警告) Exit SubEnd Iftxtsql = select * from xuefei where amp。關(guān)鍵代碼：Public Sub xuefeidata()maxDim mrc As Dim mrc2 As Set mrc = ExecuteSQL(txtsql)If = True Thentxtsql = select , ,jf. 交費(fèi),jf. 日期,作員 from jf inner join xj on = where =39。 and =39。 order by ,jf. 日期Set mrc = ExecuteSQL(txtsql)If = True Then Exit SubElse maxx = maxx amp。 amp。 amp。 amp。Set mrc1 = ExecuteSQL(txtsql)txtsql = select 學(xué)號(hào),sum( 欠費(fèi)) from jf where 學(xué)號(hào) in (select 學(xué)號(hào) from xj where 班級(jí)=39。) group by 學(xué)號(hào) Set mrc2 = ExecuteSQL(txtsql)Dim j As IntegerDim i As IntegerIf = True Then Exit SubEnd IfWith 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 .TextMatrix(.Row, 6) = ￥ amp。添加的數(shù)據(jù)項(xiàng)分別是：學(xué)期、班級(jí)、學(xué)號(hào)、姓名、本學(xué)期應(yīng)交費(fèi)、實(shí)際交費(fèi)、本次欠費(fèi)、以上欠費(fèi)、累計(jì)欠費(fèi)等。 Trim() amp。 Trim() amp。 Trim() amp。? 基本課程設(shè)置圖 基本課程設(shè)置功能實(shí)現(xiàn)：點(diǎn)擊“課程管理”菜單中的“基本課程設(shè)置” 。選中列表框中條目，點(diǎn)擊“修改”按鈕可修改選中條目。 39。點(diǎn)擊“確定”后設(shè)置后自動(dòng)生成。 39。? 考試類型設(shè)置圖 考試類型設(shè)置功能實(shí)現(xiàn)：在新增資料對(duì)話框中輸入新的考試類型條目。關(guān)鍵代碼：Private Sub leixingfilldata()Dim j As IntegerDim i As IntegerDim mrc As = select * from kaoshileixing order by 類型 If = False Then Do While Not (0) LoopEnd If? 成績添加圖 成績添加功能實(shí)現(xiàn)：管理員按照表中的數(shù)據(jù)項(xiàng)填寫即可生成學(xué)生的一條成績記錄。 Trim() amp。 amp。 amp。必須要經(jīng)過調(diào)試階段才能找到程序中的漏洞，并加以修改，以使得程序更加的完善和具有實(shí)用性。將鼠標(biāo)放在相應(yīng)的變量之上可以看到變量當(dāng)前的值。點(diǎn)擊外接程序管理器。點(diǎn)擊外接程序菜單選擇打包和展開向?qū)?。雙擊安裝包中的 SETUP 文件即可安裝本系統(tǒng)，且可以脫離 VB 環(huán)境，直接運(yùn)行。(4)64MB內(nèi)存以上?？蛻?服務(wù)器(Client/Server)是近年來迅速發(fā)展的分布式信息處理體系結(jié)構(gòu)。后臺(tái)的 Access 2022數(shù)據(jù)庫文件是集中存儲(chǔ)并管理學(xué)生信息的大本營，而前臺(tái)的數(shù)據(jù)庫管理系統(tǒng)是來為數(shù)據(jù)庫中的資料進(jìn)行基本操作和管理而服務(wù)的 [10]。在剛開始的時(shí)候真是無從下手，心里有點(diǎn)茫然，只是抓緊時(shí)間學(xué)習(xí) VB 的相關(guān)知識(shí)。然而，這一切我都克服了。開發(fā)本系統(tǒng)的過程中，首先要對(duì)學(xué)生信息管理流程進(jìn)行系統(tǒng)調(diào)研，熟悉從可行性調(diào)研到系統(tǒng)的成形；其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質(zhì)，敏銳觀察到在整個(gè)學(xué)生信息管理過程中存在的各種問題，并在總體設(shè)計(jì)階段把握好對(duì)問題的分析、理解，進(jìn)而解決問題。參考文獻(xiàn)[1]成奮華. 現(xiàn)代軟件工程[M]. 長沙: 中南大學(xué)出版社, 2022. 556[2]龔沛曾. Visual Basic 程序設(shè)計(jì)教程[M]. 北京高等教育出版社 , 1998. 3436[3]張學(xué)忠. VB 控件應(yīng)用編程實(shí)例教程 [M]. 北京 : 北京希望電子出版社, 2022. 282293[4]胡或. VB 程序設(shè)計(jì)[M]. 北京: 電子工業(yè)出版社 , 2022. 1478[5]劉韜, 駱娟 . Visual Basic 數(shù)據(jù)庫通用模塊及典型系統(tǒng)開發(fā)實(shí)例導(dǎo)航[M]. 人民郵電出版社, 2022. 8295, 285291[6]吳豪. SQL SERVER2022 基礎(chǔ)[M]. 北京: 北京希望電子出版社, 2022. 5089[7]敷富江. SQL 入門經(jīng)典[M]. 北京: 清華大學(xué)出版社, 2022. 68167 [8]Liberty. Programming Visual Basic 2022[M]. USA: SYBEX, 2022. 99114[9]Michael Halvorson. Microsoft Visual Basic 2022 Step by Step[M]. USA: Microsoft , 2022. 180236[10]Enangelos Petroutsos. Mastering Microsoft Visual Basic 2022[M]. USA: Microsoft Press, 2022. 246310致謝辭本系統(tǒng)是在信息工程系的領(lǐng)導(dǎo)和老師的幫助下完成的，特別要感謝我的指導(dǎo)老師孫琳老師。在此，我還要感謝在一起愉快的度過大學(xué)生活的同學(xué)們，正是由于你們的幫助和支持，我才能克服一個(gè)一個(gè)的困難和疑惑，直至本文的順利完成。 amp。 39。 39。 39。 39。 39。 39。t interact with the application in a way that lets them perform their work in an efficient and effective manner, then the ov