SQL Server 网络数据库管理项目教程课件14项目十四 SQL Server开发与编程

14项目十四SQLServer开发与编程

14.1相关知识SQLServer开发与编程

SQLServer开发与编程当前应用最多是Java开发和微软的开发，主要对数据库进行添加、删除、修改和查询，下面以微软的开发学生信息管理系统为例进行简单阐述。

6.1.2任务实施SQLServer开发与编程1.数据库连接的开发在平台激活sql相关控件，其代码如下：ImportsSystemImportsSystem.DataImportsSystem.Data.SqlClient6.1.2任务实施SQLServer开发与编程以登录界面为例对数据库连接进行代码设计

数据库连接开发6.1.2任务实施SQLServer开发与编程对应程序设计代码如下:

登录按钮：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickcheckFormat()EndSub

权限验证代码如下：SubcheckFormat()IfTextBox1.Text=""OrTextBox2.Text=""ThenMsgBox("用户名和密码不能为空")ElseIfComboBox1.Text=""ThenMsgBox("请选择登陆用户权限")ElsecheckLoginName()EndIfEndSub数据库连接开发SubcheckLoginName()DimstrAsStringstr="DataSource=localhost;InitialCatalog=Student;integratedSecurity=true"

数据库连接字符串DimconAsNewSqlConnection(str)

连接数据库con.Open()

打开数据库6.1.2任务实施SQLServer开发与编程先判断数据库里有没有day这个表，有就什么都不干，没有就创建day表，day表里有id和temp两列，id是主键，则源代码如右：2.创建新表的开发PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton9.Clickstr="DataSource=localhost;InitialCatalog=Student;integratedSecurity=true"

连接字符串DimconAsNewSqlConnection(str)

连接数据库

con.Open()Ifnotexists(select*fromsysobjectswherename='day')thencreatetable[day]（idintprimarykey，tempvarchar(20)）EndifEndSub6.1.2任务实施SQLServer开发与编程以添加学生学籍信息为例，设计界面3.数据库信息添加的开发6.1.2任务实施SQLServer开发与编程对应需要开发的参考代码如下：以下为关闭按钮代码：PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickMe.Close()EndSub

3.数据库信息添加的开发以下为重填代码：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任务实施SQLServer开发与编程对学生学籍进行修改，首先设计界面4.数据库信息修改更新的开发6.1.2任务实施SQLServer开发与编程以下是自查数据代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfTextBox1.Text=""ThenMsgBox("学号不能为空！")ElsechangeStuInfo()MsgBox("修改成功！")clear()EndIfEndSub4.数据库信息修改更新的开发以下为修改代码：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任务实施SQLServer开发与编程对学生学籍进行查询，设计查询界面5.数据库信息查询的开发6.1.2任务实施SQLServer开发与编程以下是根据条件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.数据库信息查询的开发以下是根据条件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项目小结本项目通过案例简单介绍了数据库如何和前台开发项目连接的方法以及数据的添加、数据更新、查询等的界面设计和程序代码设计方法，进一步加深学生对数据库的理解和掌握，并可与将来步入工作岗位从事数据库和信息系统开发直接接轨。值得注意的是开发方法和开发语言很多，本开发方法只是其中常用的一种，希望学生能活学活用，并能以点带面不断深入体会。

实训项目综合实训：SQLServer开发与编程实训项目实训目的：掌握通过“VS.NET”编程和SQL语句完成数据库连接