NBA球員管理系統(tǒng)方案

1、word 完美格式 NBA 球員管理系統(tǒng)數(shù)據(jù)庫(kù)原理課程設(shè)計(jì)報(bào)告 NBA 球員管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)學(xué)院：信息學(xué)院專(zhuān)業(yè)班級(jí)：計(jì)算機(jī)科學(xué)與技術(shù) 1 班組員姓名：王治銘201424020105陳昭儒201424020106殷鵬飛201424020110指導(dǎo)老師：李曉莉完成日期：2016-6-17精心整理學(xué)習(xí)幫手一、概述1.1 背景說(shuō)明軟件名稱(chēng)： NBA 球員信息管理系統(tǒng)用戶(hù)：球隊(duì)數(shù)據(jù)分析師1.2 開(kāi)發(fā)環(huán)境操作系統(tǒng)Windows 7軟件配置Visual Basic 6.0 & SQL Server 2014二、需求分析2.1 用戶(hù)需求NBA 發(fā)展至今，整個(gè)聯(lián)盟涵括了三十支球隊(duì)，每支球隊(duì)的球員名單上限在常規(guī)

2、賽時(shí)期可以達(dá)到 15 位，加上不計(jì)其數(shù)的自由球員，管理并分析這些球員的生涯數(shù)據(jù)成為了一件棘手的事， NBA 球員信息管理系統(tǒng)可以師解決這個(gè)問(wèn)題。本系統(tǒng)面向的對(duì)象為球隊(duì)數(shù)據(jù)分析師， 對(duì)于專(zhuān)業(yè)人士， 他們不僅有權(quán)瀏覽數(shù)據(jù)， 也可以對(duì)數(shù)據(jù)進(jìn)行修改、刪除，用戶(hù)共享數(shù)據(jù)并更新數(shù)據(jù)。2.2 主要功能本系統(tǒng)從用戶(hù)的需求出發(fā)，可實(shí)現(xiàn)以下功能：a) 球員數(shù)據(jù)瀏覽b) 球員數(shù)據(jù)修改c) 球員數(shù)據(jù)刪除2.3 數(shù)據(jù)字典名稱(chēng)數(shù)據(jù)類(lèi)型字段描述charchar球員姓名Pragesmallint球員年齡Pnosmallint球衣號(hào)碼PIDchar球員代號(hào)Pcapitalmoney球員薪金Tnamechar隸屬球隊(duì)名稱(chēng)TIDc

3、har隸屬球隊(duì)代號(hào)ppgfloat場(chǎng)均得分rpgfloat場(chǎng)均籃板1apgfloat場(chǎng)均助攻spgfloat場(chǎng)均搶斷bpgfloat場(chǎng)均蓋帽P(pán)besmallint最近一場(chǎng)得分三、數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)根據(jù)需求分析，可知本系統(tǒng)有以下E-R 圖：3.1 球員信息 E-R 圖球員姓名球員代號(hào)球員年齡球衣號(hào)碼球員信息球員薪金隸屬球隊(duì)代號(hào)隸屬球隊(duì)名稱(chēng)3.2 球員數(shù)據(jù) E-R 圖場(chǎng)均得分場(chǎng)均籃板場(chǎng)均蓋帽球員代號(hào)球員數(shù)據(jù)場(chǎng)均搶斷球員姓名場(chǎng)均助攻3.3 球員表現(xiàn) E-R 圖最近一場(chǎng)得分球員代號(hào)2球員表現(xiàn)四、邏輯結(jié)構(gòu)設(shè)計(jì)4.1 球員信息表列名NULL約束PIDNOT NULLprimary keyPnameNOT

4、NULLPcapitalNOT NULLPrageNOT NULLPnoNOT NULLTnameNOT NULLTIDNOT NULL4.2 球員數(shù)據(jù)表列名NULL約束PIDNOT NULLprimary keyPnameNOT NULLppgNOT NULLrpgNOT NULLapgNOT NULLspgNOT NULLbpgNOT NULL4.3球員表現(xiàn)表列名NULL約束PIDNOT NULLprimary keyPnameNOT NULLPbeNOT NULL3五、創(chuàng)建數(shù)據(jù)庫(kù)及其對(duì)象5.1 建表5.1.1球員信息表createtableplayer(PIDchar (10)NOT N

5、ULL,Pnamechar (25) NOT NULL,Pcapital moneyNOT NULL,PragesmallintNOT NULL,Tnamechar (30)NOT NULL,PnosmallintNOT NULL,TIDchar (15)NOT NULL,primarykey(PID,Pname )5.1.2球員數(shù)據(jù)表createtableplayerData(PIDchar (10)NOT NULL,Pnamechar (25)NOT NULL,ppgfloatNOT NULL,rpgfloatNOT NULL,apgfloatNOT NULL,spgfloatNOT NU

6、LL,bpgfloatNOT NULL,primarykey(PID,Pname)5.1.3球員表現(xiàn)表createtablebehave(PIDchar (10)NOT NULL,Pbesmallint NOT NULL,Pnamechar (25)NOT NULLprimarykey(PID)六、基于 VB的UI設(shè)計(jì)46.1 Form1 窗口Private Sub Add_Click()Adodc1.Recordset.AddNewAdd.Enabled = FalseDel.Enabled = FalseEdit.Enabled = TrueCancel.Enabled = TrueEnd

7、 SubPrivate Sub Cancel_Click()Adodc1.Recordset.CancelUpdateAdd.Enabled = TrueDel.Enabled = TrueCancel.Enabled = FalseEnd SubPrivate Sub Command1_Click()/打開(kāi) form2 窗口Form2.ShowEnd SubPrivate Sub Del_Click()Dim res As Integerres = MsgBox( 確實(shí)要?jiǎng)h除此行嗎？ , vbExclamation + vbYesNo + vbDefaultButton2)If res =

8、vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = True ThenAdodc1.Recordset.MoveLastEnd IfEnd IfEnd SubPrivate Sub Edit_Click()Adodc1.Recordset.Fields(Pno) = Trim(TextPno.Text)Adodc1.Recordset.Fields(Pname) = Trim(TextPname.Text)Adodc1.Recordset.Fields(Prage) = Trim

9、(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.UpdateAdd.Enabled = True5Del.Enabled = TrueCancel.Enabled = F

10、alseEnd SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub First_Click()Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Last_Click()Adodc1.Recordset.MoveLastEnd SubPrivate Sub Next_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = True ThenAdodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Previou

11、s_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF = True ThenAdodc1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Print_Click()/打開(kāi) apg 窗口apg.ShowEnd SubPrivate Sub Form_Load()Cancel.Enabled = FalseCombo1.AddItem 球員信息 Combo1.AddItem 球員數(shù)據(jù) Combo1.AddItem 球員表現(xiàn) Combo1.AddItem 球員表現(xiàn)對(duì)比Dim strPID A

12、s StringDim strSelect As StringstrPID = Trim(TextPID.Text)strSelect = select * from player6Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strSelectAdodc1.RefreshSet DtgCond.DataSource = Adodc1Call InitGirdDim strPID1 As StringDim strSelect1 As StringstrPID1 = Trim(TextPID.Text)strSelect1 = sele

13、ct * from playerDataAdodc2.CommandType = adCmdTextAdodc2.RecordSource = strSelect1Adodc2.RefreshSet DtgCond1.DataSource = Adodc2Call InitGird1Dim strPID2 As StringDim strSelect2 As StringstrPID2 = Trim(TextPID.Text)strSelect2 = select * from behaveAdodc3.CommandType = adCmdTextAdodc3.RecordSource =

14、strSelect2Adodc3.RefreshSet DtgCond2.DataSource = Adodc3Call InitGird2Dim strPID3 As StringDim strSelect3 As StringstrPID3 = Trim(TextPID.Text)strSelect3 = select * from playerData join behave on playerData.PID = behave.PID Adodc4.CommandType = adCmdTextAdodc4.RecordSource = strSelect3Adodc4.Refresh

15、Set DtgCond3.DataSource = Adodc4End 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 = Team ID.Columns(0).Width = 10007.Columns(1).Width =

16、 1000.Columns(2).Width = 1000.Columns(3).Width = 1000End WithEnd SubPrivate Sub InitGird1()With DtgCond1.Columns(0).Caption = ID.Columns(1).Caption = Name.Columns(2).Caption = ppg.Columns(3).Caption = rpg.Columns(4).Caption = apg.Columns(5).Caption = spg.Columns(6).Caption = bpg.Columns(0).Width = 1

17、000.Columns(1).Width = 1000.Columns(2).Width = 1000.Columns(3).Width = 1000End WithEnd SubPrivate Sub InitGird2()With DtgCond2.Columns(0).Caption = ID.Columns(1).Caption = pbe.Columns(2).Caption = Name.Columns(0).Width = 1000.Columns(1).Width = 1000.Columns(2).Width = 1000End WithEnd SubPrivate Sub

18、Combo1_Click()If Combo1.Text = 球員信息 ThenFrame1.ZOrder 0ElseIf Combo1.Text = 球員數(shù)據(jù) ThenFrame2.ZOrder 0ElseIf Combo1.Text = 球員表現(xiàn) ThenDtgCond2.ZOrder 0ElseIf Combo1.Text = 球員表現(xiàn)對(duì)比 ThenDtgCond3.ZOrder 0End IfEnd Sub6.2 Form2 窗口8Private Sub Add_Click()Adodc2.Recordset.AddNewAdd.Enabled = FalseDel.Enabled =

19、 FalseEdit.Enabled = TrueCancel.Enabled = TrueEnd SubPrivate Sub Cancel_Click()Adodc2.Recordset.CancelUpdateAdd.Enabled = TrueDel.Enabled = TrueCancel.Enabled = FalseEnd SubPrivate Sub Del_Click()Dim res As Integerres = MsgBox( 確實(shí)要?jiǎng)h除此行嗎？ , vbExclamation + vbYesNo + vbDefaultButton2)If res = vbYes Th

20、enAdodc2.Recordset.DeleteAdodc2.Recordset.MoveNextIf Adodc2.Recordset.EOF = True ThenAdodc2.Recordset.MoveLastEnd IfEnd IfEnd SubPrivate Sub Edit_Click()Adodc2.Recordset.Fields(Pbe) = Trim(TextPbe.Text)Adodc2.Recordset.Fields(Pname) = Trim(TextPname.Text)Adodc2.Recordset.Fields(PID) = Trim(TextPID.T

21、ext)Adodc2.Recordset.UpdateAdd.Enabled = TrueDel.Enabled = TrueCancel.Enabled = FalseEnd SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub First_Click()Adodc2.Recordset.MoveFirst9End SubPrivate Sub Last_Click()Adodc2.Recordset.MoveLastEnd SubPrivate Sub Next_Click()Adodc2.Recordset.MoveNextIf Adodc2.

22、Recordset.EOF = True ThenAdodc2.Recordset.MoveLastEnd IfEnd SubPrivate Sub Previous_Click()Adodc2.Recordset.MovePreviousIf Adodc2.Recordset.BOF = True ThenAdodc2.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Form_Load()Cancel.Enabled = FalseEnd Sub6.3 apg 窗口Private Sub Add_Click()Adodc2.Recordset.AddN

23、ewAdd.Enabled = FalseDel.Enabled = FalseEdit.Enabled = TrueCancel.Enabled = TrueEnd SubPrivate Sub Cancel_Click()Adodc2.Recordset.CancelUpdateAdd.Enabled = TrueDel.Enabled = TrueCancel.Enabled = FalseEnd SubPrivate Sub Del_Click()Dim res As Integer10res = MsgBox(確實(shí)要?jiǎng)h除此行嗎？, vbExclamation + vbYesNo +

24、vbDefaultButton2)If res = vbYes ThenAdodc2.Recordset.DeleteAdodc2.Recordset.MoveNextIf Adodc2.Recordset.EOF = True ThenAdodc2.Recordset.MoveLastEnd IfEnd IfEnd SubPrivate Sub Edit_Click()Adodc2.Recordset.Fields(ppg) = Trim(Textppg.Text)Adodc2.Recordset.Fields(Pname) = Trim(TextPname.Text)Adodc2.Reco

25、rdset.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.

26、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.MoveNextIf Adodc2.Recordset.EOF = True ThenAdodc2.Recordset.MoveLastEnd IfEnd SubPrivate Sub Previous_Click()11Adodc2.Recordset.