【導(dǎo)讀】到現(xiàn)今為止，惠州市的體育彩票銷售網(wǎng)點(diǎn)就將近370個(gè)，體育彩票的玩法分電腦型。為了方便管理銷售網(wǎng)點(diǎn)與統(tǒng)計(jì)分析銷量數(shù)據(jù)，現(xiàn)就惠州市體育彩票的銷售網(wǎng)點(diǎn)與銷。求，對惠州市體育彩票銷量管理系統(tǒng)進(jìn)行了總體設(shè)計(jì)、功能模塊劃分和數(shù)據(jù)庫設(shè)計(jì)。相結(jié)合的應(yīng)用、采用的關(guān)鍵技術(shù)及方法和主要的編碼過程。

　　

【正文】 選 5, Sum( ) AS 單勝平負(fù) , Sum( ) AS 單上下盤 , Sum( ) AS 單場比分 , Sum( ) AS 單半全場 , Sum( ) AS 單進(jìn)球數(shù) , Sum( ) AS 快中彩 , Sum(sales2020.[11 選 5]) AS 11 選 5, Sum(場比分 ) AS 下半場比分 , Sum( ) AS 大樂透 , Sum( ) AS 幸運(yùn)彩 , Sum( ) AS 競彩 ,sum( ) as 小計(jì) From sales2020 GROUP BY ?? 25 ?? End Sub 銷量查詢模塊里也有一個(gè)“高級查詢”功能，實(shí)現(xiàn)“高級查詢”功能的 部分 代碼如下： Private Sub Form_Load() myrow = 0 39。初始化查詢字段的行數(shù) Set pivf = pubF = DateSerial(Year(Date), Month(Date), 1) = DateAdd(d, 1, DateSerial(Year(Date), Month(Date) + 1, 1)) 39。匹配方式設(shè)置為 = = 0 Dim strsql As String strsql = select * from node Call LinkDatabase(n, rst, strsql) ?? 39。設(shè)置 grid 居中 For i = 0 To 5 (i) = flexAlignCenterCenter Next i 39。 If = adStateOpen Then 39。 If = adStateOpen Then End Sub 26 圖 413高級查詢 銷量統(tǒng)計(jì)：該模塊是系統(tǒng)的主要內(nèi)容之一，是對系統(tǒng)里的所有體育彩票銷售數(shù)據(jù)進(jìn)行有條件的分析統(tǒng)計(jì)，可得出需要的圖表，并可導(dǎo)出 Excel 后與其他數(shù)據(jù)等進(jìn)行簡單的分析處理， 其實(shí)現(xiàn)界面如圖 414 所示。 圖 414銷量統(tǒng)計(jì) 銷量統(tǒng)計(jì)模塊里有兩個(gè)主要功能：統(tǒng)計(jì)和圖表?！敖y(tǒng)計(jì)”按鈕控件是將需要的條 27 件選擇后，對條件范圍內(nèi)的銷量數(shù)據(jù)進(jìn)行統(tǒng)計(jì)，其 部分 的實(shí)現(xiàn) 代碼如下： Private Sub Command1_Click() ?? ?? 39。假如選擇的是按區(qū)域玩法 ElseIf Option1(1) Then 39。假如選擇的是按日 If Option3(2) Then strsql = SELECT , amp。 liststr2 amp。 FROM node INNER JOIN sales2020 ON = WHERE (( = amp。 DTPicker1 amp。 And = amp。 DTPicker2 amp。 ) AND (( Is Null AND = amp。 DTPicker2 amp。 ) OR ( = amp。 DTPicker1 amp。 AND = amp。 DTPicker2 amp。 ))) amp。 group BY 區(qū)域 39。假如選擇的是按月 ElseIf Option3(1) Then 39。算出統(tǒng)計(jì)日期的范圍，從 date1 到 date2 date1 = CDate(Combo1 amp。 amp。 Combo4 amp。 1) dif = DateDiff(d, CDate(Combo2 amp。 amp。 Combo5 amp。 28), CDate(IIf(Val(Combo5) + 1 12, Combo2 + 1, Combo2) amp。 amp。 (IIf(Val(Combo5) + 1 12, 1, Val(Combo5) + 1)) amp。 1)) ?? 39。假如選擇的是按地段玩法 ElseIf Option1(3) Then 39。假如選擇的是按日 If Option3(2) Then strsql = SELECT , amp。 liststr2 amp。 FROM node INNER JOIN sales2020 ON = WHERE (( = amp。 DTPicker1 amp。 And = amp。 DTPicker2 amp。 ) AND (( Is Null AND = amp。 DTPicker2 amp。 ) OR ( = amp。 DTPicker1 amp。 AND = amp。 DTPicker2 amp。 ))) amp。 group BY 所屬地段 28 39。假如選擇的是按月 ElseIf Option3(1) Then 39。算出統(tǒng)計(jì)日期的范圍，從 date1 到 date2 date1 = CDate(Combo1 amp。 amp。 Combo4 amp。 1) dif = DateDiff(d, CDate(Combo2 amp。 amp。 Combo5 amp。 28), CDate(IIf(Val(Combo5) + 1 12, Combo2 + 1, Combo2) amp。 amp。 (IIf(Val(Combo5) + 1 12, 1, Val(Combo5) + 1)) amp。 1)) date2 = CDate(Combo2 amp。 amp。 Combo5 amp。 amp。 (28 + dif 1)) strsql = SELECT 所屬地段 , amp。 liststr2 amp。 FROM node INNER JOIN sales2020 ON = WHERE (( Is Null AND 建站日期 = amp。 date2 amp。 ) OR (退站日期 = amp。 date1 amp。 AND 建站日期 = amp。 date2 amp。 )) and 銷售日期 = amp。 date1 amp。 and 銷售日期 = amp。 date2 amp。 group BY 所屬地段 ?? ?? End Sub 銷量統(tǒng)計(jì)里應(yīng)用到圖表，圖表的生成類型將根據(jù)圖表類型的不同選擇而顯示出不圖的圖表，本系統(tǒng)只用了三種常用的圖表類型。其中，“圖表”按鈕控件的部分實(shí)現(xiàn)代碼如下： Private Sub Command2_Click() ?? 39。構(gòu)造二維數(shù)組 ,把 grid 的數(shù)據(jù)存入二維數(shù)組 Dim nrows As Long, ncolumns As Integer, i As Long, j% nrows = ?? 39。圖表外觀設(shè)置 With MSChart1 Dim str As String For i = 0 To 1 ?? ?? 29 .ChartType = VtChChartType2dBar 39。設(shè)置圖形為二維柱型圖 ElseIf Option2(1) Then .ChartType = 14 39。設(shè)置為餅圖 Else .ChartType = 3 39。設(shè)置為折線圖 ?? LookupError: MsgBox 統(tǒng)計(jì)結(jié)果為空，不能生成圖表！ End Sub 生成圖表控件的實(shí)現(xiàn)代碼如下： Private Sub MSChart1_DblClick() On Error GoTo LookupError If x True Then MsgBox 請先生成圖表！ : Exit Sub If (1, 0) = Then MsgBox 請先統(tǒng)計(jì)出結(jié)果才能生成圖表！ : Exit Sub Exit Sub LookupError: MsgBox 統(tǒng)計(jì)結(jié)果為空，不能生成圖表！ 30 本文在對 彩票銷量管理系統(tǒng) 進(jìn)行調(diào)查研究的基礎(chǔ)上，本著科學(xué)、務(wù)實(shí)的態(tài)度進(jìn)行系統(tǒng)需求分析，確定一個(gè) 彩票銷量管理系統(tǒng) 應(yīng)有的功能，并由此提出系統(tǒng)的設(shè)計(jì)、實(shí)現(xiàn)方案。系統(tǒng)采用 Visual Basic 語言編寫代碼及對主要功能模塊進(jìn)行設(shè)計(jì) ， 并 使用 Office 的Access2020 作為后臺 數(shù)據(jù)庫。 本系統(tǒng)的實(shí)現(xiàn)能有效 快速地獲得需求銷量數(shù)據(jù) ，提高 了數(shù)據(jù)分析 效 率 。該系統(tǒng)的運(yùn)用對 彩票市場分析 起到了積極的作用，對 開拓彩票市場 具有一定的現(xiàn)實(shí)意義。 由于受自身需求調(diào)研的條件和軟件開發(fā)經(jīng)驗(yàn)等多方面影響， 彩票銷量管理系統(tǒng) 還存在一些不足之處。如有可能，我將對系統(tǒng)進(jìn)行改進(jìn)，將更多的實(shí)用有效的新方法融入到 彩票銷量管理系統(tǒng) 中，爭取能夠繼續(xù)完善系統(tǒng)，使之更加簡潔、實(shí)用和人性化，更好地為 惠州市 彩票事業(yè) 提供服 務(wù)。 31 致謝 本論文的順利完成，首先要感謝的是我的指導(dǎo)老師，在他的悉心指導(dǎo)下我才能完成本論文。同時(shí)，身邊的同學(xué)和朋友也給我提供了很多熱情的幫助和支持，讓我能夠更好的完成本論文。在此，向他們表示衷心的感謝。 感謝學(xué)校一直以來對我的培養(yǎng)和為我提供前進(jìn)方向的指引，感謝一直以來幫助過我的所有人，是你們讓我走得更遠(yuǎn)，積累更多。 同時(shí)，我非常感謝我的父母和妹妹，他們的鼓勵(lì)和支持是我不斷努力、不斷追求的動(dòng)力和源泉。 32 參考文獻(xiàn) [1] John , Robert , Stephen 著 , 朱群男 , 汪曉男譯 : 系統(tǒng)分析與設(shè)計(jì) , 機(jī)械工業(yè)出版社 , 2020 [2] 趙斯思， Visual Basic 數(shù)據(jù)庫編程技術(shù)與實(shí)例，人民郵電出版社， 2020 年 6 月 . [3] 薩師宣王珊，數(shù)據(jù)庫系統(tǒng)概論，高等教育出版社， 2020 年 5 月 [4] 鄭人杰、殷人昆、陶永雷，實(shí)用軟件工程，清華大學(xué)出版社， 1997 年 4 月 [5] 齊治昌、譚慶平、寧洪，軟件工程，高等教育出版社， 2020 年 2 月 [6] 李海泉李健，計(jì)算機(jī)系統(tǒng)安全技術(shù)，人民郵電出版社 [7] 李東，管理信息系統(tǒng)的理論與應(yīng)用，北京大學(xué)出版社， 2020 年 3 月 [8] 邵維忠楊芙清，面向?qū)ο蟮南到y(tǒng)設(shè)計(jì)，清華 大學(xué)出版社， 2020 年 2 月 [9] 李師賢李文軍周曉聰，面向?qū)ο蟪绦蛟O(shè)計(jì)基礎(chǔ)，高等教育出版社， 1999 年 8 月 [10] 求是科技， Visual Basic 程序設(shè)計(jì)與開發(fā)技術(shù)大全，人民郵電出版社， 2020 年 4 月 [11] Taruna Chaudhary， VBA Professional Projects，中國水利水電出版社， 2020 年 2 月 [12] Visual Basic 訪問 SQL Server 數(shù)據(jù)庫方案比較，電腦知識與技術(shù)， 2020