【正文】 一網(wǎng)點(diǎn)的資料。 導(dǎo)入： 將所有的體育彩票銷售網(wǎng)點(diǎn)的資料進(jìn)行批量導(dǎo)入到系統(tǒng)里。 維護(hù)字段：可對(duì)字段名進(jìn)行添加或者刪除。 實(shí)現(xiàn)“ 網(wǎng)點(diǎn)管理 ”功能的 主要 代碼如下： Private Sub Form_Load() Dim strsql As String mysort = 7 39。getTableName 39。Set = rst = 20 + 1 = Text1 = 1 showgrid 1, 20 39。設(shè)置最適合 MSHFlexGrid1 的寬度 39。按升序排序 14 = flexSortGenericAscending 39。 = + 500 Label1 = 共有 amp。 條記錄 amp。 vbCrLf amp。 Text1 amp。 amp。If = adStateOpen Then 39。將 excel 表數(shù)據(jù)追加到 ACCESS 表 If Then Call ExportExcelSheetToAccess2(sheet1, , node, + \) End If End Sub 圖 46導(dǎo)入 16 圖 47維護(hù)字段 實(shí)現(xiàn)“維護(hù)字段”功能的代碼如下： Private Sub Command3_Click() Unload Me tablename = node End Sub 銷量管理模塊 銷量 管理模塊是在管理員界面里的，主要提供管理員進(jìn)行 銷量導(dǎo)入、銷量清空 。 圖 48銷量導(dǎo)入 17 實(shí)現(xiàn)“導(dǎo)入”功能的 部分 代碼如下： Private Sub Command2_Click() On Error GoTo Err_Command2_Click Dim i% If Text1 = Then MsgBox 請(qǐng)輸入或選擇導(dǎo)入的文件 !: Exit Sub Dim sname As String, tname As String 39。option2 為 true 表示要導(dǎo)入到舊表 39。Jet OLEDB:Database password=。 amp。 amp。 Combo1 amp。將最新時(shí)間給 tishi2 tishi1 = (0) 39。 Combo1 amp。將最新時(shí)間給 tishi2 tishi1 = (0) 39。 Combo1 amp。 tishi1 amp。 tishi2 amp。 amp。將 excel 表數(shù)據(jù)導(dǎo)入到新表 sname = getsheetname() tname = ?? ?? End Sub 系統(tǒng)維護(hù)模塊 系統(tǒng)維護(hù) 模塊是在管理員界面里的，主要提供管理員 進(jìn)行數(shù)據(jù)備份與恢復(fù) ，如圖 49所示。myCreateFolder (t) 39。 t amp。 普通用戶 界面里 有兩個(gè)主要 模塊 ： 查詢 和 統(tǒng)計(jì)， 查詢是提 供 普通用戶進(jìn)行 網(wǎng)點(diǎn)查詢、銷量查詢 。 20 圖 410網(wǎng)點(diǎn) 查詢 實(shí)現(xiàn)“網(wǎng)點(diǎn)查詢”的代碼如下： Private Sub Form_Load() = True = 0 mysort = 7 39。getTableName 39。表示有 1 個(gè)查詢字段 ElseIf Combo8 = Then flag = 2 39。表示有 3 個(gè)查詢字段 End If ?? ?? If flag = 3 Then Select Case X() Case 2, 3, 4, 11 39。 liststr amp。 tablename amp。 amp。 Case 6 strsql3 = select amp。 from amp。 where amp。 like 39。 amp。 Case 7 strsql3 = select amp。 from amp。 where amp。 not like 39。 amp。 End Select Case 7 39。判斷有幾個(gè)查詢字段 Case 1 strsql = strsql1 Case 2 If Option1 Then strsql = strsql1 amp。 Mid(strsql2, InStr(strsql2, from)) amp。 union amp。 union amp。 union amp。 圖 412銷量查詢 24 實(shí)現(xiàn)“銷量查詢”的 部分 代碼如下： Private Sub Form_Load() flag = False Label8 = la 39。 設(shè)置按數(shù)字升序， = DateSerial(Year(Date), Month(Date), 1) = DateAdd(d, 1, DateSerial(Year(Date), Month(Date) + 1, 1)) 39。獲得數(shù)據(jù)庫(kù)的所有表名 Dim strsql As String 39。初始化查詢字段的行數(shù) Set pivf = pubF = DateSerial(Year(Date), Month(Date), 1) = DateAdd(d, 1, DateSerial(Year(Date), Month(Date) + 1, 1)) 39。設(shè)置 grid 居中 For i = 0 To 5 (i) = flexAlignCenterCenter Next i 39。 If = adStateOpen Then End Sub 26 圖 413高級(jí)查詢 銷量統(tǒng)計(jì)：該模塊是系統(tǒng)的主要內(nèi)容之一，是對(duì)系統(tǒng)里的所有體育彩票銷售數(shù)據(jù)進(jìn)行有條件的分析統(tǒng)計(jì)，可得出需要的圖表，并可導(dǎo)出 Excel 后與其他數(shù)據(jù)等進(jìn)行簡(jiǎn)單的分析處理， 其實(shí)現(xiàn)界面如圖 414 所示?！敖y(tǒng)計(jì)”按鈕控件是將需要的條 27 件選擇后，對(duì)條件范圍內(nèi)的銷量數(shù)據(jù)進(jìn)行統(tǒng)計(jì)，其 部分 的實(shí)現(xiàn) 代碼如下： Private Sub Command1_Click() ?? ?? 39。假如選擇的是按日 If Option3(2) Then strsql = SELECT , amp。 FROM node INNER JOIN sales2020 ON = WHERE (( = amp。 And = amp。 ) AND (( Is Null AND = amp。 ) OR ( = amp。 AND = amp。 ))) amp。假如選擇的是按月 ElseIf Option3(1) Then 39。 amp。 1) dif = DateDiff(d, CDate(Combo2 amp。 Combo5 amp。 amp。 1)) ?? 39。假如選擇的是按日 If Option3(2) Then strsql = SELECT , amp。 FROM node INNER JOIN sales2020 ON = WHERE (( = amp。 And = amp。 ) AND (( Is Null AND = amp。 ) OR ( = amp。 AND = amp。 ))) amp。假如選擇的是按月 ElseIf Option3(1) Then 39。 amp。 1) dif = DateDiff(d, CDate(Combo2 amp。 Combo5 amp。 amp。 1)) date2 = CDate(Combo2 amp。 Combo5 amp。 (28 + dif 1)) strsql = SELECT 所屬地段 , amp。 FROM node INNER JOIN sales2020 ON = WHERE (( Is Null AND 建站日期 = amp。 ) OR (退站日期 = amp。 AND 建站日期 = amp。 )) and 銷售日期 = amp。 and 銷售日期 = amp。 group BY 所屬地段 ?? ?? End Sub 銷量統(tǒng)計(jì)里應(yīng)用到圖表，圖表的生成類型將根據(jù)圖表類型的不同選擇而顯示出不圖的圖表，本系統(tǒng)只用了三種常用的圖表類型。構(gòu)造二維數(shù)組 ,把 grid 的數(shù)據(jù)存入二維數(shù)組 Dim nrows As Long, ncolumns As Integer, i As Long, j% nrows = ?? 39。設(shè)置圖形為二維柱型圖 ElseIf Option2(1) Then .ChartType = 14 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 請(qǐng)先生成圖表！ : Exit Sub If (1, 0) = Then MsgBox 請(qǐng)先統(tǒng)計(jì)出結(jié)果才能生成圖表！ : Exit Sub Exit Sub LookupError: MsgBox 統(tǒng)計(jì)結(jié)果為空，不能生成圖表！ 30 本文在對(duì) 彩票銷量管理系統(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)的實(shí)現(xiàn)能有效 快速地獲得需求銷量數(shù)據(jù) ，提高 了數(shù)據(jù)分析 效 率 。 由于受自身需求調(diào)研的條件和軟件開(kāi)發(fā)經(jīng)驗(yàn)等多方面影響， 彩票銷量管理系統(tǒng) 還存在一些不足之處。 31 致謝 本論文的順利完成，首先要感謝的是我的指導(dǎo)老師，在他的悉心指導(dǎo)下我才能完成本論文。在此，向他們表示衷心的感謝。 同時(shí)，我非常感謝我的父母和妹妹，他們的鼓勵(lì)和支持是我不斷努力、不斷追求的動(dòng)力和源泉