📄 frmsetinouttime.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form frmSetInOutTime
BorderStyle = 3 'Fixed Dialog
Caption = "设置上下班时间"
ClientHeight = 3600
ClientLeft = 45
ClientTop = 330
ClientWidth = 6315
Icon = "frmSetInOutTime.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3600
ScaleWidth = 6315
ShowInTaskbar = 0 'False
Begin VB.Frame Frame2
Caption = "下午上下班时间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1935
Left = 3360
TabIndex = 8
Top = 840
Width = 2775
Begin MSComCtl2.DTPicker dtpBT2
Height = 375
Left = 1200
TabIndex = 9
Top = 360
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
Format = 85131266
CurrentDate = 38074
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 375
Left = 1200
TabIndex = 10
Top = 1200
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
Format = 85131266
CurrentDate = 38074
End
Begin VB.Label Label5
Caption = "上班时间："
Height = 375
Left = 240
TabIndex = 12
Top = 480
Width = 1095
End
Begin VB.Label Label4
Caption = "下班时间："
Height = 495
Left = 240
TabIndex = 11
Top = 1200
Width = 975
End
End
Begin VB.Frame Frame1
Caption = "上午上下班时间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1935
Left = 240
TabIndex = 1
Top = 840
Width = 2775
Begin MSComCtl2.DTPicker dtpBT
Height = 375
Left = 1200
TabIndex = 6
Top = 360
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
Format = 85131266
CurrentDate = 38074
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 1200
TabIndex = 7
Top = 1200
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
Format = 85131266
CurrentDate = 38074
End
Begin VB.Label Label3
Caption = "下班时间："
Height = 495
Left = 240
TabIndex = 3
Top = 1200
Width = 975
End
Begin VB.Label Label2
Caption = "上班时间："
Height = 375
Left = 240
TabIndex = 2
Top = 480
Width = 1095
End
End
Begin MSForms.CommandButton cmdExit
Height = 375
Left = 3480
TabIndex = 5
Top = 3000
Width = 1095
Caption = "返回"
PicturePosition = 327683
Size = "1931;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdOK
Height = 375
Left = 1440
TabIndex = 4
Top = 3000
Width = 1095
Caption = "确定"
PicturePosition = 327683
Size = "1931;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "设置上下班时间"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 0
Top = 120
Width = 4575
End
End
Attribute VB_Name = "frmSetInOutTime"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdOk_Click() '设置上下班时间
Dim sql As String
Dim rs As New ADODB.Recordset
Dim strMsg As String
sql = "delete * from TimeSetting"
Set rs = ExecuteSQL(sql, strMsg) '查找数据库，读取记录 '
If dtpBT.Value >= DTPicker1.Value Then '判断下班时间大于上班时间
MsgBox "请正确的输入时间", vbOKOnly + vbExclamation, "警告！"
Me.dtpBT.SetFocus '设置焦点
Exit Sub
End If
If dtpBT2.Value >= DTPicker2.Value Or dtpBT2.Value <= DTPicker1.Value Or dtpBT2.Value <= dtpBT.Value Then '判断下班时间大于上班时间
MsgBox "请正确的输入时间", vbOKOnly + vbExclamation, "警告！"
Me.dtpBT2.SetFocus '设置焦点
Exit Sub
End If
sql = "select * from TimeSetting"
Set rs = ExecuteSQL(sql, strMsg)
rs.AddNew
rs.Fields("上午上班时间") = CDate(dtpBT.Hour & ":" & dtpBT.Minute & ":" & dtpBT.Second)
rs.Fields("上午下班时间") = CDate(DTPicker1.Hour & ":" & DTPicker1.Minute & ":" & DTPicker1.Second)
rs.Fields("下午上班时间") = CDate(dtpBT2.Hour & ":" & dtpBT2.Minute & ":" & dtpBT2.Second)
rs.Fields("下午下班时间") = CDate(DTPicker2.Hour & ":" & DTPicker2.Minute & ":" & DTPicker2.Second)
rs.Update
rs.Close
MsgBox "时间已经设置", vbOKOnly + vbInformation, "设置结果！"
Unload Me
End Sub
Private Sub Form_Load()
Dim sql As String
Dim rs As New ADODB.Recordset
Dim strMsg As String
sql = "select * from TimeSetting"
Set rs = ExecuteSQL(sql, strMsg)
If rs.EOF Then Exit Sub
dtpBT.Value = rs.Fields("上午上班时间")
DTPicker1.Value = rs.Fields("上午下班时间")
dtpBT2.Value = rs.Fields("下午上班时间")
DTPicker2.Value = rs.Fields("下午下班时间")
End Sub
Private Sub Label4_Click()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -