📄 holiday.frm
字号:
Height = 375
Left = 1560
TabIndex = 10
Top = 4680
Visible = 0 'False
Width = 1815
_ExtentX = 3201
_ExtentY = 661
_Version = 393216
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 24641536
CurrentDate = 37282
End
Begin MSComCtl2.DTPicker riqi1
Height = 375
Left = 1560
TabIndex = 13
Top = 3240
Width = 1815
_ExtentX = 3201
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 24641536
CurrentDate = 37280
End
Begin VB.Label Label9
BackColor = &H00C0C0C0&
Caption = "休息日数："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 19
Top = 2580
Width = 1095
End
Begin VB.Label Label8
BackColor = &H00C0C0C0&
Caption = "休假类型："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 18
Top = 1932
Width = 1095
End
Begin VB.Label Label6
Caption = "到"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3240
TabIndex = 15
Top = 4005
Visible = 0 'False
Width = 375
End
Begin VB.Label Label7
Caption = "到"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
TabIndex = 14
Top = 4680
Visible = 0 'False
Width = 375
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "姓 名："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 7
Top = 1320
Width = 975
End
Begin VB.Label Label3
BackColor = &H00C0C0C0&
Caption = "部 门："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 6
Top = 600
Width = 975
End
Begin VB.Label Label4
BackColor = &H00C0C0C0&
Caption = "休息时间："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 5
Top = 4080
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label5
BackColor = &H00C0C0C0&
Caption = "休息日期："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 4
Top = 3360
Width = 1095
End
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 2
Top = 7995
Width = 9375
_ExtentX = 16536
_ExtentY = 873
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 15875
MinWidth = 15875
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
TextSave = "02-11-22"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
TextSave = "16:00"
EndProperty
EndProperty
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "请 假 登 记"
BeginProperty Font
Name = "黑体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 975
Left = 4920
TabIndex = 0
Top = 120
Width = 4815
End
End
Attribute VB_Name = "frmholiday"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Rst As ADODB.Recordset
Dim Cnn As ADODB.Connection
Dim RstQingJia As ADODB.Recordset
Dim CnnQingJia As ADODB.Connection
Dim RstTianShu As ADODB.Recordset
Dim CnnTianShu As ADODB.Connection
Dim Rstkaoqin As ADODB.Recordset
Dim Rstfaka As ADODB.Recordset
Dim cardono, Banhao, BanMing
Dim rs, MM
Dim TianShu, HDay1, HDay2, HDDay1, HDDay2, DuoXiaoTian, H1, H2, AA, BB, CardNo, GongHao
Private Sub BanTian_Click()
If BanTian.Value = True Then
Frame5.Visible = True
Rishu.Text = 0.5
End If
End Sub
Private Sub BtnExit_Click()
Unload Me
End Sub
Private Sub btnSure_Click()
Dim YuYueJia, IfFu, BuShiJian
If MsgBox("是否保存数据??", vbYesNo, "注意！") = vbNo Then Exit Sub
'If CheckAffter.Value = 1 Then
HDay1 = Format(riqi1.Value, "yyyymmdd")
Set Rstkaoqin = New ADODB.Recordset
Rstkaoqin.Open "select * from dangtiandaka where xingming='" + Seleinfo.Text + "'and riqi='" + HDay1 + "'", CnnTianShu, adOpenStatic, adLockBatchOptimistic, adCmdText
If Not Rstkaoqin.EOF And Not IsNull(Rstkaoqin.Fields(5)) Then
MsgBox "数据已存在！！", vbOKOnly, "提醒！！"
Exit Sub
End If
If Option2.Value = True Then
'CheckChaTime = DateDiff("N", CheckDaKaTime, IfDaKaTime)
BuShiJian = DateDiff("h", rijian1.Value, rijian2.Value)
Set Rstkaoqin = New ADODB.Recordset
Rstkaoqin.Open "select * from Dangtiandaka where riqi='" & riqi1.Value & "'", CnnTianShu, adOpenStatic, adLockBatchOptimistic, adCmdText
If Not Rstkaoqin.EOF Then
Rstkaoqin.Fields(5) = "补休" & BuShiJian & "小时"
Rstkaoqin!bujiaB = Format(rijian1.Value, "hh:mm")
Rstkaoqin!bujiaE = Format(rijian2.Value, "hh:mm")
Rstkaoqin.UpdateBatch
End If
Exit Sub
End If
Set Rstkaoqin = New ADODB.Recordset
Rstkaoqin.Open "select * from qingjiatianshu where xingming='" + Seleinfo.Text + "'", CnnTianShu, adOpenStatic, adLockBatchOptimistic, adCmdText
If Not Rstkaoqin.EOF Then
YuYueJia = Rstkaoqin!TianShu
IfFu = CDbl(YuYueJia) - CDbl(Rishu.Text)
If IfFu < 0 Then
MsgBox "此人本月已没有月假,请核对!!", vbOKOnly, "提醒!!"
Exit Sub
End If
End If
If BanTian.Value = False And tian.Value = False Then
MsgBox "请选择“一天”或“半天”!!", vbOKOnly, "提醒！！"
End If
If BanTian.Value = True Then
If Xiang.Value = 0 And Xia.Value = 0 Then
MsgBox "请选择上下午！", vbOKOnly, "提醒！！"
Exit Sub
End If
End If
Set RstTianShu = New ADODB.Recordset
RstTianShu.Open "select * from Qingjiatianshu where xingming='" + Seleinfo.Text + "'", CnnTianShu, adOpenStatic, adLockBatchOptimistic, adCmdText
If Jialei.Text = "月假" Then
TianShu = CInt(RstTianShu.Fields(1))
rs = Rishu.Text
TianShu = TianShu - rs
RstTianShu!TianShu = CStr(TianShu)
RstTianShu.UpdateBatch
End If
If Jialei.Text = "年假" Then
TianShu = CInt(RstTianShu.Fields(2))
rs = Rishu.Text
TianShu = TianShu - rs
RstTianShu!nianjia = CStr(TianShu)
RstTianShu.UpdateBatch
End If
If Jialei.Text = "事假" Then
TianShu = CInt(RstTianShu.Fields(3))
rs = Rishu.Text
TianShu = TianShu + rs
RstTianShu!shijia = CStr(TianShu)
RstTianShu!ifshijia = 1
RstTianShu.UpdateBatch
End If
If Jialei.Text = "病假" Then
TianShu = CInt(RstTianShu.Fields(4))
rs = Rishu.Text
TianShu = TianShu + rs
RstTianShu!bingjia = CStr(TianShu)
RstTianShu.UpdateBatch
End If
Set RstQingJia = New ADODB.Recordset
' RstQingJia.Open "select from qingjia", CnnQingJia, adOpenStatic, adLockBatchOptimistic, adCmdText
RstQingJia.Open "select * from qingjia", CnnQingJia, adOpenStatic, adLockBatchOptimistic, adCmdText
If Not RstQingJia.EOF Then
RstQingJia.AddNew
RstQingJia.Fields(0) = bumen.Text
RstQingJia.Fields(1) = Seleinfo.Text
RstQingJia.Fields(2) = Jialei.Text
If xiaoshi.Value = True Then
RstQingJia.Fields(3) = rijian1.Value
RstQingJia.Fields(4) = rijian2.Value
Else
RstQingJia.Fields(3) = ""
RstQingJia.Fields(4) = ""
End If
RstQingJia.Fields(5) = riqi1.Value
RstQingJia.Fields(9) = Rishu.Text
RstQingJia.Fields(7) = riqi2.Value
RstQingJia.UpdateBatch
RstQingJia.Close
End If
MM = CStr(Format(riqi1.Value, "yyyymmdd"))
Set Rstkaoqin = New ADODB.Recordset
Rstkaoqin.Open "select * from dangtiandaka where xingming='" + Seleinfo.Text + "'and riqi='" + MM + "' ", Cnn, adOpenStatic, adLockBatchOptimistic, adCmdText
If Not Rstkaoqin.EOF Then
Rstkaoqin!IFLate = 0
If tian.Value = True Then
Rstkaoqin.Fields(5) = "全日休假"
End If
If BanTian.Value = True Then
If Xiang.Value = 1 And Xia.Value = 0 Then
Rstkaoqin.Fields(5) = "上午休息"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -