class1.frm

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

'            Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
          End If
          Adodc3.Recordset.Resync
          Adodc3.Refresh
              
       Adodc2.Recordset.Fields(4).Value = 8 - da
       Adodc2.Recordset.Fields(5).Value = quyi
       Adodc2.Recordset.Fields(6).Value = quer
       Adodc2.Recordset.Fields(7).Value = qusan
       Adodc2.Recordset.Fields(8).Value = qusi
       
       If Adodc4.Recordset.RecordCount = 0 Then
          Adodc4.Recordset.AddNew
          Adodc4.Recordset.Fields(1).Value = quyi
          Adodc4.Recordset.Fields(2).Value = quer
          Adodc4.Recordset.Fields(3).Value = qusan
          Adodc4.Recordset.Fields(4).Value = qusi
          Adodc4.Recordset.Fields(9).Value = 1
          Adodc4.Recordset.Update
'          Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
         Else
          Adodc4.Recordset.MoveFirst
          Do While Not Adodc4.Recordset.EOF
            If quyi = Adodc4.Recordset.Fields(1).Value And quer = Adodc4.Recordset.Fields(2).Value _
            And qusan = Adodc4.Recordset.Fields(3).Value And qusi = Adodc4.Recordset.Fields(4).Value Then
               Adodc4.Recordset.Fields(9).Value = Adodc4.Recordset.Fields(9).Value + 1
               Adodc4.Recordset.Update
'               Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
               Exit Do
            Else
               Adodc4.Recordset.MoveNext
            End If
          Loop
          If Adodc4.Recordset.EOF Then
            Adodc4.Recordset.AddNew
            Adodc4.Recordset.Fields(1).Value = quyi
            Adodc4.Recordset.Fields(2).Value = quer
            Adodc4.Recordset.Fields(3).Value = qusan
            Adodc4.Recordset.Fields(4).Value = qusi
            Adodc4.Recordset.Fields(9).Value = 1
            Adodc4.Recordset.Update
'            Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
          End If
          Adodc4.Recordset.Resync
          Adodc4.Refresh
        End If
        
       Adodc2.Recordset.Fields(9).Value = yulin
       Adodc2.Recordset.Fields(10).Value = yuyi
       Adodc2.Recordset.Fields(11).Value = yuer
       
       If Adodc5.Recordset.RecordCount = 0 Then
          Adodc5.Recordset.AddNew
          Adodc5.Recordset.Fields(1).Value = yulin
          Adodc5.Recordset.Fields(2).Value = yuyi
          Adodc5.Recordset.Fields(3).Value = yuer
          Adodc5.Recordset.Fields(7).Value = 1
          Adodc5.Recordset.Update
'          Adodc5.Recordset.Resync adAffectCurrent, adResyncAllValues
         Else
          Adodc5.Recordset.MoveFirst
          Do While Not Adodc5.Recordset.EOF
            If yulin = Adodc5.Recordset.Fields(1).Value And yuyi = Adodc5.Recordset.Fields(2).Value _
            And yuer = Adodc5.Recordset.Fields(3).Value Then
               Adodc5.Recordset.Fields(7).Value = Adodc5.Recordset.Fields(7).Value + 1
               Adodc5.Recordset.Update
'               Adodc5.Recordset.Resync adAffectCurrent, adResyncAllValues
               Exit Do
            Else
               Adodc5.Recordset.MoveNext
            End If
          Loop
          If Adodc5.Recordset.EOF Then
            Adodc5.Recordset.AddNew
            Adodc5.Recordset.Fields(1).Value = yulin
            Adodc5.Recordset.Fields(2).Value = yuyi
            Adodc5.Recordset.Fields(3).Value = yuer
            Adodc5.Recordset.Fields(7).Value = 1
            Adodc5.Recordset.Update
'            Adodc5.Recordset.Resync adAffectCurrent, adResyncAllValues
          End If
          Adodc5.Recordset.Resync
          Adodc5.Refresh
        End If
       
       Dim k As Integer
       If Len(shzi) > 4 Then
        shongzi = Left(shzi, 2)
        For k = 3 To Len(shzi) - 1 Step 2
          If Val(Mid(shzi, k, 2)) - Val(Mid(shzi, k - 2, 2)) <> 0 Then
            shongzi = shongzi + Mid(shzi, k, 2)
          End If
        Next k
       
       Else
        shongzi = shzi
       
       End If
       
       If Len(shongzi) = 4 Then
       Adodc2.Recordset.Fields(12).Value = 1
       Adodc2.Recordset.Fields(15).Value = shongzi
       End If
       
       If Len(shongzi) = 6 Then
       Adodc2.Recordset.Fields(13).Value = 1
       Adodc2.Recordset.Fields(15).Value = shongzi
       End If
       
       If Len(shongzi) = 8 Then
         If Val(Mid(shongzi, 5, 2)) - Val(Mid(shongzi, 3, 2)) = 1 Then
           Adodc2.Recordset.Fields(14).Value = 1
           Adodc2.Recordset.Fields(15).Value = shongzi
         Else
           Adodc2.Recordset.Fields(12).Value = 2
           Adodc2.Recordset.Fields(15).Value = shongzi
         End If
       End If
       
       If Len(shongzi) = 10 Then
         Adodc2.Recordset.Fields(12).Value = 1
         Adodc2.Recordset.Fields(13).Value = 1
         Adodc2.Recordset.Fields(15).Value = shongzi
       End If
       
       If Len(shongzi) = 12 Then
         If Val(Mid(shongzi, 5, 2)) - Val(Mid(shongzi, 3, 2)) <> 1 And Val(Mid(shongzi, 9, 2)) - Val(Mid(shongzi, 7, 2)) <> 1 Then
           Adodc2.Recordset.Fields(12).Value = 3
           Adodc2.Recordset.Fields(15).Value = shongzi
         End If
         If Val(Mid(shongzi, 7, 2)) - Val(Mid(shongzi, 5, 2)) <> 1 Then
           Adodc2.Recordset.Fields(13).Value = 2
           Adodc2.Recordset.Fields(15).Value = shongzi
         End If
         If Val(Mid(shongzi, 5, 2)) - Val(Mid(shongzi, 3, 2)) <> 1 And Val(Mid(shongzi, 9, 2)) - Val(Mid(shongzi, 7, 2)) = 1 Then
           Adodc2.Recordset.Fields(12) = 1
           Adodc2.Recordset.Fields(14) = 1
           Adodc2.Recordset.Fields(15).Value = shongzi
         End If
         If Val(Mid(shongzi, 9, 2)) - Val(Mid(shongzi, 7, 2)) <> 1 And Val(Mid(shongzi, 5, 2)) - Val(Mid(shongzi, 3, 2)) = 1 Then
           Adodc2.Recordset.Fields(12) = 1
           Adodc2.Recordset.Fields(14) = 1
           Adodc2.Recordset.Fields(15).Value = shongzi
         End If
         If Val(Mid(shongzi, 5, 2)) - Val(Mid(shongzi, 3, 2)) = 1 And Val(Mid(shongzi, 9, 2)) - Val(Mid(shongzi, 7, 2)) = 1 Then
           Adodc2.Recordset.Fields(13).Value = 2
           Adodc2.Recordset.Fields(15).Value = shongzi
         End If
       End If
       
      Adodc2.Recordset.Update
      Adodc2.Recordset.Resync adAffectCurrent, adResyncAllValues
      Adodc1.Recordset.MoveNext
      
    ji = 0
    da = 0
    quyi = 0
    quer = 0
    qusan = 0
    qusi = 0
    yulin = 0
    yuyi = 0
    yuer = 0
    erlian = 0
    sanlian = 0
    silian = 0
    shzi = ""
    shongzi = ""
    
'    iii = iii + 1
'    ccrppb.Value = iii
    Loop
'    ccrppb.Visible = False
    
    Adodc2.Refresh
    MSHFlexGrid1.Refresh
    MSHFlexGrid1.Col = 1
    MSHFlexGrid1.Sort = 5
    
    CandyCommand1.Enabled = False
    CandyCommand2.Enabled = False
    
Unload frmSplashtemp
Screen.MousePointer = 0
Else
CandyCommand1.Enabled = False
CandyCommand4.Enabled = False

End If

End Sub


Private Sub CandyCommand10_Click()
'无特分析
Load notclass
notclass.Show
End Sub

Private Sub CandyCommand2_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
MsgBox "此操作只对最近输入的一期进行处理，如此前输入了多期，则必须使用<数据生成>按钮重新生成数据。", vbOKOnly, "提示"
Dim topqu1 As String
Dim topqu2 As String
Adodc1.Recordset.MoveFirst
topqu1 = Adodc1.Recordset.Fields(0).Value
Do While Not Adodc1.Recordset.EOF
  If Val(Adodc1.Recordset.Fields(0).Value) > Val(topqu1) Then
    topqu1 = Adodc1.Recordset.Fields(0).Value
  End If
Adodc1.Recordset.MoveNext
Loop


Adodc2.Recordset.MoveFirst
topqu2 = Adodc2.Recordset.Fields(0).Value
Do While Not Adodc2.Recordset.EOF
  If Val(Adodc2.Recordset.Fields(0).Value) > Val(topqu2) Then
    topqu2 = Adodc2.Recordset.Fields(0).Value
  End If
Adodc2.Recordset.MoveNext
Loop
Adodc1.Recordset.MoveFirst
If topqu1 > topqu2 Then
Adodc1.Recordset.Find "期数='" & topqu1 & "'", , adSearchForward, 1
 
    
      zhong = Adodc1.Recordset.Fields(1).Value
      
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields(0).Value = Adodc1.Recordset.Fields(0).Value
      
    Dim i As Integer
     
      For i = 1 To 8
        If Val(Adodc1.Recordset.Fields(i).Value) Mod 2 <> 0 Then
        ji = ji + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) >= 17 Then
        da = da + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) <= 8 Then
        quyi = quyi + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) > 8 And Val(Adodc1.Recordset.Fields(i).Value) <= 16 Then
        quer = quer + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) > 16 And Val(Adodc1.Recordset.Fields(i).Value) <= 24 Then
        qusan = qusan + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) > 24 And Val(Adodc1.Recordset.Fields(i).Value) <= 32 Then
        qusi = qusi + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) Mod 3 = 0 Then
        yulin = yulin + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) Mod 3 = 1 Then
        yuyi = yuyi + 1
        End If
        If Val(Adodc1.Recordset.Fields(i).Value) Mod 3 = 2 Then
        yuer = yuer + 1
        End If
        If i <= 7 Then
          If Val(Adodc1.Recordset.Fields(i).Value) - Val(zhong) = 1 Then
           shzi = shzi + Trim(zhong) + Trim(Adodc1.Recordset.Fields(i).Value)
           zhong = Adodc1.Recordset.Fields(i).Value
          Else
           zhong = Adodc1.Recordset.Fields(i).Value
          End If
        End If
       Next i
       
       Adodc2.Recordset.Fields(1).Value = ji
       
       Adodc3.Recordset.MoveFirst
          Do While Not Adodc3.Recordset.EOF
            If ji = Adodc3.Recordset.Fields(1).Value Then
               Adodc3.Recordset.Fields(5).Value = Adodc3.Recordset.Fields(5).Value + 1
               Adodc3.Recordset.Update
               Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
               Exit Do
            Else
               Adodc3.Recordset.MoveNext
            End If
          Loop
          If Adodc3.Recordset.EOF Then
            Adodc3.Recordset.AddNew
            Adodc3.Recordset.Fields(1).Value = ji
            Adodc3.Recordset.Fields(2).Value = 8 - ji
            Adodc3.Recordset.Fields(5).Value = 1
            Adodc3.Recordset.Update
            Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
          End If
          Adodc3.Refresh
       
       Adodc2.Recordset.Fields(2).Value = 8 - ji
       Adodc2.Recordset.Fields(3).Value = da
       
       Adodc3.Recordset.MoveFirst
          Do While Not Adodc3.Recordset.EOF
            If da = Adodc3.Recordset.Fields(1).Value Then
               Adodc3.Recordset.Fields(6).Value = Adodc3.Recordset.Fields(6).Value + 1
               Adodc3.Recordset.Update
               Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
               Exit Do
            Else
               Adodc3.Recordset.MoveNext
            End If
          Loop
          If Adodc3.Recordset.EOF Then
            Adodc3.Recordset.AddNew
            Adodc3.Recordset.Fields(1).Value = da
            Adodc3.Recordset.Fields(2).Value = 8 - da
            Adodc3.Recordset.Fields(6).Value = 1
            Adodc3.Recordset.Update
            Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
          End If
          Adodc3.Refresh
       
       Adodc2.Recordset.Fields(4).Value = 8 - da
       Adodc2.Recordset.Fields(5).Value = quyi
       Adodc2.Recordset.Fields(6).Value = quer
       Adodc2.Recordset.Fields(7).Value = qusan
       Adodc2.Recordset.Fields(8).Value = qusi
       
       Adodc4.Recordset.MoveFirst
          Do While Not Adodc4.Recordset.EOF
            If quyi = Adodc4.Recordset.Fields(1).Value And quer = Adodc4.Recordset.Fields(2).Value _
            And qusan = Adodc4.Recordset.Fields(3).Value And qusi = Adodc4.Recordset.Fields(4).Value Then
               Adodc4.Recordset.Fields(9).Value = Adodc4.Recordset.Fields(9).Value + 1
               Adodc4.Recordset.Update
               Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
               Exit Do
            Else
               Adodc4.Recordset.MoveNext
            End If
          Loop
          If Adodc4.Recordset.EOF Then
            Adodc4.Recordset.AddNew
            Adodc4.Recordset.Fields(1).Value = quyi
            Adodc4.Recordset.Fields(2).Value = quer
            Adodc4.Recordset.Fields(3).Value = qusan
            Adodc4.Recordset.Fields(4).Value = qusi
            Adodc4.Recordset.Fields(9).Value = 1
            Adodc4.Recordset.Update
            Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
          End If
          Adodc4.Refresh
       
       Adodc2.Recordset.Fields(9).Value = yulin
       Adodc2.Recordset.Fields(10).Value = yuyi
       Adodc2.Recordset.Fields(11).Value = yuer
       
       Adodc5.Recordset.MoveFirst
          Do While Not Adodc5.Recordset.EOF
            If yulin = Adodc5.Recordset.Fields(1).Value And yuyi = Adodc5.Recordset.Fields(2).Value _