📄 form1f.frm

📁 一套35选7黄河风采（兰州福利彩票）完整版。有分析、选号、筛号功能
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
  s3 = s3 + 1
 End If
 
' If s1 = 5 And s4 = 1 Then
'  s5 = s5 + 1
' End If
' If s1 = 5 And s4 = 0 Then
'   s2 = s2 + 1
' End If
 
'  If s1 = 5 Then
'  s2 = s2 + 1
'  End If

'  If s1 = 6 And s4 = 0 Then
'    s6 = s6 + 1
'  End If
'  If s1 = 6 And s4 = 1 Then
'    s7 = s7 + 1
'  End If

'  If s1 = 6 Then
'    s6 = s6 + 1
'  End If

'  If s1 = 7 Then
'   s8 = s8 + 1
'  End If
  
  Adodc5.Recordset.MoveNext
  s1 = 0
  s4 = 0
 Loop
 Label2.Caption = s3
' Label5.Caption = s2
' Label7.Caption = s5
'Label11.Caption = s6
'Label12.Caption = s7
'Label13.Caption = s8
End Sub



Private Sub Form_Load()
'SaveSetting "黄河风采", "settings", "password", "700723"
'Adodc1.Refresh
'Dim i As Integer
start = False

Adodc2.Refresh
Adodc3.Refresh

Adodc4.Refresh
'Adodc5.Refresh
End Sub

Private Sub UpDown1_UpClick()
If Text1.Text = "9" Then
Text1.BackColor = vbGreen
'Exit Sub
Else
Text1.BackColor = vbWhite
Text2.BackColor = vbWhite
Text3.BackColor = vbWhite
Text4.BackColor = vbWhite
Text5.BackColor = vbWhite
Text6.BackColor = vbWhite
Text7.BackColor = vbWhite
End If
Text2.Text = Str(Val(Text1.Text) + 1)
Text3.Text = Str(Val(Text2.Text) + 1)
Text4.Text = Str(Val(Text3.Text) + 1)
Text5.Text = Str(Val(Text4.Text) + 1)
Text6.Text = Str(Val(Text5.Text) + 1)
Text7.Text = Str(Val(Text6.Text) + 1)
If start Then
If Val(Text7.Text) = 15 Then
  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
  Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
  Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
  Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
  Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
  Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
  Adodc1.Recordset.Fields(7).Value = Val(Text7.Text)

  Adodc1.Recordset.Update
  Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
  Adodc1.Recordset.MoveFirst
  Adodc1.Recordset.MoveLast
  Adodc1.Caption = Adodc1.Recordset.RecordCount
Else

  For i = Val(Text7.Text) To 15
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
    Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
    Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
    Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
    Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
    Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
    Adodc1.Recordset.Fields(7).Value = i

    Adodc1.Recordset.Update
    Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.MoveLast
    Adodc1.Caption = Adodc1.Recordset.RecordCount
  Next i
End If
End If
End Sub

Private Sub UpDown2_UpClick()
If Text2.Text = "10" Then
Text2.BackColor = vbGreen
'Exit Sub
Else
Text2.BackColor = vbWhite
Text3.BackColor = vbWhite
Text4.BackColor = vbWhite
Text5.BackColor = vbWhite
Text6.BackColor = vbWhite
Text7.BackColor = vbWhite
End If
Text3.Text = Str(Val(Text2.Text) + 1)
Text4.Text = Str(Val(Text3.Text) + 1)
Text5.Text = Str(Val(Text4.Text) + 1)
Text6.Text = Str(Val(Text5.Text) + 1)
Text7.Text = Str(Val(Text6.Text) + 1)
If start Then
If Val(Text7.Text) = 15 Then
  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
  Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
  Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
  Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
  Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
  Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
  Adodc1.Recordset.Fields(7).Value = Val(Text7.Text)

  Adodc1.Recordset.Update
  Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
  Adodc1.Recordset.MoveFirst
  Adodc1.Recordset.MoveLast
  Adodc1.Caption = Adodc1.Recordset.RecordCount
Else

  For i = Val(Text7.Text) To 15
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
    Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
    Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
    Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
    Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
    Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
    Adodc1.Recordset.Fields(7).Value = i

    Adodc1.Recordset.Update
    Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.MoveLast
    Adodc1.Caption = Adodc1.Recordset.RecordCount
  Next i
End If
End If
End Sub

Private Sub UpDown3_UpClick()
If Text3.Text = "11" Then
Text3.BackColor = vbGreen
'Exit Sub
Else
Text3.BackColor = vbWhite
Text4.BackColor = vbWhite
Text5.BackColor = vbWhite
Text6.BackColor = vbWhite
Text7.BackColor = vbWhite
End If
Text4.Text = Str(Val(Text3.Text) + 1)
Text5.Text = Str(Val(Text4.Text) + 1)
Text6.Text = Str(Val(Text5.Text) + 1)
Text7.Text = Str(Val(Text6.Text) + 1)
If start Then
If Val(Text7.Text) = 15 Then
  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
  Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
  Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
  Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
  Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
  Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
  Adodc1.Recordset.Fields(7).Value = Val(Text7.Text)
  
  Adodc1.Recordset.Update
  Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
  Adodc1.Recordset.MoveFirst
  Adodc1.Recordset.MoveLast
  Adodc1.Caption = Adodc1.Recordset.RecordCount
Else

  For i = Val(Text7.Text) To 15
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
    Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
    Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
    Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
    Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
    Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
    Adodc1.Recordset.Fields(7).Value = i
    
    Adodc1.Recordset.Update
    Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.MoveLast
    Adodc1.Caption = Adodc1.Recordset.RecordCount
  Next i
End If
End If
End Sub

Private Sub UpDown4_UpClick()
If Text4.Text = "12" Then
Text4.BackColor = vbGreen
'Exit Sub
Else
Text4.BackColor = vbWhite
Text5.BackColor = vbWhite
Text6.BackColor = vbWhite
Text7.BackColor = vbWhite
End If
Text5.Text = Str(Val(Text4.Text) + 1)
Text6.Text = Str(Val(Text5.Text) + 1)
Text7.Text = Str(Val(Text6.Text) + 1)
If start Then
If Val(Text7.Text) = 15 Then
  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
  Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
  Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
  Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
  Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
  Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
  Adodc1.Recordset.Fields(7).Value = Val(Text7.Text)
  
  Adodc1.Recordset.Update
  Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
  Adodc1.Recordset.MoveFirst
  Adodc1.Recordset.MoveLast
  Adodc1.Caption = Adodc1.Recordset.RecordCount
Else

  For i = Val(Text7.Text) To 15
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
    Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
    Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
    Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
    Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
    Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
    Adodc1.Recordset.Fields(7).Value = i
    
    Adodc1.Recordset.Update
    Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.MoveLast
    Adodc1.Caption = Adodc1.Recordset.RecordCount
  Next i
End If
End If
End Sub

Private Sub UpDown5_UpClick()
If Text5.Text = "13" Then
Text5.BackColor = vbGreen
'Exit Sub
Else
Text5.BackColor = vbWhite
Text6.BackColor = vbWhite
Text7.BackColor = vbWhite
End If
Text6.Text = Str(Val(Text5.Text) + 1)
Text7.Text = Str(Val(Text6.Text) + 1)
If start Then
If Val(Text7.Text) = 15 Then
  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
  Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
  Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
  Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
  Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
  Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
  Adodc1.Recordset.Fields(7).Value = Val(Text7.Text)
  
  Adodc1.Recordset.Update
  Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
  Adodc1.Recordset.MoveFirst
  Adodc1.Recordset.MoveLast
  Adodc1.Caption = Adodc1.Recordset.RecordCount
Else

  For i = Val(Text7.Text) To 15
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
    Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
    Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
    Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
    Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
    Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
    Adodc1.Recordset.Fields(7).Value = i
    
    Adodc1.Recordset.Update
    Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.MoveLast
    Adodc1.Caption = Adodc1.Recordset.RecordCount
  Next i
End If
End If
End Sub

Private Sub UpDown6_UpClick()
If Text6.Text = "14" Then
Text6.BackColor = vbGreen
'Exit Sub
Else
Text6.BackColor = vbWhite
Text7.BackColor = vbWhite
End If
Text7.Text = Str(Val(Text6.Text) + 1)
If start Then
If Val(Text7.Text) = 15 Then
  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
  Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
  Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
  Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
  Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
  Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
  Adodc1.Recordset.Fields(7).Value = Val(Text7.Text)
  
  Adodc1.Recordset.Update
  Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
  Adodc1.Recordset.MoveFirst
  Adodc1.Recordset.MoveLast
  Adodc1.Caption = Adodc1.Recordset.RecordCount
Else

  For i = Val(Text7.Text) To 15
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields(1).Value = Val(Text1.Text)
    Adodc1.Recordset.Fields(2).Value = Val(Text2.Text)
    Adodc1.Recordset.Fields(3).Value = Val(Text3.Text)
    Adodc1.Recordset.Fields(4).Value = Val(Text4.Text)
    Adodc1.Recordset.Fields(5).Value = Val(Text5.Text)
    Adodc1.Recordset.Fields(6).Value = Val(Text6.Text)
    Adodc1.Recordset.Fields(7).Value = i
    
    Adodc1.Recordset.Update
    Adodc1.Recordset.Resync adAffectCurrent, adResyncAllValues
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.MoveLast
    Adodc1.Caption = Adodc1.Recordset.RecordCount
  Next i
End If
End If
End Sub
上一页 1 2 34
💿 文件大小 1811 K
👤 上传用户 wp1111111
📂 所属分类其他
🏷️ 相关标签

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

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