choice.frm

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

  
Command1.Enabled = True
'Command2.Enabled = True

tot = tot + Val(Trim(Combo2.Text))
Label5.Caption = tot

If tot = 7 Then
Command2.Enabled = True
End If

k = 0
c = Val(Combo2.Text)

For i = 1 To 32
 If Len(Trim(Adodc1.Recordset.Fields(i).Value)) = 2 Then
   k = k + 1
 End If
 If Len(Trim(Adodc1.Recordset.Fields(i).Value)) = 1 Then
   If k > c Then
     Adodc3.Recordset.AddNew
     Adodc3.Recordset.Fields(0).Value = Adodc1.Recordset.Fields(0).Value
     Adodc3.Recordset.Fields(1).Value = i - k
     Adodc3.Recordset.Fields(2).Value = c
     Adodc3.Recordset.Update
     Adodc3.Recordset.Resync adAffectCurrent, adResyncAllValues
     
     For o = i - k To i - 1
       For p = 1 To 32
        If canchoice(p, 1) = Adodc1.Recordset.Fields(o).Value Then
          canchoice(p, 1) = "  "
        End If
       Next p
     Next o
     
     Combo2.Enabled = False
     Exit Sub
    End If
    
    If k = c Then
     For p = i - k To i - 1
      For o = 1 To 7
        If zhcount(1, o) = "0" Then
          zhcount(1, o) = Adodc1.Recordset.Fields(p).Value
          
'        Adodc2.Recordset.MoveFirst
'        If Adodc2.Recordset.Fields(o).Value = "0" Then
'          Adodc2.Recordset.Fields(o).Value = Adodc1.Recordset.Fields(p).Value
'          Adodc2.Recordset.Update
'          Adodc2.Recordset.Resync adAffectCurrent, adResyncAllValues
          
          Exit For
        End If
       Next o
      Next p
      
      For o = i - k To i - 1
       For p = 1 To 32
        If canchoice(p, 1) = Adodc1.Recordset.Fields(o).Value Then
          canchoice(p, 1) = "  "
        End If
       Next p
     Next o
      
     Combo2.Enabled = False
     
     For o = 1 To 7
       If zhcount(1, o) <> "0" And o >= 2 Then
           For p = 1 To o - 1
            If zhcount(1, p) = zhcount(1, o) Then
              For k = o To 6
                zhcount(1, k) = zhcount(1, k + 1)
                zhcount(1, 7) = "0"
              Next k
           
              tot = tot - 1
              Label5.Caption = tot
              
              If tot = 7 Then
                Command2.Enabled = True
              End If
              
            End If
           Next p
       End If
    Next o
     
     Exit Sub
    End If
    
    If k < c Then
     For p = i - k To i - 1
      For o = 1 To 7
       If zhcount(1, o) = "0" Then
          zhcount(1, o) = Adodc1.Recordset.Fields(p).Value
            
'        Adodc2.Recordset.MoveFirst
'        If Adodc2.Recordset.Fields(o).Value = "0" Then
'          Adodc2.Recordset.Fields(o).Value = Adodc1.Recordset.Fields(p).Value
'          Adodc2.Recordset.Update
'          Adodc2.Recordset.Resync adAffectCurrent, adResyncAllValues
          
          Exit For
        End If
       Next o
      Next p
      
      For o = i - k To i - 1
       For p = 1 To 32
        If canchoice(p, 1) = Adodc1.Recordset.Fields(o).Value Then
          canchoice(p, 1) = "  "
        End If
       Next p
     Next o
      
      c = c - k
      k = 0
     End If
   End If
 Next i
 
For o = 1 To 7
 If zhcount(1, o) <> "0" And o >= 2 Then
     For p = 1 To o - 1
      If zhcount(1, p) = zhcount(1, o) Then
        For k = o To 6
          zhcount(1, k) = zhcount(1, k + 1)
          zhcount(1, 7) = "0"
        Next k
     
        tot = tot - 1
        Label5.Caption = tot
      End If
     Next p
 End If
Next o
Combo2.Enabled = False
'Adodc1.Recordset.MoveFirst
'Adodc1.Recordset.Find "间隔组='" & Trim(Combo1.Text) & "'", , adSearchForward, 1

End Sub

Private Sub Combo3_Click() '自选
If tot = 7 Then
  Combo1.Enabled = False
  Combo2.Enabled = False
  Combo3.Enabled = False
  Command2.Enabled = True
  Exit Sub
End If

If Combo3.Text <> "  " Then
  For o = 1 To 7
   If zhcount(1, o) = "0" Then
      zhcount(1, o) = Combo3.Text
          
'        Adodc2.Recordset.MoveFirst
'        If Adodc2.Recordset.Fields(o).Value = "0" Then
'          Adodc2.Recordset.Fields(o).Value = Combo3.Text
'          Adodc2.Recordset.Update
'          Adodc2.Recordset.Resync adAffectCurrent, adResyncAllValues
          
          Exit For
        End If
  Next o
  
For p = 1 To 32
 If canchoice(p, 1) = Combo3.Text Then
   canchoice(p, 1) = "  "
 End If
Next p
  
ns = ns + Combo3.Text + "  "
Label7.Caption = ns

tot = tot + 1
If tot = 7 Then
  Command2.Enabled = True
End If
Label5.Caption = tot

For o = 1 To 7
 If zhcount(1, o) <> "0" And o >= 2 Then
     For p = 1 To o - 1
      If zhcount(1, p) = zhcount(1, o) Then
        For k = o To 6
          zhcount(1, k) = zhcount(1, k + 1)
          zhcount(1, 7) = "0"
        Next k
     
        tot = tot - 1
        Label5.Caption = tot
      End If
     Next p
 End If
Next o

End If
End Sub

Private Sub Combo3_DropDown()
Combo3.Clear
For i = 1 To 32
    Combo3.List(i - 1) = canchoice(i, 1)
Next i
End Sub

Private Sub Combo4_Click()
'全间隔自选
If jtot = 7 Then
  Combo4.Enabled = False
  Combo5.Enabled = False
  Combo6.Enabled = False
  Command4.Enabled = True
  Exit Sub
End If

If Combo4.Text <> "  " Then
  For o = 1 To 7
   If zhcount(1, o) = "0" Then
      zhcount(1, o) = Combo4.Text
          
      Exit For
   End If
  Next o
  
For p = 1 To 32
 If canchoice(p, 1) = Combo4.Text Then
   canchoice(p, 1) = "  "
 End If
Next p
  
ns = ns + Combo4.Text + "  "
Label12.Caption = ns

jtot = jtot + 1
If jtot = 7 Then
  Command4.Enabled = True
End If
Label10.Caption = jtot

'For o = 1 To 7
' If zhcount(1, o) <> "0" And o >= 2 Then
'     For p = 1 To o - 1
'      If zhcount(1, p) = zhcount(1, o) Then
'        For k = o To 6
'          zhcount(1, k) = zhcount(1, k + 1)
'          zhcount(1, 7) = "0"
'        Next k
'
'        tot = tot - 1
'        Label5.Caption = tot
'      End If
'     Next p
' End If
'Next o

End If
End Sub

Private Sub Combo4_DropDown()
'全间隔自选
Combo4.Clear
For i = 1 To 32
    Combo4.List(i - 1) = canchoice(i, 1)
Next i
End Sub

Private Sub Combo5_Click()
'全间隔选间隔
howmany = 0
same = False

For i = 1 To 8
  nosame(1, i) = "  "
Next i

If jtot = 7 Then
  Combo4.Enabled = False
  Combo5.Enabled = False
  Combo6.Enabled = False
  Exit Sub
End If

Combo6.Visible = True
Combo6.Enabled = True

hhfcevn.rshhfcreport.MoveLast
jqs = hhfcevn.rshhfcreport.Fields(0).Value
hhfcevn.rshhfcreport.MoveFirst

If Len(Combo5.Text) = 3 Then
  hhfcevn.rshhfcreport.Find "期数=" & Trim(Str(Val(jqs) - Val(Left(Trim(Combo5.Text), 1)))), , adSearchForward, 1
Else
  hhfcevn.rshhfcreport.Find "期数=" & Trim(Str(Val(jqs) - Val(Left(Trim(Combo5.Text), 2)))), , adSearchForward, 1
End If

If Adodc4.Recordset.RecordCount = 0 Then '初次赋值
  Adodc4.Recordset.AddNew
  Adodc4.Recordset.Fields(0).Value = Combo5.Text
  Adodc4.Recordset.Fields(1).Value = hhfcevn.rshhfcreport.Fields(1).Value
  Adodc4.Recordset.Fields(2).Value = hhfcevn.rshhfcreport.Fields(2).Value
  Adodc4.Recordset.Fields(3).Value = hhfcevn.rshhfcreport.Fields(3).Value
  Adodc4.Recordset.Fields(4).Value = hhfcevn.rshhfcreport.Fields(4).Value
  Adodc4.Recordset.Fields(5).Value = hhfcevn.rshhfcreport.Fields(5).Value
  Adodc4.Recordset.Fields(6).Value = hhfcevn.rshhfcreport.Fields(6).Value
  Adodc4.Recordset.Fields(7).Value = hhfcevn.rshhfcreport.Fields(7).Value
  Adodc4.Recordset.Fields(8).Value = hhfcevn.rshhfcreport.Fields(8).Value
  Adodc4.Recordset.Fields(9).Value = "8"
  Adodc4.Recordset.Update
  Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
  
  For o = 1 To 8
    For p = 1 To 32
     If canchoice(p, 1) = hhfcevn.rshhfcreport.Fields(o).Value Then
        canchoice(p, 1) = "  "
     End If
    Next p
  Next o
      
  Adodc4.Refresh
Else
  For i = 1 To 8
    Adodc4.Recordset.MoveFirst
    Do While Not Adodc4.Recordset.EOF
      If hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(1).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(2).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(3).Value Or _
          hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(4).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(5).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(6).Value Or _
          hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(7).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(8).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(9).Value Or _
          hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(10).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(11).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(12).Value Or _
          hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(13).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(14).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(15).Value Or _
          hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(16).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(17).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(18).Value Or _
          hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(19).Value Or hhfcevn.rshhfcreport.Fields(i).Value = Adodc4.Recordset.Fields(20).Value Then
         same = True
         Exit Do
       End If
     Adodc4.Recordset.MoveNext
     Loop
     
     For o = 1 To 7
        If zhcount(1, o) <> "0" And zhcount(1, o) = hhfcevn.rshhfcreport.Fields(i).Value Then
           same = True
           Exit For
        End If
     Next o
     
     If Not same Then
       howmany = howmany + 1
       nosame(1, howmany) = hhfcevn.rshhfcreport.Fields(i).Value
     Else
       same = False
     End If
   Next i
  
  If howmany >= 1 Then
    Adodc4.Recordset.AddNew
    Adodc4.Recordset.Fields(0).Value = Combo5.Text
    For i = 1 To howmany
      Adodc4.Recordset.Fields(i).Value = nosame(1, i)
    Next i
    Adodc4.Recordset.Fields(howmany + 1).Value = Trim(Str(howmany))
    Adodc4.Recordset.Update
    Adodc4.Recordset.Resync adAffectCurrent, adResyncAllValues
    Adodc4.Refresh
    
    For o = 1 To howmany
      For p = 1 To 32
       If canchoice(p, 1) = nosame(1, o) Then
          canchoice(p, 1) = "  "
       End If
      Next p
    Next o
  Else
    Combo6.Enabled = False
  End If
  
End If

Picture2.CurrentX = 50
If Len(Combo5.Text) = 3 Then
  Picture2.CurrentY = Val(Left(Trim(Combo5.Text), 1)) * 200
Else
  Picture2.CurrentY = Val(Left(Trim(Combo5.Text), 2)) * 200
End If

Picture2.ForeColor = QBColor(13)
If Adodc4.Recordset.RecordCount = 1 Then '初次赋值
  Picture2.Print Combo5.Text & " " & hhfcevn.rshhfcreport.Fields(0).Value & "期" & "  " _
  & hhfcevn.rshhfcreport.Fields(1).Value & "  " & hhfcevn.rshhfcreport.Fields(2).Value & "  " & hhfcevn.rshhfcreport.Fields(3).Value & "  " & hhfcevn.rshhfcreport.Fields(4).Value & "  " & hhfcevn.rshhfcreport.Fields(5).Value & "  " & hhfcevn.rshhfcreport.Fields(6).Value & "  " & hhfcevn.rshhfcreport.Fields(7).Value & "  " & hhfcevn.rshhfcreport.Fields(8).Value
Else
  Picture2.Print Combo5.Text & "