📄 handinhand.frm

📁 一套35选7黄河风采（兰州福利彩票）完整版。有分析、选号、筛号功能
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
         BeginProperty Column35 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column36 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column37 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column38 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column39 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column40 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column41 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column42 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column43 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column44 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column45 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column46 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column47 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column48 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column49 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column50 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column51 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column52 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column53 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column54 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column55 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column56 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column57 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column58 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column59 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column60 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column61 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column62 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column63 
            ColumnWidth     =   345.26
         EndProperty
         BeginProperty Column64 
            ColumnWidth     =   1005.165
         EndProperty
      EndProperty
   End
   Begin VB.CommandButton Command2 
      Caption         =   "快速生成"
      Height          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   0
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "数据生成"
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   1095
   End
   Begin VB.Label Label1 
      Height          =   375
      Left            =   2520
      TabIndex        =   3
      Top             =   0
      Width           =   2175
   End
End
Attribute VB_Name = "hdinhd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim fa(1 To 1, 1 To 8) As Integer
Dim zhong(1 To 1, 1 To 8) As Integer
Private Sub Command1_Click()
'数据生成
Screen.MousePointer = 11
DoEvents

If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
      Adodc1.Recordset.Delete adAffectCurrent
   Adodc1.Recordset.Update
'  Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
  Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.Resync
End If

hhfcevn.rshhfcreport.MoveFirst
Do While Not hhfcevn.rshhfcreport.EOF

For i = 1 To 8
  zhong(1, i) = Val(hhfcevn.rshhfcreport.Fields(i).Value)
Next i

hhfcevn.rshhfcreport.MoveNext

If hhfcevn.rshhfcreport.EOF Then
Adodc1.Refresh
Screen.MousePointer = 0
Command3.Enabled = True
Command4.Enabled = True
  Exit Sub
Else

DoEvents
Label1.Caption = "现正在处理第" & hhfcevn.rshhfcreport.Fields(0).Value & "期"

  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields(0).Value = hhfcevn.rshhfcreport.Fields(0).Value
  
  For i = 1 To 64
  Adodc1.Recordset.Fields(i).Value = 0
  Next i
  
  For i = 1 To 8
    For j = 1 To 8
      Adodc1.Recordset.Fields(32 + (zhong(1, i) - Val(hhfcevn.rshhfcreport.Fields(j).Value))).Value = Adodc1.Recordset.Fields(32 + (zhong(1, i) - Val(hhfcevn.rshhfcreport.Fields(j).Value))).Value + 1
    Next j
  Next i
End If
Adodc1.Recordset.Update
Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues

Loop

End Sub

Private Sub Command2_Click()
'快速生成
MsgBox "此操作只对最近输入的一期进行处理，如此前输入了多期，则必须使用<数据生成>按钮重新生成数据。", vbOKOnly, "提示"
Dim topqu1 As String
Dim topqu2 As String
Adodc1.Recordset.MoveFirst
topqu1 = Adodc1.Recordset.Fields(0).Value
Do While Not Adodc1.Recordset.EOF
  If Val(Adodc1.Recordset.Fields(0).Value) > Val(topqu1) Then
    topqu1 = Adodc1.Recordset.Fields(0).Value
  End If
Adodc1.Recordset.MoveNext
Loop

hhfcevn.rshhfcreport.MoveFirst
topqu2 = hhfcevn.rshhfcreport.Fields(0).Value
Do While Not hhfcevn.rshhfcreport.EOF
  If Val(hhfcevn.rshhfcreport.Fields(0).Value) > Val(topqu2) Then
    topqu2 = hhfcevn.rshhfcreport.Fields(0).Value
  End If
hhfcevn.rshhfcreport.MoveNext
Loop

If topqu1 < topqu2 Then
hhfcevn.rshhfcreport.MoveFirst
hhfcevn.rshhfcreport.Find "期数='" & topqu1 & "'", , adSearchForward, 1

For i = 1 To 8
  zhong(1, i) = Val(hhfcevn.rshhfcreport.Fields(i).Value)
Next i

hhfcevn.rshhfcreport.MoveNext

DoEvents
Label1.Caption = "现正在处理第" & hhfcevn.rshhfcreport.Fields(0).Value & "期"

  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields(0).Value = hhfcevn.rshhfcreport.Fields(0).Value
  
  For i = 1 To 64
  Adodc1.Recordset.Fields(i).Value = 0
  Next i
  
  For i = 1 To 8
    For j = 1 To 8
      Adodc1.Recordset.Fields(32 + (zhong(1, i) - Val(hhfcevn.rshhfcreport.Fields(j).Value))).Value = Adodc1.Recordset.Fields(32 + (zhong(1, i) - Val(hhfcevn.rshhfcreport.Fields(j).Value))).Value + 1
    Next j
  Next i
Adodc1.Recordset.Update
Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
Adodc1.Refresh

Command3.Enabled = True
Command4.Enabled = True
Else
  MsgBox "无可生成的数据，请仔细再看一遍，或进行数据生成操作。", vbOKOnly, "提示"
End If
End Sub

Private Sub Command3_Click()
'检验
Screen.MousePointer = 11
DoEvents

Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
  Adodc1.Recordset.Fields(64).Value = 0
  Adodc1.Recordset.Update
  Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
  Adodc1.Recordset.MoveNext
Loop
Adodc1.Refresh

hhfcevn.rshhfcreport.MoveFirst
Do While Not hhfcevn.rshhfcreport.EOF

  For i = 1 To 8
   zhong(1, i) = Val(hhfcevn.rshhfcreport.Fields(i).Value)
  Next i

hhfcevn.rshhfcreport.MoveNext

If hhfcevn.rshhfcreport.EOF Then
'If hhfcevn.rshhfcreport.Fields(0).Value = "2000012" Then
Adodc1.Refresh
Screen.MousePointer = 0
  Exit Sub
Else

  For i = 1 To 8
   fa(1, i) = Val(hhfcevn.rshhfcreport.Fields(i).Value)
  Next i
  
DoEvents
Label1.Caption = "现正在处理第" & hhfcevn.rshhfcreport.Fields(0).Value & "期"
'Debug.Print hhfcevn.rshhfcreport.Fields(0).Value
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "期='" & hhfcevn.rshhfcreport.Fields(0).Value & "'", , adSearchForward, 1
  For i = 1 To 8
    For j = -1 To 1
      For k = 1 To 8
        If fa(1, k) = zhong(1, i) + j Then
        
          
          
          Adodc1.Recordset.Fields(64).Value = Adodc1.Recordset.Fields(64).Value + 1
          Adodc1.Recordset.Update
          Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
          
'          Debug.Print "xia=" & fa(1, k) & "    j=" & j & "    shang=" & zhong(1, i)
          
          fa(1, k) = 35
        End If
      Next k
    Next j
  Next i
  
End If

Loop

End Sub

Private Sub Command4_Click()
'快速检验
MsgBox "此操作只对最近输入的一期进行处理，如此前输入了多期，则必须使用<数据生成>按钮重新生成数据。", vbOKOnly, "提示"
hhfcevn.rshhfcreport.MoveLast
hhfcevn.rshhfcreport.Find "期数='" & Trim(Str(Val(hhfcevn.rshhfcreport.Fields(0).Value - 1))) & "'", , adSearchForward, 1

For i = 1 To 8
   zhong(1, i) = Val(hhfcevn.rshhfcreport.Fields(i).Value)
  Next i

hhfcevn.rshhfcreport.MoveNext

For i = 1 To 8
 fa(1, i) = Val(hhfcevn.rshhfcreport.Fields(i).Value)
Next i
  
DoEvents
Label1.Caption = "现正在处理第" & hhfcevn.rshhfcreport.Fields(0).Value & "期"
'Debug.Print hhfcevn.rshhfcreport.Fields(0).Value
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "期='" & hhfcevn.rshhfcreport.Fields(0).Value & "'", , adSearchForward, 1

If Adodc1.Recordset.Fields(64).Value <> 0 Then
  Adodc1.Recordset.Fields(64).Value = 0
End If

  For i = 1 To 8
    For j = -1 To 1
      For k = 1 To 8
        If fa(1, k) = zhong(1, i) + j Then
                 
          Adodc1.Recordset.Fields(64).Value = Adodc1.Recordset.Fields(64).Value + 1
          Adodc1.Recordset.Update
          Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
          
'          Debug.Print "xia=" & fa(1, k) & "    j=" & j & "    shang=" & zhong(1, i)
          
          fa(1, k) = 35
        End If
      Next k
    Next j
  Next i
  
End Sub

Private Sub Form_Load()
Adodc1.Refresh

If hhfcevn.rshhfcreport.State = adStateClosed Then
hhfcevn.rshhfcreport.Open
End If
hhfcevn.rshhfcreport.Requery
End Sub
上一页 1 2 34
💿 文件大小 1811 K
👤 上传用户 wp1111111
📂 所属分类其他
🏷️ 相关标签

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

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