【文章內(nèi)容簡(jiǎn)介】 自動(dòng)編號(hào) 玩法編號(hào) （主鍵） 玩法 名稱(chēng) 文本 玩法名稱(chēng) 類(lèi)型編號(hào) 數(shù)字 所屬類(lèi)型編號(hào) 結(jié)束日期 日期 /時(shí)間 該玩法結(jié)束日期 是否結(jié)束 是 /否 該玩法是否結(jié)束 (5) 銷(xiāo)量 表 (salestemp) 銷(xiāo)量表用于存儲(chǔ)所有惠州市體育彩票的銷(xiāo)售量，銷(xiāo)量表的結(jié)構(gòu)設(shè)計(jì)如表 所示 表 銷(xiāo)量表 字段 名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 序號(hào) 數(shù)字 主鍵 銷(xiāo)售日期 日期 /時(shí)間 網(wǎng)點(diǎn) 文本 排 3 數(shù)字 排 5 數(shù)字 七星 數(shù)字 36選 7 數(shù)字 勝負(fù) 數(shù)字 任選 9 數(shù)字 6場(chǎng)半 數(shù)字 4場(chǎng) 數(shù)字 22選 5 數(shù)字 單勝平負(fù) 數(shù)字 單上下盤(pán) 數(shù)字 單場(chǎng)比分 數(shù)字 單半全場(chǎng) 數(shù)字 單進(jìn)球數(shù) 數(shù)字 9 續(xù)前表 表 銷(xiāo)量表 快中彩 數(shù)字 11選 5 數(shù)字 下半場(chǎng)比分 數(shù)字 大樂(lè)透 數(shù)字 幸運(yùn)彩 數(shù)字 競(jìng)彩 數(shù)字 (6) 字段類(lèi)型表 (fieldtype) 字段類(lèi)型表用于存儲(chǔ)網(wǎng)點(diǎn)表的字段類(lèi)型，方便代碼引用及判斷，字段類(lèi)型表的結(jié)構(gòu)設(shè)計(jì)如表 所示 表 字段類(lèi)型 表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 類(lèi)型編號(hào) 文本 主鍵 類(lèi)型名稱(chēng) 文本 (7) 網(wǎng)點(diǎn)字段表 (nodefield) 網(wǎng)點(diǎn)字段表用于存儲(chǔ)網(wǎng)點(diǎn)表的字段，網(wǎng)點(diǎn)字段表的結(jié)構(gòu)設(shè)計(jì)如表 所示 表 網(wǎng)點(diǎn)字段 表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 字段編號(hào) 自動(dòng)編號(hào) 主鍵 字段名 文本 類(lèi)型編號(hào) 文本 綜合以上各個(gè)數(shù)據(jù)表，本系統(tǒng)的整個(gè)數(shù)據(jù)庫(kù)設(shè)計(jì)關(guān)系圖如圖 31 所示。其中數(shù)據(jù)對(duì)象的主要關(guān)系說(shuō)明： (1) 玩法類(lèi)型表（ playtype） 的類(lèi)型編號(hào)字段 和 玩法表（ playrule）的 類(lèi)型編號(hào)字段聯(lián)系 ，使得 playtype 與 playrule 之間有一對(duì)多的關(guān)系 。 10 (2)字段類(lèi)型表 (fieldtype)的 類(lèi)型編號(hào)字段 和網(wǎng)點(diǎn)字段表 (nodefield) 的 類(lèi)型編號(hào)字段聯(lián)系 ， 使得 它們 之間有一對(duì)多的關(guān)系 。 (3)網(wǎng)點(diǎn)表 (nodetemp) 的網(wǎng)點(diǎn)編號(hào)字段和銷(xiāo)量表 (salestemp)的網(wǎng)點(diǎn)字段 聯(lián)系 ， 使得 它們 之間有 多 對(duì)多的關(guān)系 。網(wǎng)點(diǎn)表和銷(xiāo)量表 是系統(tǒng) 的 核心部分 。 所以存在 網(wǎng)點(diǎn)表和銷(xiāo)量 表一旦被刪除，則會(huì) 導(dǎo)致系統(tǒng)沒(méi)有數(shù)據(jù)被查詢(xún)和統(tǒng)計(jì)，為 了數(shù)據(jù)的安全，特別在管理員模塊增加系統(tǒng)的備份與恢復(fù)功能 。 圖 415 系統(tǒng)數(shù)據(jù)庫(kù)關(guān)系圖 11 的實(shí)現(xiàn) “ 登錄模塊 ” 和“主窗體模塊”的 詳細(xì)設(shè)計(jì) 實(shí)現(xiàn) 登錄模塊的詳細(xì)設(shè)計(jì)主要是用戶(hù)登錄的一個(gè)界面，判斷登錄的用戶(hù)是管理員還是普通用戶(hù)，進(jìn)入后將面對(duì)的是主界面，從而進(jìn)行相關(guān)的操作。 登錄的界面主要由用戶(hù)名和密碼的信息，還有一些標(biāo)題設(shè)置，確定和取消的按鈕組成。通過(guò)標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計(jì)完成。 如圖 41 所示。 其具體實(shí)現(xiàn)代碼如下： Private Sub Command1_Click() myname = Dim fd As Dim str As String str = Provider=。Data Source= amp。 amp。 \。 amp。 Persist Security Info=False Dim strsql As String strsql = _ select * from users where 用戶(hù)名 =39。 amp。 usertxt amp。 39。 and 用戶(hù)密碼 =39。 amp。 psdtxt amp。 39。 Call LinkDatabase(n, rst, strsql) If Then MsgBox 對(duì)不起 ,無(wú)此用戶(hù)或者密碼不正確！請(qǐng)重新輸入！ , vbCritical, 錯(cuò)誤 = = Else Set fd = (用 戶(hù)角色 ) If fd = 管理員 Then Unload Me 12 Else Unload Me End If End If If = adStateOpen Then If = adStateOpen Then End Sub 圖 41登錄界面 在這個(gè)項(xiàng)目中，選擇使用多文檔界面。使用這個(gè)窗體的好處是可以使程序更加有條理。對(duì)于一個(gè)多任務(wù)的應(yīng)用程序，使用多文檔窗體還可以減少占用的系統(tǒng)資源。 主窗體設(shè)計(jì)的界面是用菜單編輯器做的，主要 分兩種界面。一種是管理員界面， 由系統(tǒng) 管理 、 銷(xiāo)量管理 、 查詢(xún)統(tǒng)計(jì) 和 系統(tǒng)維護(hù) 這四個(gè)大模塊組成 （如圖 42） 。 另一種是用戶(hù)界面， 由 查詢(xún) 、 統(tǒng)計(jì) 、 修改信息 和 備份 這四個(gè)大模塊組成 （如圖 43） 圖 42管理員界面 圖 43用戶(hù)界面 13 各 項(xiàng)子模塊詳細(xì)設(shè)計(jì) 的實(shí)現(xiàn) 系統(tǒng) 管理模塊 系統(tǒng)管理模塊是在管理員界面里的， 主要提供管理員進(jìn)行網(wǎng)點(diǎn)的資料錄入、玩法管理及用戶(hù)管理。現(xiàn)主要以網(wǎng)點(diǎn)管理模塊進(jìn)行描述 ，其實(shí)現(xiàn)界面如圖 44 所示 。 網(wǎng)點(diǎn)管理模塊里有幾個(gè)功能：刷新、維護(hù)數(shù)據(jù)、導(dǎo)入到新表、導(dǎo)入、維護(hù)字段等。其中： 維護(hù)數(shù)據(jù)：該功能是補(bǔ)充或者修改某一網(wǎng)點(diǎn)的資料。其實(shí)現(xiàn)界面如圖 45 所示。 導(dǎo)入： 將所有的體育彩票銷(xiāo)售網(wǎng)點(diǎn)的資料進(jìn)行批量導(dǎo)入到系統(tǒng)里。其實(shí)現(xiàn)界面如圖46 所示。 維護(hù)字段：可對(duì)字段名進(jìn)行添加或者刪除。其實(shí)現(xiàn)界面如圖 47 所示。 實(shí)現(xiàn)“ 網(wǎng)點(diǎn)管理 ”功能的 主要 代碼如下： Private Sub Form_Load() Dim strsql As String mysort = 7 39。 設(shè)置升序 39。getTableName 39。獲得數(shù)據(jù)庫(kù)的所有表名 strsql = select * from node order by 序號(hào) Call LinkDatabase(n, rst, strsql) 39。Set = rst = 20 + 1 = Text1 = 1 showgrid 1, 20 39。自動(dòng)調(diào)整最適合的列寬 Call AdjustColWidth(Me, MSHFlexGrid1) 39。設(shè)置最適合 MSHFlexGrid1 的寬度 39。Call AdjustWidth(MSHFlexGrid1) 39。按升序排序 14 = flexSortGenericAscending 39。調(diào)整 form 的寬度 39。 = + 500 Label1 = 共有 amp。 sum amp。 條記錄 amp。 vbCrLf amp。 vbCrLf amp。 現(xiàn)在是第 amp。 Text1 amp。 頁(yè)第 amp。 amp。 條記錄 39。If = adStateOpen Then 39。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 序號(hào) 1 End Sub 15 圖 45維護(hù)數(shù)據(jù) 實(shí)現(xiàn)“導(dǎo)入”功能的代碼如下： Private Sub Command5_Click() Dim i% i = MsgBox(開(kāi)始導(dǎo)入數(shù)據(jù)嗎？ , vbYesNo, 導(dǎo)入數(shù)據(jù) ) If i = 7 Then Exit Sub 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 銷(xiāo)量管理模塊 銷(xiāo)量 管理模塊是在管理員界面里的，主要提供管理員進(jìn)行 銷(xiāo)量導(dǎo)入、銷(xiāo)量清空 ?，F(xiàn)主要 以 銷(xiāo)量導(dǎo)入 模塊進(jìn)行描述，其實(shí)現(xiàn)界面如圖 48 所示 。 圖 48銷(xiāo)量導(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。sname 表示 excel 文件， tname 表示 access 表名 If Option2 Then 39。option2 為 true 表示要導(dǎo)入到舊表 39。判斷該日期是否已經(jīng)導(dǎo)入過(guò)了 Dim myr As Dim myc As Dim mys As String mys = Provider=。Jet OLEDB:Database password=。Data Source= amp。 amp。 \。 amp。 Persist Security Info=False Set myc = New Set myr = New = mys mys = select distinct 銷(xiāo)售日期 from amp。 Combo1 amp。 order by 銷(xiāo)售日期