數(shù)據(jù)庫(kù)課程設(shè)計(jì)--學(xué)生信息管理系統(tǒng) (2)

1、<p><b>　　目 錄</b></p><p>　　1、需求分析…………………………………………………2</p><p>　　1.1 提出問(wèn)題…………………………………………2</p><p>　　1.2 項(xiàng)目開發(fā)目標(biāo)……………………………………2</p><p>　　1.3 系統(tǒng)的運(yùn)行環(huán)境……

2、……………………………2</p><p>　　2、總體設(shè)計(jì)…………………………………………………2</p><p>　　2.1 系統(tǒng)功能分析……………………………………3</p><p>　　2.2 系統(tǒng)總體設(shè)計(jì)框圖………………………………3</p><p>　　3、系統(tǒng)詳細(xì)設(shè)計(jì)……………………………………………4</p>

3、<p>　　3.1 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)……………………………4</p><p>　　3.2 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)……………………………6</p><p>　　3.2.1 將E-R圖轉(zhuǎn)換為關(guān)系模型………………6</p><p>　　3.3 數(shù)據(jù)庫(kù)物理結(jié)構(gòu)設(shè)計(jì)……………………………6</p><p>　　4、系統(tǒng)實(shí)現(xiàn)…………………

4、………………………………9</p><p>　　4.1 我設(shè)計(jì)的模塊……………………………………9</p><p>　　4.2 總體模塊………………………………………14</p><p>　　5、學(xué)生信息管理系統(tǒng)測(cè)試與分析………………………19</p><p>　　5.1 測(cè)試實(shí)例研究與選擇…………………………19</p>

5、<p>　　5.2 性能分析………………………………………20</p><p>　　6、結(jié)束語(yǔ) …………………………………………………21</p><p><b>　　1.需求分析</b></p><p><b>　　1.1提出問(wèn)題</b></p><p>　　數(shù)據(jù)庫(kù)是一門研究數(shù)據(jù)管理

6、的技術(shù)，始于20世紀(jì)60年代，經(jīng)過(guò)40多年的發(fā)展，現(xiàn)在已經(jīng)形成了理論體系，成為計(jì)算機(jī)軟件的一個(gè)重要分支。數(shù)據(jù)庫(kù)技術(shù)體現(xiàn)了當(dāng)代先進(jìn)的數(shù)據(jù)管理方法，使計(jì)算機(jī)的應(yīng)用真正滲透到國(guó)民經(jīng)濟(jì)各個(gè)部門，在數(shù)據(jù)處理領(lǐng)域發(fā)揮著越來(lái)越大的作用。</p><p>　　隨著社會(huì)的發(fā)展和經(jīng)濟(jì)時(shí)代的到來(lái)，管理信息系統(tǒng)在各行各業(yè)都占據(jù)著越來(lái)越重要的地位，特別是教育事業(yè)。在經(jīng)濟(jì)發(fā)達(dá)的國(guó)家，許多教育機(jī)構(gòu)（如公辦、私立、培訓(xùn)機(jī)構(gòu)等），都投入了大量的資

7、金開發(fā)MIS系統(tǒng)，以求在將來(lái)激烈的競(jìng)爭(zhēng)中立于不敗之地。因此，開發(fā)一套能夠?yàn)榇颂峁┮?guī)范化的事務(wù)管理、充足的信息和快捷的查詢手段的學(xué)生信息管理系統(tǒng)是非常必要的。</p><p><b>　　1.2項(xiàng)目開發(fā)目標(biāo)</b></p><p>　　學(xué)生信息管理系統(tǒng)是面向教育部門的學(xué)生管理事務(wù)，包括學(xué)生基本信息管理，學(xué)生成績(jī)管理等工作，是利用計(jì)算機(jī)進(jìn)行集中管理而開發(fā)的系統(tǒng)。該系統(tǒng)是以

8、SQL 2000為后臺(tái)數(shù)據(jù)庫(kù)進(jìn)行開發(fā)的畢業(yè)生就業(yè)管理系統(tǒng)，力求與實(shí)際相結(jié)合具有查詢、管理等功能，使教育的管理趨于計(jì)算機(jī)化，使之更加方便、快捷以提高工作效率。</p><p>　　根據(jù)學(xué)生信息管理的需求和特點(diǎn)，該系統(tǒng)實(shí)施后，應(yīng)達(dá)到以下目標(biāo)：</p><p>　　(1)靈活地運(yùn)用表格輸入數(shù)據(jù)，使信息傳遞更快捷；</p><p>　　(2)系統(tǒng)采用人機(jī)對(duì)話方式，界面美觀友

9、好、數(shù)據(jù)存儲(chǔ)安全可靠；</p><p>　　(3)鍵盤操作，快速響應(yīng)；</p><p>　　(4)實(shí)現(xiàn)各種信息的添加、刪除、修改、查詢等；</p><p>　　(5)系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。</p><p>　　1.3系統(tǒng)的運(yùn)行環(huán)境</p><p>　　此系統(tǒng)，代碼使用VB語(yǔ)言編寫，數(shù)據(jù)庫(kù)管理系統(tǒng)采用SQL2000數(shù)據(jù)

10、庫(kù)管理系統(tǒng)，運(yùn)行在Windows98/ME/2000/XP系統(tǒng)下。</p><p><b>　　2.總體設(shè)計(jì)</b></p><p><b>　　2.1系統(tǒng)功能分析</b></p><p>　　系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化</p><p>　　系統(tǒng)功能分析是在系統(tǒng)開發(fā)

11、的總體任務(wù)的基礎(chǔ)上完成的</p><p><b>　　主要功能模塊:</b></p><p>　　有關(guān)學(xué)籍等信息的輸入</p><p><b>　　學(xué)生信息的修改</b></p><p><b>　　班級(jí)管理信息的輸入</b></p><p><b

12、>　　班級(jí)管理信息的修改</b></p><p><b>　　教師信息管理</b></p><p><b>　　課程信息管理</b></p><p><b>　　選課信息管理</b></p><p>　　選課信息的錄入與查詢</p><p&

13、gt;　　成績(jī)信息的查詢與修改</p><p><b>　　選課數(shù)據(jù)查詢</b></p><p>　　2.2系統(tǒng)總體設(shè)計(jì)框圖</p><p><b>　　3.系統(tǒng)詳細(xì)設(shè)計(jì)</b></p><p>　　數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效

14、果產(chǎn)生影響。合理的數(shù)據(jù)庫(kù)設(shè)計(jì)結(jié)構(gòu)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整性和一致性。同時(shí)，合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。</p><p>　　設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)應(yīng)該首先充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及將來(lái)可能增加的需求。</p><p>　　3.1數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)</p><p><b>　　學(xué)生實(shí)體E-R圖</b></p

15、><p><b>　　班級(jí)實(shí)體E-R 圖</b></p><p><b>　　課程實(shí)體E-R圖</b></p><p>　　選修課程實(shí)體 E-R圖</p><p><b>　　教師實(shí)體E-R圖</b></p><p>　　教師任課實(shí)體E-R圖</p&g

16、t;<p><b>　　用戶信息實(shí)體圖</b></p><p>　　實(shí)體及其聯(lián)系的部分ER圖表示數(shù)據(jù)庫(kù)系統(tǒng)的概念模型，實(shí)體之間ER圖</p><p>　　3.2數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)</p><p>　　3.2.1將E-R圖轉(zhuǎn)換為關(guān)系模型</p><p>　　實(shí)體型轉(zhuǎn)換為關(guān)系模式。實(shí)體的屬性就是關(guān)系的屬性，實(shí)體

17、的碼就是關(guān)系的碼。對(duì)于實(shí)體間的聯(lián)系則有以下不同的情況：一個(gè)m：n聯(lián)系轉(zhuǎn)換為一個(gè)關(guān)系模式。與該聯(lián)系相連的各實(shí)體的碼以及聯(lián)系本身的屬性均轉(zhuǎn)換為關(guān)系的屬性，而關(guān)系的碼為各實(shí)體碼的組合。</p><p>　　一個(gè)1：n聯(lián)系可以轉(zhuǎn)換為一個(gè)獨(dú)立的關(guān)系模式，也可以與n端對(duì)應(yīng)的關(guān)系模式合并。如果轉(zhuǎn)換為一個(gè)獨(dú)立的關(guān)系模式，則與該聯(lián)系相連的各實(shí)體的碼以及聯(lián)系本身的屬性均轉(zhuǎn)換為關(guān)系的屬性，而關(guān)系的碼為n端實(shí)體的碼。 一個(gè)1

18、：1聯(lián)系可以轉(zhuǎn)換為一個(gè)獨(dú)立的關(guān)系模式，也可以與任意一端對(duì)應(yīng)的關(guān)系模式合并。三個(gè)或三個(gè)以上實(shí)體間的一個(gè)多元聯(lián)系可以轉(zhuǎn)換為一個(gè)關(guān)系模式。與該多元聯(lián)系相連的各實(shí)體的碼以及聯(lián)系本身的屬性均轉(zhuǎn)換為關(guān)系的屬性，而關(guān)系的碼為各實(shí)體碼的組合 具有相同碼的關(guān)系模式可合并。</p><p>　　由于讀者類別與讀者、館室與圖書的聯(lián)系方式是1:n（一對(duì)多），可以將其之間的聯(lián)系與n端實(shí)體讀者、圖書合并，管理員與圖書之間的維護(hù)聯(lián)系也

19、是1:n（一對(duì)多），同樣也將其之間的聯(lián)系與n端實(shí)體合并，而讀者與圖書之間的借閱和歸還聯(lián)系方式則是n:m（多對(duì)多），這樣要把它們之間的聯(lián)系轉(zhuǎn)化為獨(dú)立的關(guān)系模式，讀者與管理員之間的罰款聯(lián)系是m:n（多對(duì)多），將其聯(lián)系也轉(zhuǎn)化成獨(dú)立的關(guān)系模式，具體的基本E-R圖向關(guān)系模型的轉(zhuǎn)化如下：</p><p>　　Student(S_no,S_name,S_sex,Class_no,S_birthday)</p>&

20、lt;p>　　Class(Class_no,Class_name,Class_special,Class_dept)</p><p>　　Course(Course_no,Course_name,Course_score)</p><p>　　Choice(S_no,Course_no,score)</p><p>　　Teacher(T_no,T_name,

21、T_sex,T_birthday,T_title)</p><p>　　Teaching(T_no,Course_no)</p><p>　　Password(User_Id,User_Pwd)</p><p>　　3.3數(shù)據(jù)庫(kù)物理設(shè)計(jì)</p><p>　　1、學(xué)生基本情況數(shù)據(jù)表student，結(jié)構(gòu)如下：</p><p&g

22、t;　　2、班級(jí)數(shù)據(jù)表C1ass，結(jié)構(gòu)如下：</p><p>　　3、課程數(shù)據(jù)表course，結(jié)構(gòu)如下：</p><p>　　4、選修課程情況數(shù)據(jù)表Choice，結(jié)構(gòu)如下：</p><p>　　5、教師數(shù)據(jù)表Teacher，結(jié)構(gòu)如下：</p><p>　　6、教師任課情況表Teaching，結(jié)構(gòu)如下:</p><p>

23、　　7、密碼表Password,結(jié)構(gòu)如下:</p><p>　　利用企業(yè)管理器，在Study數(shù)據(jù)庫(kù)中，向以上建立的6個(gè)數(shù)據(jù)表中分別輸入以下內(nèi)容。</p><p>　　學(xué)生基本情況數(shù)據(jù)表Student的內(nèi)容如下：</p><p>　　班級(jí)數(shù)據(jù)表Class的內(nèi)容如下：</p><p>　　課程數(shù)據(jù)表Course的內(nèi)容如下：</p>

24、<p>　　選修課程情況數(shù)據(jù)表Choice的內(nèi)容如下：</p><p>　　教師數(shù)據(jù)表Teacher的內(nèi)容如下：</p><p>　　教師任課情況表Teaching的內(nèi)容如下：</p><p>　　密碼表Password內(nèi)容如下</p><p><b>　　4.系統(tǒng)實(shí)現(xiàn)</b></p><p

25、>　　4.1 我設(shè)計(jì)的模塊</p><p>　　4.1.1主窗體的界面</p><p>　　菜單欄有系統(tǒng)、學(xué)籍管理、課程管理、班級(jí)管理、教師管理、教學(xué)管理、幫助，</p><p>　　Private Sub madd_Click(Index As Integer)</p><p>　　frmaddstu.Show</p>

26、<p><b>　　End Sub</b></p><p>　　Private Sub maddt_Click(Index As Integer)</p><p>　　frmcxteacher.Show</p><p><b>　　End Sub</b></p><p>　　Private

27、 Sub MDIForm_Load()</p><p><b>　　End Sub</b></p><p>　　Private Sub mnadd_Click(Index As Integer)</p><p>　　frmcourse.Show</p><p><b>　　End Sub</b>&l

28、t;/p><p>　　Private Sub mnuexit_Click(Index As Integer)</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub mnuteaching_Click()&l

29、t;/p><p>　　frmteaching.Show</p><p><b>　　End Sub</b></p><p>　　4.1.2學(xué)生信息管理界面</p><p>　　瀏覽數(shù)據(jù)庫(kù)中學(xué)生信息表的所有記錄， 并實(shí)現(xiàn)添加、刪除操作</p><p><b>　　編碼實(shí)現(xiàn)：</b>

30、</p><p>　　Private Sub Command1_Click()</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = False</p><p>　　Com

31、mand3.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Text1.SetFocus</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p

32、>　　Adodc1.Recordset.MovePrevious</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　If Adodc1.Recordset.BOF Then</p><p>　　Adodc1.Recordset.Mo

33、veFirst</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　

34、　Private Sub Command3_Click()</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　Command1.Enabled = True</p><p>　　Command2.Enabled = True</p><p>　　If Adodc1.Recordset.EOF Then

35、</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False</p><p><b>　　End If</b></p><p><b>

36、　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　Command1.Enabled = True</p><p>　　Command2.Enabled = True</p>

37、<p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p>　　Adodc1.Record

38、set.AddNew</p><p>　　Command5.Enabled = False</p><p>　　Command6.Enabled = False</p><p>　　Command7.Enabled = True</p><p>　　Command8.Enabled = True</p><p>　　T

39、ext1.SetFocus</p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　Dim x As String</p><p>　　x = MsgBox("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo +

40、vbQuestion, "確認(rèn)")</p><p>　　If x = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF Then</p&g

41、t;<p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　Adodc1.Refresh</p><p><b>　　End If</b>&

42、lt;/p><p><b>　　End Sub</b></p><p>　　Private Sub Command7_Click()</p><p>　　Adodc1.Recordset.Update</p><p>　　Command5.Enabled = True</p><p>　　Comman

43、d6.Enabled = True</p><p>　　Command7.Enabled = False</p><p>　　Command8.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command8_Click()</p>

44、;<p>　　Adodc1.Refresh</p><p>　　Command5.Enabled = True</p><p>　　Command6.Enabled = True</p><p>　　Command7.Enabled = False</p><p>　　Command8.Enabled = False</p

45、><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = False</p><p>　　Command3.Enabl

46、ed = True</p><p>　　Command4.Enabled = True</p><p>　　Command5.Enabled = True</p><p>　　Command6.Enabled = True</p><p>　　Command7.Enabled = False</p><p>　　Com

47、mand8.Enabled = False</p><p><b>　　End Sub</b></p><p><b>　　4.2 總體模塊</b></p><p>　　4.2.1主窗體的界面</p><p>　　菜單欄有系統(tǒng)、學(xué)籍管理、課程管理、班級(jí)管理、教師管理、教學(xué)管理、幫助。</p&g

48、t;<p><b>　　編碼實(shí)現(xiàn)：</b></p><p>　　Private Sub madd_Click(Index As Integer)</p><p>　　frmaddstu.Show</p><p><b>　　End Sub</b></p><p>　　Private S

49、ub maddt_Click(Index As Integer)</p><p>　　frmcxteacher.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_Load()</p><p><b>　　End Sub</b>&

50、lt;/p><p>　　Private Sub mnadd_Click(Index As Integer)</p><p>　　frmcourse.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub mnuexit_Click(Index As Integer)</

51、p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub mnuteaching_Click()</p><p>　　frmteaching.Show</p><p><b>　　

52、End Sub</b></p><p>　　4.2.1登錄窗體的設(shè)計(jì)</p><p>　　本模塊共有三個(gè)部分組成：用戶登陸窗體、密碼修改窗體、新用戶注冊(cè)窗體。</p><p>　　用戶登陸窗體主要由文本框及命令按鈕組成，利用Adodc控件實(shí)現(xiàn)程序代碼與SQL數(shù)據(jù)的連接。用戶鍵入用戶名及密碼后點(diǎn)擊“確定”按鈕系統(tǒng)會(huì)通過(guò)上述兩個(gè)控件與數(shù)據(jù)庫(kù)進(jìn)行連接并進(jìn)行數(shù)據(jù)

53、的比較，如果存在該用戶及密碼正確則會(huì)進(jìn)行系統(tǒng)跳轉(zhuǎn)進(jìn)行主控制界面，否則會(huì)提示用戶出錯(cuò)，重新輸入用戶名及密碼，次數(shù)無(wú)限制。默認(rèn)用戶名為：admin，默認(rèn)密碼為：admin</p><p><b>　　編碼實(shí)現(xiàn):</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim User_Pwd As

54、String</p><p>　　Static micount As Integer '用于記錄輸入密碼次數(shù)</p><p>　　Dim SQLstr As String</p><p>　　SQLstr = "Select * from Password where User_Id='" & Text

55、1 & " '"</p><p>　　Adodc1.RecordSource = SQLstr</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.BOF Then '若沒有找到符合where 條件的記錄</p><p>　　M

56、sgBox "用戶名錯(cuò)誤，重新輸入", vbExclamation, "警告"</p><p>　　Text1.Text = ""</p><p>　　Text1.SetFocus 'text1獲得焦點(diǎn)</p><p><b>　　Else<

57、/b></p><p>　　If Adodc1.Recordset.Fields("User_Pwd") = Text2.Text Then</p><p>　　FrmMain.Show</p><p><b>　　Unload Me</b></p><p><b>　　Else<

58、;/b></p><p>　　MsgBox "密碼錯(cuò)誤，重新輸入", vbExclamation, "警告"</p><p>　　Text2.Text = ""</p><p>　　Text2.SetFocus</p><p><b>　　End If</b&g

59、t;</p><p>　　micount = micount + 1</p><p>　　If micount = 4 Then Unload Me</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Pr

60、ivate Sub Command2_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Dim micount As Integer<

61、;/p><p>　　micount = 0</p><p><b>　　End Sub</b></p><p><b>　　運(yùn)行結(jié)果</b></p><p>　　4.2.3學(xué)生信息管理界面</p><p>　　瀏覽數(shù)據(jù)庫(kù)中學(xué)生信息表的所有記錄， 并實(shí)現(xiàn)添加、刪除操作</p&

62、gt;<p><b>　　編碼實(shí)現(xiàn)：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Command1.Enabled = False</p><p>　　Command2.E

63、nabled = False</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Text1.SetFocus</p><p><b>　　End Sub</b></p><p>　　Priva

64、te Sub Command2_Click()</p><p>　　Adodc1.Recordset.MovePrevious</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　If Adodc1.Recordset.BOF Then&l

65、t;/p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = False</p><p><b>　　End If</b></p><p><b>　

66、　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　Command1.Enabled = True</p><p>　　Command2.Enabled = True</p>

67、<p>　　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False</p><p><b>　　End If

68、</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　Command1.Enabled = True</p><

69、p>　　Command2.Enabled = True</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Cli

70、ck()</p><p>　　Adodc1.Recordset.AddNew</p><p>　　Command5.Enabled = False</p><p>　　Command6.Enabled = False</p><p>　　Command7.Enabled = True</p><p>　　Command

71、8.Enabled = True</p><p>　　Text1.SetFocus</p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　Dim x As String</p><p>　　x = Ms

72、gBox("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)")</p><p>　　If x = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p>　　Adodc1.Recordset.MoveNext</p><p&g

73、t;　　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　Adodc1.Refresh</p>

74、;<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command7_Click()</p><p>　　Adodc1.Recordset.Update</p><p>　　Command5.Ena

75、bled = True</p><p>　　Command6.Enabled = True</p><p>　　Command7.Enabled = False</p><p>　　Command8.Enabled = False</p><p><b>　　End Sub</b></p><p>

76、;　　Private Sub Command8_Click()</p><p>　　Adodc1.Refresh</p><p>　　Command5.Enabled = True</p><p>　　Command6.Enabled = True</p><p>　　Command7.Enabled = False</p>&

77、lt;p>　　Command8.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = Fa

78、lse</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Command5.Enabled = True</p><p>　　Command6.Enabled = True</p><p>　　Command7.E

79、nabled = False</p><p>　　Command8.Enabled = False</p><p><b>　　End Sub</b></p><p>　　4.2.4教師管理窗口</p><p>　　實(shí)現(xiàn)對(duì)教師信息的基本操作</p><p><b>　　編碼實(shí)現(xiàn)：<

80、/b></p><p>　　Private Sub Command1_Click()</p><p>　　Adodc1.Recordset.AddNew</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = False</p><p>　　

81、Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　x = MsgBox("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？

82、", vbYesNo + vbQuestion, "確認(rèn)")</p><p>　　If x = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordse

83、t.EOF Then</p><p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　Adodc1.Refresh</p><p><b>　

84、　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Adodc1.Recordset.Update</p><p>　　Command1.Enabled = True</p>

85、<p>　　Command2.Enabled = True</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command

86、4_Click()</p><p>　　Adodc1.Refresh</p><p>　　Command1.Enabled = True</p><p>　　Command2.Enabled = True</p><p>　　Command3.Enabled = False</p><p>　　Command4.Ena

87、bled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p>　　frmteacher.Show</p><p><b>　　End Sub</b></p><p>

88、<b>　　編碼實(shí)現(xiàn):</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then</p><p>　　MsgBox "請(qǐng)選擇要修改的行"<

89、/p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　frmxiugaite.Show</p><p>　　frmcxteacher.Hide</p><p><b>　　End Sub</b&g

90、t;</p><p><b>　　5.系統(tǒng)測(cè)試與分析</b></p><p>　　軟件測(cè)試是為了發(fā)現(xiàn)錯(cuò)誤而執(zhí)行程序的過(guò)程，其目的在于以最少的時(shí)間和人力系統(tǒng)地找出軟件中潛在的各種錯(cuò)誤和缺陷。測(cè)試主要是由人而不是由機(jī)器執(zhí)行，因而存在心理學(xué)的問(wèn)題。</p><p>　　5.1 測(cè)試實(shí)例研究與選擇</p><p>　　由于軟件錯(cuò)

91、誤的復(fù)雜性，軟件測(cè)試需要綜合應(yīng)用測(cè)試技術(shù)，軟件測(cè)試步驟為單元測(cè)試、集成測(cè)試、確認(rèn)測(cè)試和系統(tǒng)測(cè)試。 單元測(cè)試是對(duì)源程序中每一個(gè)程序單元進(jìn)行測(cè)試，檢查各個(gè)模塊是否正確實(shí)現(xiàn)了規(guī)定的功能，從而發(fā)現(xiàn)模塊在編碼中或算法中的錯(cuò)誤。該階段涉及編碼和詳細(xì)設(shè)計(jì)的文檔。各模塊經(jīng)過(guò)單元測(cè)試后，將各模塊組裝起來(lái)進(jìn)行集成測(cè)試，以檢查與設(shè)計(jì)相關(guān)的軟件體系結(jié)構(gòu)的有關(guān)問(wèn)題。確認(rèn)測(cè)試主要檢查已實(shí)現(xiàn)的軟件是否滿足需求規(guī)格說(shuō)明書中確定的各種需求。系統(tǒng)測(cè)試將已確定的軟件與其他系

92、統(tǒng)元素（如硬件、其他支持軟件、數(shù)據(jù)和人工等）結(jié)合在一起進(jìn)行測(cè)試。</p><p>　　本系統(tǒng)是管理系統(tǒng)，主要是從數(shù)據(jù)庫(kù)中讀取數(shù)據(jù)，因而測(cè)試的實(shí)例主要是實(shí)現(xiàn)與數(shù)據(jù)相關(guān)的各種操作。應(yīng)用白盒測(cè)試法中的語(yǔ)句覆蓋方法使得程序中的每條語(yǔ)句都執(zhí)行一次。</p><p><b>　　5.2性能分析</b></p><p>　　測(cè)試過(guò)程中發(fā)現(xiàn)了不合適或不相容的類

93、型說(shuō)明；有的變量無(wú)初值；有的變量初始化或缺省值有錯(cuò)；有的變量名不正確的（拼錯(cuò)或不正確地截?cái)啵?；出現(xiàn)上溢、下溢和地址異常等問(wèn)題，并逐個(gè)予以解決，保證了臨時(shí)存儲(chǔ)在模塊內(nèi)的數(shù)據(jù)在程序執(zhí)行過(guò)程中完整、正確。</p><p>　　本系統(tǒng)長(zhǎng)時(shí)間不間斷連續(xù)運(yùn)行不會(huì)出現(xiàn)錯(cuò)誤，系統(tǒng)不會(huì)出現(xiàn)系統(tǒng)故障，不會(huì)出現(xiàn)嚴(yán)重的錯(cuò)誤，并且由于有較高的容錯(cuò)技術(shù)，能較快的糾正意外錯(cuò)誤，使系統(tǒng)穩(wěn)定可靠。</p><p>　　本系

94、統(tǒng)能夠準(zhǔn)確，快速的處理學(xué)生信息管理的操作事務(wù)，能夠滿足管理者的需求，并大大減少了教務(wù)管理者的信息查詢及維護(hù)的麻煩，實(shí)現(xiàn)日常處理計(jì)算機(jī)化，使系統(tǒng)簡(jiǎn)單實(shí)用。</p><p>　　系統(tǒng)程序代碼中設(shè)計(jì)了判斷語(yǔ)句，用來(lái)判斷操作錯(cuò)誤時(shí)彈出報(bào)錯(cuò)對(duì)話框，在系統(tǒng)中設(shè)置了權(quán)限判斷，使數(shù)據(jù)具有一定的保密性，增加了系統(tǒng)的安全性。</p><p>　　本系統(tǒng)的功能還不是很完善，系統(tǒng)的界面設(shè)計(jì)的還有些簡(jiǎn)單，樣式還不是

95、特別美觀，有待于進(jìn)一步設(shè)計(jì)；系統(tǒng)設(shè)計(jì)中后臺(tái)數(shù)據(jù)庫(kù)應(yīng)用SQL server，結(jié)合VB程序設(shè)計(jì)使操作更簡(jiǎn)單，理解更方便。</p><p>　　經(jīng)過(guò)系統(tǒng)的性能測(cè)試得出，本系統(tǒng)雖然有一定的缺陷和限制，但本系統(tǒng)的具體功能能夠完整實(shí)現(xiàn)，所以本系統(tǒng)可以投入到現(xiàn)實(shí)應(yīng)用中。</p><p><b>　　6.結(jié)束語(yǔ)</b></p><p>　　本次課程設(shè)計(jì)是我第一

96、次系統(tǒng)的、完整的接觸軟件設(shè)計(jì)的過(guò)程。我做的是學(xué)生信息管理系統(tǒng)。在這次課程設(shè)計(jì)中，我體會(huì)很深，也學(xué)會(huì)了很多東西，懂得很多以前不懂的東西，也明白了一些事情。</p><p>　　通過(guò)此次數(shù)據(jù)庫(kù)的課程設(shè)計(jì)，真正達(dá)到了學(xué)與用的結(jié)合，增強(qiáng)了對(duì)數(shù)據(jù)庫(kù)方面應(yīng)用的理解，對(duì)自己今后參與開發(fā)數(shù)據(jù)庫(kù)系統(tǒng)積累了不少經(jīng)驗(yàn)，在實(shí)驗(yàn)過(guò)程中，從建立數(shù)據(jù)開始，對(duì)數(shù)據(jù)庫(kù)設(shè)計(jì)理念及思想上有更高的認(rèn)識(shí)，從需求分析，到概念設(shè)計(jì)和邏輯設(shè)計(jì)，E-R圖的表示，

97、數(shù)據(jù)字典的創(chuàng)建，懂得了不少有關(guān)數(shù)據(jù)庫(kù)開發(fā)過(guò)程中的知識(shí)，在實(shí)驗(yàn)中建表，及其關(guān)系模式，關(guān)系代數(shù)的建立及理解，將SQL語(yǔ)言的查詢語(yǔ)句用得淋漓盡致，增強(qiáng)了自己在數(shù)據(jù)庫(kù)中應(yīng)用SQL語(yǔ)言的靈活性，其中包括插入、刪除、修改、查詢,牽涉表和表之間的聯(lián)系，主建與外鍵的定義，約束項(xiàng)的設(shè)置，使邏輯更嚴(yán)密，在學(xué)習(xí)過(guò)程中，我也上網(wǎng)查了不少資料，也看了一些別人設(shè)計(jì)的圖書館管理信息系統(tǒng)的設(shè)計(jì)報(bào)告，學(xué)以致用，自我創(chuàng)新，獨(dú)立完成了這份自己的報(bào)告，從學(xué)到用，從用又到學(xué)，不

98、斷修改，系統(tǒng)更新。</p><p>　　在本系統(tǒng)的開發(fā)過(guò)程中，由于我是初次開發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不足。另外，在整個(gè)開發(fā)的過(guò)程中，時(shí)間也比較倉(cāng)促。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫(kù)管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是本管理系統(tǒng)所必需的。相信本學(xué)生管理系統(tǒng)是一套學(xué)校在日常管理中必不可少的管理軟件，通過(guò)開發(fā)這個(gè)系統(tǒng)，了解了基

99、本知識(shí)鞏固了我對(duì)Visual Basic 6.0的學(xué)習(xí)，但在這次畢業(yè)設(shè)計(jì)中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會(huì)了設(shè)計(jì)系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。</p><p>　　課程設(shè)計(jì)結(jié)束了，但我不會(huì)忘記在這次課程設(shè)計(jì)中我所得到的。我深深的體會(huì)到了這幾句話：認(rèn)真做事只是把事情做對(duì)，用心做事才能把事情做好。把每一件簡(jiǎn)單的事情做好就是不簡(jiǎn)單，把第一件平凡的事情做好就是不平凡。在以后的學(xué)習(xí)中