pcform.frm

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

      Left            =   2160
      TabIndex        =   10
      Top             =   2040
      Width           =   495
      _ExtentX        =   873
      _ExtentY        =   873
      BackPicture     =   10
      Caption         =   "0"
      ForeColor       =   255
      FontName        =   "华文中宋"
      FontSize        =   10.5
      FontBold        =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "华文中宋"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      HasShadow       =   -1  'True
      PictureMode     =   1
      PictureNormal   =   "pcform.frx":A6B2C
   End
   Begin ActiveCandy.CandyScreen CandyScreen1 
      Height          =   4335
      Left            =   0
      Top             =   0
      Width           =   6495
      _ExtentX        =   11456
      _ExtentY        =   7646
      ScreenType      =   1
   End
End
Attribute VB_Name = "pcform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim capstring As String

Private Sub CandyCommand1_Click()
CandyCommand4.Enabled = True
CandyCommand5.Enabled = True
CandyCommand6.Enabled = True
CandyCommand7.Enabled = True
CandyCommand8.Enabled = True
CandyCommand9.Enabled = True

If CandyCommand11.Enabled = True Then
CandyCommand11.Enabled = False
End If

capstring = capstring + "1"

If Len(capstring) <= 2 And Len(capstring) > 0 Then
  CandyCommand11.Caption = capstring
   If Len(capstring) = 2 And Val(Trim(capstring)) <= 32 Then
      CandyCommand11.Enabled = True
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
   If Len(capstring) = 2 And Val(Trim(capstring)) > 32 Then
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
End If
End Sub

Private Sub CandyCommand10_Click()
CandyCommand4.Enabled = True
CandyCommand5.Enabled = True
CandyCommand6.Enabled = True
CandyCommand7.Enabled = True
CandyCommand8.Enabled = True
CandyCommand9.Enabled = True

If CandyCommand11.Enabled = True Then
CandyCommand11.Enabled = False
End If

capstring = capstring + "0"

If Len(capstring) <= 2 And Len(capstring) > 0 Then
  CandyCommand11.Caption = capstring
   If Len(capstring) = 2 And Val(Trim(capstring)) <= 32 Then
      CandyCommand11.Enabled = True
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
   If Len(capstring) = 2 And Val(Trim(capstring)) > 32 Then
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
End If
End Sub

Private Sub CandyCommand11_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
givenumber1 = Trim(CandyCommand11.Caption)

Load pcform1
pcform1.Show
End Sub

Private Sub CandyCommand11_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Unload pcform1
End If
End Sub

Private Sub CandyCommand2_Click()
CandyCommand4.Enabled = True
CandyCommand5.Enabled = True
CandyCommand6.Enabled = True
CandyCommand7.Enabled = True
CandyCommand8.Enabled = True
CandyCommand9.Enabled = True

If CandyCommand11.Enabled = True Then
CandyCommand11.Enabled = False
End If

capstring = capstring + "2"

If Len(capstring) <= 2 And Len(capstring) > 0 Then
  CandyCommand11.Caption = capstring
   If Len(capstring) = 2 And Val(Trim(capstring)) <= 32 Then
      CandyCommand11.Enabled = True
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
   If Len(capstring) = 2 And Val(Trim(capstring)) > 32 Then
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
End If
End Sub

Private Sub CandyCommand3_Click()
CandyCommand4.Enabled = True
CandyCommand5.Enabled = True
CandyCommand6.Enabled = True
CandyCommand7.Enabled = True
CandyCommand8.Enabled = True
CandyCommand9.Enabled = True

If CandyCommand11.Enabled = True Then
CandyCommand11.Enabled = False
End If

capstring = capstring + "3"

If Len(capstring) <= 2 And Len(capstring) > 0 Then
  CandyCommand11.Caption = capstring
   If Len(capstring) = 2 And Val(Trim(capstring)) <= 32 Then
      CandyCommand11.Enabled = True
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
   If Len(capstring) = 2 And Val(Trim(capstring)) > 32 Then
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
End If
End Sub

Private Sub CandyCommand4_Click()
capstring = capstring + "4"

If Len(capstring) <= 2 And Len(capstring) > 0 Then
  CandyCommand11.Caption = capstring
   If Len(capstring) = 2 And Val(Trim(capstring)) <= 32 Then
      CandyCommand11.Enabled = True
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
   If Len(capstring) = 2 And Val(Trim(capstring)) > 32 Then
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
End If
End Sub

Private Sub CandyCommand5_Click()
capstring = capstring + "5"

If Len(capstring) <= 2 And Len(capstring) > 0 Then
  CandyCommand11.Caption = capstring
   If Len(capstring) = 2 And Val(Trim(capstring)) <= 32 Then
      CandyCommand11.Enabled = True
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
   If Len(capstring) = 2 And Val(Trim(capstring)) > 32 Then
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
End If
End Sub

Private Sub CandyCommand6_Click()
capstring = capstring + "6"

If Len(capstring) <= 2 And Len(capstring) > 0 Then
  CandyCommand11.Caption = capstring
   If Len(capstring) = 2 And Val(Trim(capstring)) <= 32 Then
      CandyCommand11.Enabled = True
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
   If Len(capstring) = 2 And Val(Trim(capstring)) > 32 Then
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
End If
End Sub

Private Sub CandyCommand7_Click()
capstring = capstring + "7"

If Len(capstring) <= 2 And Len(capstring) > 0 Then
  CandyCommand11.Caption = capstring
   If Len(capstring) = 2 And Val(Trim(capstring)) <= 32 Then
      CandyCommand11.Enabled = True
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
   If Len(capstring) = 2 And Val(Trim(capstring)) > 32 Then
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
End If
End Sub

Private Sub CandyCommand8_Click()
capstring = capstring + "8"

If Len(capstring) <= 2 And Len(capstring) > 0 Then
  CandyCommand11.Caption = capstring
   If Len(capstring) = 2 And Val(Trim(capstring)) <= 32 Then
      CandyCommand11.Enabled = True
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
   If Len(capstring) = 2 And Val(Trim(capstring)) > 32 Then
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
End If
End Sub

Private Sub CandyCommand9_Click()
capstring = capstring + "9"

If Len(capstring) <= 2 And Len(capstring) > 0 Then
  CandyCommand11.Caption = capstring
   If Len(capstring) = 2 And Val(Trim(capstring)) <= 32 Then
      CandyCommand11.Enabled = True
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
   If Len(capstring) = 2 And Val(Trim(capstring)) > 32 Then
      capstring = ""
      CandyCommand4.Enabled = False
      CandyCommand5.Enabled = False
      CandyCommand6.Enabled = False
      CandyCommand7.Enabled = False
      CandyCommand8.Enabled = False
      CandyCommand9.Enabled = False
   End If
End If
End Sub

Private Sub Form_Load()
capstring = ""

Adodc2.Refresh
hhfcevn.rsfrequency.Requery

MSHFlexGrid1.ColWidth(0, 0) = 300
MSHFlexGrid1.ColWidth(1, 0) = 600
MSHFlexGrid1.ColWidth(2, 0) = 600

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

MSHFlexGrid1.MergeCol(2) = True

MSHFlexGrid2.ColWidth(0, 0) = 100
MSHFlexGrid2.ColWidth(1, 0) = 800
MSHFlexGrid2.ColWidth(2, 0) = 800

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

MSHFlexGrid2.Refresh
MSHFlexGrid2.Col = 2
MSHFlexGrid2.Sort = 1

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If Len(Text1.Text) < 7 Then ' 当输入小于七个数字时
  If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8 Then '除0-9，回撤键外其余的输入无效
  KeyAscii = 0 '取消输入
  End If
End If

If Len(Text1.Text) = 7 Then '当输入等于七个数字时

  If KeyAscii = 13 Then '回车的处理
    Text2.SetFocus
  End If
    
    If KeyAscii <> 8 Then '回撤键的处理
      KeyAscii = 0 '取消输入
    End If
    
End If
End Sub

Private Sub Text2_Change()
If Len(Text2.Text) = 7 Then
  Dim msg As Integer
  msg = MsgBox("确定吗？", vbYesNo, "提示")
  If msg = vbYes Then
    Adodc2.Recordset.AddNew
    Adodc2.Recordset.Fields(0).Value = Text1.Text
    Adodc2.Recordset.Fields(1).Value = Text2.Text
    Adodc2.Recordset.Update
    
    Adodc2.Recordset.Requery
    Set MSHFlexGrid2.DataSource = Adodc2
'    Adodc2.Refresh
    MSHFlexGrid2.Refresh
  End If
End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If Len(Text2.Text) < 7 Then ' 当输入小于七个数字时
  If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8 Then '除0-9，回撤键外其余的输入无效
  KeyAscii = 0 '取消输入
  End If
End If

If Len(Text2.Text) = 7 Then '当输入等于七个数字时

  If KeyAscii = 13 Then '回车的处理
    Text2.SetFocus
  End If
    
    If KeyAscii <> 8 Then '回撤键的处理
      KeyAscii = 0 '取消输入
    End If
    
End If
End Sub