📄 jzy.frm
字号:
Style = 1 'Graphical
TabIndex = 12
Top = 330
Width = 255
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "拾二月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 11
Top = 4920
Width = 945
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "拾一月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 10
Top = 4500
Width = 945
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "拾月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 9
Top = 4080
Width = 945
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "九月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 8
Top = 3660
Width = 945
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "八月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 7
Top = 3240
Width = 945
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "七月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 6
Top = 2820
Width = 945
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "六月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 5
Top = 2400
Width = 945
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "五月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 4
Top = 1980
Width = 945
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "四月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 3
Top = 1560
Width = 945
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "三月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 2
Top = 1140
Width = 945
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "二月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 1
Top = 720
Width = 945
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "一月"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 660
TabIndex = 0
Top = 300
Width = 945
End
End
Attribute VB_Name = "Jzy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rst As New ADODB.Recordset
Dim cmm As New ADODB.Command
Dim intmy As Integer
Public state As Integer
Private Sub Command1_Click()
Dim str1 As String
If state = 1 Then
If intmy < 12 Then
Call sqlconn_open
str1 = "JZ" & CStr(intmy + 1)
cmm.ActiveConnection = sqlconn
cmm.CommandType = adCmdText
cmm.CommandText = "update JZ set " & str1 & " = 1"
cmm.Execute
Jzmonth = intmy + 1
End If
End If
If state = 2 Then
If intmy <= 12 Then
Call sqlconn_open
str1 = "JZ" & CStr(intmy)
cmm.ActiveConnection = sqlconn
cmm.CommandType = adCmdText
cmm.CommandText = "update JZ set " & str1 & " = 0"
cmm.Execute
Jzmonth = intmy - 1
End If
End If
Call sx
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Call sx
End Sub
Sub sx()
Call sqlconn_open
cmm.ActiveConnection = sqlconn
cmm.CommandType = adCmdText
cmm.CommandText = "select * from JZ"
Set rst = cmm.Execute
For i = 1 To 12
If rst.Fields(i) = True Then
Check1(i - 1).Value = 1
intmy = i
Else
Check1(i - 1).Value = 0
End If
Next
rst.Close
sqlconn.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -