【正文】 INNER JOIN sales2020 ON node. 網(wǎng)點(diǎn)編號 = WHERE ((( )=7/14/2020 And ( )=7/16/2020) AND ((node.退站日期 ) Is Null) AND ((node. 建站日期 )=7/16/2020)) OR (((sales2020. 銷售日期 )=7/14/2020 And (sales2020. 銷 售 日 期 )=7/16/2020) AND ((node. 退站日期 )=7/14/2020) AND (( )=7/16/2020)) GROUP BY , node.業(yè)主姓名 , ORDER BY strsql = SELECT , Sum(sales2020.[排 3]) AS 排 3, Sum( 5) AS 排 5, Sum( ) AS 七星 , Sum(sales2020.[36 選 7]) AS 36 選 7, Sum(sales2020.勝負(fù) ) AS 勝負(fù) , Sum( 9) AS 任選 9, Sum(sales2020.[6 場半 ]) AS 6 場半 , Sum(sales2020.[4 場 ]) AS 4 場 , Sum(sales2020.[22 選 5]) AS 22 選 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 銷量查詢模塊里也有一個“高級查詢”功能，實(shí)現(xiàn)“高級查詢”功能的 部分 代碼如下： Private Sub Form_Load() myrow = 0 39。 If = adStateOpen Then 39。假如選擇的是按區(qū)域玩法 ElseIf Option1(1) Then 39。 DTPicker1 amp。 DTPicker2 amp。 DTPicker2 amp。算出統(tǒng)計(jì)日期的范圍，從 date1 到 date2 date1 = CDate(Combo1 amp。 amp。 (IIf(Val(Combo5) + 1 12, 1, Val(Combo5) + 1)) amp。 liststr2 amp。 DTPicker2 amp。 DTPicker1 amp。 group BY 所屬地段 28 39。 Combo4 amp。 28), CDate(IIf(Val(Combo5) + 1 12, Combo2 + 1, Combo2) amp。 amp。 liststr2 amp。 date1 amp。 date1 amp。其中，“圖表”按鈕控件的部分實(shí)現(xiàn)代碼如下： Private Sub Command2_Click() ?? 39。設(shè)置為餅圖 Else .ChartType = 3 39。該系統(tǒng)的運(yùn)用對 彩票市場分析 起到了積極的作用，對 開拓彩票市場 具有一定的現(xiàn)實(shí)意義。同時，身邊的同學(xué)和朋友也給我提供了很多熱情的幫助和支持，讓我能夠更好的完成本論文。 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 。 感謝學(xué)校一直以來對我的培養(yǎng)和為我提供前進(jìn)方向的指引，感謝一直以來幫助過我的所有人，是你們讓我走得更遠(yuǎn)，積累更多。如有可能，我將對系統(tǒng)進(jìn)行改進(jìn)，將更多的實(shí)用有效的新方法融入到 彩票銷量管理系統(tǒng) 中，爭取能夠繼續(xù)完善系統(tǒng)，使之更加簡潔、實(shí)用和人性化，更好地為 惠州市 彩票事業(yè) 提供服 務(wù)。系統(tǒng)采用 Visual Basic 語言編寫代碼及對主要功能模塊進(jìn)行設(shè)計(jì) ， 并 使用 Office 的Access2020 作為后臺 數(shù)據(jù)庫。圖表外觀設(shè)置 With MSChart1 Dim str As String For i = 0 To 1 ?? ?? 29 .ChartType = VtChChartType2dBar 39。 date2 amp。 date2 amp。 date2 amp。 amp。 (IIf(Val(Combo5) + 1 12, 1, Val(Combo5) + 1)) amp。 amp。算出統(tǒng)計(jì)日期的范圍，從 date1 到 date2 date1 = CDate(Combo1 amp。 DTPicker2 amp。 DTPicker2 amp。 DTPicker1 amp。假如選擇的是按地段玩法 ElseIf Option1(3) Then 39。 28), CDate(IIf(Val(Combo5) + 1 12, Combo2 + 1, Combo2) amp。 Combo4 amp。 group BY 區(qū)域 39。 DTPicker1 amp。 DTPicker2 amp。 liststr2 amp。 圖 414銷量統(tǒng)計(jì) 銷量統(tǒng)計(jì)模塊里有兩個主要功能：統(tǒng)計(jì)和圖表。匹配方式設(shè)置為 = = 0 Dim strsql As String strsql = select * from node Call LinkDatabase(n, rst, strsql) ?? 39。getTableName 39。 strsql3 End If Case Else End Select ?? ?? End Sub 23 圖 411高級查詢 銷量 查詢 ：該模塊是系統(tǒng)的主要內(nèi)容之一，是對系統(tǒng)里的所有體育彩票銷售數(shù)據(jù)進(jìn)行有條件的查詢，并可導(dǎo)出 Excel 后與其他數(shù)據(jù)等進(jìn)行簡單的分析處理， 其實(shí)現(xiàn)界面如圖412， 413 所示。 strsql2 End If ?? strsql = strsql1 amp。 and 序號 in(select 序號 amp。 %39。 amp。 liststr amp。% amp。 tablename amp。 Combo7 amp。 from amp。表示有 2 個查詢字段 Else flag = 3 39。 設(shè)置升序 = DateSerial(Year(Date), Month(Date), 1) = DateAdd(d, 1, DateSerial(Year(Date), Month(Date) + 1, 1)) 39。 .cp myFileCopy p1, p2 MsgBox 數(shù)據(jù)備份成功！ End If End Sub 圖 49備份數(shù)據(jù)庫 用戶界面模塊 用戶界面里的模塊大 部分與管理員界面的模塊類似，只是登錄界面不同，這里主要描述查詢和統(tǒng)計(jì)兩個模塊的實(shí)現(xiàn)功能。 實(shí)現(xiàn)“系統(tǒng)備份”功能的部分代碼如下： Public Sub mybackup() Dim i% i = MsgBox(你是否要備份數(shù)據(jù)庫 , vbYesNo, 備份數(shù)據(jù)庫 ) If i = 6 Then 19 Dim t As String t = CStr(Date) + + CStr(Hour(time)) + + CStr(Minute(time)) + + CStr(Second(time)) 39。 的彩票銷量 : Set myr = Nothing : Set myc = Nothing ?? ?? i = MsgBox(開始導(dǎo)入數(shù)據(jù)嗎？ , vbYesNo, 導(dǎo)入數(shù)據(jù) ) If i = 7 Then Exit Sub i = MsgBox(確定導(dǎo)入的銷量日期是 amp。 表已經(jīng)導(dǎo)入 amp。 order by 銷售日期 18 mys, myc, rdOpenDynamic, adLockOptimistic tishi2 = (0) 39。 order by 銷售日期 mys, myc, rdOpenDynamic, adLockOptimistic tishi2 = (0) 39。 \。判斷該日期是否已經(jīng)導(dǎo)入過了 Dim myr As Dim myc As Dim mys As String mys = Provider=?，F(xiàn)主要 以 銷量導(dǎo)入 模塊進(jìn)行描述，其實(shí)現(xiàn)界面如圖 48 所示 。 條記錄 39。 現(xiàn)在是第 amp。 sum amp。Call AdjustWidth(MSHFlexGrid1) 39。獲得數(shù)據(jù)庫的所有表名 strsql = select * from node order by 序號 Call LinkDatabase(n, rst, strsql) 39。其實(shí)現(xiàn)界面如圖 47 所示。其實(shí)現(xiàn)界面如圖 45 所示。 另一種是用戶界面， 由 查詢 、 統(tǒng)計(jì) 、 修改信息 和 備份 這四個大模塊組成 （如圖 43） 圖 42管理員