彩票销量统计系统(编辑修改稿)

彩票销量统计系统(编辑修改稿)内容摘要：

自动编号 玩法编号 （主键） 玩法 名称 文本 玩法名称 类型编号 数字 所属类型编号 结束日期 日期 /时间 该玩法结束日期 是否结束 是 /否 该玩法是否结束 (5) 销量 表 (salestemp) 销量表用于存储所有惠州市体育彩票的销售量，销量表的结构设计如表 所示 表 销量表 字段 名称 数据类型 说明 序号 数字 主键 销售日期 日期 /时间 网点 文本 排 3 数字 排 5 数字 七星 数字 36选 7 数字 胜负 数字 任选 9 数字 6场半 数字 4场 数字 22选 5 数字 单胜平负 数字 单上下盘 数字 单场比分 数字 单半全场 数字 单进球数 数字 9 续前表 表 销量表 快中彩 数字 11选 5 数字 下半场比分 数字 大乐透 数字 幸运彩 数字 竞彩 数字 (6) 字段类型表 (fieldtype) 字段类型表用于存储网点表的字段类型，方便代码引用及判断，字段类型表的结构设计如表 所示 表 字段类型 表 字段名称 数据类型 说明 类型编号 文本 主键 类型名称 文本 (7) 网点字段表 (nodefield) 网点字段表用于存储网点表的字段，网点字段表的结构设计如表 所示 表 网点字段 表 字段名称 数据类型 说明 字段编号 自动编号 主键 字段名 文本 类型编号 文本 综合以上各个数据表，本系统的整个数据库设计关系图如图 31 所示。 其中数据对象的主要关系说明： (1) 玩法类型表（ playtype） 的类型编号字段 和 玩法表（ playrule）的 类型编号字段联系 ，使得 playtype 与 playrule 之间有一对多的关系。 10 (2)字段类型表 (fieldtype)的 类型编号字段 和网点字段表 (nodefield) 的 类型编号字段联系 ， 使得 它们 之间有一对多的关系。 (3)网点表 (nodetemp) 的网点编号字段和销量表 (salestemp)的网点字段 联系 ， 使得 它们 之间有 多 对多的关系。 网点表和销量表 是系统 的 核心部分。 所以存在 网点表和销量 表一旦被删除，则会 导致系统没有数据被查询和统计，为 了数据的安全，特别在管理员模块增加系统的备份与恢复功能。 图 415 系统数据库关系图 11 的实现 “ 登录模块 ” 和“主窗体模块”的 详细设计 实现 登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。 登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。 通过标题可以知道此系统的大概内容，由此，登录界面的设计完成。 如图 41 所示。 其具体实现代码如下： 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 用户名 =39。 amp。 usertxt amp。 39。 and 用户密码 =39。 amp。 psdtxt amp。 39。 Call LinkDatabase(n, rst, strsql) If Then MsgBox 对不起 ,无此用户或者密码不正确。 请重新输入。 , vbCritical, 错误 = = Else Set fd = (用 户角色 ) If fd = 管理员 Then Unload Me 12 Else Unload Me End If End If If = adStateOpen Then If = adStateOpen Then End Sub 图 41登录界面 在这个项目中，选择使用多文档界面。 使用这个窗体的好处是可以使程序更加有条理。 对于一个多任务的应用程序，使用多文档窗体还可以减少占用的系统资源。 主窗体设计的界面是用菜单编辑器做的，主要 分两种界面。 一种是管理员界面， 由系统 管理 、 销量管理 、 查询统计 和 系统维护 这四个大模块组成 （如图 42）。 另一种是用户界面， 由 查询 、 统计 、 修改信息 和 备份 这四个大模块组成 （如图 43） 图 42管理员界面 图 43用户界面 13 各 项子模块详细设计 的实现 系统 管理模块 系统管理模块是在管理员界面里的， 主要提供管理员进行网点的资料录入、玩法管理及用户管理。 现主要以网点管理模块进行描述 ，其实现界面如图 44 所示。 网点管理模块里有几个功能：刷新、维护数据、导入到新表、导入、维护字段等。 其中： 维护数据：该功能是补充或者修改某一网点的资料。 其实现界面如图 45 所示。 导入： 将所有的体育彩票销售网点的资料进行批量导入到系统里。 其实现界面如图46 所示。 维护字段：可对字段名进行添加或者删除。 其实现界面如图 47 所示。 实现“ 网点管理 ”功能的 主要 代码如下： Private Sub Form_Load() Dim strsql As String mysort = 7 39。 设置升序 39。 getTableName 39。 获得数据库的所有表名 strsql = select * from node order by 序号 Call LinkDatabase(n, rst, strsql) 39。 Set = rst = 20 + 1 = Text1 = 1 showgrid 1, 20 39。 自动调整最适合的列宽 Call AdjustColWidth(Me, MSHFlexGrid1) 39。 设置最适合 MSHFlexGrid1 的宽度 39。 Call AdjustWidth(MSHFlexGrid1) 39。 按升序排序 14 = flexSortGenericAscending 39。 调整 form 的宽度 39。 = + 500 Label1 = 共有 amp。 sum amp。 条记录 amp。 vbCrLf amp。 vbCrLf amp。 现在是第 amp。 Text1 amp。 页第 amp。 amp。 条记录 39。 If = adStateOpen Then 39。 If = adStateOpen Then End Sub 图 44网点管理 实现“维护数据”功能的代码如下： 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维护数据 实现“导入”功能的代码如下： Private Sub Command5_Click() Dim i% i = MsgBox(开始导入数据吗。 , vbYesNo, 导入数据 ) If i = 7 Then Exit Sub 39。 将 excel 表数据追加到 ACCESS 表 If Then Call ExportExcelSheetToAccess2(sheet1, , node, + \) End If End Sub 图 46导入 16 图 47维护字段 实现“维护字段”功能的代码如下： Private Sub Command3_Click() Unload Me tablename = node End Sub 销量管理模块 销量 管理模块是在管理员界面里的，主要提供管理员进行 销量导入、销量清空。 现主要 以 销量导入 模块进行描述，其实现界面如图 48 所示。 图 48销量导入 17 实现“导入”功能的 部分 代码如下： Private Sub Command2_Click() On Error GoTo Err_Command2_Click Dim i% If Text1 = Then MsgBox 请输入或选择导入的文件 !: Exit Sub Dim sname As String, tname As String 39。 sname 表示 excel 文件， tname 表示 access 表名 If Option2 Then 39。 option2 为 true 表示要导入到旧表 39。 判断该日期是否已经导入过了 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 销售日期 from amp。 Combo1 amp。 order by 销售日期。