NBA球员管理系统

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球员薪金Tnamechar隶属球队名称TIDchar隶属球

3、队代号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 keyPnameNOT NULLPcap

4、italNOT 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(PID char(10) NOT NULL,

5、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 NUL

6、L,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 = False Edit.Enable

7、d = 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("确实要删除此行吗？", vbExclama

8、tion + 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("

9、;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.Rec

10、ordset.Fields("Tname") = Trim(TextTname.Text)Adodc1.Recordset.UpdateAdd.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

11、 Sub Next_Click()Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then 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 S

12、ubPrivate Sub Form_Load() Cancel.Enabled = False Combo1.AddItem "球员信息" Combo1.AddItem "球员数据" Combo1.AddItem "球员表现" Combo1.AddItem "球员表现对比" Dim strPID As String Dim strSelect As String strPID = Trim(TextPID.Text) strSelect = "select * from player" Ado

13、dc1.CommandType = adCmdText Adodc1.RecordSource = strSelect Adodc1.Refresh Set DtgCond.DataSource = Adodc1 Call InitGird Dim strPID1 As String Dim strSelect1 As String strPID1 = Trim(TextPID.Text) strSelect1 = "select * from playerData" Adodc2.CommandType = adCmdText Adodc2.RecordSource =

14、strSelect1 Adodc2.Refresh Set DtgCond1.DataSource = Adodc2 Call InitGird1 Dim strPID2 As String Dim strSelect2 As String strPID2 = Trim(TextPID.Text) strSelect2 = "select * from behave" Adodc3.CommandType = adCmdText Adodc3.RecordSource = strSelect2 Adodc3.Refresh Set DtgCond2.DataSource =

15、 Adodc3 Call InitGird2 Dim strPID3 As String Dim strSelect3 As String strPID3 = Trim(TextPID.Text) strSelect3 = "select * from playerData join behave on playerData.PID = behave.PID " Adodc4.CommandType = adCmdText Adodc4.RecordSource = strSelect3 Adodc4.Refresh Set DtgCond3.DataSource = Ad

16、odc4 End SubPrivate Sub InitGird() With DtgCond .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

17、= "Team ID" .Columns(0).Width = 1000 .Columns(1).Width = 1000 .Columns(2).Width = 1000 .Columns(3).Width = 1000 End WithEnd SubPrivate Sub InitGird1() With DtgCond1 .Columns(0).Caption = "ID" .Columns(1).Caption = "Name" .Columns(2).Caption = "ppg" .Columns(3)

18、.Caption = "rpg" .Columns(4).Caption = "apg" .Columns(5).Caption = "spg" .Columns(6).Caption = "bpg" .Columns(0).Width = 1000 .Columns(1).Width = 1000 .Columns(2).Width = 1000 .Columns(3).Width = 1000 End WithEnd SubPrivate Sub InitGird2() With DtgCond2 .Colum

19、ns(0).Caption = "ID" .Columns(1).Caption = "pbe" .Columns(2).Caption = "Name" .Columns(0).Width = 1000 .Columns(1).Width = 1000 .Columns(2).Width = 1000 End WithEnd SubPrivate Sub Combo1_Click()If Combo1.Text = "球员信息" ThenFrame1.ZOrder 0ElseIf Combo1.Text = &q

20、uot;球员数据" ThenFrame2.ZOrder 0ElseIf Combo1.Text = "球员表现" ThenDtgCond2.ZOrder 0ElseIf Combo1.Text = "球员表现对比" ThenDtgCond3.ZOrder 0End IfEnd Sub6.2 Form2窗口Private Sub Add_Click() Adodc2.Recordset.AddNew Add.Enabled = False Del.Enabled = False Edit.Enabled = True Cancel.Enabled

21、 = TrueEnd SubPrivate Sub Cancel_Click()Adodc2.Recordset.CancelUpdateAdd.Enabled = TrueDel.Enabled = TrueCancel.Enabled = FalseEnd SubPrivate Sub Del_Click() Dim res As Integer res = MsgBox("确实要删除此行吗？", vbExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then Adodc2.Recordset.Delete

22、 Adodc2.Recordset.MoveNextIf Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLast End If End IfEnd SubPrivate Sub Edit_Click()Adodc2.Recordset.Fields("Pbe") = Trim(TextPbe.Text)Adodc2.Recordset.Fields("Pname") = Trim(TextPname.Text)Adodc2.Recordset.Fields("PID") =

23、 Trim(TextPID.Text)Adodc2.Recordset.UpdateAdd.Enabled = TrueDel.Enabled = TrueCancel.Enabled = FalseEnd SubPrivate Sub Exit_Click() EndEnd SubPrivate Sub First_Click() Adodc2.Recordset.MoveFirstEnd SubPrivate Sub Last_Click()Adodc2.Recordset.MoveLastEnd SubPrivate Sub Next_Click()Adodc2.Recordset.Mo

24、veNext If Adodc2.Recordset.EOF = True Then Adodc2.Recordset.MoveLast End IfEnd SubPrivate Sub Previous_Click() Adodc2.Recordset.MovePrevious If Adodc2.Recordset.BOF = True Then Adodc2.Recordset.MoveFirst End IfEnd SubPrivate Sub Form_Load() Cancel.Enabled = FalseEnd Sub6.3 apg窗口Private Sub 

25、;Add_Click() Adodc2.Recordset.AddNew Add.Enabled = False Del.Enabled = False Edit.Enabled = True Cancel.Enabled = TrueEnd SubPrivate Sub Cancel_Click()Adodc2.Recordset.CancelUpdateAdd.Enabled = TrueDel.Enabled&

26、#160;= TrueCancel.Enabled = FalseEnd SubPrivate Sub Del_Click() Dim res As Integer res = MsgBox("确实要删除此行吗？", vbExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then

27、60;Adodc2.Recordset.Delete Adodc2.Recordset.MoveNextIf Adodc2.Recordset.EOF = True Then     Adodc2.Recordset.MoveLast   End If End IfEnd SubPrivate Sub Edit_Click()Adodc2.Recordset.Fields("ppg")&

28、#160;= Trim(Textppg.Text)Adodc2.Recordset.Fields("Pname") = Trim(TextPname.Text)Adodc2.Recordset.Fields("rpg") = Trim(Textrpg.Text)Adodc2.Recordset.Fields("apg") = Trim(Textapg.Text)Adodc2.Recordset.Fields("PID") = Trim(TextPID.Text)Adodc2.Recordset.Fields("bpg") = Trim(Textbpg.Text)Adodc2.Recordset.Fields("spg") = Trim(Textspg.Text)Adodc2.Recordset.UpdateAdd.Enabled = TrueDel.Enabled = TrueCancel.Enabled = FalseEn