数据库工程作业

1、，并填写工程作SQL Server、说明配置步骤10DBMS 关OS 相关数据库工程作业要求：根据第一次作业第一题的设计，完成一个小型的数据库信息管理系统（或部分功能）业报告；程序和报告请在规定时间之内上传。矚慫润厲钐瘗睞枥庑赖賃軔。开发模式（B/S或C/S）、开发高级语言任选，后台数据库使用大型数据库管理系统（Oracle等），不要使用桌面数据库。聞創沟燴鐺險爱氇谴净祸測。报告中所列举的四种操作都要求涉及到两张以上的数据表，每种操作举一个例子即可。 所列举的操作应涵盖事务、触发器、视图、存储过程的应用。作业成绩按照报告中的标准评分，程序只实现报告中涉及的部分即可。工程作业报告项目信息学号1姓

2、名11专业项目名称唱片销售系统开发语言VB 6.0后台数据库1 SQL server 2000必备环境Win dows XP SP2系统配置（10分）根据实际需要给出配置的具体步骤，可以粘贴屏幕截图，不涉及的部分写 无”;（10分）高级语言连接数据库一般都会使用连接串，分析该字符串的各个部分。启动SQL Server服务管理器创建数据库：打开 查询分析器”，选择系统数据库 master并执行 唱片销售系统.sql 建立数据库cpxs， 执行结果如下：I在删除数据库文件C:乜ELDF 4正在册橡簸榕文禅C; cpKs Data. MDF* aCREATE DATABASE进程正在磁盘cpKS.D

3、at a 上付配5* 00 MB的空间*CKEATE DATABASE iS程正左磁盘:皿3丄口上分K 1. 00 1B的空间。1.注册数据库控制面板-管理工具-数据源-用户DSN 注册cpxs数据库添加-选择SQL SERVER-名称份别为cpxs）-服务器选择local -windoesNT验证-分别更变默认数据库（对应选择cpxs）1 / 17程序相关坪尸数輛遊:名称用户MM I采抗却丈件ISK|呃动程序I跟臨1连接池I关于1cpxsdSA2E Filas 瞰*1 FilesMS Acctis Database Visual roxFrc Datable Vi sTial FojeFw

4、TatLs打動程序SQL Snrar Mi cnoEoft , Midggft ； Mi cTOSoft , Mi CTOsoft Mi cTOSoft in连接串分析（10）kccasE dA3 Driirar EhsI triyr k1 i,C*. m JbBri vtrBri vtrVi s 口 il VisuaDriverFoxFroFakFito配置O躅盪聽酵麟勰嚅藹黠嚳ii翹誉用确定 I 取消 I应JiI 帮助 I在唱片销售系统”文件夹下打开工程文件工程1.vbp ”，编译执行，进入登陆界面。登陆系统界面Jfl户类型開户名密玛登陆关闭使用预设帐号进入系统：管理员帐号：admin密码

5、：123会员帐号：user密码：123序号名称ProviderIn tegrated Security功能说明取值应用程序使用 SQLOLEDB提供程序 连接到SQL Server使用windows集成身份验证SQLOLEDB.SSPI13 / 173PersistSecurity InfoADO在数据库连接成功后不保存密 码信息False4In itial Catalog连接对应数据库cpxs5Data Source连接本地数据库服务器(local)备注数据库设计说明（10分）按照数据表的创建顺序，依次给出所涉及数据表的信息，其中参照字段以（字段1,字段2,，字段n）”的形式给出，被参照字段

6、以 表名（字段1,字段2, 字段n） ”的形式给出；（10分）一般DBMS都可以为数据库生成关系图，请将该图片截屏并粘贴到表格中。数据表（10）创 建 顺 序数据表名称主键参照属性被参照表及属性1man ager_ info管理表UserId无无2base_ infoCD基本信息表CDTrackName无无3card _info充值卡表CardId无无4custom _info用户表CustomIdCDTrackNamebase_i nfo(CDTrackName)CustomIdman ager_i nfo(Userld)5Qiugou 求购关系表BuyIdBuyCDNamebase_i n

7、fo(CDTrackName)BuyIdman ager_ in fo(UserId)关系图（截屏）(10)备注 添加操作说明（1分）简要说明该操作所要完成的功能；（3分）该操作的输入数据以及输入数据应该满足的条件，如：数值范围、是否为空；（3分）该操作会修改字段（以 表名.字段名”的形式给出），以及修改规则，如：新数值的 计算方法、在何种条件下予以修改等；（4分）实现该操作的关键代码（高级语言、SQL），截图即可；（4分）如何执行该操作，按所述方法能够正常演示程序则给分。功能 描述（1分）添加用户（举例） 添加新唱片 添加唱片预定信息输入（3分）数据约束CX （用户名）Char类型，长度为1

8、0，主键123 （密码）Char类型，长度为10,非空用户（用户类型）ICHAR(IO) NOT TOLL CHECK (UserEind IN管 H员州户 TJJ更改 字段（3分）字段规则Man ager in fo.Userld新建用户名Man ager_i nfo.UserKi nd新建用户类型Man ager i nfo.User Psw新建口令代码（4 分）（截屏） 添加用户Trim (TsKtK (0). T&jst)Trim (Tenets C1). T&st) 管锂贯Dim const ring： As StringDim sql souEce As StringDiih fl

9、ag As BooleanconstriTi = ProvidcE=SQLOLEDB, 1 ： Integrated SeCiiri-ty=SSPr.Persist Sec flag = FalseIf TextIsEmpty Then Exit Subcrin. Op en conSt r ingIf Cirtioi*i2. Value = True ThenEql_ource = select * from man直ger_irrfo*TRecordset. CursorLocation = adUseClientTRecardst. Opsn sqlS&iircs, cim雋 adOpe

10、riSt atic, idLocbOptimi stic flag = TrueEnd IfIf Optionl. Value = True Then3cil_source = * select 水 from managerinfo*TRecordset .匚ursOrLoCation = adUse 匚 1lentTRecordset. Open 3(il_3&tirce, erm., adOpeiiSt alic, adLockOptLuiLStic End If If flag ItuenTRecordset. AddlTe-wTEecordset. Fields (0)=TRecard

11、set. Fields(2)=TRecordset. Fields(1)=TRecor dset. UpJat evbOEOnly + vblnrf rastiork, * 倍息提示*MsgBcJH 菅ifiR添加我功STexts(0).Test =Textx(1)_ Text = *TeHtK(2)_ Tezt =ElseTRecordse+. MoeLaEti = TRecordset.FieldsC1)TEecordset, AddKe-wTRecordset. Fxelds(0 =TRecordset, Fields CZ =TEecordsetf Fields(1=IRecordse

12、t. Fields(1)IRecordset, Fields(4)*7Recordset. Fields(5) IKecordset, Fields (J)TRecrdsetf UpdateT rim (Text k (0) . Test)Trim(Texts(1). Test) %户1 + 1用户00fromcust COW-infoadUseClientcnnj adOpenEt atiCj adL ockQpt ini st icsql-H日耐er = select *HRecordset. CursorLocartion =HRecordset. Open sql.menber,HRe

13、cordset. AdiKe-wKRecjrdstf Fields (0 = TrimdestK (0). Test)MRecordset. Fields(1) = Trim(Texts(1). T&xt)TrtRecordset. Fields (1) = 用户KRecordset. lIpJat eMsgBw 会员添加咸功S vibiOEOnly 十 vljlnfrmat ion 信息提示 Textx(0). Text =Textx(l). Text 二Testx()* Test =End If添加新唱片cm. Close7 / 17Private gx 直s New ADODE. Eec

14、ordsatPrivate Sub CoiiuiLaiidl_Click 0Dim conStEing As StringDim s(il_ source As St tingconString = Prowi边er=SQLOLEDB 1; brtegEated Security=SSPr；Peisist Secu cnn-OperL cnStringsql_soiirce = select * froji base_info*gH_ Curso rLocat ion = adUseClient31. Open s(il_soiircG enn, adOpenSt atic adLockOpt

15、iitisticAddHewFields (D)ax-Fiells g:. Fields (2)Fields(3)gx. Fields (4)gx. Fields (E)Text 1. Text TgtZ Teit Texts. Text Tea+d,rsKt Ttxtb. Text Ttxtfi,Text* gK.Field豊(S) = TextT. Text* Sit-Fields (7) = text3. Textgx” Updat e_MsgBoz 游戏僧息滋加成功！ , vbOXOnly + vbinfariiLa-tion, 提示 cnn.Close Eftd Sub添加唱片预定信

16、息Private Sub Command1_Click C)AdodcLConnedionStling = *Provider=SQLOLEDB. 1 ；Integrated Securit7=SSAdodcl. RecordSource = select * from qiugouAdodeL RefreshIf Test L Test = Or TeKt2,Teat = Or TeKt3.IsKt = ThenMsBox 不能衙空，请重新输入！ *Text 1, SetFocusElseAdodcl. Recordset, AddlfevAdodcl. Recordset. Fields

17、C*求购用户名*) = Text 1. TskIAdodcl. Recordse匕 Fields隶购唱片茗j =Adodcl. Recordset, Fields量i = Text3, TestAdodcl. Recordset, Update MsgBox 求购唱片己成功添加！ *Testi. Text =Text2.Text 二Text 3* Text = End IfEnd SubText?. Text(分)Us&rldUserKindlUserFwadmin管理员123CuLcerXp123口 s*r123Manager_info 表中数据:添加新用户:13/17a滚卿用尸J用尸类型r

18、莒理员确定UseridlUserEindlUserFsw1上admin管理员123CicerX p123ex123us er123添加后 manager_info表中数据更新:备注删除操作功能描述（分）（1分）简要说明该操作所要完成的功能；（3分）该操作的输入数据以及输入数据应该满足的条件，如：数值范围、是否为空；（3分）该操作会修改字段（以表名字段名”的形式给出），以及修改规则，如新数值的计算方法、在何种条件下予以修改等；（4分）实现该操作的关键代码（高级语言、SQL），截图即可；（4分）如何执行该操作，按所述方法能够正常演示程序则给分。删除用户（管理员权限）删除唱片（管理员权限）使用ado

19、方法首先创建一个recordset对象gx，sql_source语句负责选择满足条件的元组输入（3分）数据点击删除约束先点击要删除的用户或唱片详情更改字段（分）字段规则删除base info表中的某一唱片信息的全部字段:CETzddiUnigI Sing 號 NameiMpsicEtjlg| Fries10102010后上范特西 _七里香同名专辑I叶鳶美删JayJay 除擁行流行2002-1-1ee2005-1-112000-1-110的（DataGrid控件选中的元组）并用 gx打开，执行recordset对象的Delete方法删除所选元组。1 SingerlTameIriusicS tyL

20、e|Fri cellutlishlate范特西Tay102002-L-l同名专掘EO202000-L-l10叶惠美Jay102003-L-l100（截屏） 删除用户（管理员权限）Frivate ex As He，ADODB. RecordgetPrivate Sub CoiiRaridl_Click ()Din isDel As IntegtrDin constrins As StringconString = P rovidei=SQLOLEDE. 1 ;Iiirt eg rated Security=SSPl; Persist Security Inf o=False. Initial C

21、artalogcpscnrii Open conStfingsql_source = select Userl(l, UserKind from manage r_ info vhere Userld= 4 T r im (D at arridl. Columns 0) &gx.CursorLacat ion = adUseClientgx.Open jql_jourc9j cnn adOpsnStatiCj adLockCptimisti匚If Adodcl. Recordset. HOF Or Ado de 1. Recordset. EOF ThenHseBoh 谙选择一名坤户笃vbin

22、formation, ”佶息提示ElsisDel = IsgEox C是否删除所选择的用户vbYesSo + vhQue3l:ion + vbDefaultEutton2j 是否刑除)If isDel = vbYes ThenDeletegx.Updat EMsgBox W除咸功 I , vbinformationj 提刹End IfEnd IfAdodch Refreshcnn. ClcsE(分)删除唱片（管理员权限）End SubPr ivate Sub Comjiiand2_Click()Dim isDel As IntegerDim canString As StringconStri

23、ng = TroviderSQUOLEDE. 1 ; Integrated Security=SSPI:Persist Security Inf o=False ;Initial Ca- cnn. Open conStringsql_source = select * from base_inf o where CDTrackNauie & Trim(DataGridl. Columns (0) t gK. CursorLocation = adUseC 1ientgK.Open sql_sourcej erm, adOpenStatiCj adLockOptimisticIf Adodcl.

24、 Recordset. BOF Or Adode 1. Recordset. EOF ThenMsgBoK 请选择一款唱片，vblnformationj 信息提示ElseisDel = HsgBoK C是否除所选择的唱片vbYesNo + vbQuiestion + whiDef 311111过七onZ 是否If isDel = vbYes Thengi. Deletegi. Updatesgjiox 删除成功！ “，vbinf ormatiom,信息提示End IfEnd IfAdodcl. Refresherm.CloseEnd Snh17 / 17=. S所有唱片资斜:程序演示（分）CC

25、Traclam aSiS-KerlTarrteWiisL cStyi eFrice範特EJay航10TEMJayMS10同名肯辑KO0J甥10星否除、/ 昙否删條所选择的唱片底遑” 11 否四I删陰0 I遞回BJI 口丨回I ss r所有唱片资科:修改遞回删除用户与删除唱片情况类似。更新操作说明功能描述 （1分）（1分）简要说明该操作所要完成的功能；（3分）该操作的输入数据以及输入数据应该满足的条件，女口：数值范围、是否为空；（3分）该操作会修改字段（以表名字段名”的形式给出），以及修改规则，如新数值的计算方法、在何种条件下予以修改等；（4分）实现该操作的关键代码（高级语言、SQL），截图即可

26、；（4分）如何执行该操作，按所述方法能够正常演示程序则给分。唱片信息的修改基于vb窗体的直接对basenfo表中数据进行修改。登录口令的修改使用ado方法首先创建两个 recordset对象gx、mb，一个用来对表 manager_info的数 据域 gx.Fields（2）（manager_info.UserPsw）进行操作，另一个用来对表custom_info 的数据域 mb.Fields（2） （ customjnfo.CustomPsw ）进行操作，通过对字段的重新赋值完成 更新售出唱片后对库存以及帐户余额的更新和修改登录口令类似，使用ado方法首先创建两个 recordset对象，一

27、个用来对表custom info 的数据域进行操作，另一个用来对表 base info的数据域进行操作，通过对相关项加减操作完成更新输入（3 分）数据（旧数据）约束同名专辑（八度空间）1 varchiT20I 主键NULL （ Jay）*rchar11V1允许为空R&B （流行）IviTchar11V允许为空20（ 10）|noiiy101非空2000-1-1（ 2001-1-1）iitetirn*6f 1 允许为空10 （100）1 im41非空更改字段（3分）字段规则base in fo.CDTrackNameVarchar类型，最大长度为 20basenfo.Si ngerNameVar

28、char类型，最大长度为10base info. MusicStyleVarchar类型，最大长度为10base info.PriceMoney类型base info.P ublishDateDatetime 类型，输入格式 yyyymm-ddbase_i nfo.CDStoreAm ountInt类型，长度默认为4/当用户输入购买唱片并确认帐户付款”以后，点击购买，则把当前属性值减一的值记 为新值，即唱片卖出一张。custom_ in fo.CustomBala nee当用户输入购买唱片并确认帐户付款”以后，点击购买，则把当前属性值减掉 base info.Price的值记为新值custom

29、_ in fo.CDTrackAm oun t当用户输入购买唱片并确认 帐户付款”以后，点击购 买，则把当前属性值加一的值记为新值， 即用户购买唱 片数增加一张custom _in fo.Custo mPsw当用户输入新口令并确认以后，点击修改，则把输入的字符串赋值给Custom Pswman ager_i nfo.User Psw当用户输入新口令并确认以后，点击修改，则把输入的字符串赋值给UserPsw代码（4 分）（截屏）唱片信息的修改：ADO属性配置：2General I Auth&nttcation Re co rd Source | color Font |FtecordSourLS

30、Command Type2-ad-0mjTaWeT3也 fir Stflnsd ProMdure Nainsbase infoCommand Text SQLJ确定 取消Command_Click 代码：Private Sub Caiiuiiaiidl_Click()fflsgBox *修改成功、vlXJEOnly + vbinformatlon 修改成功End Sub登录口令的修改：Private gx As Ne ADODB. Recordset Private mb As Nei* ADODB.Eecordt Private Sub Commandl_Click()DIm conStri

31、ng As StringDIm sql_stiurce As StringDin sql.menber As StringcottString = ProvidtrsSOLOLEDB- klntegratsd Stcurity=S3PI:Ptisist Security Info=False： crm. Open conStringIf usertype 管理员ThenlX_sourcfr = select * from manaer_info wher& Userld=也 username & sqlihembti = select * fiom cunoiii_info where Cur

32、tomld= A usflrname 4 gK. Cur s 0 rLoc at i on =gK.Open sql_sourcej mb Cur s q rLoc at i on = mb* Open SQl_member,If TextIsEmply Then Exit Subgx.Fields (2) = TrimtText 1. Text)m.bFields(2) = TrintTexl L Text)ex* Updatemb. UpdateElse3ql_source = select * from inanager_info where Userld= & username &EX

33、.CurSOrLocat ion = adUseClisntgx,Open sql_source, enn, adOpenStaticj adLockOpt imisl icIf TestIsEmpty Then Ekit Subgx.Fields(2) = TrimCTeKt E Test)ex. Update Hnd IfUnload Heertn. CloseMs eBox 修改密码成功# vbOKOnly + vbinf or mat ion,修改成功Unload HeEnd 5址1adUseClientcnrij adOpenStatiCj adLockQprt imist ic a

34、dUseClienterm adOpenStatiCj adLockOpt imislic3.售出唱片后对库存以及帐户余额的更新Private b_info As New ALODB.RecordsetPrivate c_inf o As Nevr ADODB. Recordset Privte n As Jrvteaer19 / 17程序演示（4分）Private Sub ComjiiarL(ll Clickf)Dim sql_b As String Dim sql_匚 As String Dim conSt ring As String const ring = Fr ovider=S=回

35、越I售出唱片后对库存以及帐户余额的更新 购买前：CDTiracldTaintI Frice加猛行10厂刖Ln*.）购买成功.谢谢二鑿ml范特西取消购买曰II Fubl i ahDttuI CDStffreAmomit1X2-1 -199CETrackffame1 SingerKameIWusicStyleIfricfr|rublishDatcastor范特西Jay流行10C0-l-l3SRecordset对象表示的是来自基本表或命令执行结果的记录全集。Recordset对象可支持两类更新： 立即更新和批更新。 使用立即更新，一旦调用 Up date 方法，对数据的所有更改将被立即写入基本数据源

36、。也可以使用AddNew和Up date方法将值的数组作为参数传递，同时更新记录的若干字段。功能描述（分）简要说明该操作所要完成的功能；该操作的输入数据以及输入数据应该满足的条件，如：数值范围、是否为空； 该操作会修改字段（以表名.字段名”的形式给出），以及修改规则，如新数值的计算输入（分）更改字段（分）（1分）（3分）（3分）方法、在何种条件下予以修改等；（4分）实现该操作的关键代码（高级语言、SQL ），截图即可；（4分）如何执行该操作，按所述方法能够正常演示程序则给分。1. 唱片信息的查询:查询根据所选内容的不同，在base_info表中查询满足不同条件的元组并显示输出出来。2. 帐户信息的查询：选择Customid为当前用户名的条件进行