【正文】 大地簡化了用戶的開發(fā)工作。利用數(shù)據(jù)庫訪問頁對象生成HTML 文件，輕松構(gòu)建 Inter/Intra 的應(yīng)用。 （ 2）首次使用需要管理員進(jìn)入系統(tǒng)進(jìn)行網(wǎng)點(diǎn)管理，將現(xiàn)有的銷售網(wǎng)點(diǎn)資料導(dǎo)入系統(tǒng)。每個模 塊又細(xì)分為若干個小模塊，系統(tǒng)的功能模塊劃分如圖31 所示。 查詢統(tǒng)計模塊里提供了網(wǎng)點(diǎn)查詢、銷量查詢、銷量統(tǒng)計功能，這部分模塊是體育彩票管理系統(tǒng)的核心所在。 本系統(tǒng) 使用 Access2020 數(shù)據(jù)庫設(shè)計， 利用 Access2020 創(chuàng)建一個數(shù)據(jù)庫文件 cpxl 來存儲數(shù)據(jù)，該數(shù)據(jù)庫包括了本系統(tǒng)需要的所有數(shù)據(jù)表。網(wǎng)點(diǎn)表和銷量表 是系統(tǒng) 的 核心部分 。 amp。 amp。 另一種是用戶界面， 由 查詢 、 統(tǒng)計 、 修改信息 和 備份 這四個大模塊組成 （如圖 43） 圖 42管理員界面 圖 43用戶界面 13 各 項(xiàng)子模塊詳細(xì)設(shè)計 的實(shí)現(xiàn) 系統(tǒng) 管理模塊 系統(tǒng)管理模塊是在管理員界面里的， 主要提供管理員進(jìn)行網(wǎng)點(diǎn)的資料錄入、玩法管理及用戶管理。其實(shí)現(xiàn)界面如圖 47 所示。Call AdjustWidth(MSHFlexGrid1) 39。 現(xiàn)在是第 amp?，F(xiàn)主要 以 銷量導(dǎo)入 模塊進(jìn)行描述，其實(shí)現(xiàn)界面如圖 48 所示 。 \。 order by 銷售日期 18 mys, myc, rdOpenDynamic, adLockOptimistic tishi2 = (0) 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。 .cp myFileCopy p1, p2 MsgBox 數(shù)據(jù)備份成功！ End If End Sub 圖 49備份數(shù)據(jù)庫 用戶界面模塊 用戶界面里的模塊大 部分與管理員界面的模塊類似，只是登錄界面不同，這里主要描述查詢和統(tǒng)計兩個模塊的實(shí)現(xiàn)功能。表示有 2 個查詢字段 Else flag = 3 39。 Combo7 amp。% amp。 amp。 and 序號 in(select 序號 amp。 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 所示。匹配方式設(shè)置為 = = 0 Dim strsql As String strsql = select * from node Call LinkDatabase(n, rst, strsql) ?? 39。 liststr2 amp。 DTPicker1 amp。 Combo4 amp。假如選擇的是按地段玩法 ElseIf Option1(3) Then 39。 DTPicker2 amp。算出統(tǒng)計日期的范圍，從 date1 到 date2 date1 = CDate(Combo1 amp。 (IIf(Val(Combo5) + 1 12, 1, Val(Combo5) + 1)) amp。 date2 amp。 date2 amp。系統(tǒng)采用 Visual Basic 語言編寫代碼及對主要功能模塊進(jìn)行設(shè)計 ， 并 使用 Office 的Access2020 作為后臺 數(shù)據(jù)庫。 感謝學(xué)校一直以來對我的培養(yǎng)和為我提供前進(jìn)方向的指引，感謝一直以來幫助過我的所有人，是你們讓我走得更遠(yuǎn)，積累更多。同時，身邊的同學(xué)和朋友也給我提供了很多熱情的幫助和支持，讓我能夠更好的完成本論文。設(shè)置為餅圖 Else .ChartType = 3 39。 date1 amp。 liststr2 amp。 28), CDate(IIf(Val(Combo5) + 1 12, Combo2 + 1, Combo2) amp。 group BY 所屬地段 28 39。 DTPicker2 amp。 (IIf(Val(Combo5) + 1 12, 1, Val(Combo5) + 1)) amp。算出統(tǒng)計日期的范圍，從 date1 到 date2 date1 = CDate(Combo1 amp。 DTPicker2 amp。假如選擇的是按區(qū)域玩法 ElseIf Option1(1) Then 39。strsql = SELECT , , , Sum(IIf([退站日期 ] Is Not Null And [銷售日期 ][退站日期 ],0,IIf([建站日期 ][銷售日期 ],0,[七星 ]))) AS 七星銷量 FROM node 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 小計 From sales2020 GROUP BY ?? 25 ?? End Sub 銷量查詢模塊里也有一個“高級查詢”功能，實(shí)現(xiàn)“高級查詢”功能的 部分 代碼如下： Private Sub Form_Load() myrow = 0 39。 strsql2 amp。字段為日期型 ?? ?? Select Case flag 39。 tablename amp。 22 amp。 where amp。獲得數(shù)據(jù)庫的所有表名 Dim strsql As String strsql = select * from node Call LinkDatabase(n, rst, strsql) ?? If + Then = + + 200 End If strsql = select * from node Call LinkDatabase(n, rst, strsql) Dim i% For i = 0 To 1 (i).name 21 Next End Sub 高級查詢模塊代碼里有許多的條件判斷，實(shí)現(xiàn)“高級查詢”功能的部分 代碼如下： Private Sub Command1_Click() ?? ?? If Combo2 = Then MsgBox 請先選擇第一查詢字段 Exit Sub ElseIf Combo4 = Then flag = 1 39。用當(dāng)前日期時間作為文件名創(chuàng)建文件夾 Dim p1 As String, p2 As String p1 = + \ p2 = + \數(shù)據(jù)庫備份 \ + 彩票銷量 amp。 到 amp。將最早時間給 tishi1 ?? ?? MsgBox 導(dǎo)入數(shù)據(jù)成功！ mys = select distinct 銷售日期 from amp。Data Source= amp。If = adStateOpen Then End Sub 圖 44網(wǎng)點(diǎn)管理 實(shí)現(xiàn)“維護(hù)數(shù)據(jù)”功能的代碼如下： Private Sub Command1_Click() qrow = + 20 * (Val(Text1) 1) Set pubF = Me tablename = node pstr = select * from node order by 序號 1 End Sub 15 圖 45維護(hù)數(shù)據(jù) 實(shí)現(xiàn)“導(dǎo)入”功能的代碼如下： Private Sub Command5_Click() Dim i% i = MsgBox(開始導(dǎo)入數(shù)據(jù)嗎？ , vbYesNo, 導(dǎo)入數(shù)據(jù) ) If i = 7 Then Exit Sub 39。 vbCrLf amp。自動調(diào)整最適合的列寬 Call AdjustColWidth(Me, MSHFlexGrid1) 39。其實(shí)現(xiàn)界面如圖46 所示。 主窗體設(shè)計的界面是用菜單編輯器做的，主要 分兩種界面。 39。 其具體實(shí)現(xiàn)代碼如下： Private Sub Command1_Click() myname = Dim fd As Dim str As String str = Provider=。 10 (2)字段類型表 (fieldtype)的 類型編號字段 和網(wǎng)點(diǎn)字段表 (nodefield) 的 類型編號字段聯(lián)系 ， 使得 它們 之