📄 notclass.frm

📁 一套35选7黄河风采（兰州福利彩票）完整版。有分析、选号、筛号功能
💻 FRM
📖 第 1 页 / 共 5 页
字号:
'               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 = da
                  class1.Adodc3.Recordset.Fields(4).Value = 7 - da
                  class1.Adodc3.Recordset.Fields(8).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 = da
            class1.Adodc3.Recordset.Fields(4).Value = 7 - da
            class1.Adodc3.Recordset.Fields(8).Value = 1
            class1.Adodc3.Recordset.Update
'            class1.Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
          End If
          class1.Adodc3.Recordset.Resync
          class1.Adodc3.Refresh
       
       Adodc2.Recordset.Fields(4).Value = 7 - 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
       
       
          class1.Adodc4.Recordset.MoveFirst
          Do While Not class1.Adodc4.Recordset.EOF
            If quyi = class1.Adodc4.Recordset.Fields(5).Value And quer = class1.Adodc4.Recordset.Fields(6).Value _
            And qusan = class1.Adodc4.Recordset.Fields(7).Value And qusi = class1.Adodc4.Recordset.Fields(8).Value Then
               class1.Adodc4.Recordset.Fields(10).Value = class1.Adodc4.Recordset.Fields(10).Value + 1
               class1.Adodc4.Recordset.Update
'               class1.Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
               Exit Do
            Else
               If class1.Adodc4.Recordset.Fields(5).Value = "" And class1.Adodc4.Recordset.Fields(6).Value = "" _
                  And class1.Adodc4.Recordset.Fields(7).Value = "" And class1.Adodc4.Recordset.Fields(8).Value = "" Then
                    class1.Adodc4.Recordset.Fields(5).Value = quyi
                    class1.Adodc4.Recordset.Fields(6).Value = quer
                    class1.Adodc4.Recordset.Fields(7).Value = qusan
                    class1.Adodc4.Recordset.Fields(8).Value = qusi
                    class1.Adodc4.Recordset.Fields(10).Value = 1
                    class1.Adodc4.Recordset.Update
'                    class1.Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
                     Exit Do
               Else
                  class1.Adodc4.Recordset.MoveNext
               End If
            End If
          Loop
          If class1.Adodc4.Recordset.EOF Then
            class1.Adodc4.Recordset.AddNew
            class1.Adodc4.Recordset.Fields(5).Value = quyi
            class1.Adodc4.Recordset.Fields(6).Value = quer
            class1.Adodc4.Recordset.Fields(7).Value = qusan
            class1.Adodc4.Recordset.Fields(8).Value = qusi
            class1.Adodc4.Recordset.Fields(10).Value = 1
            class1.Adodc4.Recordset.Update
'            class1.Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
          End If
          class1.Adodc4.Recordset.Resync
          class1.Adodc4.Refresh
       
       Adodc2.Recordset.Fields(9).Value = yulin
       Adodc2.Recordset.Fields(10).Value = yuyi
       Adodc2.Recordset.Fields(11).Value = yuer
       
       class1.Adodc5.Recordset.MoveFirst
          Do While Not class1.Adodc5.Recordset.EOF
            If yulin = class1.Adodc5.Recordset.Fields(4).Value And yuyi = class1.Adodc5.Recordset.Fields(5).Value _
            And yuer = class1.Adodc5.Recordset.Fields(6).Value Then
               class1.Adodc5.Recordset.Fields(8).Value = class1.Adodc5.Recordset.Fields(8).Value + 1
               class1.Adodc5.Recordset.Update
'               class1.Adodc5.Recordset.Resync adAffectCurrent, adResyncAllValues
               Exit Do
            Else
               If class1.Adodc5.Recordset.Fields(4).Value = "" And class1.Adodc5.Recordset.Fields(5).Value = "" _
                  And class1.Adodc5.Recordset.Fields(6).Value = "" Then
                  class1.Adodc5.Recordset.Fields(4).Value = yulin
                  class1.Adodc5.Recordset.Fields(5).Value = yuyi
                  class1.Adodc5.Recordset.Fields(6).Value = yuer
                  class1.Adodc5.Recordset.Fields(8).Value = 1
                  class1.Adodc5.Recordset.Update
'                  class1.Adodc5.Recordset.Resync adAffectCurrent, adResyncAllValues
                   Exit Do
                Else
                  class1.Adodc5.Recordset.MoveNext
                End If
            End If
          Loop
          If class1.Adodc5.Recordset.EOF Then
            class1.Adodc5.Recordset.AddNew
            class1.Adodc5.Recordset.Fields(4).Value = yulin
            class1.Adodc5.Recordset.Fields(5).Value = yuyi
            class1.Adodc5.Recordset.Fields(6).Value = yuer
            class1.Adodc5.Recordset.Fields(8).Value = 1
            class1.Adodc5.Recordset.Update
'            class1.Adodc5.Recordset.Resync adAffectCurrent, adResyncAllValues
          End If
          class1.Adodc5.Recordset.Resync
          class1.Adodc5.Refresh
       
       
       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
      class1.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 = ""
    Loop
       
    Adodc2.Refresh
    MSHFlexGrid1.Refresh
    MSHFlexGrid1.Col = 1
    MSHFlexGrid1.Sort = 5
    
    CandyCommand1.Enabled = False
    CandyCommand2.Enabled = False
    
hhfcevn.Commands("noclass1t").Execute
If hhfcevn.rsnoclass1t.State = adStateClosed Then
hhfcevn.rsnoclass1t.Open
End If
hhfcevn.rsnoclass1t.Requery

hhfcevn.Commands("noclass2").Execute
If hhfcevn.rsnoclass2.State = adStateClosed Then
hhfcevn.rsnoclass2.Open
End If
hhfcevn.rsnoclass2.Requery

hhfcevn.Commands("noclass3t").Execute
If hhfcevn.rsnoclass3t.State = adStateClosed Then
hhfcevn.rsnoclass3t.Open
End If
hhfcevn.rsnoclass3t.Requery

hhfcevn.Commands("noclass4").Execute
If hhfcevn.rsnoclass4.State = adStateClosed Then
hhfcevn.rsnoclass4.Open
End If
hhfcevn.rsnoclass4.Requery

hhfcevn.Commands("noclass5t").Execute
If hhfcevn.rsnoclass5t.State = adStateClosed Then
hhfcevn.rsnoclass5t.Open
End If
hhfcevn.rsnoclass5t.Requery

hhfcevn.Commands("noclass6").Execute
If hhfcevn.rsnoclass6.State = adStateClosed Then
hhfcevn.rsnoclass6.Open
End If
hhfcevn.rsnoclass6.Requery

Unload frmSplashtemp
Screen.MousePointer = 0
Else
CandyCommand1.Enabled = False

End If
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
class1.Adodc1.Recordset.MoveFirst
topqu1 = class1.Adodc1.Recordset.Fields(0).Value
Do While Not class1.Adodc1.Recordset.EOF
  If Val(class1.Adodc1.Recordset.Fields(0).Value) > Val(topqu1) Then
    topqu1 = class1.Adodc1.Recordset.Fields(0).Value
  End If
class1.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
class1.Adodc1.Recordset.MoveFirst
If topqu1 > topqu2 Then
class1.Adodc1.Recordset.Find "期数='" & topqu1 & "'", , adSearchForward, 1
 
    
      zhong = class1.Adodc1.Recordset.Fields(1).Value
      
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields(0).Value = class1.Adodc1.Recordset.Fields(0).Value
      
    Dim i As Integer
     
      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.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
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -