數(shù)據(jù)庫(kù)實(shí)驗(yàn)報(bào)告3

1、WORD格式武漢工程大學(xué)計(jì)算機(jī)科學(xué)與工程學(xué)院數(shù)據(jù)庫(kù)原理與應(yīng)用實(shí)驗(yàn)報(bào)告專業(yè)班級(jí)實(shí)驗(yàn)地點(diǎn)計(jì)算機(jī)大樓 423 機(jī)房學(xué)生學(xué)號(hào)指導(dǎo)教師劉曉華學(xué)生姓名實(shí)驗(yàn)時(shí)間課內(nèi) 6學(xué)時(shí)實(shí)驗(yàn)項(xiàng)目實(shí)驗(yàn) 3數(shù)據(jù)庫(kù)設(shè)計(jì)與應(yīng)用開發(fā)（6 學(xué)時(shí)）實(shí)驗(yàn)類別操作性（） 驗(yàn)證性（） 設(shè)計(jì)性（） 綜合性（ ） 其它（ ）專業(yè)資料整理實(shí)驗(yàn)?zāi)康募耙?. 依照數(shù)據(jù)庫(kù)設(shè)計(jì)的方法，完成學(xué)生管理系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)。2. 掌握程序設(shè)計(jì)語言和 SQL-Server 的連接方法。3. 建立簡(jiǎn)單的數(shù)據(jù)庫(kù)訪問界面。 掌握數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)的基本方法。成績(jī)?cè)u(píng)定表類別評(píng)分標(biāo)準(zhǔn)分值得分合計(jì)上機(jī)表現(xiàn)積極出勤、遵守紀(jì)律30分主動(dòng)完成實(shí)驗(yàn)設(shè)計(jì)任務(wù)程序代碼比較規(guī)范、基本正確3

2、0分功能達(dá)到實(shí)驗(yàn)要求實(shí)驗(yàn)報(bào)告及時(shí)遞交、填寫規(guī)范40分內(nèi)容完整、體現(xiàn)收獲說明：評(píng)閱教師：日 期： 2013年月日實(shí)驗(yàn)內(nèi)容計(jì)算機(jī)科學(xué)與工程學(xué)院實(shí)驗(yàn)內(nèi)容：依照學(xué)生管理系統(tǒng)的要求，完成如下任務(wù)1. 設(shè)計(jì)適合此應(yīng)用需求的規(guī)范化的數(shù)據(jù)庫(kù)。2. 學(xué)習(xí)如何進(jìn)行數(shù)據(jù)庫(kù)連接。4. 制作一個(gè)簡(jiǎn)單的數(shù)據(jù)庫(kù)訪問程序。 （ DELPHI、 VB、 PB等）要求能完成下列處理要求：1. 學(xué)生信息的增、刪、改及查詢操作。2. 選課和課程信息的系列操作。數(shù)據(jù)庫(kù)系統(tǒng)實(shí)驗(yàn)報(bào)告2計(jì)算機(jī)科學(xué)與工程學(xué)院數(shù)據(jù)庫(kù)系統(tǒng)實(shí)驗(yàn)報(bào)告3計(jì)算機(jī)科學(xué)與工程學(xué)院代碼：1、Private Sub Command1_Click()Form1.ShowEnd S

3、ubPrivate Sub Command2_Click()Form2.ShowEnd SubPrivate Sub Command3_Click()Form3.ShowEnd Sub2、Private Sub Command1_Click()Form1.ShowEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Adodc1.RefreshAdodc1.Recordset.AddNewCommand2.Enabled = Fa

4、lse '添加數(shù)據(jù)按鈕禁用Command3.Enabled = True ' 保存數(shù)據(jù)按鈕啟用End Sub數(shù)據(jù)庫(kù)系統(tǒng)實(shí)驗(yàn)報(bào)告4計(jì)算機(jī)科學(xué)與工程學(xué)院Private Sub Command3_Click()If Text1.Text = "" ThenMsgBox ("請(qǐng)輸入學(xué)號(hào) ")ElseIf Text2.Text = "" ThenMsgBox ("請(qǐng)輸入姓名 ")ElseIf Text3.Text = "" ThenMsgBox ("請(qǐng)輸入性別 ")El

5、seAdodc1.Recordset("Sno") = Text1.TextAdodc1.Recordset("Sname") = Text2.TextAdodc1.Recordset("Ssex") = Text3.TextCommand2.Enabled = True ' 添加數(shù)據(jù)按鈕禁用 Command3.Enabled = False ' 保存數(shù)據(jù)按鈕啟用 End IfEnd SubPrivate Sub Command5_Click()Unload Form1End SubPrivate Sub Form_L

6、oad()End Sub3、Private Sub Command1_Click()Form1.ShowEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Adodc1.RefreshAdodc1.Recordset.AddNewCommand2.Enabled = False '添加數(shù)據(jù)按鈕禁用Command3.Enabled = True ' 保存數(shù)據(jù)按鈕啟用End SubPrivate Sub Comman

7、d3_Click()If Text1.Text = "" ThenMsgBox ("請(qǐng)輸入學(xué)號(hào) ")ElseIf Text2.Text = "" ThenMsgBox ("請(qǐng)輸入姓名 ")數(shù)據(jù)庫(kù)系統(tǒng)實(shí)驗(yàn)報(bào)告5計(jì)算機(jī)科學(xué)與工程學(xué)院ElseIf Text3.Text = "" ThenMsgBox ("請(qǐng)輸入性別 ")ElseAdodc1.Recordset("Cno") = Text1.TextAdodc1.Recordset("Cname&quo

8、t;) = Text2.TextAdodc1.Recordset("Cpon") = Text3.TextCommand2.Enabled = True ' 添加數(shù)據(jù)按鈕禁用 Command3.Enabled = False ' 保存數(shù)據(jù)按鈕啟用 End IfEnd SubPrivate Sub Command5_Click()Unload Form1Unload Form2Unload Form3End SubPrivate Sub Form_Load()End Sub4、Private Sub Command1_Click()Form1.ShowEnd

9、SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Adodc1.RefreshAdodc1.Recordset.AddNewCommand2.Enabled = False '添加數(shù)據(jù)按鈕禁用Command3.Enabled = True ' 保存數(shù)據(jù)按鈕啟用End SubPrivate Sub Command3_Click()If Text1.Text = "" ThenMsgBox ("請(qǐng)輸入學(xué)號(hào) ")ElseIf Text

10、2.Text = "" ThenMsgBox ("請(qǐng)輸入姓名 ")ElseAdodc1.Recordset("Sno") = Text1.TextAdodc1.Recordset("Cno") = Text2.Text數(shù)據(jù)庫(kù)系統(tǒng)實(shí)驗(yàn)報(bào)告6計(jì)算機(jī)科學(xué)與工程學(xué)院Command2.Enabled = True ' 添加數(shù)據(jù)按鈕禁用 Command3.Enabled = False ' 保存數(shù)據(jù)按鈕啟用 End IfEnd SubPrivate Sub Command5_Click()Unload Form1Unl