totalanalyses.frm

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

MSHFlexGrid3.ColWidth(0, 0) = 100
MSHFlexGrid3.ColWidth(1, 0) = 700
MSHFlexGrid3.ColWidth(2, 0) = 500
MSHFlexGrid3.ColWidth(3, 0) = 900

MSHFlexGrid3.BackColorFixed = vbCyan
MSHFlexGrid3.BackColorSel = &HFF8080
MSHFlexGrid3.BackColor = &HFF8080

MSHFlexGrid3.MergeCol(1) = True
'Adodc1.Recordset.Requery
'Debug.Print Adodc1.Recordset.RecordCount


Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
  Select Case Adodc1.Recordset.Fields(1).Value
    Case "01"
    sum(1, 1) = sum(1, 1) + Adodc1.Recordset.Fields(3)
    Case "02"
    sum(2, 1) = sum(2, 1) + Adodc1.Recordset.Fields(3)
    Case "03"
    sum(3, 1) = sum(3, 1) + Adodc1.Recordset.Fields(3)
    Case "04"
    sum(4, 1) = sum(4, 1) + Adodc1.Recordset.Fields(3)
    Case "05"
    sum(5, 1) = sum(5, 1) + Adodc1.Recordset.Fields(3)
    Case "06"
    sum(6, 1) = sum(6, 1) + Adodc1.Recordset.Fields(3)
    Case "07"
    sum(7, 1) = sum(7, 1) + Adodc1.Recordset.Fields(3)
    Case "08"
    sum(8, 1) = sum(8, 1) + Adodc1.Recordset.Fields(3)
    Case "09"
    sum(9, 1) = sum(9, 1) + Adodc1.Recordset.Fields(3)
    Case "10"
    sum(10, 1) = sum(10, 1) + Adodc1.Recordset.Fields(3)
    Case "11"
    sum(11, 1) = sum(11, 1) + Adodc1.Recordset.Fields(3)
    Case "12"
    sum(12, 1) = sum(12, 1) + Adodc1.Recordset.Fields(3)
    Case "13"
    sum(13, 1) = sum(13, 1) + Adodc1.Recordset.Fields(3)
    Case "14"
    sum(14, 1) = sum(14, 1) + Adodc1.Recordset.Fields(3)
    Case "15"
    sum(15, 1) = sum(15, 1) + Adodc1.Recordset.Fields(3)
    Case "16"
    sum(16, 1) = sum(16, 1) + Adodc1.Recordset.Fields(3)
    Case "17"
    sum(17, 1) = sum(17, 1) + Adodc1.Recordset.Fields(3)
    Case "18"
    sum(18, 1) = sum(18, 1) + Adodc1.Recordset.Fields(3)
    Case "19"
    sum(19, 1) = sum(19, 1) + Adodc1.Recordset.Fields(3)
    Case "20"
    sum(20, 1) = sum(20, 1) + Adodc1.Recordset.Fields(3)
    Case "21"
    sum(21, 1) = sum(21, 1) + Adodc1.Recordset.Fields(3)
    Case "22"
    sum(22, 1) = sum(22, 1) + Adodc1.Recordset.Fields(3)
    Case "23"
    sum(23, 1) = sum(23, 1) + Adodc1.Recordset.Fields(3)
    Case "24"
    sum(24, 1) = sum(24, 1) + Adodc1.Recordset.Fields(3)
    Case "25"
    sum(25, 1) = sum(25, 1) + Adodc1.Recordset.Fields(3)
    Case "26"
    sum(26, 1) = sum(26, 1) + Adodc1.Recordset.Fields(3)
    Case "27"
    sum(27, 1) = sum(27, 1) + Adodc1.Recordset.Fields(3)
    Case "28"
    sum(28, 1) = sum(28, 1) + Adodc1.Recordset.Fields(3)
    Case "29"
    sum(29, 1) = sum(29, 1) + Adodc1.Recordset.Fields(3)
    Case "30"
    sum(30, 1) = sum(30, 1) + Adodc1.Recordset.Fields(3)
    Case "31"
    sum(31, 1) = sum(31, 1) + Adodc1.Recordset.Fields(3)
    Case "32"
    sum(32, 1) = sum(32, 1) + Adodc1.Recordset.Fields(3)
  End Select
  Adodc1.Recordset.MoveNext
Loop

Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
  Select Case Adodc1.Recordset.Fields(1).Value
    Case "01"
    Adodc1.Recordset.Fields(4) = sum(1, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(1, 1)
   
    Case "02"
    Adodc1.Recordset.Fields(4) = sum(2, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(2, 1)
    Case "03"
    Adodc1.Recordset.Fields(4) = sum(3, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(3, 1)
    Case "04"
    Adodc1.Recordset.Fields(4) = sum(4, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(4, 1)
    Case "05"
    Adodc1.Recordset.Fields(4) = sum(5, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(5, 1)
    Case "06"
    Adodc1.Recordset.Fields(4) = sum(6, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(6, 1)
    Case "07"
    Adodc1.Recordset.Fields(4) = sum(7, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(7, 1)
    Case "08"
    Adodc1.Recordset.Fields(4) = sum(8, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(8, 1)
    Case "09"
    Adodc1.Recordset.Fields(4) = sum(9, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(9, 1)
    Case "10"
    Adodc1.Recordset.Fields(4) = sum(10, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(10, 1)
    Case "11"
    Adodc1.Recordset.Fields(4) = sum(11, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(11, 1)
    Case "12"
    Adodc1.Recordset.Fields(4) = sum(12, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(12, 1)
    Case "13"
    Adodc1.Recordset.Fields(4) = sum(13, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(13, 1)
    Case "14"
    Adodc1.Recordset.Fields(4) = sum(14, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(14, 1)
    Case "15"
    Adodc1.Recordset.Fields(4) = sum(15, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(15, 1)
    Case "16"
    Adodc1.Recordset.Fields(4) = sum(16, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(16, 1)
    Case "17"
    Adodc1.Recordset.Fields(4) = sum(17, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(17, 1)
    Case "18"
    Adodc1.Recordset.Fields(4) = sum(18, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(18, 1)
    Case "19"
    Adodc1.Recordset.Fields(4) = sum(19, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(19, 1)
    Case "20"
    Adodc1.Recordset.Fields(4) = sum(20, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(20, 1)
    Case "21"
    Adodc1.Recordset.Fields(4) = sum(21, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(21, 1)
    Case "22"
    Adodc1.Recordset.Fields(4) = sum(22, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(22, 1)
    Case "23"
    Adodc1.Recordset.Fields(4) = sum(23, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(23, 1)
    Case "24"
    Adodc1.Recordset.Fields(4) = sum(24, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(24, 1)
    Case "25"
    Adodc1.Recordset.Fields(4) = sum(25, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(25, 1)
    Case "26"
    Adodc1.Recordset.Fields(4) = sum(26, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(26, 1)
    Case "27"
    Adodc1.Recordset.Fields(4) = sum(27, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(27, 1)
    Case "28"
    Adodc1.Recordset.Fields(4) = sum(28, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(28, 1)
    Case "29"
    Adodc1.Recordset.Fields(4) = sum(29, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(29, 1)
    Case "30"
    Adodc1.Recordset.Fields(4) = sum(30, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(30, 1)
    Case "31"
    Adodc1.Recordset.Fields(4) = sum(31, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(31, 1)
    Case "32"
    Adodc1.Recordset.Fields(4) = sum(32, 1)
    Adodc1.Recordset.Fields(5) = Adodc1.Recordset.Fields(3) / sum(32, 1)
  End Select
   Adodc1.Recordset.Update
   Adodc1.Recordset.Resync adAffectCurrent
   Adodc1.Recordset.MoveNext
Loop

  Adodc1.Refresh
  MSHFlexGrid1.Refresh
  
  For i = 1 To Adodc1.Recordset.RecordCount
    MSHFlexGrid1.Col = 6
    MSHFlexGrid1.Row = i
    MSHFlexGrid1.Text = Format(MSHFlexGrid1.Text, "##.##%")
  Next i
  

Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
  Select Case Adodc1.Recordset.Fields(2).Value
    Case 0
    sumtotal(0, 1) = sumtotal(0, 1) + Adodc1.Recordset.Fields(3).Value
    Case 1
    sumtotal(1, 1) = sumtotal(1, 1) + Adodc1.Recordset.Fields(3).Value
     Case 2
    sumtotal(2, 1) = sumtotal(2, 1) + Adodc1.Recordset.Fields(3).Value
     Case 3
    sumtotal(3, 1) = sumtotal(3, 1) + Adodc1.Recordset.Fields(3).Value
     Case 4
    sumtotal(4, 1) = sumtotal(4, 1) + Adodc1.Recordset.Fields(3).Value
     Case 5
    sumtotal(5, 1) = sumtotal(5, 1) + Adodc1.Recordset.Fields(3).Value
     Case 6
    sumtotal(6, 1) = sumtotal(6, 1) + Adodc1.Recordset.Fields(3).Value
     Case 7
    sumtotal(7, 1) = sumtotal(7, 1) + Adodc1.Recordset.Fields(3).Value
     Case 8
    sumtotal(8, 1) = sumtotal(8, 1) + Adodc1.Recordset.Fields(3).Value
     Case 9
    sumtotal(9, 1) = sumtotal(9, 1) + Adodc1.Recordset.Fields(3).Value
    Case 10
    sumtotal(10, 1) = sumtotal(10, 1) + Adodc1.Recordset.Fields(3).Value
     Case 11
    sumtotal(11, 1) = sumtotal(11, 1) + Adodc1.Recordset.Fields(3).Value
     Case 12
    sumtotal(12, 1) = sumtotal(12, 1) + Adodc1.Recordset.Fields(3).Value
     Case 13
    sumtotal(13, 1) = sumtotal(13, 1) + Adodc1.Recordset.Fields(3).Value
     Case 14
    sumtotal(14, 1) = sumtotal(14, 1) + Adodc1.Recordset.Fields(3).Value
     Case 15
    sumtotal(15, 1) = sumtotal(15, 1) + Adodc1.Recordset.Fields(3).Value
 End Select
  Adodc1.Recordset.MoveNext
Loop
    
Dim sumsum As Integer
  For i = 0 To 15
  sumsum = sumsum + sumtotal(i, 1)
  Next i
 
 
  Adodc2.Recordset.MoveFirst
Do While Not Adodc2.Recordset.EOF
  Select Case Adodc2.Recordset.Fields(0).Value
    Case 0
    Adodc2.Recordset.Fields(1).Value = sumtotal(0, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(0, 1) / sumsum
    sumchart(0, 0) = "0组"
    sumchart(0, 1) = Int((sumtotal(0, 1) / sumsum) * 1000) / 1000
    Case 1
    Adodc2.Recordset.Fields(1).Value = sumtotal(1, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(1, 1) / sumsum
    sumchart(1, 0) = "1组"
    sumchart(1, 1) = Int((sumtotal(1, 1) / sumsum) * 1000) / 1000
     Case 2
    Adodc2.Recordset.Fields(1).Value = sumtotal(2, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(2, 1) / sumsum
    sumchart(2, 0) = "2组"
    sumchart(2, 1) = Int((sumtotal(2, 1) / sumsum) * 1000) / 1000
     Case 3
   Adodc2.Recordset.Fields(1).Value = sumtotal(3, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(3, 1) / sumsum
    sumchart(3, 0) = "3组"
    sumchart(3, 1) = Int((sumtotal(3, 1) / sumsum) * 1000) / 1000
     Case 4
  Adodc2.Recordset.Fields(1).Value = sumtotal(4, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(4, 1) / sumsum
    sumchart(4, 0) = "4组"
    sumchart(4, 1) = Int((sumtotal(4, 1) / sumsum) * 1000) / 1000
     Case 5
    Adodc2.Recordset.Fields(1).Value = sumtotal(5, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(5, 1) / sumsum
    sumchart(5, 0) = "5组"
    sumchart(5, 1) = Int((sumtotal(5, 1) / sumsum) * 1000) / 1000
     Case 6
    Adodc2.Recordset.Fields(1).Value = sumtotal(6, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(6, 1) / sumsum
    sumchart(6, 0) = "6组"
    sumchart(6, 1) = Int((sumtotal(6, 1) / sumsum) * 1000) / 1000
     Case 7
    Adodc2.Recordset.Fields(1).Value = sumtotal(7, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(7, 1) / sumsum
    sumchart(7, 0) = "7组"
    sumchart(7, 1) = Int((sumtotal(7, 1) / sumsum) * 1000) / 1000
     Case 8
   Adodc2.Recordset.Fields(1).Value = sumtotal(8, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(8, 1) / sumsum
    sumchart(8, 0) = "8组"
    sumchart(8, 1) = Int((sumtotal(8, 1) / sumsum) * 1000) / 1000
     Case 9
    Adodc2.Recordset.Fields(1).Value = sumtotal(9, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(9, 1) / sumsum
    sumchart(9, 0) = "9组"
    sumchart(9, 1) = Int((sumtotal(9, 1) / sumsum) * 1000) / 1000
    Case 10
  Adodc2.Recordset.Fields(1).Value = sumtotal(10, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(10, 1) / sumsum
    sumchart(10, 0) = "10组"
    sumchart(10, 1) = Int((sumtotal(10, 1) / sumsum) * 1000) / 1000
     Case 11
    Adodc2.Recordset.Fields(1).Value = sumtotal(11, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(11, 1) / sumsum
    sumchart(11, 0) = "11组"
    sumchart(11, 1) = Int((sumtotal(11, 1) / sumsum) * 1000) / 1000
     Case 12
   Adodc2.Recordset.Fields(1).Value = sumtotal(12, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(12, 1) / sumsum
    sumchart(12, 0) = "12组"
    sumchart(12, 1) = Int((sumtotal(12, 1) / sumsum) * 1000) / 1000
     Case 13
   Adodc2.Recordset.Fields(1).Value = sumtotal(13, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(13, 1) / sumsum
    sumchart(13, 0) = "13组"
    sumchart(13, 1) = Int((sumtotal(13, 1) / sumsum) * 1000) / 1000
     Case 14
   Adodc2.Recordset.Fields(1).Value = sumtotal(14, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(14, 1) / sumsum
    sumchart(14, 0) = "14组"
    sumchart(14, 1) = Int((sumtotal(14, 1) / sumsum) * 1000) / 1000
     Case 15
    Adodc2.Recordset.Fields(1).Value = sumtotal(15, 1)
    Adodc2.Recordset.Fields(2).Value = sumtotal(15, 1) / sumsum
    sumchart(15, 0) = "15组"
    sumchart(15, 1) = Int((sumtotal(15, 1) / sumsum) * 1000) / 1000
 End Select
  Adodc2.Recordset.Update
  Adodc2.Recordset.MoveNext
Loop
  Adodc2.Refresh
  MSHFlexGrid2.Refresh
  
  For i = 1 To Adodc2.Recordset.RecordCount
    MSHFlexGrid2.Col = 3
    MSHFlexGrid2.Row = i
    MSHFlexGrid2.Text = Format(MSHFlexGrid2.Text, "##.##%")
  Next i
  
    If hhfcevn.rsCommand1.State = adStateClosed Then
    hhfcevn.rsCommand1.Open
    hhfcevn.rsCommand1.Requery
    End If
    
    Set MSHFlexGrid3.DataSource = hhfcevn
    MSHFlexGrid3.DataMember = "command1"
    
    MSHFlexGrid3.Refresh
        
   MSChart1.ChartData = sumchart
      
   End Sub

Private Sub Form_Unload(Cancel As Integer)
totalform = False

If intform Then
interval.CandyCommand37.Enabled = False
End If

If inttestform Then
intevaltest.CandyCommand1.Enabled = False
End If

End Sub