NBA球员管理系统
《NBA球员管理系统》
《数据库原理》课程设计报告——NBA球员管理系统设计与实现
学院：信息学院
专业班级：计算机科学与技术1班组员姓名：王治铭 2
陈昭儒 2
殷鹏飞 2
指导老师：李晓莉
完成日期： 2016-6-17
一、概述
1.1背景说明
软件名称：NBA球员信息管理系统
用户：球队数据分析师
1.2开发环境
操作系统Windows 7
软件配置Visual Basic 6.0 & SQL Server 2014
二、需求分析
2.1 用户需求
NBA发展至今，整个联盟涵括了三十支球队，每支球队的球员名单上限在常规赛时期可以达到15位，加上不计其数的自由球员，管理并分析这些球员的生涯数据成为了一件棘手的事，NBA球员信息管理系统可以师解决这个问题。
本系统面向的对象为球队数据分析师，对于专业人士，他们不仅有权浏览数据，也可以对数据进行修改、删除，用户共享数据并更新数据。
2.2 主要功能
本系统从用户的需求出发，可实现以下功能：
a)球员数据浏览
b)球员数据修改
c)球员数据删除
三、数据库概念结构设计
根据需求分析，可知本系统有以下E-R图：
3.1 球员信息E-R图
3.2 球员数据E-R图
3.3 球员表现E-R图
四、逻辑结构设计
4.1
4.2
4.3
五、创建数据库及其对象
5.1 建表
5.1.1 球员信息表
create table player(
PID 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 NULL,
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 NULL
primary key (PID)
)
六、基于VB的UI设计
6.1 Form1窗口
Private Sub Add_Click()
Adodc1.Recordset.AddNew
Add.Enabled = False
Del.Enabled = False
Edit.Enabled = True
Cancel.Enabled = True
End Sub
Private Sub Cancel_Click()
Adodc1.Recordset.CancelUpdate
Add.Enabled = True
Del.Enabled = True
Cancel.Enabled = False
End Sub
Private Sub Command1_Click()//打开form2窗口
Form2.Show
End Sub
Private Sub Del_Click()
Dim res As Integer
res = MsgBox("确实要删除此行吗？", vbExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
End If
End If
End Sub
Private Sub Edit_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
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub First_Click()
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Last_Click()
Adodc1.Recordset.MoveLast
End Sub
Private Sub Next_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then