📄 frmmain.frm
字号:
BackColor = &H00C0E0FF&
Caption = "2"
Height = 255
Index = 9
Left = 3840
TabIndex = 55
Top = 3720
Width = 1455
End
Begin VB.Label lblZhu
BackColor = &H00C0E0FF&
Caption = "1"
Height = 255
Index = 9
Left = 120
TabIndex = 54
Top = 3720
Width = 1455
End
Begin VB.Label lblKe
BackColor = &H00C0E0FF&
Caption = "2"
Height = 255
Index = 8
Left = 3840
TabIndex = 50
Top = 3360
Width = 1455
End
Begin VB.Label lblZhu
BackColor = &H00C0E0FF&
Caption = "1"
Height = 255
Index = 8
Left = 120
TabIndex = 49
Top = 3360
Width = 1455
End
Begin VB.Label lblKe
BackColor = &H00C0E0FF&
Caption = "2"
Height = 255
Index = 7
Left = 3840
TabIndex = 45
Top = 3000
Width = 1455
End
Begin VB.Label lblZhu
BackColor = &H00C0E0FF&
Caption = "1"
Height = 255
Index = 7
Left = 120
TabIndex = 44
Top = 3000
Width = 1455
End
Begin VB.Label lblKe
BackColor = &H00C0E0FF&
Caption = "2"
Height = 255
Index = 6
Left = 3840
TabIndex = 40
Top = 2640
Width = 1455
End
Begin VB.Label lblZhu
BackColor = &H00C0E0FF&
Caption = "1"
Height = 255
Index = 6
Left = 120
TabIndex = 39
Top = 2640
Width = 1455
End
Begin VB.Label lblKe
BackColor = &H00C0E0FF&
Caption = "2"
Height = 255
Index = 5
Left = 3840
TabIndex = 35
Top = 2280
Width = 1455
End
Begin VB.Label lblZhu
BackColor = &H00C0E0FF&
Caption = "1"
Height = 255
Index = 5
Left = 120
TabIndex = 34
Top = 2280
Width = 1455
End
Begin VB.Label lblKe
BackColor = &H00C0E0FF&
Caption = "2"
Height = 255
Index = 4
Left = 3840
TabIndex = 30
Top = 1920
Width = 1455
End
Begin VB.Label lblZhu
BackColor = &H00C0E0FF&
Caption = "1"
Height = 255
Index = 4
Left = 120
TabIndex = 29
Top = 1920
Width = 1455
End
Begin VB.Label lblKe
BackColor = &H00C0E0FF&
Caption = "2"
Height = 255
Index = 3
Left = 3840
TabIndex = 25
Top = 1560
Width = 1455
End
Begin VB.Label lblZhu
BackColor = &H00C0E0FF&
Caption = "1"
Height = 255
Index = 3
Left = 120
TabIndex = 24
Top = 1560
Width = 1455
End
Begin VB.Label lblKe
BackColor = &H00C0E0FF&
Caption = "2"
Height = 255
Index = 2
Left = 3840
TabIndex = 20
Top = 1200
Width = 1455
End
Begin VB.Label lblZhu
BackColor = &H00C0E0FF&
Caption = "1"
Height = 255
Index = 2
Left = 120
TabIndex = 19
Top = 1200
Width = 1455
End
Begin VB.Label lblKe
BackColor = &H00C0E0FF&
Caption = "2"
Height = 255
Index = 1
Left = 3840
TabIndex = 15
Top = 840
Width = 1455
End
Begin VB.Label lblZhu
BackColor = &H00C0E0FF&
Caption = "1"
Height = 255
Index = 1
Left = 120
TabIndex = 14
Top = 840
Width = 1455
End
Begin VB.Label Label5
BackColor = &H00008000&
Caption = " 主场球队 压胜 压平 压负 客场球队"
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 10
Top = 120
Width = 5175
End
Begin VB.Label lblKe
BackColor = &H00C0E0FF&
Caption = "2"
Height = 255
Index = 0
Left = 3840
TabIndex = 9
Top = 480
Width = 1455
End
Begin VB.Label lblZhu
BackColor = &H00C0E0FF&
Caption = "1"
Height = 255
Index = 0
Left = 120
TabIndex = 8
Top = 480
Width = 1455
End
End
Begin VB.TextBox txtGroupStart
Height = 375
Left = 11760
TabIndex = 3
Top = 5400
Width = 855
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid2
Height = 3495
Left = 5760
TabIndex = 1
Top = 6120
Width = 9255
_ExtentX = 16325
_ExtentY = 6165
_Version = 393216
FixedCols = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Height = 4575
Left = 5760
TabIndex = 0
Top = 720
Width = 9375
_ExtentX = 16536
_ExtentY = 8070
_Version = 393216
BackColor = -2147483628
ForeColor = -2147483646
FixedCols = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 240
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label Label11
Caption = "电话:(0)13012294679 (022)23538041"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 9840
TabIndex = 111
Top = 360
Width = 5175
End
Begin VB.Image Image2
Height = 495
Left = 3480
Picture = "frmMain.frx":0000
Stretch = -1 'True
Top = 120
Width = 5565
End
Begin VB.Label lblMsg
Caption = "作者王建峰，祝您中奖发财！"
BeginProperty Font
Name = "华文细黑"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 375
Left = 9960
TabIndex = 104
Top = 0
Width = 4095
End
Begin VB.Label Label2
Caption = "总注数"
Height = 255
Left = 9000
TabIndex = 74
Top = 5520
Width = 615
End
Begin VB.Image Image1
Height = 495
Left = 120
Picture = "frmMain.frx":24638
Stretch = -1 'True
Top = 120
Width = 3285
End
Begin VB.Label Label1
Caption = "过滤后组合数"
Height = 255
Left = 12840
TabIndex = 72
Top = 5520
Width = 1215
End
Begin VB.Label Label3
Caption = "总组合数"
Height = 255
Left = 10800
TabIndex = 2
Top = 5520
Width = 855
End
Begin VB.Menu File
Caption = "数据库操作"
Begin VB.Menu mnuOpen
Caption = "打开数据库"
End
Begin VB.Menu mnuCopy
Caption = "保存数据库"
End
Begin VB.Menu mnuSaveas
Caption = "数据库另存为..."
End
Begin VB.Menu mnuPrint
Caption = "打印文件"
End
Begin VB.Menu mnuImport
Caption = "导出文件"
End
Begin VB.Menu mnuExit
Caption = "退出"
End
End
Begin VB.Menu mnuQiudui
Caption = "球队名称"
End
Begin VB.Menu mnuZj
Caption = "中奖查询"
End
Begin VB.Menu mnuHelp
Caption = "帮助"
Begin VB.Menu mnuSoft
Caption = "软件升级"
End
Begin VB.Menu mnuAbout
Caption = "关于"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim NowDataBase As String
Dim rsFootBall As ADODB.Recordset
Dim rsGroup As ADODB.Recordset
Dim rsQiudui As ADODB.Recordset
Dim pGroup(6) As Integer
Dim totalG(13) As Integer
Dim theG(13, 6) As Integer
Dim ActiveList As String
Dim rsListAct As ADODB.Recordset
Dim ifOpen As Boolean
Private Sub cmbList_Click()
' Me.cmbList.AddItem "基本数据"
' Me.cmbList.AddItem "足彩310预测结果"
' Me.cmbList.AddItem "足彩310专家大结果"
' Me.cmbList.AddItem "足彩310专家小结果"
' Me.cmbList.AddItem "足彩大赢家预测结果"
' Me.cmbList.AddItem "足彩大赢家专家大结果"
' Me.cmbList.AddItem "足彩大赢家专家小结果"
' Me.cmbList.AddItem "冷门分析结果"
' Me.cmbList.AddItem "冷门推荐"
' Me.cmbList.AddItem "热门分析"
' Me.cmbList.AddItem "新报预测"
' Me.cmbList.AddItem "大注推荐"
' Me.cmbList.AddItem "初步结果"
' Me.cmbList.AddItem "会商结果1"
' Me.cmbList.AddItem "会商结果2"
' Me.cmbList.AddItem "会商结果3"
' Me.cmbList.AddItem "会商结果4"
' Me.cmbList.AddItem "会商冷门"
' Me.cmbList.AddItem "会商保留1"
' Me.cmbList.AddItem "会商保留2"
' Me.cmbList.AddItem "会商保留3"
' Me.cmbList.AddItem "会商保留4"
'Select Case cmbList.Text
' Case "基本数据"
' ActiveList = cmbList.Text
'
' Case "足彩310预测结果"
' ActiveList = cmbList.Text
' Case "组彩大赢家预测结果"
' ActiveList = cmbList.Text
'
' Case "冷门分析结果"
' ActiveList = cmbList.Text
'
' Case "冷门推荐"
'
' ActiveList = cmbList.Text
' Case "热门分析"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -