📄 autoshezhi.frm
字号:
EndProperty
ForeColor = &H00C0FFFF&
Height = 285
Left = 5040
TabIndex = 7
Top = 3240
Width = 600
End
Begin VB.Label Label7
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 = &H00C0FFFF&
Height = 285
Left = 5040
TabIndex = 6
Top = 2640
Width = 600
End
Begin VB.Label Label6
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 = &H00C0FFFF&
Height = 285
Left = 5040
TabIndex = 5
Top = 2040
Width = 1200
End
Begin VB.Label Label4
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 = &H00C0FFFF&
Height = 285
Left = 120
TabIndex = 4
Top = 3840
Width = 2400
End
Begin VB.Label Label3
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 = &H00C0FFFF&
Height = 285
Left = 120
TabIndex = 3
Top = 3240
Width = 2400
End
Begin VB.Label Label2
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 = &H00C0FFFF&
Height = 285
Left = 120
TabIndex = 2
Top = 2640
Width = 2400
End
Begin VB.Label Label1
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 = &H00C0FFFF&
Height = 285
Left = 120
TabIndex = 1
Top = 2040
Width = 1890
End
Begin VB.Label Label5
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "本软件根据以下设置，将响铃时间进行自动调节"
BeginProperty Font
Name = "黑体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 870
Left = 480
TabIndex = 0
Top = 0
Width = 5940
WordWrap = -1 'True
End
End
Attribute VB_Name = "autoshezhi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Me.Data1.Refresh
Load Form2
Form2.show
Me.Visible = False
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误，注释掉下一行代码
'如果想捕捉错误，在这里添加错误处理代码
MsgBox "数据错误事件命中错误：" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录：" & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象，当记录集创建后并使用下面的行时，
'必须设置 Index 属性
'Data1.Caption = "记录：" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时，调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Activate()
Me.Data1.Recordset.MoveLast
Call bushiong
Call shiyong
End Sub
Private Sub Form_Load()
Me.Data1.DatabaseName = App.Path + "\" & "\xiaoyuan.mdb"
Me.Data1.RecordSource = "自动化"
Me.Data2.DatabaseName = App.Path + "\" & "\xiaoyuan.mdb"
Me.Data2.RecordSource = "自动化空"
End Sub
Private Sub bushiyong()
If Me.Combo1.Text = "否" Then
Me.Text2.DataSource = Data2
Me.Text2.DataField = "课间休息"
Me.Text3.DataSource = Data2
Me.Text3.DataField = "授课时间"
Me.Text4.DataSource = Data2
Me.Text4.DataField = "午间休息"
Me.Combo4.DataSource = Data2
Me.Combo4.DataField = "点"
Me.Combo5.DataSource = Data2
Me.Combo5.DataField = "分"
Me.Combo6.DataSource = Data2
Me.Combo6.DataField = "秒"
End If
End Sub
Private Sub shiyong()
If Me.Combo1.Text = "是" Then
Me.Text2.DataSource = Data1
Me.Text2.DataField = "休息时间"
Me.Text3.DataSource = Data1
Me.Text3.DataField = "授课时间"
Me.Text4.DataSource = Data1
Me.Text4.DataField = "午间休息"
Me.Combo4.DataSource = Data1
Me.Combo4.DataField = "点"
Me.Combo5.DataSource = Data1
Me.Combo5.DataField = "分"
Me.Combo6.DataSource = Data1
Me.Combo6.DataField = "秒"
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -