SQLServer数据库系统设计方案与实现指导书

PAGEPAGE64《SＱLＳｅrver数据库系统设计与实现》实验指导书ﻬ目录ＴOC\o"1-1"＼ｈ＼z＼uHYPERLINK＼l”＿Tｏｃ11242８７３４"实验1SQLSerｖeｒ的安装及其管理工具的使用 ＰAＧＥREF_Toｃ１12428734＼h2HＹPERLＩＮK\l＂_Ｔoｃ112４2873５”实验2创建数据库和表ﻩＰAGＥＲEＦ_Tｏｃ11２42８７3５\h３HＹＰＥRＬＩＮK\l”＿Ｔｏc11２4２8736”实验3数据库的查询 PAGEREF＿Ｔoc112４２８7３６\h３HYＰERLIＮK\l”＿Tｏc１１２４２873７"实验4Ｔ-ＳQL编程ﻩＰAGERＥＦ_Toc１124２8737\h3HYＰERLINＫ实验６VB人员信息管理系统ﻩＰＡGEREF＿Ｔoc11242８739\h３HYＰERLIＮK\ｌ＂_Toc１1２４２8740＂实验6PB商品信息管理系统ﻩ１12４２87４0＼h3HYＰERLINK\l”＿Toc11２４2８741”实验7ASP通用人事管理系统。ﻩPＡGEREＦ＿Tｏc11２４２８7４1\h３ﻬ实验１SＱLＳerｖer的安装及其管理工具的使用目的与要求（１）掌握SQLSeｒver服务器的安装.（2）掌握企业管理器的基本使用方法.(3)掌握查询分析器的基本使用方法。（４)了解数据库及其对象。实验内容(１）安装SQＬServer２００0（２)利用企业管理器访问系统自带的pubs数据库（３）查询分析器的使用实验步骤1.安装SQLServer２0００依据软硬件环境，选择一个合适版本的ＳQLSeｒveｒ2000。安装步骤请参照教材第1。３3节。２．利用企业管理器访问系统自带的puｂｓ数据库（l）启动ＳＱLＳｅrver服务管理器.（２）以系统管理员身份登录到企业管理器并访问pubS数据库。（３）在企业管理器的名目树中展开文件失一展开pｕbＳ数据库图标，则将列出该数据库的、全部对象,如表、视图、存储过程,默认、规章等。（4）选中pｕbs下的“表”图标,将列出puｂｓ数据库全部的表（系统表和用户表），在此以用户表Ｐｕｂlisｈeｒｓ为例,打开该表，查看其内容。(5）在表的尾部插入记录（994３,zhanｇ,ｎuｌl，ｃhina)和（1４０8,ｌi，shanghaｉ,ＮULLchina），会发生什么情况?(6）在表中删除步骤（5)插入的记录。3．查询分析器的使用(l)在查询分析器对象扫瞄器的名目树中展开pｕｂs数据库图标，则将列出该数据库的全部对象，如表、视图、存储过程等。（2)以pｕbs数据库的用户表anthorｓ为例，选中该表的图标,单击鼠标右键，消灭一快捷菜单,执行“打开”菜单项，打开该表，查看其内容.（３)在表的尾部插入一记录。（4)在查询分析器的输入窗口,输入如下Ｔ－SQL语句：uｓeｐｕｂsｓelｅｃｔ*ｆromauthorsｇｏ看看执行结果是什么？思考与练习：用查询分析器查询pｕbs数据库publisｈｅｒs表的全部记录。ﻬ实验2创建数据库和表目的和要求（l）了解SＱLSerｖeｒ数据库的规律结构和物理结构。（2）了解表的结构特点。(3)了解ＳQLSerｖr的基本数据类型。（４）了解空值概念。（5）学会在企业管理器中创建数据库和表。（6)学会使用T—SQL语句创建数据库和表。实验内容(1）在企业管理器中创建数据库YGGL（2）在企业管理器中删除创建的YGGL数据库(3）使用T—ＳＱL语句创建数据库YGＧＬ（４)在企业管理器中分别创建表Ｅｍployeeｓ、Dｅparｔmentｓ和Sａlａrｙ（5)在企业管理器中删除创建的Eｍｐｌoｙｅｅs、Departmeｎｔs和Ｓaｌarｙ表(6)使用Ｔ-SQＬ语句创建表Emploｙｅes、Depaｒtｍentｓ和Salary(7)表数据的添加、修改、删除实验步骤0．实验筹备创建用于企业管理的员工管理数据库，数据库名为YＧＧL，包含员工的信息、部门信息以及员工的薪水信息。数据库YGGL包含下列３个表:（l）Ｅｍployeｅｓ;员工信息表。（2）Dｅｐartment：部门信息表.(3）Salaｒｙ；员工薪水情况表.各表的结构分别如表1、表2和表３所示。表1Empｌoｙeeｓ表结构列名数据类型长度是否允许为空值说明EmｐｌoyｅｅIDChaｒ６员工编号,主键NａmｅChａｒ1０姓名BirｔｈdayDａtｅtime８诞生日期ＳexBit１性别AｄdreｓｓChaｒ２０√地址ＺipＣｈar６√邮编PhoｎeNuｍbeｒＣｈaｒ12√电话号码ＥmailAddｒｅｓｓChaｒ30√电子邮件地址ＤepａｒtmeｎｔIＤChaｒ３员工部门号，外键表2Ｄepaｒtｍeｎts表结构列名数据类型长度是否允许为空值说明DepａrtｍenｔＩDChａｒ３部门编号,主键DepartｍentＮaｍeＣhar2０部门名Nｏtetext1６√备注表3Sａlary表结构列名数据类型长度是否允许为空值说明EmployeｅIDＣｈaｒ6员工编号,主键ＩｎComｅFｌoａt８收入OuｔCｏｍeｆlｏat8支出首先要明确，能够创建数据库的用户必须是系统管理员,或是被授权使用CRＥATＥDATAＢＡSＥ语句的用户。其次创建数据库必必要确定数据库名、全部者（即创建数据库的用户)、数据库大小（最初的大小、最大的大小、是否允许增长及增长方式）和存储数据库的文件。然后，确定数据库包含哪些表，以及所包含的各表的结构,还要了解ＳQＬSeｒveｒ的常用数据类型，以创建数据库的表。此外还要了解两种常用的创建数据库、表的方法,即在企业管理器中创建和使用T—SQＬ语句创建.1．在企业管理器中创建数据库YGGＬ要求：数据库YGGL初始大小为1０MＢ,最大大小为50MB,数据库自动增长，增长方式是按5％比例增长；日志文件初始为2ＭB,最大可增长到5MＢ（默认为不限制),按1MB增长（默认是按５％比例增长)。数据库的规律文件名和物理文件名均采纳默认值,分别为ＹGＧL-daｔａ和e:＼ｓqｌ\data\MSSQＬ\Ｄａtaｒ\ＹGＧＬ．mdf，其中e:\sql\data\ＭＳＳQL为SQLSｅrｖer的系统安装名目;事务日志的规律文件名和物理文件名也均采纳默认值，分别为YGＧL_LOG和ｅ：＼sqｌ＼ｄａta\MSSQＬ\Datａ\YＧGL＿loｇ．ldf.以系统管理员Ａdmｉnistratｏr或被授权使用CRＥAＴEDATABASE语句的用户登录SQLServer服务器，启动企业管理器——〉在服务器上单击鼠标右键-—＞新建数据库-－＞输入数据库名“ＹGGL”—-〉选择“数据文件”选项卡-—>设置增长方式和增长比例—－＞选择“事务日志”选项卡－－〉设置增长方式和增长比例。注意：在“数据文件"选项卡和“事务日志”选项卡中，可以分别指定数据库文件和日志文件的物理路径等补性。2在企业管理器中删除创建的ＹＧGL数据库在企业管理器中选择数据库YGGL－-＞在YGGL上单击鼠标右键则删除。３．使用Ｔ－ＳＱＬ语句创建数据库YＧGL依据上述要求创建数据库YGＧL。启动查询分析器——〉在“查询”窗口中输入如下Ｔ－ＳQL语句：ＣRＥＡTＥＤATABASEYGGＬOＮ（ＮＡME=’ＹGGL_DATA’，FILＥＮAME＝＇e：＼ＹＧGL.MＤF'，SＩZE=１０MB,ＭAＸSＩＺＥ＝50ＭＢ,ＦＩLEGＲOWTＨ=5％)ＬOGON（NAME＝’ＹGGL_Ｌog＇，ＦiLENAME=’e：\YＧGＬ＿Log.ldf’，SIＺＥ=２MＢ，ＭＡXSIZE=5MB，FILＥＧROWTH=１MＢ)GO单击快捷工具栏的执行图标执行上述语句，并在企业管理器中查看执行结果。4.在企业管理器中分别创建表Ｅmployees、Dｅpartｍeｎtｓ和Salaｒy在企业管理器中选择数据库YGGL-－＞在YGGL上单击鼠标右键-－＞新建-—>表时输入Ｅｍployees表各字段信息则单击保存图标叫输入表名Eｍploｙees，即创建了表Emｐloyｅｅs。按同样的操作过程创建表Depａrtmeｎts和Ｓaｌaｒy.5。在企业管理器中删除创建的Empｌoyees、Ｄｅpaｒtmｅntｓ和Sａlaｒｙ表在企业管理器中选择数据库YGＧＬ的表Eｍploｙees-－＞在Eｍployeｅｓ上单击鼠标右键—->删除,即删除了表Emｐlｏｙｅes。按同样的操作过程删除表Dｅpaｒtmｅｎｔs和Sａｌary.6．使用Ｔ－SQL语句创建表Emplｏyｅes、Dｅpaｒｔｍｅｎts和Ｓalaｒｙ启动查询分析器——＞在“查询”窗口中输入以下T－SＱL语句：ﻭUＳEYGGLCREAＴETABＬEＥmｐloｙeｅs（EｍplｏyｅeIDchar（６）primaryｋey,Namｅｃｈar（10）ＮOTNULＬ,ＢirｔhdａyｄａtｅtimeNOTNUＬL，SｅxbｉｔNOＴNUＬL,Addrｅsschar（20）NOＴNULL，ＺiｐChaｒ(6)NULＬ，PhoneＮumberｃhａr（１2）NULＬ，EmailAddresｓchaｒ(２0）NULL,DｅparｔｍｅnｔＩＤchar(3）NOTNUＬＬ，）GO单台快捷工具栏的执行图标,执行上述语句，即可创建表Ｅmpｌｏyeｅｓ。按同样的操作过程创建表Deｐartments和Ｓalary,并在企业管理器中查看结果。７.在企业管理器中向数据库ＹGGL表加入数据（ｌ）在企业管理器中向表Eｍployees中加入如表1所示的记录。表1Eｍplｏｙｅｅs表记录编号姓名地址邮编电话电子邮件部门号诞生日期性别０000０１王林中山路２10０033355668NＵＬＬ21９56－1—2310１０0０8伍容华北京东路l0０-２２１0０0１３３2１3２1ＮULL119６６-3－2810２0010王向客四牌楼１０-10-１0821００06３79２36１ＮUＬＬ11９72－1２—９1０200１8李丽中山东路102。221０002３41330１HYＰＥＲＬINK"ｍaiｌto:ｌｉli＠sinａ。ｃoｍ＂lｉli@ｓｉｎａ.com11９５0－7-３0０102201刘明虎距路100—22100１３36０6６08NULL519６２－10—181102208朱俊牌楼巷５.3—18０6２1000４４7０8817ＨＹＰERLＩＮK"mａｉｌｔo：zhujｕn@ｓiｎa.cｏm"ｚｈｕｊun@siｎa．cｏm５１955—０９－281１0８991钟敏中山路108－3－10５２10０0３334６７２2Zhｏｎgｍｉn＠sohｕ。ｃｏm３１９６9—08-１0０11１0０６张石兵解放路34－9—１。２０32１００１0４56341８Zhang@chiｎa．ｃｏm5１９6４—10-01１210678林涛中山北路247.2。3052１0００８３4673３６NUＬL3１967—04—21３02566李玉艰热和路２09．32１0０1８8７65991HYPERLINK”ｍailto:liyｕmiｎ＠ｊlonlinｅ.com＂lｉyumin＠jloｎlｉne．cｏm41958-09—2０13０8759叶见北京西路3-7－5022100０1３30890１NULＬ4１9６8-１1—1815０4209陈林琳汉中路120—4－10２21０0024468１58NULL４１959—０9-0３0在企业管理器中选择表employeｅs——>在其上单击鼠标右键－->选“返回全部行”—－〉逐字段输入各记录值,输入完后，关闭表窗口。(２）在企业管理器中向表Deｐａrtmeｎts插入如表2所示的记录。表２Depａrｔmeｎtｓ表记录编号部门名称备注1财务部NＵLL2人力资源部NＵＬL３经理办公室NUＬL4研发部NＵLL5市场部NＵＬL(３)在企业管理器中向表Salarｙ插入如表3所示的记录。表3Dｅparｔｍeｎts表记录编号收入支出0０0001210０．8１２３.090１０0０81582.6２88．0３1０2２０1２569。8８1８5．6511１0061９87。０179．5８5042０９2０66.1５１０8。030２5６62９８0．7210.2１0８9９1３２59.9828１.5202００１０2８60。０198.０02０0１82３４７．6８180.０3087592531．9８1９9.08２106782240.0121。０１02２0８1980．0１00。0２．在企业管理器中修改数据库YGGL表数据（ｌ）在企业管理器中删除表Eｍｐlｏyｅeｓ的第2、8行和Ｓａlary的第２、11行。注意进行删除操作时，作为两表主键的EmploｙeeIＤ的值，以保持数据完整性。在企业管理器中选择表Emplｏyｅeｓ--〉在其上单击鼠标右键、选“返回全部行”--〉选择要删除的行—－>单击鼠标右键-－＞删除——>关闭表窗口。（２)在企业管理器中删除表Deｐaｒtment的第２行,同时也要删除表Eｍｐlｏyees的第2行。操作方法同上.(3）在企业管理器中将表Emplｏyeeｓ中编号为０20018的记录的部门号改为4。在企业管理器中选择表Empｌoyees—－＞在其上单击鼠标右键--＞选“返回全部行"--〉将光标定位至编号为０20０18的记录的DepaｒtmｅntID字段,将值1改为4。3.使用Ｔ－SQL命令修改数据库ＹGGＬ表数据(l）使用T－ＳQL命令分别向YGGＬ数据库的Employees、Ｄepartmeｎｔs和Ｓaｌary表中插入一行记录。启动查询分析器--〉在“查询”窗口中输入如下Ｔ-SQL语句：USＥYＧGＬＩＮSＥRＴIＮＴＯＥｍpｌｏyeｅｓVAＬUＥＳ（＇01111２'，’罗林＇，'１９73－５—3＇,１，’解放路1０0号＇,２１0002,４0556６3，ＮULL，5)GＯＩＮSＥRTINＴODｅｐaｒｔmeｎtsVALUEＳ('２’，＇人力资源部',NULL)GOIＮSＥRTIＮTＯSalａrｙVAＬUＥＳ（’0１11１2’,12０0．95，５0）GO单击快捷工具栏的执行图标,执行上述语句。注意：在企业管理器中分别打开YGGL数据库的Empｌｏｙeeｓ、Deｐａｒtmenｔa和Salａｒy表，观察数据变化。（2)使用T—SＱL命令修改表Sａｌaｒｙ中的某个记录的字段值。启动查询分析器--＞在“查询"窗口中输入如下T-SQＬ语句：ＵＳEYGＧLUPDATEＳaｌａｒySETIｎＣomｅ=2890WHＥＲEEｍｐｌoyeeＩD＝’0１lll2’GO单击快捷工具栏的执行图标,执行上述语句,将编号为0ｌlｌlZ的职工收入改为2８90。注意：在企业管理器中打开ＹGＧＬ数据库Sａlarｙ表，观察数据变化.(３）修改表Ｅmplｏyees和Ｄepaｒtmenｔｓ的记录值,仍要注意完整性.操作过程同上.（4)使用Ｔ－SQL命令修改表Ｓａlary中的全部记录的字段值。启动查询分析器则在“查询”窗口中输入如下T-ＳQＬ语句：ＵSEYGGＬＵPDATＥSalａｒySETIｎCｏme＝ＩｎComｅ＋100Gｏ单击快捷工具栏的执行图标，执行上述语句,将全部职工的收入增加100.可见,使用T—SＱL语句操作表数据比在企业管理器中操作表数据更为灵敏。注意:输入T—SＱＬ语句SELEＣT*ＦROＭSaｌary,观察数据变化。（５)使用TRANCATETAＢLＥ语句删除表中全部行。启动查询分析器——＞在”查询”窗口中输入如下T－SＱL语句：ＵＳEYＧGLＴRANCＡＴEＴＡＢLEＳalaryGO单击快捷工具栏的执行图标,执行上述语句，将删除Salａrｙ表中的全部行。注意：实验时一般不要轻易执行这个操作，困为后面实验还要用到这些数据。如要添该命令的效果，可创建一个临时表,输入少量数据后进行。

实验3数据库的查询实验目的(l)掌握SＥLECT语句的基本语法。(2）掌握子查询的表示。(3)掌握连接查询的表示。

(4）掌握数据汇总的方法。（５)掌握SELECT语句的GROＵPＢY子句的作用和使用方法。(6）掌握SELEＣＴ语句的ＯＲDERBＹ子句的作用和使用方法。实验筹备（ｌ）了解SELECT语句的基本语法格式。(２）了解SＥLＥＣＴ语句的执行方法。(3）了解子查询的表示方法。（4）了解连接查询的表示。（５）了解数据汇总的方法。(６)了解SELEＣＴ语句的GROUＰBY子句的作用和使用方法。(7）了解SELECT语句的ORDＥRＢＹ子句的作用.实验内容1。SELEＣT语句的基本使用(l）对于实验2给出的数据库表结构，查询每个雇员的全部数据。在查询分析器的编辑窗口输入如下语句并执行:UＳEＹGＧLSEＬECT*ＦＲOMＥmpｌoｙeｅsGO思考与练习：用SEＬＥCＴ语句查询Dｅpartments和Salarｙ表的全部记录。（2)查询每个雇员的地址和电话.在查询分析器的编辑窗口输入如下语句并执行：USEＹGＧLSELEＣTＡdｄresｓ，PｈｏneNｕmbeｒＦＲOＭEmploｙeeｓGO思考与练习：用SELＥＣT语句查询Deｐartmｅnts和Salary表的一列或若干列。（3）查询EmpｌoｙeｅIＤ为0０000１的雇员的地址和电话。在查询分析器的编辑窗口输入如下语句并执行：USEYGＧLﻭＳEＬECTAｄdｒeｓｓ，PhoｎeNumbeｒＦROＭＥmpｌoyeesＷhｅｒｅEmｐｌoｙｅｅＩＤ＝’０00０01＇ＧO思考与练习：用ＳEＬEＣＴ语句查询Ｄeparｔｍentｓ和Ｓalary表中满意指定条件的一列或若干列.（4）查询Employees表中女雇员的地址和电话,使用AS子查询将结果中各列的标题分别指定为地址、电话。在查询分析器的编辑窗口输入如下语句并执行：USＥYＧＧLＳＥLECTＡdｄｒesｓAＳ地址，PｈｏneＮｕmbｅrＡＳ电话FRＯＭEmｐｌｏｙｅｅsWＨEREｓeｘ＝0GO注意:使用AS子句可指定目标列的标题。（５）计算每个雇员的实际收入。在查询分析器的编辑窗口输入如下语句并执行:USEＹGGLSＥＬECTEmployｅeIＤ,实际际收入=InＣomｅ—OutＣomｅFROMＳalaｒyGO(6）找出全部姓"王”的雇员的部门号.在查询分析器的编辑窗口输入如下语句并执行:

USEＹGGL

SELＥCＤepaｒｔmentＩDFROMEmploｙeｅsWHＥREｎameLＩＫE'王%＇GO思考与练习：找出全部地址中含有“中山"的雇员的号码及部门号。（７）找出全部收入在2０0０~３０00元之间的雇员编号。在查询分析器的编辑窗口输入如下语句并执行：USＥYGGLＳEＬECTEmplｏｙｅeIDFＲＯMSalaryWHERＥＩnＣomｅBＥTWＥEN2０00ＡND3000Gｏ思考与练习:找出全部在财务部和人力资源部工作的雇员的编号。注意：在SELＥCＴＴ语句中LＩKE、BETWEEＮ…AＮD、IＮ、ＮOT及CＯNTＡＩＮ谓词的作用。2．子查询的使用（１）查找在财务部工作的雇员的情况。在查询分析器的编辑窗口输入如下语句并执行：USＥYＧGLSＥLECT＊FＲOMEmｐloyｅｅsＷHEREＤeｐａrtｍentＩD=(SELEＣＴＤeparｔｍentIDFROＭDepａrtｍeｎｔsWHEREDepartｍeｎｔＮamｅ＝’财务部’)GO思考与练习:用子查询的方法查找全部收入在250０元以下的雇员的情况。（2)查找财务部年龄不低于研发部雇员年龄的雇员的姓名。在查询分析器的编辑窗口输入如下语句并执行：USEYＧGLＳELECTNameFROMEｍｐｌoyeｅsＷHＥＲＥDｅｐartmeｎtIDＩＮ（ＳＥLECTＤeptmentIDＦＲＯMDｅｐarｔｍeｎtsWHERＥDｅｐarｔmenｔNａｍe=＇财务部＇）ANＤＢiｒthdａy＞ALL（ＳＥＬＥCTBirｔhdayFROMＥｍplｏｙeｅｓWｈeｒｅDｅpartｍｅntＩＤIN（SELＥCTDeｐａrtｍeｎtIＤFRＯMＤａｐartｍeｎｔｓｗhｅｒeＤｅpartｍentＮaｍe=’研发部'))Go思考与练习：用于查询的方法查找研发部比全部财务部雇员收入都高的雇员的姓名。(3）查找比全部财务部的雇员收入都高的雇员的姓名。在查询分析器的编辑窗口输入如下的语句并执行：ＵSEYGGＬSＥLＥCTNaｍｅＦromＥmｐlｏｙeｅsWHEＲＥEmployeeＩDIN（ＳＥLＥCTＥmpｌoｙeeＩDFROMSaｌａｒyWHＥＲEＩnComｅ>ALL（ＳELECTIｎCｏｍｅFＲOMSalａryＷＨEREＥmploｙeeＩDIＮ(SＥLＥＣTEmaｌpoyeｅＩDFROＭEmployｅeｓＷＨＥＲEDepａrtｍeｎｔIＤ=（SELECTＤEＰARTMENTIDＦRＯMDｅpａrｔmntsＷHＥREDｅpaｒtｍentName='财务部’)）)）GO思考与练习：用于查询的方法查找全部年龄比研发部雇员年龄都大的雇员的姓名。3.连接查询的使用（1）查询每个雇员的情况及其薪水的情况。在查询分析器的编辑窗口输入如下的语句并执行：USEYGGLSELEＣTEｍPloyeeｓ。＊,Ｓａｌaｒ.*FROMEmｐloyｅeｓ，ＳalaryWHEＲEＥｍglｏyeｅｓ。EmpｌoｙeeID＝SalarｙEmｐloyeeＩＤGO思考与练习：查询每个雇员的情况及其工作部门的情况。间查找财务部收入在２2００元以上的雇员姓名及其薪水详情。在查询分析器的编辑窗口输入如下语句并执行：UＳEYGGLSELＥCTNａme,InComｅ,ＯｕtComeＦROMEmploｙeｅs,Salａｒy,DepａrtｍeｎｔsWＨＥREEmploｙｅｅs.EmployeeIＤ=Saｌaｒｙ.ＥmploｙeeIＤＡNDEmploｙees。DepartｍｅntID=Ｄeｐartments。DEpartmeｎｔIDANDDｅｐartmeｎtNaｍe='财务部’ＡNDInCｏmｅ>2０0０GO思考与练习：查询研发部在１９66年以前诞生的雇员姓名及其薪水详情.4数据汇总（l)求财务部雇员的平均收入。在查询分析器的编辑窗口输入如下语句并执行：USEYGGLＳＥLECTAVＧ(InCｏｍｅ)AS’财务部平均收入’WHEＲEEｍplｏyeｅＩＤIN（SEＬECTEmployｅerIDFROMEｍplｏｙeｅsＷHEREDeｐartmｅntID＝（SELＥＣTDｅｐarｔmentIDFＲOMDepａrtmenｔsＷＨEREＤｅpaｒｔｍentNａmｅ＝’财务部＇））ＧＯ思考与练习:查询财务部雇员的最高和最低收入。(２)求财务部雇员的平均实际收入。在查询分析器的编辑窗口输入如下的语句并执行:ＵＳＥYGGLSＥLECTＡVＧ（InＣome—OuｔCoｍe）ＡＳ’财务部平均实际收入＇FＲOMＳaｌaryＷHERＥEmploｙeeIＤIＮ（SEＬECＴEmployｅeIＤＦROＭEmｐloyｅesWＨEＲＥＤｅpartｍeｎｔID=(SELEＣTＤepartmeｎtIＤFROMＤｅＰarｔmeｎtsWHERＥＤｅpartmentNａmｅ=＇财务部'))GO思考与练习：查询财务部雇员的最高和最低实际收入。(3)求财务部雇员的总人数。在查询分析器的编辑窗口输入如下的语句并执行：ＵＳＥYGGLＳELＥCＴＣounｔ(EｍglｏyeeID）FROMＥmｐｌoｙｅｅsWHEREDepaｒtｍenｔID＝(SELＥCTDepａrtmentＩＤFＲOMＤｅpartmentsWＨEＲＥDepaｒtmentNａｍe＝'财务部'）ＧＯ思考与练习:统计财务部收入在25０0以上雇员的人数.５．ＧＲＯＵＰBＹ、ORDERＢＹ子句的使用(l）求各部门的雇员数。在查询分析器的编辑窗口输入如下的语句并执行：UＳEYＧGLＳEＬＥCTCOUNＴ(ＥmｐloyeｅＩＤ)FROMEｍｐloyeesGROUPＢYＤｅpartmeｎtＩDＧO思考与练习：统计各部门收入在２０0０以上雇员的人数.(2）将各雇员的情况按收入由低到高排列。在查询分析器的编辑窗口输入如下的语句并执行:USEＹGGLＳEＬECＴＥmpｌoyeｅs．*，Sａlary。＊FROＭＥmｐloyeeｓ，SalaryＷHＥREEｍｐｌoyｅｅs.ＥｍplｏyeeID＝Sａｌarｙ.EmployｅｅＩDOＲＤERBＹInCoｍeGO思考与练习：将各雇员的情况按诞生时间先后排列。

实验4T－ＳQL编程实验目的（l）进一步巩固第2章至第4章所学的内容。(2）掌握用户自定义类型的使用。（3）掌握变量的分类及其使用。(4）掌握各种运算符的使用.(5）掌握各种掌握语句的使用.（6)掌握系统函数及用户自定义函数的使用。实验内容(1)自定义数据类型的使用(２）自定义函数的使用实验步骤1.自定义数据类型的使用(l）对于实验２给出的数据库表结构，再自定义一数据类型ＩD_Type，用于描述员工编号。在查询分析器编辑窗口输入如下程序并执行:USEYGGＬEXECsｐ_adｄtypｅ＇ＩD＿Ｔypｅ'，＇cｈａr(6）’,'ｎｏtnuｌl'ＧO注意：不能漏掉单引号。(２)重新创建YGGL数据库的Empｌｏｙeｅｓ表.在查询分析器编辑窗口输入如下程序并执行：UＳEYＧGLＩＦEＸISTS（ＳELECTｎaｍeFRＯMsｙsｏbjeｃtsWHERＥtypｅ＝'U'andnａme＝’Emplｏyｅes'）/*首先在系统表中查看Emｐloyees表是否存在,若存在，删除该表＊／ＤROPtaｂｌｅｅmｐloｙｅesCＲEATEＴABＬEＥｏｐｌｏｙees（EmplｏyeeIDID＿ｔype，/*定义字段EmpｌoyeeＩＤ的类型为IＤ_type＊／Ｎamechar（1０)NOTNＵＬL,ＢiｒｔhｄaydａtetiｍｅＮＯTNUＬL,SexbitNOTNULＬ，Addｒesscｈaｒ（２０)NOＴＮUＬＬ，ZIPchａr（６)NUＬL，PｈonｅＮuｍbｅrChar（12）NＵLL,ＥmａｉｌＡddｒｅｓsｃhar（20）ＮULL,DeｐaｒｔmｅｎtIDchａr(3）NOTNULL）GＯ２．自定义函数的使用（ｌ)定义一函数实现如下功能：对于一给定的ＤeｐａrtmentＩＤ之值，查询该值在Ｄeｐａrｔmenｔs表中是否存在，若存在返回０,否则返回—1。在查询分析器的编辑窗口输入如下程序并执行。UＳEＹＧＧＬCREＡTＥFＵNCTＩONＣHECK＿ＩD(@deparｔmenｔIＤcｈａｒ（3)）ＲETURNＳｉｎtｅｇerAＳｂeｇiｎdｅｃlare＠ｎuｍintＩFEXISTＳ（ＳＥＬECTｄepartｍentIＤFRＯＭdeｐarｔmｎtsWＨERE@dｅpartmｅntｉｄ=deｐaｒtmentID)ｓｅlｅｃt@nｕｍ=0ELSEｓｅlｅct＠num＝－1retｕｒｎ@nuｍenｄＧO(2）写一段Ｔ—SＱＬ脚本程序调用上述函数.当向Ｅｍｐloyeeｓ表插入一记录时，首先调用函数CHＥCK_ＩD,检察该记录的DepａｒtｍentIＤ值在表Depaｒtments的DepartmentＩＤ字段中是否存在对应值,若存在，则将该记录插入Emploｙeeｓs表。在查询分析器编辑窗口输入如下程序并执行:USＥＹGGLdeｃｌare＠ｎｕminｔseｌecｔ＠nｕｍ＝dｂochｅck_id(＇2＇）if＠ｎum=eｉnsｅrｔemｐｌoyｅesvａｌｕes（’990２10'，’张文',’19８2－0３—２4’,0，＇南京镇江路2号',’2１０0009'，＇３497534＇,’ｚｈang＠ｊlonｌnｅ.com＇,’2＇)GO思考与练习:编写如下程序:(ｌ)自定义一数据类型,用于描述ＹGGL数据库中的DeparｔｍentＩD字段，然后编写代码重新定义数据库的各表。(2)当对Deｐａrtmｅnｔs表的DｅｐarｔmｅnｔID字段值修改时，对Emploｙees表中对应的DepａｒｔｍｅnｔIＤ字段值也进行相应修改。(３）对Ｅｍploｙeeｓ表进行修改时,不允许对ＤepａrtmentＩD字段值进行修改。ﻬ实验5索引、存储过程和触发器的使用实验目的（l)掌握索引的使用方法。(2）掌握存储过程的使用方法。(３)掌握触发器的使用方法.实验内容（１）建立索引（2)创建触发器(3）创建存储过程（４）调用存储过程实验步骤1。建立索引对YＧGL数据库的EＩnplyees表中的DepartmｅntID列建立索引.在查询分析器编辑窗口输入如下程序并执行：USＥＹGＧＬＩFＥＸＩSTＳ（ＳEＬECＴｎａmｅFROＭsｙsinｄexｅｓWＨＥREｎａmｅ=’dｅｐａｒt_ind’）DROＰＩNDEＸｅmplｏyeｅs．deｐａｒt_iｎd/*应使用表名．索引名的形式*／GOUＳEYＧＧLCREAＴＥINDＥXｄepart_indＯNEmｐｌｏyeｅs（deｐartｍｅｎtＩＤ）２．创建触发器对于YGＧL数据库，表Emplｏyeｅs的DｅｐalｌｍｅntＩD列与表Depａrtｍｅｎｔ的ＤepａrｔmentID列应满意参照完整性规章,即：。向Eｍｐloｙees表添加一记录时,该记录的DｅpaｒtmenｔＩD值在Dｅｐａrｔｍｅｎts表中应存在。。修改Ｄepａrｔｍeｎｔs表的DeｐartmｎｔID字段值时，该字段在Eｍpｌoyees表中的对应值也应修改..删除Dｅｐａｒｔｍentｓ表中一记录时,该记录ＤeｐａrｔmｅntＩD字段值在Emplｏyees表中对应的记录也应删除。上述参照完整性规章，在此通过触发器实现.在查询分析器编辑窗口输入各触发器的代码并执行:（ｌ）向Ｅmpｌoｙeｅｓ表插入或修改一记录时,通过触发器检查记录的DｅpａrtmentID值在Dｅｐartments表中是否存在,若不存在，则取消插入或修改操作。ＵSEＹGGLGOCREAＴETRIGＧEREmploｙｅeInsoｎｄbo.ＥmpｌoyeeｓＦORＩNSERT,ＵPDATEＡSBEGINif((ＳEＬECTiｎs.ＤeｐaｒtｍentIDｆromｉnserｔｅｄins)ＮOTＩＮ（SEＬECTｄeｐａｒｔmenｔIｄFROＭdeｐartmｅnｔs）)ＲＯLＬＢＡCＫ/＊对当前事务回滚，即恢复到插入前的状态＊／END(2）修改Depaｒtｍｅｎｔs表的DepａrtｍenｔIＤ字段值时,该字段在Eｍployeeｓ表中的对应值也做相应修改。ＵＳEYGＧＧOCＲEATEＴＴRＩGＧERDepaｒｔmｅntsUpdaｔeoｎdbｏ．ＤepａrtmentｓＦOＲUPDAＴEAＳＢEGＩNIF(COＬUMNS_UＰＤAＴED()＆０1)>0UPDATＥEmplｏyeesSETＤｅpartmｅntＩＤ＝（SＥＬEＣTins.ＤepaｒtｍｅntIDfrｏｍIＮSＥRTEDinｓ）ＷHＥＲＥＤｅparｔmentID=(SELECTDeparｔmｅntＩDＦROＭｄｅleted)ENDＧＯ(３)删除Depａrtmeｎts表中一记录的同时删除该记录DepaｒtmentID字段值在Emｐlｏyｅｅs表中对应的记录。UＳEYGGLGOＣREＡＴＥTRIＧGＥRDeｐartmenｔsDeｔｅteondbｏ。DepartmentｓFORＤELETEＡＳＢEＧINDＥLEＴEＦRＯＭEｍpＬoyｅesＷHERＥDeparｔmentID=（ＳＥLEＣＴDepａrｔmeｎtＩＤFROMdelｅteｄ）ENＤGＯ３。创建存储过程在查询分析器编辑窗口输入各存储过程的代码并执行:（l）添加职员记录的存储过程ＥmploｙeeＡｄd。UＳＥYGＧＬGOCＲEAＴEPROCEDURＥEmpｌｏｙｅeＡdd（@ｅmployｅeiｄcｈａｒ（6），＠namｅcｈar（１0),＠ｂirthｄaydatetｉｍｅ，@sｅxｂit,@addｒesscｈar（20），@zipcｈａr（6），＠ｐｈｏneｎumbeｒｃｈar(1２）,＠ｅmailadｄreｓsＣhar(２０),＠dｅpａrtｍenｔIＤＣhar（３））ASBＥGINIＮSERＴＩNＴOEmplｏｙeｅsVAＬＵＥS(@empｌｏyeｅｉｄ，＠nａme，@bitｔhｄay，@ｓex，@addｒess，@ｚip，@ｐhonｅnuｍｂer，＠eｍaｉｌａddｒｅss,＠departmentIＤＥNDREＴＵＲNGＯ（2）修改职员记录的存储过程EmpｌoyｅeＵpdａte.UＳEYGＧＬＧOCＲEＡTEＰＲＯＣEＤUＲＥEｍployeeUPdａte（@emｐidｃhaｒ（6）,@emplｏｙeeidchａr(6）,@ｎaｍｅcｈar(1０)，＠biｒthｄaydａｔetｉｍｅ,@seｘbｉt，@ａdｄreｓschar（２0），@zｉｐchar（6)，＠phonｅｎumberchaｒ（１2),＠ｅｍaiｌａｄｄresschaｒ(20），＠ｄepaｒtmeｎｔIDChar（3））ASＢEGＩＮUPDATEEｍｐloyeesSＥTEmpｌoｙｅeｉｄ=＠eｍｐloyｅeid，Nａｍe＝＠ｎame,Birthday=＠birｔｈｄａy,Seｘ=@ｓｅｘ,Ａddrｅsｓ=＠adｄｒesｓ,Ｚip=@Ｚip，Ｐhonenｕmｂer=＠pｈｏnｅNumｂer，Ｅmａiｌａddｒess=＠eｍaiｌaｄdｒｅｓs,DepartmmentＩD=@dｅpａｒｔmeｎtＩDＷHEREEｍｐｌoyｅｅIＤ=＠ｅｍpIＤENDRＥTURN（3）删除职员记录的存储过程ＥmployeeDｅleｔe。ＵSＥYＧＧＬCRＥＡTＥPROCＥＤＵREEｍploｙDeleｔｅ(@emｐloyｅeIＤcｈar(６))ASＢEGINＤELETＥFＲOＭEmpｌoｙｅｅsWHＥＲEEmgｌoｙｅeid=＠eｍｐloｙeeiｄEＮＤRETＵＲNGO４．调用存储过程ﻭＵＳEＹGGＬEXＥCＥmpｌｏyeｅＡdd＇9９０2３0＇，＇刘朝＇，＇890909'，1,'武汉小洪山５号’，’’,’’，＇'，＇3’ＵSＥＹGGLEXECEｍplｏyeeUpdate’990２30’,’９902３2’，’刘平＇,'890909'，l，武汉小洪山5号＇,'’,’＇，＇’,'２’USEＹGGLEXECEmpｌoyeｅDelete’9９023２'ＧO分析一下此段程序执行时可能消灭哪几种情况。思考与练习:编写如下T－ＳQＬ程序:（l）自定义一数据类型,用于描述ＹGGL数据库中的DepaｒｔｍentID字段,然后编写代码,重新定义数据库各表。(2）对于ＹＧGL数据库，表Ｅmｐｌoyees的EmｐloyeeIＤ列与表Salary的EｍpｌｏｙeeID列应满意参照完整性规章,请用触发器实现两个表间的参照完整性.（３）编写对数据库YGGＬ各表进行插入、修改、删除操作的存储过程，然后编写一段程序调用这些存储过程.ﻬ实验6ＶB人员信息管理系统项目1连接数据库及调用存储过程实验目的(ｌ)掌握在ＳＱLSｅｒvｅｒ中创建数据库、表、触发器、存储过程的方法。(2)掌握在VB中通过数据视图窗口查看数据库对象及创建触发器和存储过程的方法。(3）掌握通过代码建立数据库连接及访问表记录的方法.（４）掌握VB中调用存储过程对表数据进行操作的方法。实验内容（１）创建数据库及其表（２）在VB6．0中查看数据库对象(3）设计窗体界面（4）设计应用程序代码（5）运行实验步骤1。创建数据库及其表在SQLＳerver中新建个人信息管理系统数据库“PＩnfｏrｍａｔｉon”，创建该数据库下的表Coｎｔacｔs、CｏｎtａctPｈｏnｅs、Reminders.数据库PＩｎｆｏrmａtｉon的表及其结构如下:（l）联系人表(Contａcts）.Ｃonｔacｔｓ表的结构如表l所示.表1Ｃonｔaｃts表结构字段名字段类型主键标识列说明CoｎｔａctIDInt√√联系人姓名NamｅＶarchar（50）联系人名称AdｄressVａrchａr（10０）联系人所在城市ZｉpCodeVarｃｈar(20)邮编ＥｍａilAddrｅssＶａｒcｈar（50）电子信箱ＣonｔａcｔNｏtｅVarｃhaｒ(1０0）备注（2）联系人电话表（conｔactpｈoｎｅ）.ｃｏnｔａｃtpｈoｎes表结构如表2所示．表２Coｎｔacｔphoｎｅｓ表结构字段名字段类型主键标识列说明ContactＰhonｅIDIｎt√√联系人电话编号ContａｃｔIDInt联系人编号ＰhｏneTyｐeＶaｒchar（５0)电话类型ＰｈoｎeNuｍberVaｒchar(5０）电话号码(3）提示信息表（Remiｎｄｅrs）。Remiｎdｅｒs表结构如表3所示：表3Rｅｍindｅrｓ表结构字段名字段类型主键标识列说明RｅｍａindeｒＩDＩｎｔ√√提示编号AｌaｒmOnbit报警标志AlarmＴimeDateｔime报警时间RemｉnderNoteVarｃｈar(10０0）提示内容注意：定义为标识列的字段的值是依据“种子"的值自动生成的。在VB中也可创建数据库的表,可自己试一试。2．在VＢ6．0中查看数据库对象第１步新建工程“Ｐrｏjｅctｌ"，在ＶB界面中，执行“视图"菜单的“数据视图窗口”菜单项,消灭如图l所示的界面.图1VB中的数据窗口视图第2步在图。l所示的界面中,选中“数据链接”文件夹,单击鼠标石键,消灭一快捷菜单，执行菜单项“添加数据链接”，消灭如图２所示的界面。在“供应者”选项卡中选择ＯＬEDB供应者为“McｒoｓoftOＬＥＤBPrｏVidｅrfoｒSＱＬSｅrver"(或ＭicrｏsoftＯLEDBPrOviｄeｒforＯDBCDrivｅrs）。图2设置数据库连接方式的“供应者"界面第3步在图2所示的界面中，选择“连接”选项卡，消灭如图３所示的界面，输入“数据库服务器名”、用户登录名、密码及登录的数据库。图3设置数据库连接方式的“连接”界面第４步在图3所示的界面中，选择“确定”按钮，消灭如图4所示的界面。从今界面中可看出，在数据窗口视图中，新创建了一个数据链接“DatａＬinｋ１”。在该数据链接上，通过相应的快捷菜单可创建存储过程和触发器。图4数据视图窗口３．设计窗体界面设计窗体界面，如图5和图6所示.图５设计应用程序主窗口ｆorｍ1图6设计联系人窗口ｆoｒm２4。设计应用程序代码（ｌ)模块Mｏdulel的设计。OptionEｘpｌicitPubliｃＳQLUsｅｒＮａmeＡｓSｔｒiｎg’存放ＳQLServｅr的用户登录账号PｕblｉcSＱＬPａｓswoｒdＡsSｔrinｇ'存放ＳQLSeｒveｒ的用户登录密码ＰubliｃMyConｎectionAsＮewADODB.Cｏnneｃｔｉon＇用于建立与数据库的连接（2)应用程序主窗口foｒｍl的代码设计。主窗口ｆoｒml的LOAD大事驱动程序：PrivａｔeSｕbForm_Ｌoaｄ()MyＣonｎｅctioｎ。ConｎctionSｔｒｉｎｇ＝＂ｄriｖeｒ={ＳQLServｅr}；"＿’驱动程序名&"serve=ｄlｇｃ—pooｌy１rw4；uｉd＝”&SQLUserName_”服务器名及用户登录账号＆";pwd="＆SQLPasswｏrd＆”；"_’用户登录密码＆＂datａｂase=Pｉnfoｒmatioｎ”'连接的数据库ＭyCｏnnｅction．Oｐen'建立连接ＥｎｄＳｕb功能:加载主窗口ｆorml时，通过代码建立与数据库Ｐｉｎformａtion的连接.“下一步”按钮的Ｃｌiｃｋ大事驱动程序:PriｖateSubCOｍmand1＿Cｌick(）Form2。SｈowUｎloaｄMｅＥnｄSub功能：加载联系人窗口fｏｒm2，卸载主窗口fｏrml.(3)对Conｔacｔs表进行操作的存储过程的定义。在SＱLSｅｒｖer中或通过VB的数据视图窗口创建如下存储过程：。在COnｔactｓ表中添加一条记录：ＣＲＥＡTＥPＲOCEDＵREcontａｃｔaｄd@ｎameｖaｒｃhar（5０）,@Aｄdresｓvarcｈａr(100)，＠ZIＰCodeｖａrcｈar(2），@EmaｉlAdｄｒessvａｒcｈａｒ（５0)@ContａｃtNoｔeVａｒchaｒ(5０)Asbｅgininseｒtｉｎｔｏｃｏntacｔs(naｍe,Addｒess，ZipCｏde,ＥmａilAddｒess，ConｔacｔNｏtｅ)vａlｕｅs（@nａme，＠Aｄｄｒess，＠ZIPCode，＠EmailAｄdｒesｓ，＠ContactNoｔe）Ｓelｅcｔ@＠iｄｅntitｙaｓTｈeNewＩDendreｔurｎ在conｔacts表中查询联系人编号和姓名：CＲEＡTEＰROCEDＵREcｏlｌlaｃtｌistAｓbegｉnseleｃｔcoｎtａctID，ｎaｍefromｃontaｃtsoｒderbynａmｅendreｔｕrn在ｃontactｓ表中查询联系人的一条记录：CＲＥATEPROCEDＵRＥcontａctrecｏｒd@conｔaｃｔIDiｎtｅgerＡSｂegｉniｆ@ＣontａcｔＩＤ=0begｉｎｓeleｃt＊fｒoｍcontａｃｔswｈeｒｅｃontａｃtＩＤ=(selｅctMin(contａctid）fｒｏmｃoｎｔａcｔs)endｅlsｅｂｅgiｎｓelｅcｔ＊fromcｏntactｓwherecoｎtａcｔＩD＝@contaＣtIDｅndendrｅturn在cｏntａcts表中对一条记录进行更改:CＲＥAＴEＰＲOCＥＤＵREcontactuｐdaｔｅ＠ContａctIDｉnteｇer,@naｍeｖarｃｈar（５０）,＠Ａddｒesｓvａｒｃｈaｒ（10０),＠ＺIPCodｅvaｒｃhar（2０）,@ＥｍaiｌＡddｒessvarｃhａｒ（50)，＠CｏnｔａctNｏｔｅvarｃhａr(500）Asbｅｇｉｎｕｐｄatecontａcｔsseｔname＝＠namｅ，Aｄdｒess=@Ａｄdｒｅss，ZipＣｏｄe=@ZiｐCode,EｍailＡddreｓs=＠EmaiｌAdｄｒesｓ，ＣonｔａcｔNoｔe=＠ContactNｏtewhereＣoｎtacｔＩD=＠ContacｔＩＤｅｎdreｔｕｒn在Ccontａcts表中删除一条记录:CREATEPROCＥDＵRＥdeltｅcontacｔ@ＣontａcｔIDｉntegerAsｂegiｎdeｌetｅfｒoｍconｔactsｗhereContactID＝@ContactＩＤeｎｄreｔuｒｎ(4)对cｏｎtａｃtphoｎes表进行操作的存储过程的定义。在表ｃontaｃｔｐｈone中添加一条电话记录:CREＡTＥＰROCEDURＥｃontactPhoｎeadd＠contａctＩDinteｇｅｒ，@Phoｎetyｐeｖarchaｒ（50）,＠ｐhｏneｎumberＶａｒｃｈａr(50）Asbegｉｎiｎseｒtintoｃoｎtactpｈｏneｓ（conｔactID，ＰＨｏneＴｙpe，phonｅnumbeｒ)valｕes（@ｃontacｔID，@PhoneＴypｅ，＠phｏnｅnｕmｂｅr）enｄretｕrn在表ｃｏntａctpｈonｅｓ中删除一条电话记录：CREAＴＥPRＯＣＥDＵREconｔaｃtｐhoｎedeletｅ＠coｎtactＰｈonｅＩDinｔegerＡsｂegindeleｔeｆromconｔａcｔphonesｗheｒｅcoｎｔａｃtｐhoｎｅID＝@contａctｐhoｎｅＩＤenｄｒeturn在表contaｃｔPhoｎes中查询电话记录：CＲEATEPRＯＣＥDUREｃontａctphｏｎelｉsｔ＠cｏｎtacｔＩDinｔeｇerAsbegiｎＳｅlecｔｃoｎtactphoneＩD，PhｏｎeTｙpe＋"—”+ＰhoneＮumbｅrａsＴheＰhoｎｅｆｒｏｍcontactphｏnesｗheｒｅｃｏntａｃtID=@cｏntaｃtIDorderbyPｈｏｎｅＴｙpe＋＂—＂+PhoｎeＮuｍbｅrｅndreｔuｒn（５）DｅｌｅtｅＣontacts触发器的定义。ＴrｉggeｒdelｅｔｅCoｎtacｔsOｎdｂｏ。ContactｓａｆterＤｅleteAsbeｇｉｎdelｅｔefromｃonｔactphonｅswｈereconｔａctID＝(seｌｅctｃｏntａctIDｆｒｏmdeleted)ｅnｄ功能：当用户删除一条联系人记录时，通过该触发器删除该联系人的全部电话号码。(６)联系人窗口fｏｒm2的代码设计.变量和子程序的定义:ＯｐｔiｏnExpliciｔPｒivａｔｅcｕrｒeｎｔIDAsＬong＇存放当前联系人编号PｕbｌicSｕbDiｓplａｙCoｎtact（IＤ2Ｕseaslong)'显示一条联索人的记录DimＲＳCoｎtａctＡｓＡDODB.RｅｃorｄsｅtSetRSＣoｎtａct=MyCOnnectioｎ.Eｘｅcute(”ＥｘｅcContactReｃord"＿＆ＩD２Ｕse)’调用ContａtReeoｒd存储过程IfRＳＣontａｃt．EOFThｅnCommand4_CｌicｋelsecｕrｒenｔIＤ=RＳＣｏntact(”ＣｏntａcｔID”）Text2.Teｘｔ=ＲＳCｏnｔacｔ（”Ｎａｍe”）TｅxＩ3.Tｅxt＝ＲSContａcｔ(＂Addrｅss”）Text4．Text＝RSＣｏnｔａctt（”ZipCode”）Text５.Text=RＳContａｃt(”Emａiｌadｄreｓs"）Ｔext6。Texｔ＝RSContact("ＣonｔactNｏｔe”)DisｐｌａｙPｈoneLiｓt'显示该联系人的电话号码.EndifEndSubﻭ功能：如果存储过程调用返回文件结束标识，则调用“清除"按钮的ClｉCk程序，清除界面上的数据，否则显示一条记录.ＰubｌicSuｂUpｄatｅＮamｅＣoｍbo()DimRＳＮaｍesAｓADODＢ．Recordｓｅt'定义一记录集变量'通过连接变量执行存储过程SetRＳnames＝Myconnecｔiｏn.Execｕte（＂ExecContacｔList＂）Cmbecontacts.cleａrＤoＵｎtilRSNaｍes．ＥOFＣmbcｏｎｔactｓ．AddＩｔemRSＮａmes(”Nａｍｅ”）Cmbｃontaｃｔs．itｅmData(Cmbcontacｔｓ．ＮewＩｎdｅx）=_RＳNaｍeｓ("ＣｏntactIＤ”)RSNａmes.ＭoveNｅｘｔLｏopｅndsｕb功能:调用ContacｔRecｏrd存储过程查询联系人姓名和编号,然后加入到下拉列表Cmbcoｎtａcts中。ＰｕｂlicSuｂDiｓpｌａｙPｈｏneＬｉst（)