SQL Server 網(wǎng)絡(luò)數(shù)據(jù)庫(kù)管理項(xiàng)目教程課件14項(xiàng)目十四 SQL Server開發(fā)與編程

14項(xiàng)目十四SQLServer開發(fā)與編程

14.1相關(guān)知識(shí)SQLServer開發(fā)與編程

SQLServer開發(fā)與編程當(dāng)前應(yīng)用最多是Java開發(fā)和微軟的開發(fā)，主要對(duì)數(shù)據(jù)庫(kù)進(jìn)行添加、刪除、修改和查詢，下面以微軟的開發(fā)學(xué)生信息管理系統(tǒng)為例進(jìn)行簡(jiǎn)單闡述。

6.1.2任務(wù)實(shí)施SQLServer開發(fā)與編程1.數(shù)據(jù)庫(kù)連接的開發(fā)在平臺(tái)激活sql相關(guān)控件，其代碼如下：ImportsSystemImportsSystem.DataImportsSystem.Data.SqlClient6.1.2任務(wù)實(shí)施SQLServer開發(fā)與編程以登錄界面為例對(duì)數(shù)據(jù)庫(kù)連接進(jìn)行代碼設(shè)計(jì)

數(shù)據(jù)庫(kù)連接開發(fā)6.1.2任務(wù)實(shí)施SQLServer開發(fā)與編程對(duì)應(yīng)程序設(shè)計(jì)代碼如下:

登錄按鈕：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickcheckFormat()EndSub

權(quán)限驗(yàn)證代碼如下：SubcheckFormat()IfTextBox1.Text=""OrTextBox2.Text=""ThenMsgBox("用戶名和密碼不能為空")ElseIfComboBox1.Text=""ThenMsgBox("請(qǐng)選擇登陸用戶權(quán)限")ElsecheckLoginName()EndIfEndSub數(shù)據(jù)庫(kù)連接開發(fā)SubcheckLoginName()DimstrAsStringstr="DataSource=localhost;InitialCatalog=Student;integratedSecurity=true"

數(shù)據(jù)庫(kù)連接字符串DimconAsNewSqlConnection(str)

連接數(shù)據(jù)庫(kù)con.Open()

打開數(shù)據(jù)庫(kù)6.1.2任務(wù)實(shí)施SQLServer開發(fā)與編程先判斷數(shù)據(jù)庫(kù)里有沒有day這個(gè)表，有就什么都不干，沒有就創(chuàng)建day表，day表里有id和temp兩列，id是主鍵，則源代碼如右：2.創(chuàng)建新表的開發(fā)PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton9.Clickstr="DataSource=localhost;InitialCatalog=Student;integratedSecurity=true"

連接字符串DimconAsNewSqlConnection(str)

連接數(shù)據(jù)庫(kù)

con.Open()Ifnotexists(select*fromsysobjectswherename='day')thencreatetable[day]（idintprimarykey，tempvarchar(20)）EndifEndSub6.1.2任務(wù)實(shí)施SQLServer開發(fā)與編程以添加學(xué)生學(xué)籍信息為例，設(shè)計(jì)界面3.數(shù)據(jù)庫(kù)信息添加的開發(fā)6.1.2任務(wù)實(shí)施SQLServer開發(fā)與編程對(duì)應(yīng)需要開發(fā)的參考代碼如下：以下為關(guān)閉按鈕代碼：PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickMe.Close()EndSub

3.數(shù)據(jù)庫(kù)信息添加的開發(fā)以下為重填代碼：PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Clickclear()EndSubSubclear()TextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text=""TextBox6.Text=""TextBox7.Text=""TextBox8.Text=""TextBox9.Text=""TextBox10.Text=""TextBox11.Text=""ComboBox1.Text=""RadioButton1.Checked=FalseRadioButton2.Checked=FalseEndSub6.1.2任務(wù)實(shí)施SQLServer開發(fā)與編程對(duì)學(xué)生學(xué)籍進(jìn)行修改，首先設(shè)計(jì)界面4.數(shù)據(jù)庫(kù)信息修改更新的開發(fā)6.1.2任務(wù)實(shí)施SQLServer開發(fā)與編程以下是自查數(shù)據(jù)代碼：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfTextBox1.Text=""ThenMsgBox("學(xué)號(hào)不能為空！")ElsechangeStuInfo()MsgBox("修改成功！")clear()EndIfEndSub4.數(shù)據(jù)庫(kù)信息修改更新的開發(fā)以下為修改代碼：SubchangeStuInfo()DimstrAsStringDimsexAsStringIfRadioButton1.CheckedThensex="男"ElseIfRadioButton2.CheckedThensex="女"Elsesex=""EndIf…DimsqlAsStringSql="select*fromstudent_Infowherestudent_ID='"&TextBox1.Text.ToString().Trim()&"'"Dimsql2AsStringSql2="updatestudent_InfosetDimcmdAsNewSqlCommand(sql,con)Dimcmd2AsNewSqlCommand(sql2,con)DimreaderAsSqlDataReaderreader=cmd.ExecuteReader…EndSub6.1.2任務(wù)實(shí)施SQLServer開發(fā)與編程對(duì)學(xué)生學(xué)籍進(jìn)行查詢，設(shè)計(jì)查詢界面5.數(shù)據(jù)庫(kù)信息查詢的開發(fā)6.1.2任務(wù)實(shí)施SQLServer開發(fā)與編程以下是根據(jù)條件1查詢代碼：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimstrAsStringDimdsAsNewDataSetDimdaAsSqlDataAdapterstr="DataSource=localhost;InitialCatalog=Student;integratedSecurity=true"DimconAsNewSqlConnection(str)con.Open()DimsqlAsString="select*fromstudent_Infowherestudent_ID='"&TextBox1.Text.ToString().Trim()&"'"da=NewSqlDataAdapter(sql,con)da.Fill(ds)DataGrid1.DataSource=ds.Tables(0)EndSub

5.數(shù)據(jù)庫(kù)信息查詢的開發(fā)以下是根據(jù)條件2查詢代碼：PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimstrAsStringDimdsAsNewDataSetDimdaAsSqlDataAdapterstr="DataSource=localhost;InitialCatalog=Student;integratedSecurity=true"DimconAsNewSqlConnection(str)con.Open()DimsqlAsString="select*fromstudent_Infowherestudent_Name='"&TextBox2.Text.ToString().Trim()&"'"da=NewSqlDataAdapter(sql,con)da.Fill(ds)DataGrid1.DataSource=ds.Tables(0)EndSub項(xiàng)目小結(jié)本項(xiàng)目通過(guò)案例簡(jiǎn)單介紹了數(shù)據(jù)庫(kù)如何和前臺(tái)開發(fā)項(xiàng)目連接的方法以及數(shù)據(jù)的添加、數(shù)據(jù)更新、查詢等的界面設(shè)計(jì)和程序代碼設(shè)計(jì)方法，進(jìn)一步加深學(xué)生對(duì)數(shù)據(jù)庫(kù)的理解和掌握，并可與將來(lái)步入工作崗位從事數(shù)據(jù)庫(kù)和信息系統(tǒng)開發(fā)直接接軌。值得注意的是開發(fā)方法和開發(fā)語(yǔ)言很多，本開發(fā)方法只是其中常用的一種，希望學(xué)生能活學(xué)活用，并能以點(diǎn)帶面不斷深入體會(huì)。

實(shí)訓(xùn)項(xiàng)目綜合實(shí)訓(xùn)：SQLServer開發(fā)與編程實(shí)訓(xùn)項(xiàng)目實(shí)訓(xùn)目的：掌握通過(guò)“VS.NET”編程和SQL語(yǔ)句完成數(shù)據(jù)庫(kù)連接