notclass.frm

一套35选7黄河风采（兰州福利彩票）完整版。有分析、选号、筛号功能

      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   1320
      TabIndex        =   14
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   1800
      TabIndex        =   13
      Top             =   2520
      Width           =   375
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   2190
      TabIndex        =   12
      Top             =   2520
      Width           =   375
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   2640
      TabIndex        =   11
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3120
      TabIndex        =   10
      Top             =   2520
      Width           =   615
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3720
      TabIndex        =   9
      Top             =   2520
      Width           =   615
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   4320
      TabIndex        =   8
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   4920
      TabIndex        =   7
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   5400
      TabIndex        =   6
      Top             =   2520
      Width           =   615
   End
   Begin VB.Label Label12 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   6000
      TabIndex        =   5
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label13 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6600
      TabIndex        =   4
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label14 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7080
      TabIndex        =   3
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label15 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7680
      TabIndex        =   2
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label16 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8280
      TabIndex        =   1
      Top             =   2520
      Width           =   975
   End
End
Attribute VB_Name = "notclass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim ji As Integer
Dim da As Integer
Dim quyi As Integer
Dim quer As Integer
Dim qusan As Integer
Dim qusi As Integer
Dim yulin As Integer
Dim yuyi As Integer
Dim yuer As Integer
Dim erlian As Integer
Dim sanlian As Integer
Dim silian As Integer
Dim shzi As String
Dim zhong As String
Dim shongzi As String

Dim tjihe As Integer
Dim touhe As Integer
Dim tdahe As Integer
Dim txiaohe As Integer
Dim tyihe As Integer
Dim terhe As Integer
Dim tsanhe As Integer
Dim tsihe As Integer
Dim tyulinhe As Integer
Dim tyuyihe As Integer
Dim tyuerhe As Integer
Dim terlianhe As Integer
Dim tsanlianhe As Integer
Dim tsilianhe As Integer

Dim tlianhl As Integer

Private Sub CandyCommand1_Click()
'数据生成
ji = 0
da = 0
quyi = 0
quer = 0
qusan = 0
qusi = 0
yulin = 0
yuyi = 0
yuer = 0
erlian = 0
sanlian = 0
silian = 0
Dim mssage As Integer
mssage = MsgBox("此操作将洗掉原来的数据，重新建立数据。" + Chr(13) + "如以前数据无误，建议使用快速生成操作，继续此操作吗？", vbYesNo, "提示")
If mssage = vbYes Then
frmSplashtemp.Show
Screen.MousePointer = 11
DoEvents
  If Adodc2.Recordset.RecordCount <> 0 Then
    Adodc2.Recordset.MoveFirst
    Do While Not Adodc2.Recordset.EOF
      Adodc2.Recordset.Delete adAffectCurrent
      Adodc2.Recordset.Update
'      Adodc2.Recordset.Resync adAffectCurrent, adResyncAllValues
      Adodc2.Recordset.MoveNext
    Loop
    Adodc2.Refresh
  End If
  
  class1.Adodc3.Recordset.MoveFirst
  Do While Not class1.Adodc3.Recordset.EOF
    class1.Adodc3.Recordset.Fields(3).Value = ""
    class1.Adodc3.Recordset.Fields(4).Value = ""
    class1.Adodc3.Recordset.Fields(7).Value = 0
    class1.Adodc3.Recordset.Fields(8).Value = 0
    class1.Adodc3.Recordset.Update
    class1.Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
    class1.Adodc3.Recordset.MoveNext
  Loop
  class1.Adodc3.Refresh
  
  
  class1.Adodc4.Recordset.MoveFirst
  Do While Not class1.Adodc4.Recordset.EOF
    class1.Adodc4.Recordset.Fields(5).Value = ""
    class1.Adodc4.Recordset.Fields(6).Value = ""
    class1.Adodc4.Recordset.Fields(7).Value = ""
    class1.Adodc4.Recordset.Fields(8).Value = ""
    class1.Adodc4.Recordset.Fields(10).Value = 0
    class1.Adodc4.Recordset.Update
    class1.Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
    class1.Adodc4.Recordset.MoveNext
  Loop
  class1.Adodc4.Refresh
  
  
  class1.Adodc5.Recordset.MoveFirst
  Do While Not class1.Adodc5.Recordset.EOF
    class1.Adodc5.Recordset.Fields(5).Value = ""
    class1.Adodc5.Recordset.Fields(6).Value = ""
    class1.Adodc5.Recordset.Fields(4).Value = ""
    class1.Adodc5.Recordset.Fields(8).Value = 0
    class1.Adodc5.Recordset.Update
    class1.Adodc5.Recordset.Resync adAffectCurrent, adResyncAllValues
    class1.Adodc5.Recordset.MoveNext
  Loop
  class1.Adodc5.Refresh
  
  
    Dim i As Integer
    class1.Adodc1.Recordset.MoveFirst
    Do While Not class1.Adodc1.Recordset.EOF
      zhong = class1.Adodc1.Recordset.Fields(1).Value
      
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields(0).Value = class1.Adodc1.Recordset.Fields(0).Value
    
      For i = 1 To 7
        If Val(class1.Adodc1.Recordset.Fields(i).Value) Mod 2 <> 0 Then
        ji = ji + 1
        End If
        If Val(class1.Adodc1.Recordset.Fields(i).Value) >= 17 Then
        da = da + 1
        End If
        If Val(class1.Adodc1.Recordset.Fields(i).Value) <= 8 Then
        quyi = quyi + 1
        End If
        If Val(class1.Adodc1.Recordset.Fields(i).Value) > 8 And Val(class1.Adodc1.Recordset.Fields(i).Value) <= 16 Then
        quer = quer + 1
        End If
        If Val(class1.Adodc1.Recordset.Fields(i).Value) > 16 And Val(class1.Adodc1.Recordset.Fields(i).Value) <= 24 Then
        qusan = qusan + 1
        End If
        If Val(class1.Adodc1.Recordset.Fields(i).Value) > 24 And Val(class1.Adodc1.Recordset.Fields(i).Value) <= 32 Then
        qusi = qusi + 1
        End If
        If Val(class1.Adodc1.Recordset.Fields(i).Value) Mod 3 = 0 Then
        yulin = yulin + 1
        End If
        If Val(class1.Adodc1.Recordset.Fields(i).Value) Mod 3 = 1 Then
        yuyi = yuyi + 1
        End If
        If Val(class1.Adodc1.Recordset.Fields(i).Value) Mod 3 = 2 Then
        yuer = yuer + 1
        End If
        If Val(class1.Adodc1.Recordset.Fields(i).Value) - Val(zhong) = 1 Then
         shzi = shzi + Trim(zhong) + Trim(class1.Adodc1.Recordset.Fields(i).Value)
         zhong = class1.Adodc1.Recordset.Fields(i).Value
        Else
         zhong = class1.Adodc1.Recordset.Fields(i).Value
        End If
       Next i
       
       Adodc2.Recordset.Fields(1).Value = ji
       
        class1.Adodc3.Recordset.MoveFirst
          Do While Not class1.Adodc3.Recordset.EOF
            If ji = class1.Adodc3.Recordset.Fields(3).Value Then
               class1.Adodc3.Recordset.Fields(7).Value = class1.Adodc3.Recordset.Fields(7).Value + 1
               class1.Adodc3.Recordset.Update
'               class1.Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
               Exit Do
            Else
               If class1.Adodc3.Recordset.Fields(3).Value = "" And class1.Adodc3.Recordset.Fields(4).Value = "" Then
                  class1.Adodc3.Recordset.Fields(3).Value = ji
                  class1.Adodc3.Recordset.Fields(4).Value = 7 - ji
                  class1.Adodc3.Recordset.Fields(7).Value = 1
                  class1.Adodc3.Recordset.Update
'                  class1.Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
                  Exit Do
                Else
                  class1.Adodc3.Recordset.MoveNext
                End If
            End If
          Loop
          If class1.Adodc3.Recordset.EOF Then
            class1.Adodc3.Recordset.AddNew
            class1.Adodc3.Recordset.Fields(3).Value = ji
            class1.Adodc3.Recordset.Fields(4).Value = 7 - ji
            class1.Adodc3.Recordset.Fields(7).Value = 1
            class1.Adodc3.Recordset.Update
'            class1.Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
          End If
          class1.Adodc3.Recordset.Resync
          class1.Adodc3.Refresh
       
       Adodc2.Recordset.Fields(2).Value = 7 - ji
       Adodc2.Recordset.Fields(3).Value = da
       
       class1.Adodc3.Recordset.MoveFirst
          Do While Not class1.Adodc3.Recordset.EOF
            If da = class1.Adodc3.Recordset.Fields(3).Value Then
               class1.Adodc3.Recordset.Fields(8).Value = class1.Adodc3.Recordset.Fields(8).Value + 1
               class1.Adodc3.Recordset.Update