📄 jsjy.frm
字号:
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 8400
TabIndex = 16
Top = 2348
Width = 345
End
Begin VB.Label Label11
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "二"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 8400
TabIndex = 15
Top = 1594
Width = 345
End
Begin VB.Label Label10
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "一"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 8400
TabIndex = 14
Top = 840
Width = 345
End
Begin VB.Label Label9
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "01"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 9000
TabIndex = 13
Top = 6120
Width = 255
End
Begin VB.Label Label8
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "01"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 9000
TabIndex = 12
Top = 5364
Width = 255
End
Begin VB.Label Label7
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "01"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 9000
TabIndex = 11
Top = 4610
Width = 255
End
Begin VB.Label Label6
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "01"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 9000
TabIndex = 10
Top = 3856
Width = 255
End
Begin VB.Label Label5
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "01"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 9000
TabIndex = 9
Top = 3102
Width = 255
End
Begin VB.Label Label4
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "01"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 9000
TabIndex = 8
Top = 2348
Width = 255
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "01"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 9000
TabIndex = 7
Top = 840
Width = 255
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "01"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 9000
TabIndex = 6
Top = 1594
Width = 255
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "01"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 8640
TabIndex = 5
Top = 240
Width = 255
End
End
Attribute VB_Name = "speedput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim k As Integer
Dim topqi As Long
Private Sub Form_Load()
Adodc2.Refresh
Adodc3.Refresh
'qishu = "2000010"
'yi = "01"
'er = "02"
'san = "03"
'si = "04"
'wu = "05"
'liu = "06"
'qi = "07"
'te = "08"
Label1.Caption = qishu + "期"
Label3.Caption = yi
Label2.Caption = er
Label4.Caption = san
Label5.Caption = si
Label6.Caption = wu
Label7.Caption = liu
Label8.Caption = qi
Label9.Caption = te
MSHFlexGrid1.ColWidth(0, 0) = 150
MSHFlexGrid1.ColWidth(1, 0) = 600
MSHFlexGrid1.ColWidth(2, 0) = 600
MSHFlexGrid1.BackColorFixed = vbCyan
MSHFlexGrid1.BackColorSel = &HFF8080
MSHFlexGrid1.BackColor = &HFF8080
MSHFlexGrid1.MergeCol(2) = True
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Sort = 5
MSHFlexGrid2.ColWidth(0, 0) = 150
MSHFlexGrid2.ColWidth(1, 0) = 600
MSHFlexGrid2.ColWidth(2, 0) = 600
MSHFlexGrid2.BackColorFixed = vbCyan
MSHFlexGrid2.BackColorSel = &HFF8080
MSHFlexGrid2.BackColor = &HFF8000
MSHFlexGrid2.MergeCol(2) = True
MSHFlexGrid2.Col = 1
MSHFlexGrid2.Sort = 5
MSHFlexGrid3.ColWidth(0, 0) = 150
MSHFlexGrid3.ColWidth(1, 0) = 0
MSHFlexGrid3.ColWidth(2, 0) = 600
MSHFlexGrid3.ColWidth(3, 0) = 800
MSHFlexGrid3.ColWidth(4, 0) = 600
MSHFlexGrid3.ColWidth(5, 0) = 600
MSHFlexGrid3.ColWidth(6, 0) = 800
MSHFlexGrid3.ColWidth(7, 0) = 900
MSHFlexGrid3.BackColorFixed = vbCyan
MSHFlexGrid3.BackColorSel = &HFF8080
MSHFlexGrid3.BackColor = &HFF8080
MSHFlexGrid3.MergeCol(2) = True
MSHFlexGrid3.Col = 2
MSHFlexGrid3.ColSel = 3
MSHFlexGrid3.Sort = 5
MSHFlexGrid4.ColWidth(0, 0) = 150
MSHFlexGrid4.ColWidth(1, 0) = 0
MSHFlexGrid4.ColWidth(2, 0) = 600
MSHFlexGrid4.ColWidth(3, 0) = 800
MSHFlexGrid4.ColWidth(4, 0) = 600
MSHFlexGrid4.ColWidth(5, 0) = 600
MSHFlexGrid4.ColWidth(6, 0) = 800
MSHFlexGrid4.ColWidth(7, 0) = 900
MSHFlexGrid4.BackColorFixed = vbCyan
MSHFlexGrid4.BackColorSel = &HFF8080
MSHFlexGrid4.BackColor = &HFF8000
MSHFlexGrid4.MergeCol(2) = True
MSHFlexGrid4.Col = 2
MSHFlexGrid4.ColSel = 3
MSHFlexGrid4.Sort = 5
End Sub
Private Sub Form_Paint()
Dim i, j As Integer
For i = 0 To 2
For j = 0 To 4
Me.PaintPicture Picture1.Picture, j * Picture1.Width, i * Picture1.Height, _
Picture1.Width, Picture1.Height
Next j, i
End Sub
Private Sub Form_Unload(Cancel As Integer)
hhfc.Adodc2.Refresh
hhfc.Adodc3.Refresh
End Sub
Private Sub Label1_Click()
'频次表赋值
Adodc2.Recordset.MoveFirst
Do While Not Adodc2.Recordset.EOF
Select Case Adodc2.Recordset.Fields(0).Value
Case yi
Adodc2.Recordset.Fields(1).Value = Adodc2.Recordset.Fields(1).Value + 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -