📄 totalanalyses.frm
字号:
VERSION 5.00
Object = "{C3CBD80D-C8D1-11D2-9F8E-0080C7CE5CDC}#4.1#0"; "ACTCNDY2.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form totalanalyses
BorderStyle = 1 'Fixed Single
Caption = "汇总分析"
ClientHeight = 6825
ClientLeft = 45
ClientTop = 330
ClientWidth = 9510
Icon = "totalanalyses.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6825
ScaleWidth = 9510
StartUpPosition = 3 '窗口缺省
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid3
Bindings = "totalanalyses.frx":08CA
Height = 3735
Left = 6960
TabIndex = 5
Top = 0
Width = 2535
_ExtentX = 4471
_ExtentY = 6588
_Version = 393216
Cols = 4
ScrollBars = 2
MergeCells = 3
DataMember = "Command1"
_NumberOfBands = 1
_Band(0).Cols = 4
_Band(0).GridLinesBand= 1
_Band(0).TextStyleBand= 0
_Band(0).TextStyleHeader= 0
_Band(0)._NumMapCols= 4
_Band(0)._MapCol(0)._Name= "间隔组"
_Band(0)._MapCol(0)._RSIndex= 0
_Band(0)._MapCol(0)._Alignment= 7
_Band(0)._MapCol(1)._Name= "号码"
_Band(0)._MapCol(1)._RSIndex= 1
_Band(0)._MapCol(2)._Name= "间隔频次"
_Band(0)._MapCol(2)._RSIndex= 2
_Band(0)._MapCol(2)._Alignment= 7
_Band(0)._MapCol(3)._Name= "间隔概率"
_Band(0)._MapCol(3)._RSIndex= 3
_Band(0)._MapCol(3)._Alignment= 7
_Band(0)._MapCol(3)._Hidden= -1 'True
End
Begin ActiveCandy.CandyCommand CandyCommand1
Height = 495
Left = 8040
TabIndex = 3
Top = 3840
Width = 735
_ExtentX = 1296
_ExtentY = 873
BackPicture = 1
Caption = "上一页"
ForeColor = 255
FontName = "宋体"
FontSize = 9
FontBold = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSAdodcLib.Adodc Adodc2
Height = 330
Left = 4560
Top = 1080
Visible = 0 'False
Width = 2055
_ExtentX = 3625
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\黄河风采副\黄河风采.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\黄河风采副\黄河风采.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "汇总间隔数据"
Caption = "Adodc2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 840
Top = 2880
Visible = 0 'False
Width = 2055
_ExtentX = 3625
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\黄河风采副\黄河风采.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\黄河风采副\黄河风采.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "分析间隔数据二"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSChart20Lib.MSChart MSChart1
Height = 2415
Left = 0
OleObjectBlob = "totalanalyses.frx":08E0
TabIndex = 2
Top = 4440
Width = 9495
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid2
Bindings = "totalanalyses.frx":2C2D
Height = 4335
Left = 4200
TabIndex = 1
Top = 0
Width = 2775
_ExtentX = 4895
_ExtentY = 7646
_Version = 393216
ForeColor = 128
Cols = 4
ScrollBars = 0
_NumberOfBands = 2
_Band(0).Cols = 4
_Band(0)._NumMapCols= 3
_Band(0)._MapCol(0)._Name= "间隔组"
_Band(0)._MapCol(0)._RSIndex= 0
_Band(0)._MapCol(0)._Alignment= 7
_Band(0)._MapCol(1)._Name= "间隔总量"
_Band(0)._MapCol(1)._RSIndex= 1
_Band(0)._MapCol(1)._Alignment= 7
_Band(0)._MapCol(2)._Name= "区间概率"
_Band(0)._MapCol(2)._RSIndex= 2
_Band(0)._MapCol(2)._Alignment= 7
_Band(1).BandIndent= 1
_Band(1).Cols = 5
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Bindings = "totalanalyses.frx":2C42
Height = 4335
Left = 0
TabIndex = 0
Top = 0
Width = 4215
_ExtentX = 7435
_ExtentY = 7646
_Version = 393216
ForeColor = 65408
Cols = 7
ScrollBars = 2
SelectionMode = 1
MergeCells = 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_NumberOfBands = 1
_Band(0).Cols = 7
_Band(0)._NumMapCols= 6
_Band(0)._MapCol(0)._Name= "自编"
_Band(0)._MapCol(0)._RSIndex= 0
_Band(0)._MapCol(0)._Alignment= 7
_Band(0)._MapCol(1)._Name= "号码"
_Band(0)._MapCol(1)._RSIndex= 1
_Band(0)._MapCol(2)._Name= "间隔组"
_Band(0)._MapCol(2)._RSIndex= 2
_Band(0)._MapCol(2)._Alignment= 7
_Band(0)._MapCol(3)._Name= "间隔频次"
_Band(0)._MapCol(3)._RSIndex= 3
_Band(0)._MapCol(3)._Alignment= 7
_Band(0)._MapCol(4)._Name= "样本总量"
_Band(0)._MapCol(4)._RSIndex= 4
_Band(0)._MapCol(4)._Alignment= 7
_Band(0)._MapCol(5)._Name= "间隔概率"
_Band(0)._MapCol(5)._RSIndex= 5
_Band(0)._MapCol(5)._Alignment= 7
End
Begin ActiveCandy.CandyCommand CandyCommand2
Height = 495
Left = 7080
TabIndex = 4
Top = 3840
Width = 855
_ExtentX = 1508
_ExtentY = 873
BackPicture = 1
Caption = "间隔检验"
ForeColor = 255
FontName = "宋体"
FontSize = 9
FontBold = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ActiveCandy.CandyCommand CandyCommand3
Height = 495
Left = 8760
TabIndex = 6
Top = 3840
Width = 735
_ExtentX = 1296
_ExtentY = 873
BackPicture = 1
Caption = "下一页"
ForeColor = 255
FontName = "宋体"
FontSize = 9
FontBold = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Enabled = 0 'False
End
End
Attribute VB_Name = "totalanalyses"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim sum(1 To 32, 1 To 1) As Integer
Dim sumchart(0 To 15, 0 To 1) As Variant
Dim sumtotal(0 To 15, 1 To 1) As Integer
Private Sub CandyCommand1_Click()
interval.Show
End Sub
Private Sub CandyCommand2_Click()
'间隔检验
CandyCommand3.Enabled = True
Load intevaltest
intevaltest.Show
End Sub
Private Sub CandyCommand3_Click()
'下一页
intevaltest.Show
End Sub
Private Sub Form_Load()
totalform = True
Adodc1.Refresh
'Adodc1.Recordset.Requery
Adodc2.Refresh
'Adodc2.Recordset.Requery
Dim i As Integer
If Adodc2.Recordset.RecordCount = 0 Then
For i = 0 To 15
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields(0).Value = i
Adodc2.Recordset.Update
Adodc2.Recordset.MoveNext
Next i
End If
MSHFlexGrid1.ColWidth(0, 0) = 100
MSHFlexGrid1.ColWidth(1, 0) = 0
MSHFlexGrid1.ColWidth(2, 0) = 500
MSHFlexGrid1.ColWidth(3, 0) = 650
MSHFlexGrid1.ColWidth(4, 0) = 900
MSHFlexGrid1.ColWidth(5, 0) = 900
MSHFlexGrid1.ColWidth(6, 0) = 900
MSHFlexGrid1.BackColorFixed = vbCyan
MSHFlexGrid1.BackColorSel = &HFF8080
MSHFlexGrid1.BackColor = &HFF8080
MSHFlexGrid1.MergeCol(2) = True
'MSHFlexGrid1.MergeCol(4) = True
'MSHFlexGrid1.MergeCol(5) = True
MSHFlexGrid2.ColWidth(0, 0) = 100
MSHFlexGrid2.ColWidth(1, 0) = 650
MSHFlexGrid2.ColWidth(2, 0) = 900
MSHFlexGrid2.ColWidth(3, 0) = 900
MSHFlexGrid2.BackColorFixed = vbCyan
MSHFlexGrid2.BackColorSel = &HFF8080
MSHFlexGrid2.BackColor = &HFF8080
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -