📄 jsjy.frm

📁 一套35选7黄河风采（兰州福利彩票）完整版。有分析、选号、筛号功能
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
    Case er
    Adodc2.Recordset.Fields(1).Value = Adodc2.Recordset.Fields(1).Value + 1
    Case san
    Adodc2.Recordset.Fields(1).Value = Adodc2.Recordset.Fields(1).Value + 1
    Case si
    Adodc2.Recordset.Fields(1).Value = Adodc2.Recordset.Fields(1).Value + 1
    Case wu
    Adodc2.Recordset.Fields(1).Value = Adodc2.Recordset.Fields(1).Value + 1
    Case liu
    Adodc2.Recordset.Fields(1).Value = Adodc2.Recordset.Fields(1).Value + 1
    Case qi
    Adodc2.Recordset.Fields(1).Value = Adodc2.Recordset.Fields(1).Value + 1
    Case te
    Adodc2.Recordset.Fields(1).Value = Adodc2.Recordset.Fields(1).Value + 1
  End Select
    Adodc2.Recordset.Update
    Adodc2.Recordset.Resync adAffectCurrent
    Adodc2.Recordset.MoveNext
Loop

'Adodc2.Refresh
Label1.Enabled = False

Set MSHFlexGrid2.DataSource = Adodc2
MSHFlexGrid2.Col = 1
MSHFlexGrid2.Sort = 5
MSHFlexGrid2.Refresh
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Sort = 5
End Sub

Private Sub Label2_Click()
'二球
topqi = 2000000

    Adodc3.Recordset.Filter = "号码='" & er & "'"
    Adodc3.Recordset.Requery
    
    Adodc3.Recordset.MoveFirst
    Do While Not Adodc3.Recordset.EOF
      If Val(Adodc3.Recordset.Fields(6).Value) > topqi Then
        topqi = Val(Adodc3.Recordset.Fields(6).Value)
      End If
  
      Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.Fields(3).Value + 1
      Adodc3.Recordset.Fields(4).Value = 0
      Adodc3.Recordset.Fields(5).Value = Adodc3.Recordset.Fields(2).Value / (Adodc3.Recordset.RecordCount + 1)
      Adodc3.Recordset.Update
      Adodc3.Recordset.Resync adAffectCurrent
      Adodc3.Recordset.MoveNext
    Loop
           
    Adodc3.Recordset.AddNew
    Adodc3.Recordset.Fields(1).Value = er
    Adodc3.Recordset.Fields(2).Value = Val(qishu) - topqi - 1
    Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(4).Value = 0
    Adodc3.Recordset.Fields(5).Value = (Val(qishu) - topqi - 1) / Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(6).Value = qishu
    Adodc3.Recordset.Update
    Adodc3.Recordset.Resync adAffectCurrent
    Adodc3.Recordset.Filter = adFilterNone
    Adodc3.Refresh

    Label2.Enabled = False
End Sub

Private Sub Label3_Click()
'一球
 topqi = 2000000

    Adodc3.Recordset.Filter = "号码='" & yi & "'"
    Adodc3.Recordset.Requery
    
    Adodc3.Recordset.MoveFirst
    Do While Not Adodc3.Recordset.EOF
      If Val(Adodc3.Recordset.Fields(6).Value) > topqi Then
        topqi = Val(Adodc3.Recordset.Fields(6).Value)
      End If
  
      Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.Fields(3).Value + 1
      Adodc3.Recordset.Fields(4).Value = 0
      Adodc3.Recordset.Fields(5).Value = Adodc3.Recordset.Fields(2).Value / (Adodc3.Recordset.RecordCount + 1)
      Adodc3.Recordset.Update
      Adodc3.Recordset.Resync adAffectCurrent
      Adodc3.Recordset.MoveNext
    Loop
   
    Adodc3.Recordset.AddNew
    Adodc3.Recordset.Fields(1).Value = yi
    Adodc3.Recordset.Fields(2).Value = Val(qishu) - topqi - 1
    Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(4).Value = 0
    Adodc3.Recordset.Fields(5).Value = (Val(qishu) - topqi - 1) / Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(6).Value = qishu
    Adodc3.Recordset.Update
    Adodc3.Recordset.Resync adAffectCurrent
    Adodc3.Recordset.Filter = adFilterNone
    Adodc3.Refresh

    
    Label3.Enabled = False
End Sub

Private Sub Label4_Click()
'三球
topqi = 2000000

    Adodc3.Recordset.Filter = "号码='" & san & "'"
    Adodc3.Recordset.Requery
    
    Adodc3.Recordset.MoveFirst
    Do While Not Adodc3.Recordset.EOF
      If Val(Adodc3.Recordset.Fields(6).Value) > topqi Then
        topqi = Val(Adodc3.Recordset.Fields(6).Value)
      End If
  
      Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.Fields(3).Value + 1
      Adodc3.Recordset.Fields(4).Value = 0
      Adodc3.Recordset.Fields(5).Value = Adodc3.Recordset.Fields(2).Value / (Adodc3.Recordset.RecordCount + 1)
      Adodc3.Recordset.Update
      Adodc3.Recordset.Resync adAffectCurrent
      Adodc3.Recordset.MoveNext
    Loop
   
    Adodc3.Recordset.AddNew
    Adodc3.Recordset.Fields(1).Value = san
    Adodc3.Recordset.Fields(2).Value = Val(qishu) - topqi - 1
    Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(4).Value = 0
    Adodc3.Recordset.Fields(5).Value = (Val(qishu) - topqi - 1) / Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(6).Value = qishu
    Adodc3.Recordset.Update
    Adodc3.Recordset.Resync adAffectCurrent
    Adodc3.Recordset.Filter = adFilterNone
   

     Adodc3.Refresh
    Label4.Enabled = False
End Sub

Private Sub Label5_Click()
'四球
topqi = 2000000

    Adodc3.Recordset.Filter = "号码='" & si & "'"
    Adodc3.Recordset.Requery
    
    Adodc3.Recordset.MoveFirst
    Do While Not Adodc3.Recordset.EOF
      If Val(Adodc3.Recordset.Fields(6).Value) > topqi Then
        topqi = Val(Adodc3.Recordset.Fields(6).Value)
      End If
  
      Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.Fields(3).Value + 1
      Adodc3.Recordset.Fields(4).Value = 0
      Adodc3.Recordset.Fields(5).Value = Adodc3.Recordset.Fields(2).Value / (Adodc3.Recordset.RecordCount + 1)
      Adodc3.Recordset.Update
      Adodc3.Recordset.Resync adAffectCurrent
      Adodc3.Recordset.MoveNext
    Loop
        
    Adodc3.Recordset.AddNew
    Adodc3.Recordset.Fields(1).Value = si
    Adodc3.Recordset.Fields(2).Value = Val(qishu) - topqi - 1
    Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(4).Value = 0
    Adodc3.Recordset.Fields(5).Value = (Val(qishu) - topqi - 1) / Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(6).Value = qishu
    Adodc3.Recordset.Update
    Adodc3.Recordset.Resync adAffectCurrent
    Adodc3.Recordset.Filter = adFilterNone
    Adodc3.Refresh

    Label5.Enabled = False
End Sub

Private Sub Label6_Click()
 '五球
 topqi = 2000000
 
    Adodc3.Recordset.Filter = "号码='" & wu & "'"
    Adodc3.Recordset.Requery
    
    Adodc3.Recordset.MoveFirst
    Do While Not Adodc3.Recordset.EOF
      If Val(Adodc3.Recordset.Fields(6).Value) > topqi Then
        topqi = Val(Adodc3.Recordset.Fields(6).Value)
      End If
  
      Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.Fields(3).Value + 1
      Adodc3.Recordset.Fields(4).Value = 0
      Adodc3.Recordset.Fields(5).Value = Adodc3.Recordset.Fields(2).Value / (Adodc3.Recordset.RecordCount + 1)
      Adodc3.Recordset.Update
      Adodc3.Recordset.Resync adAffectCurrent
      Adodc3.Recordset.MoveNext
    Loop
        
    Adodc3.Recordset.AddNew
    Adodc3.Recordset.Fields(1).Value = wu
    Adodc3.Recordset.Fields(2).Value = Val(qishu) - topqi - 1
    Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(4).Value = 0
    Adodc3.Recordset.Fields(5).Value = (Val(qishu) - topqi - 1) / Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(6).Value = qishu
    Adodc3.Recordset.Update
    Adodc3.Recordset.Resync adAffectCurrent
    Adodc3.Recordset.Filter = adFilterNone
    Adodc3.Refresh

    Label6.Enabled = False
End Sub

Private Sub Label7_Click()
'六球
topqi = 2000000

    Adodc3.Recordset.Filter = "号码='" & liu & "'"
    Adodc3.Recordset.Requery
    
    Adodc3.Recordset.MoveFirst
    Do While Not Adodc3.Recordset.EOF
      If Val(Adodc3.Recordset.Fields(6).Value) > topqi Then
        topqi = Val(Adodc3.Recordset.Fields(6).Value)
      End If
  
      Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.Fields(3).Value + 1
      Adodc3.Recordset.Fields(4).Value = 0
      Adodc3.Recordset.Fields(5).Value = Adodc3.Recordset.Fields(2).Value / (Adodc3.Recordset.RecordCount + 1)
      Adodc3.Recordset.Update
      Adodc3.Recordset.Resync adAffectCurrent
      Adodc3.Recordset.MoveNext
    Loop
        
    Adodc3.Recordset.AddNew
    Adodc3.Recordset.Fields(1).Value = liu
    Adodc3.Recordset.Fields(2).Value = Val(qishu) - topqi - 1
    Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(4).Value = 0
    Adodc3.Recordset.Fields(5).Value = (Val(qishu) - topqi - 1) / Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(6).Value = qishu
    Adodc3.Recordset.Update
    Adodc3.Recordset.Resync adAffectCurrent
    Adodc3.Recordset.Filter = adFilterNone
    Adodc3.Refresh

    Label7.Enabled = False
End Sub

Private Sub Label8_Click()
'七球
topqi = 2000000

    Adodc3.Recordset.Filter = "号码='" & qi & "'"
    Adodc3.Recordset.Requery
    
    Adodc3.Recordset.MoveFirst
    Do While Not Adodc3.Recordset.EOF
      If Val(Adodc3.Recordset.Fields(6).Value) > topqi Then
        topqi = Val(Adodc3.Recordset.Fields(6).Value)
      End If
  
      Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.Fields(3).Value + 1
      Adodc3.Recordset.Fields(4).Value = 0
      Adodc3.Recordset.Fields(5).Value = Adodc3.Recordset.Fields(2).Value / (Adodc3.Recordset.RecordCount + 1)
      Adodc3.Recordset.Update
      Adodc3.Recordset.Resync adAffectCurrent
      Adodc3.Recordset.MoveNext
    Loop
    
    Adodc3.Recordset.AddNew
    Adodc3.Recordset.Fields(1).Value = qi
    Adodc3.Recordset.Fields(2).Value = Val(qishu) - topqi - 1
    Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(4).Value = 0
    Adodc3.Recordset.Fields(5).Value = (Val(qishu) - topqi - 1) / Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(6).Value = qishu
    Adodc3.Recordset.Update
    Adodc3.Recordset.Resync adAffectCurrent
    Adodc3.Recordset.Filter = adFilterNone
    Adodc3.Refresh

    Label8.Enabled = False
End Sub

Private Sub Label9_Click()
 '特球
 topqi = 2000000
 
 frmSplashtemp.Show
 Screen.MousePointer = 11
DoEvents

 
    Adodc3.Recordset.Filter = "号码='" & te & "'"
    Adodc3.Recordset.Requery
    
    Adodc3.Recordset.MoveFirst
    Do While Not Adodc3.Recordset.EOF
      If Val(Adodc3.Recordset.Fields(6).Value) > topqi Then
        topqi = Val(Adodc3.Recordset.Fields(6).Value)
      End If
  
      Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.Fields(3).Value + 1
      Adodc3.Recordset.Fields(4).Value = 0
      Adodc3.Recordset.Fields(5).Value = Adodc3.Recordset.Fields(2).Value / (Adodc3.Recordset.RecordCount + 1)
      Adodc3.Recordset.Update
      Adodc3.Recordset.Resync adAffectCurrent
      Adodc3.Recordset.MoveNext
    Loop
    
    
    Adodc3.Recordset.AddNew
    Adodc3.Recordset.Fields(1).Value = te
    Adodc3.Recordset.Fields(2).Value = Val(qishu) - topqi - 1
    Adodc3.Recordset.Fields(3).Value = Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(4).Value = 0
    Adodc3.Recordset.Fields(5).Value = (Val(qishu) - topqi - 1) / Adodc3.Recordset.RecordCount
    Adodc3.Recordset.Fields(6).Value = qishu
    Adodc3.Recordset.Update
    Adodc3.Recordset.Resync adAffectCurrent
    Adodc3.Recordset.Filter = adFilterNone
    Adodc3.Refresh
'    Adodc3.Recordset.Requery
'其它球
Adodc3.Recordset.Filter = "号码 <>'" & yi & "'and 号码 <>'" & er & "'and 号码 <>'" & san & "'and 号码 <>'" & si & "'and 号码 <>'" & wu & "'and 号码 <>'" & liu & "'and 号码 <>'" & qi & "'and 号码 <>'" & te & "'"

    Adodc3.Recordset.Requery
    
    Adodc3.Recordset.MoveFirst
    Do While Not Adodc3.Recordset.EOF
      
      Adodc3.Recordset.Fields(4).Value = Adodc3.Recordset.Fields(4).Value + 1
      
      Adodc3.Recordset.Update
      Adodc3.Recordset.Resync adAffectCurrent
      Adodc3.Recordset.MoveNext
    Loop
    
    Adodc3.Recordset.Filter = adFilterNone
    Adodc3.Refresh
'Adodc3.Recordset.Requery
    Label9.Enabled = False
    
  Unload frmSplashtemp
 Screen.MousePointer = 0
    
Set MSHFlexGrid4.DataSource = Adodc3
    MSHFlexGrid4.Refresh
    MSHFlexGrid4.Col = 2
    MSHFlexGrid4.ColSel = 3
    MSHFlexGrid4.Sort = 5
End Sub
上一页 1 23
💿 文件大小 1811 K
👤 上传用户 wp1111111
📂 所属分类其他
🏷️ 相关标签

#黄河 #分
⌨️ 快捷键说明

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