【導(dǎo)讀】第三章系統(tǒng)概要設(shè)計--------------------------------------------------12. 第五章系統(tǒng)測試及評價-----------------------------------------------32. 公開評定管理，從而給學(xué)院的教學(xué)工作造成極大的不便。形勢下的評定方式來解決這一問題。學(xué)生獎學(xué)金系統(tǒng)就是應(yīng)這一要求而設(shè)計開發(fā)的軟件系統(tǒng)。整個系統(tǒng)有數(shù)據(jù)庫文件和數(shù)據(jù)庫管理系統(tǒng)兩大部他構(gòu)成。后臺的SQLSERVER作為后臺數(shù)據(jù)庫是集中存儲并管理分類學(xué)生信息的大本營，而前臺的數(shù)據(jù)庫管理系統(tǒng)是用來為數(shù)據(jù)庫中的各種資料進行各種基本操作和管理。主要是為一專業(yè)為單位評定功能、教學(xué)計劃和成績的錄用及學(xué)生在第幾學(xué)。期所獲得名次等資料的查詢，統(tǒng)計等功能。種情況，多種條件下的學(xué)生情況進行統(tǒng)計查看。要能夠完成數(shù)據(jù)的快速的錄入，修改，刪除更新，還。據(jù)放入一個記錄集。一個按后就能得到該系所有學(xué)生的德智體分和該系獲得獎學(xué)金的具體情況。5．為了提高用戶的工作效果，減輕工作人員的工作量。

　　

【正文】 ID=dhm。Data Source=獎學(xué)金 。Initial Catalog=獎學(xué)金 畢業(yè)論文（設(shè)計） 系統(tǒng)詳細設(shè)計 22 select 專業(yè)名稱 from 系字典 ,專業(yè)字典 where 系名稱 =39。 amp。 amp。 39。 and 專業(yè)字典 .系代碼 =系字典 .系代碼 , db, adOpenStatic, adLockReadOnly For t = 0 To 1 zye = (專業(yè)名稱 ).Value zye Next t End Sub 我們先和系別表建立連接指定 ODBC 信息這樣我們在系別表中將用 SQL 語句來實現(xiàn)查詢： select 專業(yè)名稱 from 系字典 ,專業(yè)字典 where 系名稱 =39。 amp。 amp。 39。 and 專業(yè)字典 .系代碼 =系字典 .系代碼 , db, adOpenStatic, adLockReadOnly 利用條件判斷來實現(xiàn)我們的對話框選擇。 學(xué)期下拉選擇框 Private Sub cobxueqi_Click() If And And Then Set db = New Set rs = New 39。 = driver={SQL Server}。 server=WORLD WORLD。database=獎學(xué)金 。 Persist Serurity Info=flase。User ID=sa = Provider=。Persist Security Info=False。User ID=dhm。Data Source=獎學(xué)金 。Initial Catalog=獎學(xué)金 select * from 成績 ,系字典 ,專業(yè)字典 ,學(xué)生信息表 where 系字典 .系代碼 =專業(yè)字典 .系代碼 and 系字典 .系代碼 =學(xué)生信息表 .系代碼 and 學(xué)生信息表 .學(xué)號=成績 .學(xué)號 , db, adOpenStatic, adLockReadOnly Else MsgBox I39。m Sorry! 請?zhí)顚懕匾畔? 畢業(yè)論文（設(shè)計） 系統(tǒng)詳細設(shè)計 23 End If End Sub 我們先和系別表建立連接指定 ODBC 信息這樣我們在學(xué)期表中將用 SQL 語句來實現(xiàn)查詢： select * from 成績 ,系字典 ,專業(yè)字典 ,學(xué)生信息表 where 系字典 .系代碼 =專業(yè)字典 .系代碼 and 系字典 .系代碼 =學(xué)生信息表 .系代碼 and 學(xué)生信息表 .學(xué)號 =成績 .學(xué)號 , db, adOpenStatic, adLockReadOnly 在著個界面中我們還將自編函數(shù) sel()來實現(xiàn)我們在下拉對話框中實現(xiàn)的 ODBC連接。 Public Sub sel() Dim i, j As Integer Dim studentid As Integer select 學(xué)號 from 德智體 ,班級表 ,專業(yè)字典 ,系字典 where 德智體 .班級 =班級表 .班級 and 班級表 .專業(yè)代碼 = 專業(yè)字典 .專業(yè)代碼 and 專業(yè)字典 .系代碼=系字典 .系代碼 , db, adOpenStatic, adLockReadOnly Set db = New Set rs1 = New 39。 = driver={SQL Server}。 server=WORLD WORLD。database=獎學(xué)金 。 Persist Serurity Info=flase。User ID=sa = Provider=。Persist Security Info=False。User ID=dhm。Data Source=獎學(xué)金 。Initial Catalog=獎學(xué)金 For i = 1 To select 班級 from 學(xué)生信息表 where 學(xué)號 = 39。 amp。 (i) amp。 39。, db, adOpenStatic, adLockReadOnly Next i Set db = New Set rs2 = New 畢業(yè)論文（設(shè)計） 系統(tǒng)詳細設(shè)計 24 39。 = driver={SQL Server}。 server=WORLD WORLD。database=獎學(xué)金 。 Persist Serurity Info=flase。User ID=sa = Provider=。Persist Security Info=False。User ID=dhm。Data Source=獎學(xué)金 。Initial Catalog=獎學(xué)金 select End Sub 學(xué)生信息界面他是一個非常直觀，簡單的界面。因為我 們的學(xué)生信息只是為了實現(xiàn)一個查看功能。因此他只擁有的是瀏覽功能就夠了。 首記錄功能語句是 添加功能語句是 。 畢業(yè)論文（設(shè)計） 系統(tǒng)詳細設(shè)計 25 刪除功能語句是 修改功能語句是 利用這些基本語句我們將完成此界面。 學(xué)生信息修改 ODBC 連接情況 Set db = New Set rs = New = Provider=。Persist Security Info=False。User ID=dhm。Data Source=獎學(xué)金 。Initial Catalog=獎學(xué)金 查找修改記錄它是對我們其他學(xué)生信息管理的一個補充界面。我們將針對學(xué)生信息表的修改。代碼如下： With stumdf . = (姓名 ) 畢業(yè)論文（設(shè)計） 系統(tǒng)詳細設(shè)計 26 . = (學(xué)號 ) . = (系代碼 ) . = (專業(yè)代碼 ) . = (班級 ) . = (家庭地址 ) . = (聯(lián)系電話 ) . = (聯(lián)系電話 ) . = (mail) End 獎罰的情況界面 我們首先保證他的安全性這樣是學(xué)生的獎罰記錄是真實的所以要管理員才能實現(xiàn)此功能。代碼如下： Private Sub Command3_Click() Dim flag As Integer Dim a, b, c As Integer If = 修改 Then flag = 1 = 確定 If b dhm Then a = MsgBox(您是管理呀員嗎★ , vbYesNo) If a = vbYes Then b = InputBox(請輸入您的姓名 ) End If c = MsgBox(您不是管理員 , vbOK) = False End If If b = dhm Then = True = True = False 畢業(yè)論文（設(shè)計） 系統(tǒng)詳細設(shè)計 27 End If (獎勵規(guī)則 ) = Else = 確定 管理員界面 這是管理員用來制定用戶的界面，他能是用戶在使用系統(tǒng)得到一個權(quán)限來訪 問一些功能。同時修改自己的一些信息。 ODBC 連接的前提 Set db = New Set rs = New = Provider=。Persist Security Info=False。User ID=dhm。Data Source=獎學(xué)金 。Initial Catalog=獎學(xué)金 畢業(yè)論文（設(shè)計） 系統(tǒng)詳細設(shè)計 28 添加的功能語句： If = Then ‘密碼確定后插入管理員表 insert into 管理員 (姓名 ,密碼 ) values (39。 amp。 amp。 39。,39。 amp。 amp。 39。) 修改的功能語句 If Then select 姓名 ,密碼 from 管理員 where 姓名 = 39。 amp。 amp。 39。, db, adOpenStatic, adLockReadOnly If 0 Then m = MsgBox(修改管理員設(shè)置嗎 ?, vbYesNo) If m = vbYes Then update 管理員 set 密碼 =39。 amp。 amp。 39。 where 姓名 =39。 amp。 amp。 39。, db, adOpenDynamic, adLockReadOnly MsgBox (修改成功 !!!!) 刪除的功能語句 delete from 管理員 where 姓名 =39。 amp。 amp。 39。 , db, adOpenStatic, adLockReadOnly 畢業(yè)論文（設(shè)計） 系統(tǒng)詳細設(shè)計 29 課程管理界面 首先是 ODBC 的連接 Set db = New Set rs = New = Provider=。Persist Security Info=False。User ID=dhm。Data Source=獎學(xué)金 。Initial Catalog=獎學(xué)金 添加的功能語句 insert into 課程信息表 (系代碼 ,專業(yè)代碼 ,年級 ,開課學(xué)期 ,課程代碼 ,課程名稱 ,學(xué)分 ) values ( 39。 amp。 txtbase(0).Text amp。 39。, 39。 amp。 txtbase(1).Text amp。 39。, 39。 amp。 txtbase(2).Text amp。 39。, 39。 amp。 amp。 39。 ,39。 amp。 amp。 39。,39。 amp。 cmbbase(1).Text amp。 39。,39。 amp。 amp。 39。), db, adOpenStatic, adLockReadOnly 課程修改功能語句 畢業(yè)論文（設(shè)計） 系統(tǒng)詳細設(shè)計 30 利用窗體調(diào)用來實現(xiàn)修改。其修改功能可以參看（學(xué)生信息修改）。 個人成績界面 用來查看學(xué)生的成績情況。他的 ODBC 連接情況是： Set db = New Set rs = New = Provider=。Persist Security Info=False。User ID=dhm。Data Source