選擇系統(tǒng)課程設(shè)計

1、.沈 陽 航 空 航 天 大 學(xué)課 程 設(shè) 計學(xué)號:2011040601222 班級:14060105姓名:冉隆相指導(dǎo)教師:劉成沈陽航空航天大學(xué)課程設(shè)計任務(wù)書學(xué)院：機電工程學(xué)院 專業(yè)：機械設(shè)計制造及其自動化 班級：14060105學(xué)號：2011040601222題目：課程設(shè)計題目選擇系統(tǒng)一、課程設(shè)計時間2013年6月17日21日（第17周），共計1周，20學(xué)時。二、課程設(shè)計內(nèi)容Access數(shù)據(jù)庫表中存儲了A、B、C三類課程設(shè)計題目，其中A類最難，B類次之，C類最簡單，如果學(xué)生選擇了A類題目，最高可以得到優(yōu)秀的成績；如果選擇了B類題目，最高可以得到中等成績；如果選擇的是C類題目，最高得及格成績。

2、學(xué)生和題目信息自擬，學(xué)生人數(shù)不少于10人，各類題目不少于5個，系統(tǒng)的具體功能如下：1.選題 為每一個學(xué)生選擇一道題目，每個學(xué)生只可以選擇一道題目，每道題只能有一個學(xué)生選擇，選擇時既可以指定類型和題號選題，也可以指定類型后隨機選題；2.查詢和改選 可以查詢所有未選的題目和已選的題目，可以查詢某名學(xué)生的選題情況，可以改選。三、課程設(shè)計要求程序質(zhì)量：² 貫徹事件驅(qū)動的程序設(shè)計思想。² 用戶界面友好，功能明確，操作方便。² 代碼應(yīng)適當(dāng)縮進，并給出必要的注釋，以增強程序的可讀性。課程設(shè)計說明書：² 課程結(jié)束后，上交課程設(shè)計說明書和源程序。課程設(shè)計說明書的內(nèi)容參見提

3、供的模板。四、指導(dǎo)教師和學(xué)生簽字指導(dǎo)教師：_ 學(xué)生簽名：_五、成績六、教師評語目 錄需求分析4設(shè)計分析4關(guān)鍵技術(shù)6總結(jié)10完整的源程序11參考文獻13需求分析課程設(shè)計題目選擇系統(tǒng)主要指“選擇題目類型以及不同類型下的題目數(shù)”和“學(xué)生名單”兩種業(yè)務(wù)。為了方便查看和改選所以得對信息進行排序，并且能夠顯示所有未選的題目和已選的題目，可以查詢某名學(xué)生的選題情況，可以改選。基于程序需要訪問數(shù)據(jù)庫，因此要增加ADO和DataGrid控件，要求：將ADO控件與數(shù)據(jù)庫鏈接，以便隨時訪問數(shù)據(jù)庫。 在Access中創(chuàng)建列表，表中包括A、B、C三類課程設(shè)計題目類型及題號、“學(xué)生名單”（包括學(xué)生學(xué)號、學(xué)生姓名）等信息。

4、 學(xué)生人數(shù)為10人，各類題目有5個每一個學(xué)生必須只能選擇一道題且不能選擇相同的題，選擇時既可以指定類型和題號選題，也可以指定類型后隨機選題；可以查詢所有未選的題目和已選的題目，可以查詢某名學(xué)生的選題情況，可以改選。設(shè)計分析（1） 基本原理：建立程序設(shè)計與數(shù)據(jù)庫的連接，用SQL語句在數(shù)據(jù)庫中查找，添加和更改數(shù)據(jù)。（2） 總體設(shè)計：ADO 技術(shù)連接數(shù)據(jù)庫SQL語言連接（3）詳細(xì)設(shè)計：連接數(shù)據(jù)庫選擇題目并記錄信息錄查詢數(shù)據(jù)更改數(shù)據(jù)查詢數(shù)據(jù)某學(xué)生信息改選題目某學(xué)生信息開始已選題目未選題目關(guān)鍵技術(shù)1建立與數(shù)據(jù)庫的連接利用ADO控件連接ACCESS表格，建立與數(shù)據(jù)庫的連接代碼如下Private Sub A

5、dodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)運用Adodc控件連接數(shù)據(jù)并通過其對數(shù)據(jù)進行控制，修改。2建立學(xué)生簽到與查詢界面Private Sub Command1_Click()Label2.Visible = True “使Label2可見”Adodc1.Recordset.Find "學(xué)號='" & Text1 & "'

6、", , , 1If Adodc1.Recordset.EOF ThenMsgBox "無此學(xué)號！", , "提示"ElseMsgBox "已簽到！", , "提示"Adodc1.Recordset.Fields("已選題") = 1 “給記錄集已選題賦值1”'Text1 = ""Form1.Hide “窗體1隱藏” Form2.Show “窗體2顯示”End IfEnd SubPrivate Sub Command2_Click()Form1.HideFo

7、rm5.ShowEnd Sub3建立窗體選擇選題系統(tǒng)界面程序如下Private Sub Command1_Click()If Option1 ThenForm2.Hide “窗體2隱藏”Form3.ShowElseForm2.HideForm4.Show “窗體4顯示” End IfEnd SubPrivate Sub Command2_Click()Form2.HideForm1.ShowEnd Sub “窗體2隱藏”， “窗體1顯示”3查詢學(xué)生信息的數(shù)據(jù)中通過adodc控件對數(shù)據(jù)庫訪問程序段如下： Private Sub Command1_Click()If Option2 ThenAdo

8、dc1.RecordSource = "select * from 查表1 where 類型=" & 1 & ""ElseAdodc1.RecordSource = "select * from 空表"Trim(Combo1.Text) & "'" “通過adodc控件訪問數(shù)據(jù)庫并通過dategrid控件顯示信息”Adodc1.RefreshAdodc1.RecordSource = "select * from 查詢已選"ElseAdodc1.RecordSou

9、rce = "select * from 空表"If Option2 ThenAdodc1.RecordSource = "select * from 查詢未選"ElseAdodc1.RecordSource = "select * from 空表"If Option3 ThenAdodc1.RecordSource = "select * from 輸入姓名查詢 where 姓名=" & Text1 & ""ElseAdodc1.RecordSource = "sel

10、ect * from 空表"End IfEnd IfEnd IfAdodc1.RefreshEnd SubText1.Text = Str(Adodc1.Recordset.RecordCount)'Adodc1.RecordSource = "select * from 學(xué)生名單 where 學(xué)生姓名 = '" & Trim(Combo1.Text) & "'"“對adodc控件注釋連接兩個adodc控件” 'Adodc1.Refresh Adodc1.Recordset.Update“查詢學(xué)生

11、選題信息”End Sub “結(jié)束程序”總結(jié) 這次課設(shè)我的題目是課程設(shè)計題目選擇系統(tǒng)，通過這次課設(shè)讓我更加深入地了解了VB與數(shù)據(jù)庫之間的聯(lián)系，可以應(yīng)用ADO技術(shù)使VB與數(shù)據(jù)庫進行聯(lián)系，還可以應(yīng)用SQL語言查詢和更改數(shù)據(jù)庫中的信息， 通過完成這些作品，學(xué)生鞏固、加深了對相關(guān)知識的理解，加強了知識之間的聯(lián)系，促進了知識的遷移和應(yīng)用。同時我也了解了VB的出現(xiàn)是一場技術(shù)革命，它在生活中各個方面都能發(fā)揮巨大的作用，學(xué)生看到凝聚著自己的心血、汗水、思維和創(chuàng)新的作品，通過同學(xué)之間作品的對比，提供了一個相互學(xué)習(xí)交流的平臺，激發(fā)了學(xué)生的競爭意識。計算機的應(yīng)用加快了人類發(fā)展的腳步，作為當(dāng)代大學(xué)生學(xué)好VB對以后的生活

12、有很大的幫助。因此，我們都應(yīng)該認(rèn)真對待這一科目。完整的源程序窗體1Label2.Visible = TrueAdodc1.Recordset.Find "學(xué)號='" & Text1 & "'", , , 1If Adodc1.Recordset.EOF ThenMsgBox "無此學(xué)號！", , "提示"ElseMsgBox "已簽到！", , "提示"Adodc1.Recordset.Fields("已選題") = 1&#

13、39;Text1 = ""Form1.HideForm2.ShowEnd IfEnd SubPrivate Sub Command2_Click()Form1.HideForm5.ShowEnd SubPrivate Sub Form_Load()Dim mpath$, mlink$mpath = App.PathIf Right(mpath, 1) <> "" Then mpath = mpath + ""mlink = "Provider=Microsoft.Jet.OLEDB.4.0;"mlink

14、 = mlink + "Data Source=" + mpath + "Database5.mdb"Adodc1.ConnectionString = mlinkAdodc1.CommandType = adCmdUnknownEnd Sub窗體2Private Sub Command1_Click()If Option1 ThenForm2.HideForm3.ShowElseForm2.HideForm4.ShowEnd IfEnd SubPrivate Sub Command2_Click()Form2.HideForm1.ShowEnd Sub

15、窗體3mlink = "Provider=Microsoft.Jet.OLEDB.4.0;"mlink = mlink + "Data Source=" + mpath + "Database5.mdb"Adodc1.ConnectionString = mlinkAdodc1.CommandType = adCmdUnknown'Option2.Enabled = False'Option3.Enabled = False'Option4.Enabled = False'Text1.Locked =

16、TrueEnd SubPrivate Sub Option1_Click()Text1 = ""Option2.Enabled = TrueOption3.Enabled = TrueOption4.Enabled = TrueText1.Locked = TrueEnd SubPrivate Sub Option5_Click()Text1.Locked = FalseOption2.Enabled = FalseOption3.Enabled = FalseOption4.Enabled = FalseEnd Sub窗體4Adodc1.RecordSource = &q

17、uot;select * from 空表"End IfEnd IfEnd IfAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.Fields("已選") = 1MsgBox "已選題", , "提示"Form4.HideForm1.ShowEnd SubPrivate Sub Command3_Click()Form4.HideForm1.ShowEnd SubPrivate Sub Form_Load()Dim mpath$, mlink$m

18、path = App.PathIf Right(mpath, 1) <> "" Then mpath = mpath + ""mlink = "Provider=Microsoft.Jet.OLEDB.4.0;"mlink = mlink + "Data Source=" + mpath + "Database5.mdb"Adodc1.ConnectionString = mlinkAdodc1.CommandType = adCmdUnknownEnd Sub窗體5Adodc1.RecordSource = "select * from 查詢已選"ElseAdodc1.RecordSource = "select * from 空表"If Option2 ThenAdodc1.RecordSource = "select * from 查詢未選"ElseAdodc1.RecordSource