📄 xgkq.frm
字号:
TabIndex = 9
Top = 240
Width = 1335
End
Begin VB.TextBox txtqj
Height = 375
Left = 5520
TabIndex = 8
Top = 720
Width = 1815
End
Begin VB.TextBox txtjb
Height = 375
Left = 5520
TabIndex = 7
Top = 1200
Width = 1815
End
Begin VB.TextBox txtcc
Height = 375
Left = 5520
TabIndex = 6
Top = 1680
Width = 1815
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "出勤"
Height = 375
Left = 120
TabIndex = 43
Top = 240
Width = 735
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "矿工"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2760
TabIndex = 21
Top = 240
Width = 735
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "早退"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 20
Top = 240
Width = 735
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "年休"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 19
Top = 720
Width = 735
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "请假"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4560
TabIndex = 18
Top = 720
Width = 1095
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "迟到"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 17
Top = 1320
Width = 1095
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "其他加班费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 16
Top = 1800
Width = 1215
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
Caption = "假日加班"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4560
TabIndex = 15
Top = 1200
Width = 975
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "出差天数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4560
TabIndex = 14
Top = 1680
Width = 975
End
End
Begin VB.Frame framzu
BackColor = &H00D8D7D5&
Caption = "备注"
Height = 1935
Left = 120
TabIndex = 1
Top = 5760
Width = 7575
Begin VB.CommandButton display
Caption = "显示要修改的员工记录"
Height = 375
Left = 0
TabIndex = 44
Top = 1560
Width = 2055
End
Begin VB.TextBox txtbz
Height = 1215
Left = 120
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 4
Top = 240
Width = 7215
End
Begin VB.CommandButton Command1
BackColor = &H00D8D7D5&
Caption = "修改"
Height = 495
Left = 3960
TabIndex = 3
Top = 1440
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "取消"
Height = 495
Left = 5760
TabIndex = 2
Top = 1440
Width = 1455
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Caption = "请先输入员工编号"
ForeColor = &H000000FF&
Height = 255
Left = 2160
TabIndex = 46
Top = 1680
Width = 1455
End
End
End
Begin VB.Label Label21
BackStyle = 0 'Transparent
Caption = "修 改 员 工 考 勤 信 息"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 1920
TabIndex = 45
Top = 240
Width = 3615
End
Begin VB.Image Image1
Height = 345
Left = 7560
Picture = "xgkq.frx":6783
Top = 0
Width = 345
End
End
Attribute VB_Name = "xgkq"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
SqlStmt = "UPDATE ygkqzb set name='" + Trim(txtName.Text) + "',bm='" + Trim(cmbdepart.Text) + "',kqny='" + Trim(txtyear.Text) + "',byts='" _
+ Trim(txtday1.Text) + "',gxts='" + Trim(txtday2.Text) + "',ycts='" + Trim(txtday3.Text) + "',jbf='" + Trim(txtmoney1.Text) + "',kk='" + Trim(txtmoney2.Text) + "',cq='" + Trim(txtcq.Text) + "',kg='" _
+ Trim(txtkg.Text) + "',nx='" + Trim(txtnx.Text) + "',qj='" + Trim(txtqj.Text) + "',cd='" + Trim(txtcd.Text) + "',zt='" + Trim(txtzt.Text) + "',qtjbf='" + Trim(txtqt.Text) + "',jrjb='" + Trim(txtjb.Text) + "',cc='" + Trim(txtcc.Text) + "',bz='" + Trim(txtbz.Text) + "' where bh='" + Trim(txtID.Text) + "'"
mydb.opendb
b = mydb.exesql(SqlStmt, rs3, True)
mydb.closedb
If b Then
MsgBox "修改成功", 48, "提示"
Else
MsgBox "操作失败", 48, "提示"
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
End Sub
Private Sub display_Click()
SqlStmt = "select * from ygkqzb where bh='" + Trim(txtID.Text) + " '"
mydb.opendb
b = mydb.exesql(SqlStmt, rs3, True)
Call Viewdata
mydb.closedb
End Sub
Public Sub Viewdata()
txtName.Text = rs3.Fields(1)
cmbdepart.Text = rs3.Fields(2)
txtyear.Text = rs3.Fields(3)
txtday1.Text = rs3.Fields(4)
txtday2.Text = rs3.Fields(5)
txtday3.Text = rs3.Fields(6)
txtmoney1.Text = rs3.Fields(7)
txtmoney2.Text = rs3.Fields(8)
txtkg.Text = rs3.Fields(9)
txtzt.Text = rs3.Fields(10)
txtnx.Text = rs3.Fields(11)
txtcq.Text = rs3.Fields(12)
txtqj.Text = rs3.Fields(13)
txtcd.Text = rs3.Fields(14)
txtjb.Text = rs3.Fields(15)
txtqt.Text = rs3.Fields(16)
txtcc.Text = rs3.Fields(17)
txtbz.Text = rs3.Fields(18)
End Sub
Private Sub Frame7_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Form_Load()
SqlStmt = "select *from Department"
mydb.opendb
b = mydb.exesql(SqlStmt, rs3, True)
With cmbdepart
While Not rs3.EOF
.AddItem rs3.Fields(1)
rs3.MoveNext
Wend
End With
mydb.closedb
End Sub
Private Sub Image1_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -