NBA球员管理系统文档格式.docx

1、1.2 开发环境操作系统 Windows 7软件配置Visual Basic 6、0 & SQL Server 2014二、 需求分析2、1 用户需求NBA发展至今,整个联盟涵括了三十支球队,每支球队的球员名单上限在常规赛时期可以达到15位,加上不计其数的自由球员,管理并分析这些球员的生涯数据成为了一件棘手的事,NBA球员信息管理系统可以师解决这个问题。本系统面向的对象为球队数据分析师,对于专业人士,她们不仅有权浏览数据,也可以对数据进行修改、删除,用户共享数据并更新数据。2、2 主要功能本系统从用户的需求出发,可实现以下功能: a） 球员数据浏览b） 球员数据修改c） 球员数据删除2、3 数

2、据字典名称数据类型字段描述char球员姓名Pragesmallint球员年龄Pno球衣号码PID球员代号Pcapitalmoney球员薪金Tname隶属球队名称TID隶属球队代号ppgfloat场均得分rpg场均篮板apg场均助攻spg场均抢断bpg场均盖帽Pbe最近一场得分三、 数据库概念结构设计根据需求分析,可知本系统有以下E-R图:3、1 球员信息E-R图3、2 球员数据E-R图球员信息球员数据球员表现 3、3 球员表现E-R图四、 逻辑结构设计4、1球员信息表列名NULL约束NOT NULLprimary keyPname4、2球员数据表4、3 球员表现表五、 创建数据库及其对象5、1

3、 建表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 （ppg float NOT NULL,rpg float NOT NULL,apg flo

4、at NOT NULL,spg float NOT NULL,bpg float NOT NULL,5、1、3 球员表现表create table behave（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、Enabled = True Cancel、Enabled = TrueEnd S

5、ubPrivate Sub Cancel_Click（）Adodc1、Recordset、CancelUpdateAdd、Enabled = TrueDel、Enabled = TrueCancel、Enabled = FalsePrivate Sub Command1_Click（）/打开form2窗口Form2、ShowPrivate Sub Del_Click（） Dim res As Integer res = MsgBox（确实要删除此行不？, vbExclamation + vbYesNo + vbDefaultButton2） If res = vbYes Then Adodc1

6、、Recordset、Delete Adodc1、Recordset、MoveNextIf Adodc1、Recordset、EOF = True Then Adodc1、Recordset、MoveLast End IfPrivate Sub Edit_Click（）Adodc1、Recordset、Fields（Pno） = Trim（TextPno、Text）Pname） = Trim（TextPname、Text）Prage） = Trim（TextPrage、Text）Pcapital） = Trim（TextPcpt、Text）PID） = Trim（TextPID、Text）TI

7、D） = Trim（TextTID、Text）Tname） = Trim（TextTname、Text）Adodc1、Recordset、UpdatePrivate Sub Exit_Click（） EndPrivate Sub First_Click（） Adodc1、Recordset、MoveFirstPrivate Sub Last_Click（）Adodc1、Recordset、MoveLastPrivate Sub Next_Click（）Adodc1、Recordset、MoveNext If Adodc1、Recordset、EOF = True ThenPrivate Sub

8、 Previous_Click（） Adodc1、Recordset、MovePrevious If Adodc1、Recordset、BOF = True ThenPrivate Sub Print_Click（）/打开apg窗口 apg、ShowPrivate Sub Form_Load（） Cancel、Enabled = False Combo1、AddItem 球员信息球员数据球员表现球员表现对比 Dim strPID As String Dim strSelect As String strPID = Trim（TextPID、Text） strSelect = select *

9、from player Adodc1、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

10、 = 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 = Adodc3 C

11、all 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 = Adodc4Private Sub InitGird（） With DtgCon