《NBA球员管理系统》《数据库原理》课程设计报告——NBA球员管理系统设计与实现20 一、概述1.1背景说明软件名称：NBA球员信息管理系统用户：球队数据分析师1.2开发环境操作系统Windows7软件配置VisualBasic6.0&SQLServer2014二、需求分析2.1用户需求NBA发展至今，整个联盟涵括了三十支球队，每支球队的球员名单上限在常规赛时期可以达到15位，加上不计其数的自由球员，管理并分析这些球员的生涯数据成为了一件棘手的事，NBA球员信息管理系统可以师解决这个问题。本系统面向的对象为球队数据分析师，对于专业人士，他们不仅有权浏览数据，也可以对数据进行修改、删除，用户共享数据并更新数据。2.2主要功能本系统从用户的需求出发，可实现以下功能：a)球员数据浏览b)球员数据修改c)球员数据删除2.3数据字典20 名称数据类型字段描述charchar球员姓名Pragesmallint球员年龄Pnosmallint球衣号码PIDchar球员代号Pcapitalmoney球员薪金Tnamechar隶属球队名称TIDchar隶属球队代号ppgfloat场均得分rpgfloat场均篮板apgfloat场均助攻spgfloat场均抢断bpgfloat场均盖帽Pbesmallint最近一场得分一、数据库概念结构设计根据需求分析，可知本系统有以下E-R图：球员薪金隶属球队代号隶属球队名称球衣号码球员年龄球员代号球员姓名球员信息3.1球员信息E-R图20 3.2球员数据E-R图场均抢断场均助攻场均篮板场均盖帽球员代号场均得分球员数据球员姓名3.3球员表现E-R图最近一场得分球员表现球员姓名球员代号20 一、逻辑结构设计4.1球员信息表列名NULL约束PIDNOTNULLprimarykeyPnameNOTNULLPcapitalNOTNULLPrageNOTNULLPnoNOTNULLTnameNOTNULLTIDNOTNULL4.2球员数据表列名NULL约束PIDNOTNULLprimarykeyPnameNOTNULLppgNOTNULLrpgNOTNULLapgNOTNULLspgNOTNULLbpgNOTNULL4.3球员表现表列名NULL约束PIDNOTNULLprimarykeyPnameNOTNULLPbeNOTNULL20 一、创建数据库及其对象5.1建表5.1.1球员信息表createtableplayer(PIDchar(10)NOTNULL,Pnamechar(25)NOTNULL,PcapitalmoneyNOTNULL,PragesmallintNOTNULL,Tnamechar(30)NOTNULL,PnosmallintNOTNULL,TIDchar(15)NOTNULL,primarykey(PID,Pname))5.1.2球员数据表createtableplayerData(PIDchar(10)NOTNULL,Pnamechar(25)NOTNULL,ppgfloatNOTNULL,rpgfloatNOTNULL,apgfloatNOTNULL,spgfloatNOTNULL,bpgfloatNOTNULL,primarykey(PID,Pname)20 )5.1.3球员表现表createtablebehave(PIDchar(10)NOTNULL,PbesmallintNOTNULL,Pnamechar(25)NOTNULLprimarykey(PID))一、基于VB的UI设计6.1Form1窗口PrivateSubAdd_Click()Adodc1.Recordset.AddNewAdd.Enabled=FalseDel.Enabled=FalseEdit.Enabled=TrueCancel.Enabled=TrueEndSubPrivateSubCancel_Click()Adodc1.Recordset.CancelUpdateAdd.Enabled=TrueDel.Enabled=TrueCancel.Enabled=FalseEndSub20 PrivateSubCommand1_Click()//打开form2窗口Form2.ShowEndSubPrivateSubDel_Click()DimresAsIntegerres=MsgBox("确实要删除此行吗？",vbExclamation+vbYesNo+vbDefaultButton2)Ifres=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveLastEndIfEndIfEndSubPrivateSubEdit_Click()Adodc1.Recordset.Fields("Pno")=Trim(TextPno.Text)Adodc1.Recordset.Fields("Pname")=Trim(TextPname.Text)Adodc1.Recordset.Fields("Prage")=Trim(TextPrage.Text)Adodc1.Recordset.Fields("Pcapital")=Trim(TextPcpt.Text)Adodc1.Recordset.Fields("PID")=Trim(TextPID.Text)Adodc1.Recordset.Fields("TID")=Trim(TextTID.Text)Adodc1.Recordset.Fields("Tname")=Trim(TextTname.Text)Adodc1.Recordset.UpdateAdd.Enabled=TrueDel.Enabled=TrueCancel.Enabled=False20 EndSubPrivateSubExit_Click()EndEndSubPrivateSubFirst_Click()Adodc1.Recordset.MoveFirstEndSubPrivateSubLast_Click()Adodc1.Recordset.MoveLastEndSubPrivateSubNext_Click()Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveLastEndIfEndSubPrivateSubPrevious_Click()Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOF=TrueThenAdodc1.Recordset.MoveFirstEndIfEndSub20 PrivateSubPrint_Click()//打开apg窗口apg.ShowEndSubPrivateSubForm_Load()Cancel.Enabled=FalseCombo1.AddItem"球员信息"Combo1.AddItem"球员数据"Combo1.AddItem"球员表现"Combo1.AddItem"球员表现对比"DimstrPIDAsStringDimstrSelectAsStringstrPID=Trim(TextPID.Text)strSelect="select*fromplayer"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshSetDtgCond.DataSource=Adodc1CallInitGirdDimstrPID1AsStringDimstrSelect1AsStringstrPID1=Trim(TextPID.Text)strSelect1="select*fromplayerData"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=strSelect1Adodc2.RefreshSetDtgCond1.DataSource=Adodc2CallInitGird120 DimstrPID2AsStringDimstrSelect2AsStringstrPID2=Trim(TextPID.Text)strSelect2="select*frombehave"Adodc3.CommandType=adCmdTextAdodc3.RecordSource=strSelect2Adodc3.RefreshSetDtgCond2.DataSource=Adodc3CallInitGird2DimstrPID3AsStringDimstrSelect3AsStringstrPID3=Trim(TextPID.Text)strSelect3="select*fromplayerDatajoinbehaveonplayerData.PID=behave.PID"Adodc4.CommandType=adCmdTextAdodc4.RecordSource=strSelect3Adodc4.RefreshSetDtgCond3.DataSource=Adodc4EndSubPrivateSubInitGird()WithDtgCond.Columns(0).Caption="ID".Columns(1).Caption="Name".Columns(2).Caption="Capital".Columns(3).Caption="Age".Columns(4).Caption="Team".Columns(5).Caption="No".Columns(6).Caption="TeamID"20 .Columns(0).Width=1000.Columns(1).Width=1000.Columns(2).Width=1000.Columns(3).Width=1000EndWithEndSubPrivateSubInitGird1()WithDtgCond1.Columns(0).Caption="ID".Columns(1).Caption="Name".Columns(2).Caption="ppg".Columns(3).Caption="rpg".Columns(4).Caption="apg".Columns(5).Caption="spg".Columns(6).Caption="bpg".Columns(0).Width=1000.Columns(1).Width=1000.Columns(2).Width=1000.Columns(3).Width=1000EndWithEndSubPrivateSubInitGird2()WithDtgCond2.Columns(0).Caption="ID".Columns(1).Caption="pbe".Columns(2).Caption="Name".Columns(0).Width=1000.Columns(1).Width=100020 .Columns(2).Width=1000EndWithEndSubPrivateSubCombo1_Click()IfCombo1.Text="球员信息"ThenFrame1.ZOrder0ElseIfCombo1.Text="球员数据"ThenFrame2.ZOrder0ElseIfCombo1.Text="球员表现"ThenDtgCond2.ZOrder0ElseIfCombo1.Text="球员表现对比"ThenDtgCond3.ZOrder0EndIfEndSub6.2Form2窗口PrivateSubAdd_Click()Adodc2.Recordset.AddNewAdd.Enabled=FalseDel.Enabled=FalseEdit.Enabled=TrueCancel.Enabled=TrueEndSubPrivateSubCancel_Click()Adodc2.Recordset.CancelUpdateAdd.Enabled=True20 Del.Enabled=TrueCancel.Enabled=FalseEndSubPrivateSubDel_Click()DimresAsIntegerres=MsgBox("确实要删除此行吗？",vbExclamation+vbYesNo+vbDefaultButton2)Ifres=vbYesThenAdodc2.Recordset.DeleteAdodc2.Recordset.MoveNextIfAdodc2.Recordset.EOF=TrueThenAdodc2.Recordset.MoveLastEndIfEndIfEndSubPrivateSubEdit_Click()Adodc2.Recordset.Fields("Pbe")=Trim(TextPbe.Text)Adodc2.Recordset.Fields("Pname")=Trim(TextPname.Text)Adodc2.Recordset.Fields("PID")=Trim(TextPID.Text)Adodc2.Recordset.UpdateAdd.Enabled=TrueDel.Enabled=TrueCancel.Enabled=FalseEndSubPrivateSubExit_Click()End20 EndSubPrivateSubFirst_Click()Adodc2.Recordset.MoveFirstEndSubPrivateSubLast_Click()Adodc2.Recordset.MoveLastEndSubPrivateSubNext_Click()Adodc2.Recordset.MoveNextIfAdodc2.Recordset.EOF=TrueThenAdodc2.Recordset.MoveLastEndIfEndSubPrivateSubPrevious_Click()Adodc2.Recordset.MovePreviousIfAdodc2.Recordset.BOF=TrueThenAdodc2.Recordset.MoveFirstEndIfEndSubPrivateSubForm_Load()Cancel.Enabled=FalseEndSub20 6.3apg窗口Private Sub Add_Click() Adodc2.Recordset.AddNew Add.Enabled = False Del.Enabled = False Edit.Enabled = True Cancel.Enabled = TrueEnd SubPrivate Sub Cancel_Click()Adodc2.Recordset.CancelUpdateAdd.Enabled = TrueDel.Enabled = TrueCancel.Enabled = FalseEnd SubPrivate Sub Del_Click() Dim res As Integer res = MsgBox("确实要删除此行吗？", vbExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then Adodc2.Recordset.Delete Adodc2.Recordset.MoveNextIf Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLast End If End IfEnd SubPrivate Sub Edit_Click()Adodc2.Recordset.Fields("ppg") = Trim(Textppg.Text)Adodc2.Recordset.Fields("Pname") = Trim(TextPname.Text)Adodc2.Recordset.Fields("rpg") = Trim(Textrpg.Text)Adodc2.Recordset.Fields("apg") = Trim(Textapg.Text)Adodc2.Recordset.Fields("PID") = Trim(TextPID.Text)Adodc2.Recordset.Fields("bpg") = Trim(Textbpg.Text)Adodc2.Recordset.Fields("spg") = Trim(Textspg.Text)Adodc2.Recordset.UpdateAdd.Enabled = TrueDel.Enabled = TrueCancel.Enabled = False20 End SubPrivate Sub Exit_Click() EndEnd SubPrivate Sub First_Click() Adodc2.Recordset.MoveFirstEnd SubPrivate Sub Last_Click()Adodc2.Recordset.MoveLastEnd SubPrivate Sub Next_Click()Adodc2.Recordset.MoveNext If Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLast End IfEnd SubPrivate Sub Previous_Click() Adodc2.Recordset.MovePrevious If Adodc2.Recordset.BOF = True Then Adodc2.Recordset.MoveFirst End IfEnd SubPrivate Sub Form_Load() Cancel.Enabled = FalseEnd Sub一、实验数据实例20 修改球员数据。修改球员表现。20 Form1中删除操作。Form1中添加操作。20 Form1中修改操作。一、心得20 通过这次为期五天的数据库的课程设计实习，本组从中学习到了一个数据库程序的设计的基本步骤，包括需求分析、概念结构设计、逻辑结构设计等，同时加强了关系型数据库管理方面的部分知识。需求分析是很重要的，只有做好需求分析，后面的工作才会轻松；逻辑结构设计也很关键，需要完善实体所应包含的所有属性，如果这个阶段有纰漏，等到后面修改起来会比较麻烦。这次课设提供了宝贵的历练，让本组对数据库认知和程序编写方面都得到了提高。20
