NBA球员管理系统Word文档下载推荐.docx
- 文档编号:21232548
- 上传时间:2023-01-28
- 格式:DOCX
- 页数:19
- 大小:147.21KB
NBA球员管理系统Word文档下载推荐.docx
《NBA球员管理系统Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《NBA球员管理系统Word文档下载推荐.docx(19页珍藏版)》请在冰豆网上搜索。
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=strSelect3
Adodc4.Refresh
SetDtgCond3.DataSource=Adodc4
PrivateSubInitGird()
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"
.Columns(0).Width=1000
.Columns
(1).Width=1000
.Columns
(2).Width=1000
.Columns(3).Width=1000
EndWith
PrivateSubInitGird1()
WithDtgCond1
ppg"
rpg"
apg"
spg"
bpg"
PrivateSubInitGird2()
WithDtgCond2
pbe"
PrivateSubCombo1_Click()
IfCombo1.Text="
Then
Frame1.ZOrder0
ElseIfCombo1.Text="
Frame2.ZOrder0
DtgCond2.ZOrder0
DtgCond3.ZOrder0
EndIf
6.2Form2窗口
Adodc2.Recordset.AddNew
Adodc2.Recordset.CancelUpdate
Adodc2.Recordset.Delete
Adodc2.Recordset.MoveNext
IfAdodc2.Recordset.EOF=TrueThen
Adodc2.Recordset.MoveLast
Adodc2.Recordset.Fields("
Pbe"
)=Trim(TextPbe.Text)
Adodc2.Recordset.Update
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.MoveLast
Adodc2.Recordset.MoveNext
IfAdodc2.Recordset.EOF=TrueThen
Adodc2.Recordset.MovePrevious
IfAdodc2.Recordset.BOF=TrueThen
6.3apg窗口
Private
Sub
Add_Click()
Adodc2.Recordset.AddNew
Add.Enabled
=
False
Del.Enabled
Edit.Enabled
True
Cancel.Enabled
End
Sub
Cancel_Click()
Del_Click()
Dim
res
As
Integer
MsgBox("
vbExclamation
+
vbYesNo
vbDefaultButton2)
If
vbYes
Then
Adodc2.Recordset.Delete
Adodc2.Recordset.EOF
True
If
Edit_Click()
)
Trim(Textppg.Text)
Trim(TextPname.Text)
Trim(Textrpg.Text)
Trim(Textapg.Text)
Trim(TextPID.Text)
Trim(Textbpg.Text)
Trim(Textspg.Text)
Exit_Click()
End
First_Click()
Adodc2.Recordset.MoveFirst
Last_Click()
Next_Click()
Previous_Click()
Adodc2.Recordset.MovePrevious
Adodc2.Recordset.BOF
Form_Load()
七、实验数据实例
修改球员数据。
修改球员表现。
Form1中删除操作。
Form1中添加操作。
Form1中修改操作。
八、心得
通过这次为期五天的数据库的课程设计实习,本组从中学习到了一个数据库程序的设计的基本步骤,包括需求分析、概念结构设计、逻辑结构设计等,同时加强了关系型数据库管理方面的部分知识。
需求分析是很重要的,只有做好需求分析,后面的工作才会轻松;
逻辑结构设计也很关键,需要完善实体所应包含的所有属性,如果这个阶段有纰漏,等到后面修改起来会比较麻烦。
这次课设提供了宝贵的历练,让本组对数据库认知和程序编写方面都得到了提高。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- NBA 球员 管理 系统