seeall.frm

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

   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   1320
      TabIndex        =   3
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   960
      TabIndex        =   2
      Top             =   2520
      Width           =   375
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "平  均"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   2520
      Width           =   735
   End
   Begin VB.Line Line17 
      X1              =   8220
      X2              =   8220
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line16 
      X1              =   7630
      X2              =   7630
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line15 
      X1              =   7080
      X2              =   7080
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line14 
      X1              =   6530
      X2              =   6530
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line13 
      X1              =   5960
      X2              =   5960
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line12 
      X1              =   5420
      X2              =   5420
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line11 
      X1              =   4850
      X2              =   4850
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line10 
      X1              =   4280
      X2              =   4280
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line9 
      X1              =   3710
      X2              =   3710
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line8 
      X1              =   3140
      X2              =   3140
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line7 
      X1              =   2580
      X2              =   2580
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line6 
      X1              =   2165
      X2              =   2165
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line5 
      X1              =   1760
      X2              =   1760
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line4 
      X1              =   1355
      X2              =   1355
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line3 
      X1              =   940
      X2              =   940
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   9480
      Y1              =   2880
      Y2              =   2880
   End
   Begin VB.Line Line2 
      X1              =   0
      X2              =   0
      Y1              =   2880
      Y2              =   2400
   End
End
Attribute VB_Name = "seeall"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim WithEvents xlbook As Excel.Workbook
Attribute xlbook.VB_VarHelpID = -1
Dim WithEvents xlsheet As Excel.Worksheet
Attribute xlsheet.VB_VarHelpID = -1
Dim WithEvents xlapp As Excel.Application
Attribute xlapp.VB_VarHelpID = -1

Dim WithEvents xlbook1 As Excel.Workbook
Attribute xlbook1.VB_VarHelpID = -1
Dim WithEvents xlsheet1 As Excel.Worksheet
Attribute xlsheet1.VB_VarHelpID = -1
Dim WithEvents xlsheet2 As Excel.Worksheet
Attribute xlsheet2.VB_VarHelpID = -1
Dim WithEvents xlapp1 As Excel.Application
Attribute xlapp1.VB_VarHelpID = -1

Private Sub CandyCommand1_Click()
'上一页
class1.Show
End Sub

Private Sub CandyCommand2_Click()
'号码分类表
hhfcReport1.Show vbModal
End Sub

Private Sub CandyCommand3_Click()
'期数表
hhfcReport2.Show vbModal
End Sub

Private Sub CandyCommand4_Click()
'导入Excel
If hhfcevn.rsfrequency.State = adStateClosed Then
hhfcevn.rsfrequency.Open
End If

If hhfcevn.rslastintevalexcel.State = adStateClosed Then
hhfcevn.rslastintevalexcel.Open
End If

Dim i As Integer
Dim j As Integer


Set xlapp = CreateObject("excel.application")
xlapp.Caption = "黄河风采"

'-------------
'Set xlbook = GetObject("c:\my documents\vb赋值.xls")
''xlbook.Application.Visible = True
''xlbook.Windows(1).Visible = True
'
'
'Set xlsheet = xlbook.Worksheets(1)
''xlsheet.Visible = xlSheetVisible
'xlsheet.Name = "黄河风采"
'xlsheet.Range("a1", "b2").Select

'xlsheet.PageSetup.CenterHeader = "黄河风采系列"
'xlsheet.PageSetup.PrintGridlines = True
'xlsheet.PrintPreview
'---------------------

Set xlbook = xlapp.Workbooks.Add
xlbook.Application.Visible = True
xlbook.Windows(1).Visible = True
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Name = "黄河风采1"

'期数表
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.MoveLast
xlsheet.Cells(2, 1) = Adodc1.Recordset.Fields(0).Name
xlsheet.Cells(2, 2) = Adodc1.Recordset.Fields(1).Name
xlsheet.Cells(2, 3) = Adodc1.Recordset.Fields(2).Name
xlsheet.Cells(2, 4) = Adodc1.Recordset.Fields(3).Name
xlsheet.Cells(2, 5) = Adodc1.Recordset.Fields(4).Name
xlsheet.Cells(2, 6) = Adodc1.Recordset.Fields(5).Name
xlsheet.Cells(2, 7) = Adodc1.Recordset.Fields(6).Name
xlsheet.Cells(2, 8) = Adodc1.Recordset.Fields(7).Name
xlsheet.Cells(2, 9) = Adodc1.Recordset.Fields(8).Name
Adodc1.Recordset.MoveFirst
i = 3
Do While Not Adodc1.Recordset.EOF
  For j = 1 To 9
    xlsheet.Cells(i, j) = Adodc1.Recordset.Fields(j - 1).Value
  Next j
  Adodc1.Recordset.MoveNext
  i = i + 1
Loop

'汇总间隔
Adodc3.Recordset.MoveFirst
Adodc3.Recordset.MoveLast
xlsheet.Cells(Adodc1.Recordset.RecordCount + 7, 1) = Adodc3.Recordset.Fields(0).Name
xlsheet.Cells(Adodc1.Recordset.RecordCount + 7, 2) = Adodc3.Recordset.Fields(1).Name
Adodc3.Recordset.MoveFirst
i = Adodc1.Recordset.RecordCount + 8
Do While Not Adodc3.Recordset.EOF
  For j = 1 To 2
    xlsheet.Cells(i, j) = Adodc3.Recordset.Fields(j - 1).Value
  Next j
  Adodc3.Recordset.MoveNext
  i = i + 1
Loop

'频次表
hhfcevn.rsfrequency.MoveFirst
hhfcevn.rsfrequency.MoveLast
xlsheet.Cells(2, 11) = hhfcevn.rsfrequency.Fields(1).Name
xlsheet.Cells(2, 12) = hhfcevn.rsfrequency.Fields(0).Name
hhfcevn.rsfrequency.MoveFirst
i = 3
Do While Not hhfcevn.rsfrequency.EOF
  For j = 11 To 12
    xlsheet.Cells(i, j) = hhfcevn.rsfrequency.Fields(12 - j).Value
  Next j
  hhfcevn.rsfrequency.MoveNext
  i = i + 1
Loop

'最近间隔表
hhfcevn.rslastintevalexcel.MoveFirst
hhfcevn.rslastintevalexcel.MoveLast
xlsheet.Cells(2, 14) = hhfcevn.rslastintevalexcel.Fields(0).Name
xlsheet.Cells(2, 15) = hhfcevn.rslastintevalexcel.Fields(1).Name
hhfcevn.rslastintevalexcel.MoveFirst
i = 3
  Do While Not hhfcevn.rslastintevalexcel.EOF
  For j = 14 To 15
    xlsheet.Cells(i, j) = hhfcevn.rslastintevalexcel.Fields(j - 14).Value
  Next j
  hhfcevn.rslastintevalexcel.MoveNext
  i = i + 1
Loop

Set xlsheet = xlbook.Worksheets(2)
xlsheet.Name = "黄河风采2"
  
'号码分类表
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.MoveLast
xlsheet.Cells(2, 1) = Adodc2.Recordset.Fields(0).Name
xlsheet.Cells(2, 2) = Adodc2.Recordset.Fields(1).Name
xlsheet.Cells(2, 3) = Adodc2.Recordset.Fields(2).Name
xlsheet.Cells(2, 4) = Adodc2.Recordset.Fields(3).Name
xlsheet.Cells(2, 5) = Adodc2.Recordset.Fields(4).Name
xlsheet.Cells(2, 6) = Adodc2.Recordset.Fields(5).Name
xlsheet.Cells(2, 7) = Adodc2.Recordset.Fields(6).Name
xlsheet.Cells(2, 8) = Adodc2.Recordset.Fields(7).Name
xlsheet.Cells(2, 9) = Adodc2.Recordset.Fields(8).Name
xlsheet.Cells(2, 10) = Adodc2.Recordset.Fields(9).Name
xlsheet.Cells(2, 11) = Adodc2.Recordset.Fields(10).Name
xlsheet.Cells(2, 12) = Adodc2.Recordset.Fields(11).Name
xlsheet.Cells(2, 13) = Adodc2.Recordset.Fields(12).Name
xlsheet.Cells(2, 14) = Adodc2.Recordset.Fields(13).Name
xlsheet.Cells(2, 15) = Adodc2.Recordset.Fields(14).Name
xlsheet.Cells(2, 16) = Adodc2.Recordset.Fields(15).Name
Adodc2.Recordset.MoveFirst
i = 3
Do While Not Adodc2.Recordset.EOF
  For j = 1 To 16
    xlsheet.Cells(i, j) = Adodc2.Recordset.Fields(j - 1).Value
  Next j
  Adodc2.Recordset.MoveNext
  i = i + 1
Loop
  
End Sub

Private Sub CandyCommand5_Click()
'最近间隔表
hhfcReport4.Show vbModal
End Sub

Private Sub CandyCommand6_Click()
'汇总间隔表
hhfcReport5.Show vbModal
End Sub

Private Sub CandyCommand7_Click()
'频次表
hhfcReport3.Show vbModal
End Sub

Private Sub CandyCommand8_Click()
'导出敏感数字

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim o As Integer
Dim p As Integer
Dim m As Integer
Dim n As Integer
Dim valueflag As Boolean
Dim midstring As String
Dim minnumber As Integer
Dim minval As Single
valueflag = False

m = 0
n = 0

Set xlapp1 = CreateObject("excel.application")
xlapp1.Caption = "导出敏感数字"



Set xlbook1 = xlapp1.Workbooks.Add
xlbook1.Application.Visible = True
xlbook1.Windows(1).Visible = True
Set xlsheet1 = xlbook1.Worksheets(1)
Set xlsheet2 = xlbook1.Worksheets(2)
xlsheet1.Name = "导出敏感数字"
xlsheet2.Name = "综合敏感度分析"

Adodc4.Recordset.MoveFirst
i = 1
j = 0
Do While Not Adodc4.Recordset.EOF
  For k = 1 To 32
    If Len(Adodc4.Recordset.Fields(0).Value) = 3 And Adodc4.Recordset.Fields(k).Value <> "0" Then
      j = j + 1
      valueflag = True
      Exit For
    End If
  Next k
      
      If valueflag Then
      If Len(Adodc4.Recordset.Fields(0).Value) = 3 Then
        For l = 1 To 32
          If Len(Adodc4.Recordset.Fields(l - 1).Value) > 1 Then
            xlsheet1.Cells(i, j) = Adodc4.Recordset.Fields(l - 1).Value