NBA球员管理系统Word文档下载推荐.docx
- 文档编号:15977172
- 上传时间:2022-11-17
- 格式:DOCX
- 页数:20
- 大小:132.98KB
NBA球员管理系统Word文档下载推荐.docx
《NBA球员管理系统Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《NBA球员管理系统Word文档下载推荐.docx(20页珍藏版)》请在冰豆网上搜索。
1.1背景说明
软件名称:
NBA球员信息管理系统
用户:
球队数据分析师
1.2开发环境
操作系统Windows7
软件配置VisualBasic6.0&
SQLServer2014
二、需求分析
2.1用户需求
NBA发展至今,整个联盟涵括了三十支球队,每支球队的球员名单上限在常规赛时期可以达到15位,加上不计其数的自由球员,管理并分析这些球员的生涯数据成为了一件棘手的事,NBA球员信息管理系统可以师解决这个问题。
本系统面向的对象为球队数据分析师,对于专业人士,他们不仅有权浏览数据,也可以对数据进行修改、删除,用户共享数据并更新数据。
2.2主要功能
本系统从用户的需求出发,可实现以下功能:
a)球员数据浏览
b)球员数据修改
c)球员数据删除
2.3数据字典
名称
数据类型
字段描述
char
球员姓名
Prage
smallint
球员年龄
Pno
球衣号码
PID
球员代号
Pcapital
money
球员薪金
Tname
隶属球队名称
TID
隶属球队代号
ppg
float
场均得分
rpg
场均篮板
apg
场均助攻
spg
场均抢断
bpg
场均盖帽
Pbe
最近一场得分
三、数据库概念结构设计
根据需求分析,可知本系统有以下E-R图:
3.1球员信息E-R图
3.2球员数据E-R图
3.3球员表现E-R图
四、逻辑结构设计
4.1球员信息表
列名
NULL
约束
NOTNULL
primarykey
Pname
4.2球员数据表
4.3球员表现表
五、创建数据库及其对象
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(
ppgfloatNOTNULL,
rpgfloatNOTNULL,
apgfloatNOTNULL,
spgfloatNOTNULL,
bpgfloatNOTNULL,
5.1.3球员表现表
createtablebehave(
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
PrivateSubCommand1_Click()//打开form2窗口
Form2.Show
PrivateSubDel_Click()
DimresAsInteger
res=MsgBox("
确实要删除此行吗?
"
vbExclamation+vbYesNo+vbDefaultButton2)
Ifres=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOF=TrueThen
Adodc1.Recordset.MoveLast
EndIf
PrivateSubEdit_Click()
Adodc1.Recordset.Fields("
Pno"
)=Trim(TextPno.Text)
Pname"
)=Trim(TextPname.Text)
Prage"
)=Trim(TextPrage.Text)
Pcapital"
)=Trim(TextPcpt.Text)
PID"
)=Trim(TextPID.Text)
TID"
)=Trim(TextTID.Text)
Tname"
)=Trim(TextTname.Text)
Adodc1.Recordset.Update
PrivateSubExit_Click()
End
PrivateSubFirst_Click()
Adodc1.Recordset.MoveFirst
PrivateSubLast_Click()
Adodc1.Recordset.MoveLast
PrivateSubNext_Click()
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOF=TrueThen
PrivateSubPrevious_Click()
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOF=TrueThen
PrivateSubPrint_Click()//打开apg窗口
apg.Show
PrivateSubForm_Load()
Cancel.Enabled=False
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=strSe
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- NBA 球员 管理 系统