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

　　

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