📄 frmchgotherkqinfo.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 frmChgOtherKQInfo
BorderStyle = 3 'Fixed Dialog
Caption = "修改其它考勤信息"
ClientHeight = 4905
ClientLeft = 45
ClientTop = 330
ClientWidth = 6765
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4905
ScaleWidth = 6765
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
Caption = "员工个人信息"
Height = 615
Left = 360
TabIndex = 18
Top = 1320
Width = 6015
Begin VB.TextBox txtID
Height = 270
Left = 1320
TabIndex = 26
Top = 240
Width = 1335
End
Begin VB.TextBox txtName
Height = 270
Left = 4080
TabIndex = 19
Top = 240
Width = 1455
End
Begin VB.Label Label3
Caption = "员工姓名："
Height = 270
Left = 3000
TabIndex = 21
Top = 240
Width = 1215
End
Begin VB.Label Label2
Caption = "员工编号："
Height = 270
Left = 240
TabIndex = 20
Top = 240
Width = 975
End
End
Begin VB.Frame Frame2
Caption = "日期信息"
Height = 615
Left = 360
TabIndex = 15
Top = 600
Width = 6015
Begin MSComCtl2.DTPicker dtpBT
Height = 270
Left = 2760
TabIndex = 16
Top = 240
Width = 1335
_ExtentX = 2355
_ExtentY = 476
_Version = 393216
Format = 23789569
CurrentDate = 38074
End
Begin VB.Label Label4
Caption = "请选择日期："
Height = 255
Left = 1440
TabIndex = 17
Top = 240
Width = 1095
End
End
Begin VB.Frame Frame3
Caption = "员工请假信息"
Height = 615
Left = 360
TabIndex = 10
Top = 2160
Width = 6015
Begin VB.TextBox Pleave
Height = 270
Left = 1320
TabIndex = 12
Top = 240
Width = 1335
End
Begin VB.TextBox Ileave
Height = 270
Left = 3720
TabIndex = 11
Top = 240
Width = 1455
End
Begin VB.Label Label5
Caption = "事假："
Height = 255
Left = 480
TabIndex = 14
Top = 240
Width = 735
End
Begin VB.Label Label6
Caption = "病假："
Height = 255
Left = 3000
TabIndex = 13
Top = 240
Width = 735
End
End
Begin VB.Frame Frame4
Caption = "员工加班信息"
Height = 615
Left = 360
TabIndex = 5
Top = 2880
Width = 6015
Begin VB.TextBox COverDay
Height = 270
Left = 1440
TabIndex = 7
Top = 240
Width = 1335
End
Begin VB.TextBox SOverDay
Height = 270
Left = 4320
TabIndex = 6
Top = 240
Width = 1455
End
Begin VB.Label Label7
Caption = "正常加班天数："
Height = 255
Left = 120
TabIndex = 9
Top = 240
Width = 1335
End
Begin VB.Label Label8
Caption = "特殊加班天数："
Height = 255
Left = 3000
TabIndex = 8
Top = 240
Width = 1335
End
End
Begin VB.Frame Frame5
Caption = "员工出差信息"
Height = 615
Left = 360
TabIndex = 0
Top = 3600
Width = 6015
Begin VB.TextBox EPurpose
Height = 270
Left = 1440
TabIndex = 2
Top = 240
Width = 1455
End
Begin VB.TextBox EDays
Height = 270
Left = 4200
TabIndex = 1
Top = 240
Width = 1575
End
Begin VB.Label Label9
Caption = "出差目的地："
Height = 255
Left = 240
TabIndex = 4
Top = 240
Width = 1095
End
Begin VB.Label Label10
Caption = "出差天数："
Height = 255
Left = 3120
TabIndex = 3
Top = 240
Width = 975
End
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "修改其他考勤信息"
BeginProperty Font
Name = "隶书"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1560
TabIndex = 25
Top = 0
Width = 3735
End
Begin MSForms.CommandButton cmdOK
Height = 375
Left = 960
TabIndex = 24
Top = 4440
Width = 1095
Caption = "确定"
PicturePosition = 327683
Size = "1931;661"
Picture = "frmChgOtherKQInfo.frx":0000
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdExit
Height = 375
Left = 4320
TabIndex = 23
Top = 4440
Width = 1095
Caption = "返回"
PicturePosition = 327683
Size = "1931;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdClear
Height = 375
Left = 2640
TabIndex = 22
Top = 4440
Width = 1095
Caption = "清空"
PicturePosition = 327683
Size = "1931;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Attribute VB_Name = "frmChgOtherKQInfo"
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 strMsg As String
Dim rs As New ADODB.Recordset
sql = ""
End Sub
Private Sub txtName_Validate(Cancel As Boolean) 'Validate 表示失去焦点之前发生的事件
Dim sql As String
Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim strMsg As String
Dim strmsg1 As String
Dim strmsg2 As String
Dim strmsg3 As String
sql = "select * from t_br where 姓名= '" & txtName & "'"
sql1 = "select * from LeaveInfo"
sql2 = "select * from OverTimeInfo"
sql3 = "select * from ErrandInfo"
Set rs = ExecuteSQL(sql, strMsg)
Set rs1 = ExecuteSQL(sql1, strmsg1)
Set rs2 = ExecuteSQL(sql2, strmsg2)
Set rs3 = ExecuteSQL(sql3, strmsg3)
If rs.BOF Or rs.EOF Then
MsgBox "无记录或此姓名不存在", vbOKOnly + vbExclamation, "警告"
'txtID.Text = ""
txtName.Text = ""
txtName.SetFocus
Exit Sub
Else
txtID.Text = rs.Fields("工号")
txtName.Text = rs.Fields("姓名")
Pleave.Text = rs.Fields("事假天数")
ILeave.Text = rs.Fields("病假天数")
End If
End Sub
Private Sub txtID_Validate(Cancel As Boolean) 'Validate 表示失去焦点之前发生的事件
Dim sql As String
Dim rs As New ADODB.Recordset
Dim strMsg As String
sql = "select * from t_br where 工号= '" & txtID & "'"
Set rs = ExecuteSQL(sql, strMsg)
If rs.BOF Or rs.EOF Then
MsgBox "无记录或此工号不存在", vbOKOnly + vbExclamation, "警告"
txtID.Text = ""
'txtName.Text = ""
txtID.SetFocus
Exit Sub
Else
txtID.Text = rs.Fields("工号")
txtName.Text = rs.Fields("姓名")
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -