《SQL Server数据库程序设计》实验指导手册.doc

实验指导手册实验一：一个简单的VB.NET示例实验目的：创建一个简单的VB.NET程序示例，使学生了解利用VS.NET开发工具开发VB.NET程序的方法和步骤。实验内容：VB.NET的程序可以在记事本或其他文本编辑器里创建，但如果进行正式的VB.NET的编程或组件开发，最好还是在Visual Studio.NET的环境中工作。本例将用VB.NET开发一个简单的“Hello World”程序。实现方法：下面介绍用VB.NET开发一个简单的“Hello World”程序的示例，步骤如下：1创建ASP.NET Web应用程序1）打开Visual Studio.NET。2）在菜单中选择“文件”“新建”项目”，打开“新建项目”对话框。3）在“新建项目”对话框中，选择创建项目所使用的语言，这里是“Visual Basic项目”，选择合适的模板，这里选择“ASP.NET Web应用程序”，将系统自动提供的项目名称改名为Helloworld，项目的路径为http:/localhost，如图2-9所示。图2-9 创建ASP.NET Web应用程序4）单击“确定”按钮，VS.NET就会创建一个新的Web应用程序，以及该项目的物理目录和虚拟目录，如图2-10所示。图2-10 创建结果界面2创建ASP.NET页面在新的Web应用程序中，VS.NET已经为项目添加了一个页面，名称为WebForm1.aspx，并在编辑器中已经将它打开，如图2-10所示。你可以将其重命名，作为一个新页面。但对一个网站而言，只有一个页面是远远不够的，必须要添加新页面。1）在“项目”菜单中，选择“添加Web窗体”，打开“添加新项”对话框。2）在打开“添加新项”对话框中，选择Web窗体模板，指定新的页面名称。3）单击“打开”按钮，VS.NET就会创建一个新页面，将其添加到项目中，并在Web窗体设计器中打开它。3添加控件新的ASP.NET页面需要先进行界面设计，所以要在页面上添加合适的控件，本程序需要添加一个Button按钮控件，单击后显示结果。1）在Web窗体的设计模式下，单击工具箱中的“Button”控件，如图2-11所示。图2-11 工具箱2）在Web窗体的编辑界面上，拖动鼠标，生成Button按钮。在“属性”窗口中修改Button按钮的相关属性，将Text属性设置为“Click”，如图2-12所示。图2-12 Button按钮界面4保存和浏览页面当页面上所有控件都定义完成后，需要保存和浏览页面。添加了服务器控件后，在工具栏上单击“保存”按钮，页面将被保存。因为Web窗体页面会自动添加一个代码隐藏模块，所以需要先生成项目，然后才能浏览这个页面。从“生成”菜单中选择“生成解决方案”，系统将编译项目中所有代码模块的过程，使代码模块可用于调用它们的页和模板。保存了Web窗体页面并生成了应用程序后，右击页面，选择“在浏览器中查看”，就能在一个内嵌的浏览器窗口中查看页面。5添加代码此时的ASP.NET页面只是一个界面，不具有处理事件的实际能力，需要添加必要的代码，才能完成相应的功能模块。为了在单击按钮时，页面上可以显示“Hello World！”的字样，在WebForm1.aspx.vb的文件中添加以下代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Response.Write(Hello World!)End Sub6运行代码添加完全后，单击工具栏中的运行按钮，程序自动编译，最后生成结果页面，如图2-13所示。图2-13 程序运行结果界面实验二：创建销售管理数据库实验目的：通过本实验，要求学生掌握利用企业管理器和查询分析器，创建数据库的方法。实验内容：本书实例提供了销售管理网站的后台数据库bhd，在设计数据表结构之前，首先要创建一个bhd数据库。数据库bhd的参数为数据文件的名称为“bhd_data”，文件路径及名称为e:xsgldbbhd.mdf，初始大小为10MB，最大值为100MB，增长速度为每次增长1MB；事务日志文件的名称为“bhd_log”，文件路径及名称为e:xsgldbbhd.ldf，初始大小为10MB，最大值为无限大，增长速度为每次增长10%。实现方法：bhd数据库可以在企业管理器中创建，也可以在查询分析器中使用CREATE DATABASE命令创建。在查询分析器中创建bhd数据库，程序如下：CREATE DATABASE bhdON PRIMARY（NAME = bhd_data,FILENAME = e:xsgldbbhd.mdf,SIZE = 10 ,MAXSIZE = 100,FILEGROWTH = 1 ）LOG ON（NAME = bhd_Log,FILENAME = e:xsgldbbhd.ldf,SIZE = 10 ,MAXSIZE = UNLIMITED,FILEGROWTH = 10% ）实验三：创建销售库的表实验目的：通过本实验，要求学生掌握利用企业管理器和查询分析器，创建数据库中的表，并输入记录。实验内容：销售管理数据库bhd由7个表构成。数据库bhd包含的7个表如下：商品信息表spxx、销售历史表xsls、库存历史表kcls、人员信息表ryxx、价格历史表jgls、销售信息表xsxx、人员业绩表ryyj。其中商品信息表已在前面章节中创建过，其他6个表的表结构如下：销售历史表xsls，用来保存商品销售过程中的整个记录，表结构如下所示。表4-5 xsls数据表字段名称类型长度允许空说明啊lshint4否流水号，设置为自动编号，并设为主键spbhchar6否商品编号xsslint 4否销售数量xsrqdatetime8否销售日期ysjedecimal9否应收金额，默认值为0spdjdecimal9否商品定价，默认值为0ssjedecimal9否实收金额zljedecimal9否找零金额rybhchar6否人员编号jsrchar10否经手人库存的历史信息保存在库存历史表kcls中，表结构如下所示。表4-6 kcls数据表字段名称类型长度允许空说明lshint4否流水号，设置为自动编号，并设为主键spbhchar6否商品编号lrrqdatetime8否录入日期，默认值getdate()jsrchar10否经手人kcslint4否库存数量rckslint4否入出库数量rckbzchar2否入出库标志价格历史表jgls用来保存商品销售的价格历史信息，表结构如下所示。表4-7 jgls数据表字段名称类型长度允许空说明spbhchar6否商品编号tjrqdatetime8是调价日期spxjdecimal9否商品新价spyjdecimal9否商品原价jsrchar10否经手人lyrqdatetime8是录入日期人员信息表ryxx用来保存人员的基本信息，表结构如下所示。表4-8 ryxx数据表字段名称类型长度允许空说明rybhchar6否人员编号，设为主键rymcchar10否人员名称ryxbchar2否人员性别ryzzchar50是人员住址yzbmchar10是邮政编码gwmcchar10否岗位名称rgrqdatetime8否入岗日期mimachar6否人员密码销售信息表xsxx用来保存所有商品销售的信息，表结构如下所示。表4-9 xsxx数据表字段名称类型长度允许空说明spbhchar6否商品编号xsrqdatetime8否销售日期xsslint4否销售数量jsrchar10否经手人人员业绩表ryyj用来保存所有销售人员的业绩，表结构如下所示。表4-10 ryyj数据表字段名称类型长度允许空说明rybhchar6否人员编号xsslint4否销售数量,默认值为0tjrqdatetime8否提交日期xsjedecimal9否销售金额,默认值为0jycsint4否交易次数,默认值为0实现方法：以价格历史表jgls为例，在查询分析器中创建数据表，程序如下：USE bhdGOCREATE TABLE jgls(spbh char(6) NOT NULL,tjrq datetime,spxj decimal(18,2) NOT NULL,spyj decimal(18,2) NOT NULL,jsr char(10) NOT NULL,lyrq datetime ) 其他表的创建，请读者依次类推，自己进行创建。实验四：利用VB.NET显示查询的结果实验目的：学会使用ADO.NET连接SQLServer数据库；学会使用SELECT语句创建一个查询，将查询结果显示在网页中，并将此网页发布。实验内容：创建一个名为“bhd”的数据库，在该数据库中建立一个商品信息表，表名称为“spxx”，并在表中填写相应的测试数据，其结构如表5-3所示。表5-3 spxx表结构字段名称字段描述数据类型长度是否可以为空spbh商品编号char6（不为空）spmc商品名称char50（不为空）spdj商品定价decimal9（不为空）splb商品类别char10（不为空）kcsl当前库存数量int4（不为空）xsrq最后一次销售日期datetime8（可以为空）使用Visual Studio.NET创建一个名为“bhd.vbproj”的项目，在该项目中添加一个名为“cxsl.aspx”的web窗体，使用该页面显示查询结果，如图5-48所示。图5-48 查询结果页面实现方法：1创建项目（1）在Visual Studio.NET中选择“项目” “添加Web窗体”，打开“添加新项”对话框，如图5-49所示。在模版中选择“Web窗体”，并将名称修改为“cxsl.aspx”，最后点击“打开按钮”。图5-49 添加新项对话框（2）修改“cxsl.aspx”窗体的属性，如表5-4所示。表5-4 “cxsl.aspx”窗体的属性属性名称属性值languageVBpageLayoutGridLayout2程序设计（1）界面实现在“cxsl.aspx”窗体的设计视图中添加一个Datagrid控件，名称为“DataGrid1”，并修改其属性，结果如图5-50所示。图5-50 添加控件界面打开Datagrid控件的“Columns”属性窗口，在“选定的列”中添加“绑定列”“商品编号”、“商品名称”、“商品单价”和“库存数量”，并修改每个选定列的数据字段，使其与“spxx”表中的字段名称一一对应，如图5-51所示：图5-51 Datagrid控件的“Columns”属性窗口（2）功能实现在“Page_Load”事件中填写如下代码：在此处放置初始化页的用户代码定义变量constr用于存储连接字符串，此处的ConnectionString属性可以为数据库连接获取连接字符串Dim constr As String = System.Configuration. _ ConfigurationSettings.AppSettings(ConnectionString)如果有可用的连接，SqlConnection从连接池中提取一个打开的连接，否则，它将建立一个与SQL Server实例的新连接 Dim ObjConn As New SqlClient.SqlConnection ObjConn.ConnectionString = constr 定义SqlCommand对象CMD Dim Cmd As New SqlClient.SqlCommand给CMD指定要执行的SQL命令，该命令为一条查询语句 Cmd.CommandText = select * from spxx order by kcsl,spdj desc指明要执行的命令类型是SQL 文本命令 Cmd.CommandType = CommandType.Text给CMD指定数据连接 Cmd.Connection = ObjConn打开数据库ObjConn.Open()定义数据集对象Ds Dim Ds As New DataSet定义数据表对象DtDim Dt As New DataTableSqlDataAdapter是DataSet和SQL Server之间的桥接器，用于检索和保存数据Dim Adapter As New SqlClient.SqlDataAdapter Adapter.SelectCommand = CmdFill方法可更改DataSet中的数据以匹配数据源“spxx”中的数据 Adapter.Fill(Ds, spxx)连接返回到活动连接池集中，而不是真正关闭连接。连接返回到池中之后，即可在下一个 Open 调用中重复使用。ObjConn.Close()释放ObjConn对象，彻底关闭连接。ObjConn = Nothing指定填充列表控件的数据源“spxx” DataGrid1.DataSource = Ds.Tables(spxx)将数据源绑定到数据网格对象DataGrid1DataGrid1.DataBind()3程序运行在程序运行之前需要确认Web.config文件配置正确，在Web.config配置文件中找到如下代码段： 该代码用于存放基本的数据库链接信息，链接到SQL Server企业管理器已经附加的数据库database为“bhd”，并且用户名uid为“sa”，密码pwd为“a”。在IE浏览器地址栏中输入“http:/localhost/bhd/cxsl.aspx”，便可以浏览到查询的结果。程序运行后的结果如图5-52所示。图5-52 程序运行后的结果实验五：利用VB.NET实现视图的调用实验目的：创建视图，并通过VB.NET实现对视图的调用。实验内容：创建名为view_jgls的视图，显示商品信息表中的商品编号、商品名称等信息。编写名为stsl.aspx的页面文件，并利用VB.NET在该页面中实现调用view_jgls视图，并查询商品价格的历史记录。查询执行前界面如图6-30所示，查询执行后界面如图6-31所示。图6-30 查询界面图6-31 查询结果实现方法：1创建view_jgls视图创建view_jgls视图，数据来自于以商品编号spbh为关键字连接的商品信息表spxx和价格历史表jgls，并按照商品信息表spxx中的商品编号spbh排序。CREATE VIEW dbo.view_jglsASSELECT TOP 100 PERCENT dbo.spxx.spbh, dbo.spxx.spmc, dbo.jgls.tjrq, dbo.jgls.spxj, dbo.jgls.spyj, dbo.jgls.lyrqFROM dbo.jgls INNER JOIN dbo.spxx ON dbo.jgls.spbh = dbo.spxx.spbhORDER BY dbo.spxx.spbh2程序设计1）stsl.aspx界面实现创建页面stsl.aspx，并在其中使用ASP.NET的datagrid控件创建数据网格对象Datagrid1。设置BoundColumn属性，指明按照文本字段的标准显示数据，它呈现为纯文本。设置DataField属性用来指明父Datagrid数据源中的字段。由于datagrid控件默认将显示数据表中的所有字段的值，但此处并不需要显示所有的字段值，因此需要修改datagrid控件的autogeneratecolumns属性。autogeneratecolumns属性默认是true，表示显示数据表中的所有字段值，需要在stsl.aspx页面中设置autogeneratecolumns=false，表示不允许datagrid自动生成列。此时，可以使用headertext属性指定需要显示的数据列，例如，DataField=spmc 和HeaderText=商品名称就指明了显示数据表中的spmc列，并将列名设置为“商品名称”。创建“查看商品价格历史”按钮，按钮的标识符为“Btnjg”。详细代码如图6-32所示。图6-32 stsl.aspx代码2）功能实现stsl.aspx.vb脚本代码如图6-33所示。它实现了当用户单击“查看商品价格历史”按钮时，调用stsl.aspx.vb脚本，并将数据网格对象DataGrid1作为参数传递，从视图view_jgls中提取数据，将查询结果回显到stsl.aspx页面。图6-33 stsl.aspx.vb代码其中的主要语句的含义参考下面以/* */为标注的注释。 Private Sub Btnjg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnjg.Click/*调用databind1()函数*/databind1() End Sub Public Sub databind1() /*定义变量constr用于存储连接字符串，此处的ConnectionString属性可以为数据库连接获取连接字符串。*/Dim constr As String = System.Configuration.ConfigurationSettings.AppSettings(ConnectionString) /*如果有可用的连接，SqlConnection从连接池中提取一个打开的连接，否则，它将建立一个与SQL Server实例的新连接。*/ Dim ObjConn As New SqlClient.SqlConnection ObjConn.ConnectionString = constr/*定义SqlCommand对象CMD*/ Dim Cmd As New SqlClient.SqlCommand /*给CMD指定要执行的SQL命令*/Cmd.CommandText = select * from view_jgls/*指明要执行的命令类型是SQL 文本命令*/ Cmd.CommandType = CommandType.Text/*给CMD指定数据连接*/ Cmd.Connection = ObjConn /*打开数据库*/ ObjConn.Open() /*定义数据集对象Ds*/ Dim Ds As New DataSet /*定义数据表对象Dt*/ Dim Dt As New DataTable /* SqlDataAdapter是DataSet和SQL Server之间的桥接器，用于检索和保存数据。*/Dim Adapter As New SqlClient.SqlDataAdapter Adapter.SelectCommand = Cmd /*Fill方法可更改DataSet中的数据以匹配数据源jgls中的数据*/ Adapter.Fill(Ds, jgls) /*连接返回到活动连接池集中，而不是真正关闭连接。连接返回到池中之后，即可在下一个 Open 调用中重复使用。*/ ObjConn.Close()/*释放ObjConn对象，彻底关闭连接。*/ ObjConn = Nothing /*指定填充列表控件的数据源*/ DataGrid1.DataSource = Ds.Tables(jgls) /*将数据源绑定到数据网格对象DataGrid1*/DataGrid1.DataBind() End Sub实验六：利用VB.NET实现存储过程的调用实验目的：创建存储过程，并利用VB.NET实现对存储过程的调用。实验内容：创建名为sp_xzjgls的存储过程，在价格历史中插入记录。编写名为xzjgls.aspx的页面文件，并利用VB.NET在该页面中实现调用sp_xzjgls存储过程，更新商品价格。xzjgls.aspx页面如图7-24 所示，输入相关数据项后，单击“增加”按钮，调用xzjgls.aspx.vb脚本，即可在jgls表中插入新记录，插入成功后显示“操作成功!”提示信息。图7-24 xzjgls.aspx页面实现方法：1创建sp_xzjgls的存储过程CREATE PROCEDURE dbo.sp_xzjgls spbh char(6),tjrq datetime,spxj decimal(9),spyj decimal(9),jsr char(10),lyrq datetimeASBegin begin transactioninsert into jgls (spbh,tjrq,spxj,spyj,jsr,lyrq) values(spbh,tjrq,spxj,spyj,jsr,lyrq)if error0 begin rollback transaction return end commit transaction return EndGO2 程序设计1） xzjgls.aspx界面实现创建页面xzjgls.aspx。利用代码在页面中创建六个标签和六个文本框，由用户在文本框中输入价格历史相关数据后，单击“增加”按钮，执行“POST”方法向xzjgls.aspx.vb脚本传递所输入的数据。创建“增加”按钮，按钮的标识符为“Button1”。详细代码如图7-25所示。图7-25 xzjgls.aspx代码2）创建xzjgls.aspx.vbxzjgls.aspx.vb脚本代码如图7-26所示。它实现了当用户单击“增加”按钮时，调用xzjgls.aspx.vb脚本，脚本调用sp_xzjgls存储过程，插入相关数据，并显示“操作成功!”提示信息。图7-26 xzjgls.aspx.vb脚本代码其中的主要语句参考下面以/* */为标注的注释。/*封装bhd的名称空间*/Namespace bhdPartial Class xzjgls Inherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。 Private Sub InitializeComponent() End Sub 注意: 以下占位符声明是 Web 窗体设计器所必需的。 不要删除或移动它。 Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init CODEGEN: 此方法调用是 Web 窗体设计器所必需的 不要使用代码编辑器修改它。 InitializeComponent() End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 在此处放置初始化页的用户代码 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click /*此处定义相应变量接收xzjgls.aspx页面传来的数据。*/ Dim spbh As String = TBspbh.Text Dim tjrq As String = TBtjrq.Text Dim spxj As String = TBspxj.Text Dim spyj As String = TBspyj.Text Dim jsr As String = TBjsr.Text Dim lyrq As String = TBlyrq.Text/*下面代码连接数据库，将变量中的数据写入数据库。*/ Dim constr As String = System.Configuration.ConfigurationSettings.AppSettings(ConnectionString) Dim ObjConn As New SqlClient.SqlConnection ObjConn.ConnectionString = constr Dim Cmd As New SqlCli