class1.frm

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

            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.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
      Adodc1.Recordset.MoveNext
          
    Adodc2.Refresh
    If hhfcevn.rsnumberclass.State = adStateClosed Then
    hhfcevn.rsnumberclass.Open
    hhfcevn.rsnumberclass.Requery
    End If
    
    MSHFlexGrid1.Refresh
    MSHFlexGrid1.Col = 1
    MSHFlexGrid1.Sort = 5
     
    CandyCommand1.Enabled = False
    CandyCommand2.Enabled = False
Else
MsgBox "无可生成的数据，请仔细再看一遍，或进行数据生成操作。", vbOKOnly, "提示"
CandyCommand2.Enabled = False
CandyCommand4.Enabled = False
End If

End Sub

Private Sub CandyCommand3_Click()
'绘图
If hhfcevn.rsnumberclass.State = adStateClosed Then
hhfcevn.rsnumberclass.Open
End If

hhfcevn.rsnumberclass.MoveFirst
hhfcevn.rsnumberclass.MoveLast

For i = 0 To 1
  For j = 0 To 4
   Me.PaintPicture Picture2.Picture, j * Picture2.Width, i * Picture2.Height + 2900, _
    Picture2.Width, Picture2.Height
Next j, i
Me.Line (200, 6100)-(9100, 6100)
      Me.Line (200, 6100)-(200, 2900)
      
      Me.CurrentX = 120
      Me.CurrentY = 2900
      Me.Print "∧" + "区间"
      Me.CurrentX = 120
      Me.CurrentY = 5240
      Me.Print "-"
      Me.CurrentX = 0
      Me.CurrentY = 5700
      Me.Print "一"
      Me.CurrentX = 120
      Me.CurrentY = 4440
      Me.Print "-"
      Me.CurrentX = 0
      Me.CurrentY = 4900
      Me.Print "二"
      Me.CurrentX = 120
      Me.CurrentY = 3640
      Me.Print "-"
      Me.CurrentX = 0
      Me.CurrentY = 4100
      Me.Print "三"
      Me.CurrentY = 3300
      Me.Print "四"
            
      Me.CurrentX = 9100
      Me.CurrentY = 6030
      Me.Print "＞"
      Me.CurrentX = 9100
      Me.CurrentY = 6200
      Me.Print "期数"
      
If jjj - 1 = hhfcevn.rsnumberclass.RecordCount Then
  jj = 0
  jjjj = 1
  jjj = 1
End If

If jjj - 1 = 40 Or jjj - 1 = 80 Or jjj - 1 = 120 Or jjj - 1 = 160 Or jjj - 1 = 200 Or jjj - 1 = 240 Then
  jj = 0
  jjjj = 0
End If

Timer1.interval = 100

End Sub

Private Sub CandyCommand4_Click()
'平均
jihe = 0
ouhe = 0
dahe = 0
xiaohe = 0
yihe = 0
erhe = 0
sanhe = 0
sihe = 0
yulinhe = 0
yuyihe = 0
yuerhe = 0
erlianhe = 0
sanlianhe = 0
silianhe = 0

lianhl = 0

Adodc2.Recordset.MoveFirst
Do While Not Adodc2.Recordset.EOF
  jihe = jihe + Adodc2.Recordset.Fields(1).Value
  ouhe = ouhe + Adodc2.Recordset.Fields(2).Value
  dahe = dahe + Adodc2.Recordset.Fields(3).Value
  xiaohe = xiaohe + Adodc2.Recordset.Fields(4).Value
  yihe = yihe + Adodc2.Recordset.Fields(5).Value
  erhe = erhe + Adodc2.Recordset.Fields(6).Value
  sanhe = sanhe + Adodc2.Recordset.Fields(7).Value
  sihe = sihe + Adodc2.Recordset.Fields(8).Value
  yulinhe = yulinhe + Adodc2.Recordset.Fields(9).Value
  yuyihe = yuyihe + Adodc2.Recordset.Fields(10).Value
  yuerhe = yuerhe + Adodc2.Recordset.Fields(11).Value
  
  If Not IsNull(Adodc2.Recordset.Fields(12).Value) Then
    erlianhe = erlianhe + Adodc2.Recordset.Fields(12).Value
  End If
  
  If Not IsNull(Adodc2.Recordset.Fields(13).Value) Then
    sanlianhe = sanlianhe + Adodc2.Recordset.Fields(13).Value
  End If
  
  If Not IsNull(Adodc2.Recordset.Fields(14).Value) Then
    silianhe = silianhe + Adodc2.Recordset.Fields(14).Value
  End If
  
  If Adodc2.Recordset.Fields(12).Value >= 1 Or Adodc2.Recordset.Fields(13).Value >= 1 Or Adodc2.Recordset.Fields(14).Value >= 1 Then
  lianhl = lianhl + 1
  End If
  
  Adodc2.Recordset.MoveNext
Loop

 Label2.Caption = Format(jihe / Adodc2.Recordset.RecordCount, "#.##")
 Label3.Caption = Format(ouhe / Adodc2.Recordset.RecordCount, "#.##")
 Label4.Caption = Format(dahe / Adodc2.Recordset.RecordCount, "#.##")
 Label5.Caption = Format(xiaohe / Adodc2.Recordset.RecordCount, "#.##")
 Label6.Caption = Format(yihe / Adodc2.Recordset.RecordCount, "#.##")
 Label7.Caption = Format(erhe / Adodc2.Recordset.RecordCount, "#.##")
 Label8.Caption = Format(sanhe / Adodc2.Recordset.RecordCount, "#.##")
 Label9.Caption = Format(sihe / Adodc2.Recordset.RecordCount, "#.##")
 Label10.Caption = Format(yulinhe / Adodc2.Recordset.RecordCount, "#.##")
 Label11.Caption = Format(yuyihe / Adodc2.Recordset.RecordCount, "#.##")
 Label12.Caption = Format(yuerhe / Adodc2.Recordset.RecordCount, "#.##")
 Label13.Caption = erlianhe
 Label14.Caption = sanlianhe
 Label15.Caption = silianhe
 Label16.Caption = Format(lianhl / Adodc2.Recordset.RecordCount, "##.##%")
 
 jj1 = 0
 mystep1 = 0
 Me.DrawStyle = 2
 Timer2.interval = 100
End Sub

Private Sub CandyCommand5_Click()
'上一页
intevaltest.Show
End Sub

Private Sub CandyCommand6_Click()
'下一页
seeall.Show
End Sub

Private Sub CandyCommand7_Click()
'三区间
Load class2
class2.Show
End Sub

Private Sub CandyCommand8_Click()
'奇偶大小
Load class3
class3.Show
End Sub

Private Sub CandyCommand9_Click()
'一目了然
CandyCommand6.Enabled = True

Load seeall
seeall.Show
End Sub

Private Sub Form_Load()
Adodc1.Refresh
Adodc2.Refresh
Adodc3.Refresh
Adodc4.Refresh
Adodc5.Refresh

MSHFlexGrid1.ColWidth(0, 0) = 150
MSHFlexGrid1.ColWidth(1, 0) = 780
MSHFlexGrid1.ColWidth(2, 0) = 400
MSHFlexGrid1.ColWidth(3, 0) = 400
MSHFlexGrid1.ColWidth(4, 0) = 400
MSHFlexGrid1.ColWidth(5, 0) = 400
MSHFlexGrid1.ColWidth(6, 0) = 570
MSHFlexGrid1.ColWidth(7, 0) = 570
MSHFlexGrid1.ColWidth(8, 0) = 570
MSHFlexGrid1.ColWidth(9, 0) = 570
MSHFlexGrid1.ColWidth(10, 0) = 560
MSHFlexGrid1.ColWidth(11, 0) = 560
MSHFlexGrid1.ColWidth(12, 0) = 560
MSHFlexGrid1.ColWidth(13, 0) = 560
MSHFlexGrid1.ColWidth(14, 0) = 560
MSHFlexGrid1.ColWidth(15, 0) = 580
MSHFlexGrid1.ColWidth(16, 0) = 1000

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

MSHFlexGrid1.Col = 1
MSHFlexGrid1.Sort = 5

jj = 0
jj1 = 0
jjj = 1
jjjj = 1
mystep1 = 0

classform = True
End Sub

Private Sub Form_Paint()
jj = 0

For i = 0 To 2
  For j = 0 To 4
   Me.PaintPicture Picture1.Picture, j * Picture1.Width, i * Picture1.Height, _
    Picture1.Width, Picture1.Height
Next j, i

End Sub

Private Sub Form_Unload(Cancel As Integer)
classform = False
Unload notclass

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

If seeallform Then
seeall.CandyCommand1.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
zero
End Sub

Private Sub Timer2_Timer()
If mystep1 = 23 Then
Me.DrawStyle = 0
CandyCommand7.Enabled = True
CandyCommand8.Enabled = True
CandyCommand9.Enabled = True

Timer2.interval = 0
End If

If mystep1 <= 22 Then
Me.Line (200, 6100 - (Val(Label6.Caption) * 100))-(200 + jj1 * 400, 6100 - (Val(Label6.Caption) * 100)), QBColor(13)
Me.Line (200, 5300 - (Val(Label7.Caption) * 100))-(200 + jj1 * 400, 5300 - (Val(Label7.Caption) * 100)), QBColor(13)
Me.Line (200, 4500 - (Val(Label8.Caption) * 100))-(200 + jj1 * 400, 4500 - (Val(Label8.Caption) * 100)), QBColor(13)
Me.Line (200, 3700 - (Val(Label9.Caption) * 100))-(200 + jj1 * 400, 3700 - (Val(Label9.Caption) * 100)), QBColor(13)

jj1 = jj1 + 1
End If

mystep1 = mystep1 + 1
End Sub