NBA球员管理系统.docx

NBA球员管理系统.docx

《NBA球员管理系统.docx》由会员分享，可在线阅读，更多相关《NBA球员管理系统.docx（18页珍藏版）》请在冰豆网上搜索。

NBA球员管理系统

《NBA球员管理系统》

《数据库原理》课程设计报告

——NBA球员管理系统设计与实现

学院:

信息学院

专业班级:

计算机科学与技术1班

组员姓名:

王治铭2

陈昭儒2

殷鹏飞2

指导老师:

李晓莉

完成日期:

2016-6-17

一、概述

1.1背景说明

软件名称:

NBA球员信息管理系统

用户:

球队数据分析师

1.2开发环境

操作系统Windows7

软件配置VisualBasic6、0&SQLServer2014

二、需求分析

2、1用户需求

NBA发展至今,整个联盟涵括了三十支球队,每支球队的球员名单上限在常规赛时期可以达到15位,加上不计其数的自由球员,管理并分析这些球员的生涯数据成为了一件棘手的事,NBA球员信息管理系统可以师解决这个问题。

本系统面向的对象为球队数据分析师,对于专业人士,她们不仅有权浏览数据,也可以对数据进行修改、删除,用户共享数据并更新数据。

2、2主要功能

本系统从用户的需求出发,可实现以下功能:

a）球员数据浏览

b）球员数据修改

c）球员数据删除

2、3数据字典

名称

数据类型

字段描述

char

char

球员姓名

Prage

smallint

球员年龄

Pno

smallint

球衣号码

PID

char

球员代号

Pcapital

money

球员薪金

Tname

char

隶属球队名称

TID

char

隶属球队代号

ppg

float

场均得分

rpg

float

场均篮板

apg

float

场均助攻

spg

float

场均抢断

bpg

float

场均盖帽

Pbe

smallint

最近一场得分

三、数据库概念结构设计

根据需求分析,可知本系统有以下E-R图:

3、1球员信息E-R图

3、2球员数据E-R图

球员姓名

球员薪金

球员代号

球衣号码

球员年龄

隶属球队名称

隶属球队代号

球员信息

场均抢断

场均篮板

场均盖帽

场均助攻

球员数据

球员姓名

球员代号

球员表现

球员代号

场均得分

最近一场得分

3、3球员表现E-R图

四、逻辑结构设计

4、1球员信息表

列名

NULL

约束

PID

NOTNULL

primarykey

Pname

NOTNULL

Pcapital

NOTNULL

Prage

NOTNULL

Pno

NOTNULL

Tname

NOTNULL

TID

NOTNULL

4、2球员数据表

列名

NULL

约束

PID

NOTNULL

primarykey

Pname

NOTNULL

ppg

NOTNULL

rpg

NOTNULL

apg

NOTNULL

spg

NOTNULL

bpg

NOTNULL

4、3球员表现表

列名

NULL

约束

PID

NOTNULL

primarykey

Pname

NOTNULL

Pbe

NOTNULL

五、创建数据库及其对象

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）

）

5、1、3球员表现表

createtablebehave（

PIDchar（10）NOTNULL,

PbesmallintNOTNULL,

Pnamechar（25）NOTNULL

primarykey（PID）

）

六、基于VB的UI设计

6、1Form1窗口

PrivateSubAdd_Click（）

Adodc1、Recordset、AddNew

Add、Enabled=False

Del、Enabled=False

Edit、Enabled=True

Cancel、Enabled=True

EndSub

PrivateSubCancel_Click（）

Adodc1、Recordset、CancelUpdate

Add、Enabled=True

Del、Enabled=True

Cancel、Enabled=False

EndSub

PrivateSubCommand1_Click（）//打开form2窗口

Form2、Show

EndSub

PrivateSubDel_Click（）

DimresAsInteger

res=MsgBox（"确实要删除此行不？

",vbExclamation+vbYesNo+vbDefaultButton2）

Ifres=vbYesThen

Adodc1、Recordset、Delete

Adodc1、Recordset、MoveNext

IfAdodc1、Recordset、EOF=TrueThen

Adodc1、Recordset、MoveLast

EndIf

EndIf

EndSub

PrivateSubEdit_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、Update

Add、Enabled=True

Del、Enabled=True

Cancel、Enabled=False

EndSub

PrivateSubExit_Click（）

End

EndSub

PrivateSubFirst_Click（）

Adodc1、Recordset、MoveFirst

EndSub

PrivateSubLast_Click（）

Adodc1、Recordset、MoveLast

EndSub

PrivateSubNext_Click（）

Adodc1、Recordset、MoveNext

IfAdodc1、Recordset、EOF=TrueThen

Adodc1、Recordset、MoveLast

EndIf

EndSub

PrivateSubPrevious_Click（）

Adodc1、Recordset、MovePrevious

IfAdodc1、Recordset、BOF=TrueThen

Adodc1、Recordset、MoveFirst

EndIf

EndSub

PrivateSubPrint_Click（）//打开apg窗口

apg、Show

EndSub

PrivateSubForm_Load（）

Cancel、Enabled=False

Combo1、AddItem"球员信息"

Combo1、AddItem"球员数据"

Combo1、AddItem"球员表现"

Combo1、AddItem"球员表现对比"

DimstrPIDAsString

DimstrSelectAsString

strPID=Trim（TextPID、Text）

strSelect="select*fromplayer"

Adodc1、CommandType=adCmdText

Adodc1、RecordSource=strSelect

Adodc1、Refresh

SetDtgCond、DataSource=Adodc1

CallInitGird

DimstrPID1AsString

DimstrSelect1AsString

strPID1=Trim（TextPID、Text）

strSelect1="select*fromplayerData"

Adodc2、CommandType=adCmdText

Adodc2、RecordSource=strSelect1

Adodc2、Refresh

SetDtgCond1、DataSource=Adodc2

CallInitGird1

DimstrPID2AsString

DimstrSelect2AsString

strPID2=Trim（TextPID、Text）

strSelect2="select*frombehave"

Adodc3、CommandType=adCmdText

Adodc3、RecordSource=strSelect2

Adodc3、Refresh

SetDtgCond2、DataSource=Adodc3

CallInitGird2

DimstrPID3AsString

DimstrSelect3AsString

strPID3=Trim（TextPID、Text）

strSelect3="select*fromplayerDatajoinbehaveonplayerData、PID=behave、PID"

Adodc4、CommandType=adCmdText

Adodc4、RecordSource=strSelect3

Adodc4、Refresh

SetDtgCond3、DataSource=Adodc4

EndSub

PrivateSubInitGird（）

WithDtgCon