《NBA球员管理系统》由会员分享，可在线阅读，更多相关《NBA球员管理系统（16页珍藏版）》请在金锄头文库上搜索。
1、真诚为您提供优质参考资料，若有不当之处，请指正。NBA球员管理系统 数据库原理课程设计报告 NBA球员管理系统设计与实现 学 院： 信息学院 专业班级： 计算机科学与技术1班 组员姓名： 王治铭 201424020105 陈昭儒 201424020106 殷鹏飞 201424020110 指导老师： 李晓莉 完成日期： 2016-6-17 一、 概述1.1 背景说明软件名称：NBA球员信息管理系统用户：球队数据分析师1.2 开发环境操作系统 Windows 7软件配置Visual Basic 6.0 & SQL Server 2014二、 需求分析2.1 用户需求NBA发展至今，整个联盟涵括了
2、三十支球队，每支球队的球员名单上限在常规赛时期可以达到15位，加上不计其数的自由球员，管理并分析这些球员的生涯数据成为了一件棘手的事，NBA球员信息管理系统可以师解决这个问题。本系统面向的对象为球队数据分析师，对于专业人士，他们不仅有权浏览数据，也可以对数据进行修改、删除，用户共享数据并更新数据。2.2 主要功能本系统从用户的需求出发，可实现以下功能： a) 球员数据浏览b) 球员数据修改c) 球员数据删除2.3 数据字典名称数据类型字段描述charchar球员姓名Pragesmallint球员年龄Pnosmallint球衣号码PIDchar球员代号Pcapitalmoney球员薪金Tname
3、char隶属球队名称TIDchar隶属球队代号ppgfloat场均得分rpgfloat场均篮板apgfloat场均助攻spgfloat场均抢断bpgfloat场均盖帽Pbesmallint最近一场得分三、 数据库概念结构设计根据需求分析，可知本系统有以下E-R图：球员薪金隶属球队代号隶属球队名称球衣号码球员年龄球员代号球员姓名球员信息3.1 球员信息E-R图3.2 球员数据E-R图场均抢断场均助攻场均篮板场均盖帽球员代号场均得分球员数据 球员姓名3.3 球员表现E-R图最近一场得分球员表现球员姓名球员代号 四、 逻辑结构设计4.1球员信息表列名NULL约束PIDNOT NULLprimary
4、keyPnameNOT NULLPcapitalNOT NULLPrageNOT NULLPnoNOT NULLTnameNOT NULLTIDNOT NULL4.2球员数据表列名NULL约束PIDNOT NULLprimary keyPnameNOT NULLppgNOT NULLrpgNOT NULLapgNOT NULLspgNOT NULLbpgNOT NULL4.3 球员表现表列名NULL约束PIDNOT NULLprimary keyPnameNOT NULLPbeNOT NULL五、 创建数据库及其对象5.1 建表5.1.1 球员信息表create table player(PI
5、D char(10) NOT NULL,Pname char(25) NOT NULL,Pcapital money NOT NULL,Prage smallint NOT NULL,Tname char(30) NOT NULL,Pno smallint NOT NULL,TID char(15) NOT NULL,primary key (PID,Pname)5.1.2 球员数据表create table playerData (PID char(10) NOT NULL,Pname char(25) NOT NULL,ppg float NOT NULL,rpg float NOT NU
6、LL,apg float NOT NULL,spg float NOT NULL,bpg float NOT NULL,primary key (PID,Pname)5.1.3 球员表现表create table behave(PID char(10) NOT NULL,Pbe smallint NOT NULL,Pname char(25) NOT NULLprimary key (PID)六、 基于VB的UI设计6.1 Form1窗口Private Sub Add_Click() Adodc1.Recordset.AddNew Add.Enabled = False Del.Enabled
7、 = False Edit.Enabled = True Cancel.Enabled = TrueEnd SubPrivate Sub Cancel_Click()Adodc1.Recordset.CancelUpdateAdd.Enabled = TrueDel.Enabled = TrueCancel.Enabled = FalseEnd SubPrivate Sub Command1_Click()/打开form2窗口Form2.ShowEnd SubPrivate Sub Del_Click() Dim res As Integer res = MsgBox(确实要删除此行吗？, v
8、bExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast End If End IfEnd SubPrivate Sub Edit_Click()Adodc1.Recordset.Fields(Pno) = Trim(TextPno.Text)Adodc1.Recordset.Fields(Pname) =
9、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.Upda
10、teAdd.Enabled = TrueDel.Enabled = TrueCancel.Enabled = FalseEnd SubPrivate Sub Exit_Click() EndEnd SubPrivate Sub First_Click() Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Last_Click()Adodc1.Recordset.MoveLastEnd SubPrivate Sub Next_Click()Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Th
11、en Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Previous_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst End IfEnd SubPrivate Sub Print_Click()/打开apg窗口 apg.ShowEnd SubPrivate Sub Form_Load() Cancel.Enabled = False Combo1.AddItem 球员信息 Combo1.
12、AddItem 球员数据 Combo1.AddItem 球员表现 Combo1.AddItem 球员表现对比 Dim strPID As String Dim strSelect As String strPID = Trim(TextPID.Text) strSelect = select * from player Adodc1.CommandType = adCmdText Adodc1.RecordSource = strSelect Adodc1.Refresh Set DtgCond.DataSource = Adodc1 Call InitGird Dim strPID1 As
13、String Dim strSelect1 As String strPID1 = Trim(TextPID.Text) strSelect1 = select * from playerData Adodc2.CommandType = adCmdText Adodc2.RecordSource = strSelect1 Adodc2.Refresh Set DtgCond1.DataSource = Adodc2 Call InitGird1 Dim strPID2 As String Dim strSelect2 As String strPID2 = Trim(TextPID.Text) str
