📄 frmmodifyemployee.frm
字号:
TabIndex = 34
Top = 2280
Width = 495
End
Begin VB.Label lblLabels
Caption = "邮编:"
Height = 255
Index = 28
Left = 8040
TabIndex = 33
Top = 2400
Width = 615
End
Begin VB.Label lblLabels
Caption = "家庭通讯地址:"
Height = 255
Index = 27
Left = 7320
TabIndex = 32
Top = 1920
Width = 1215
End
Begin VB.Label lblLabels
Caption = "转正时间:"
Height = 255
Index = 48
Left = 120
TabIndex = 31
Top = 1560
Width = 1815
End
Begin VB.Label lblLabels
Caption = "进入公司时间:"
Height = 255
Index = 47
Left = 7320
TabIndex = 30
Top = 1200
Width = 1815
End
Begin VB.Label lblLabels
Caption = "学历:"
Height = 255
Index = 15
Left = 3960
TabIndex = 29
Top = 1200
Width = 975
End
Begin VB.Label lblLabels
Caption = "身份证号:"
Height = 255
Index = 14
Left = 120
TabIndex = 28
Top = 2280
Width = 855
End
Begin VB.Label lblLabels
Caption = "婚姻状况:"
Height = 255
Index = 13
Left = 7680
TabIndex = 27
Top = 840
Width = 855
End
Begin VB.Label lblLabels
Caption = "政治面目:"
Height = 255
Index = 12
Left = 120
TabIndex = 26
Top = 1200
Width = 1815
End
Begin VB.Label lblLabels
Caption = "户口所在地:"
Height = 255
Index = 11
Left = 3480
TabIndex = 25
Top = 1920
Width = 1215
End
Begin VB.Label lblLabels
Caption = "籍贯:"
Height = 255
Index = 9
Left = 120
TabIndex = 24
Top = 1920
Width = 615
End
Begin VB.Label lblLabels
Caption = "民族:"
Height = 255
Index = 8
Left = 3960
TabIndex = 23
Top = 840
Width = 615
End
Begin VB.Label lblLabels
Caption = "出生日期:"
Height = 255
Index = 7
Left = 120
TabIndex = 22
Top = 840
Width = 975
End
Begin VB.Label lblLabels
Caption = "性别:"
Height = 255
Index = 2
Left = 7920
TabIndex = 21
Top = 480
Width = 615
End
Begin VB.Label lblLabels
Caption = "姓名:"
Height = 255
Index = 1
Left = 3960
TabIndex = 20
Top = 480
Width = 615
End
Begin VB.Label lblLabels
Caption = "员工号:"
Height = 255
Index = 0
Left = 120
TabIndex = 19
Top = 540
Width = 735
End
End
End
Attribute VB_Name = "frmModifyEmployee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mrc As ADODB.Recordset
Dim myBookmark As Variant
Dim mcclean As Boolean
Private Sub cancelCommand_Click()
Unload Me
End Sub
Private Sub deleteCommand_Click()
'myBookmark = mrc.Bookmark
If MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录") = vbOK Then
'mrc.MoveNext
' If mrc.EOF Then
' mrc.MoveFirst
' myBookmark = mrc.Bookmark
' mrc.Delete
' mrc.MoveLast
'mrc.Bookmark = myBookmark
' Call viewData
' Else
' myBookmark = mrc.Bookmark
mrc.Delete
mrc.MoveFirst
' mrc.Bookmark = myBookmark
Call viewData
' End If
Else
' mrc.Bookmark = myBookmark
Call viewData
End If
End Sub
Private Sub editCommand_Click()
mcclean = False
Frame2.Enabled = False
firstCommand.Enabled = False
previousCommand.Enabled = False
nextCommand.Enabled = False
lastCommand.Enabled = False
Dim i As Integer
txtEmployeeID.Enabled = False
txtName.Enabled = True
txtSex.Enabled = True
txtBirthDay.Enabled = True
txtNation.Enabled = True
txtMarriage.Enabled = True
txtStatus.Enabled = True
txtDegree.Enabled = True
txtEnterCom.Enabled = True
txtForm.Enabled = True
txtDepartment.Enabled = True
txtPosition.Enabled = True
txtHomeTown.Enabled = True
txtLivingPlace.Enabled = True
txtID.Enabled = True
txtAddress.Enabled = True
txtZip.Enabled = True
txtTel.Enabled = True
End Sub
Private Sub firstCommand_Click()
mrc.MoveFirst
Call viewData
End Sub
Private Sub Form_Load()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from 员工信息"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.MoveFirst
Call viewData
' myBookmark = mrc.Bookmark
mcclean = True
txtEmployeeID.Enabled = False
txtName.Enabled = False
txtSex.Enabled = False
txtBirthDay.Enabled = False
txtNation.Enabled = False
txtMarriage.Enabled = False
txtStatus.Enabled = False
txtDegree.Enabled = False
txtEnterCom.Enabled = False
txtForm.Enabled = False
txtDepartment.Enabled = False
txtPosition.Enabled = False
txtHomeTown.Enabled = False
txtLivingPlace.Enabled = False
txtID.Enabled = False
txtAddress.Enabled = False
txtZip.Enabled = False
txtTel.Enabled = False
End Sub
Public Sub viewData()
txtEmployeeID.Text = mrc.Fields(0)
txtName.Text = mrc.Fields(1)
txtSex.Text = mrc.Fields(2)
txtBirthDay.Text = mrc.Fields(3)
txtNation.Text = mrc.Fields(4)
txtMarriage.Text = mrc.Fields(5)
txtStatus.Text = mrc.Fields(6)
txtDegree.Text = mrc.Fields(7)
txtEnterCom.Text = mrc.Fields(8)
txtForm.Text = mrc.Fields(9)
txtDepartment.Text = mrc.Fields(10)
txtPosition.Text = mrc.Fields(11)
txtHomeTown.Text = mrc.Fields(12)
txtLivingPlace.Text = mrc.Fields(13)
txtID.Text = mrc.Fields(14)
txtAddress.Text = mrc.Fields(15)
txtZip.Text = mrc.Fields(16)
txtTel.Text = mrc.Fields(17)
End Sub
Private Sub lastCommand_Click()
mrc.MoveLast
Call viewData
End Sub
Private Sub nextCommand_Click()
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
End If
Call viewData
End Sub
Private Sub previousCommand_Click()
mrc.MovePrevious
If mrc.BOF Then
mrc.MoveLast
End If
Call viewData
End Sub
Private Sub txtBirthPlace_Change()
End Sub
Private Sub updateCommand_Click()
' mrcc.Fields(0) = Trim(txtEmployeeID.Text)
' mrcc.Fields(0) = Trim(txtEmployeeID.Text)
mrc.Fields(1) = Trim(txtName.Text)
mrc.Fields(2) = Trim(txtSex.Text)
mrc.Fields(3) = Trim(txtBirthDay.Text)
mrc.Fields(4) = Trim(txtNation.Text)
mrc.Fields(5) = Trim(txtMarriage.Text)
mrc.Fields(6) = Trim(txtStatus.Text)
mrc.Fields(7) = Trim(txtDegree.Text)
mrc.Fields(8) = Trim(txtEnterCom.Text)
mrc.Fields(9) = Trim(txtForm.Text)
mrc.Fields(10) = Trim(txtDepartment.Text)
mrc.Fields(11) = Trim(txtPosition.Text)
mrc.Fields(12) = Trim(txtHomeTown.Text)
mrc.Fields(13) = Trim(txtLivingPlace.Text)
mrc.Fields(14) = Trim(txtID.Text)
mrc.Fields(15) = Trim(txtAddress.Text)
mrc.Fields(16) = Trim(txtZip.Text)
mrc.Fields(17) = Trim(txtTel.Text)
mrc.Update
MsgBox "员工信息更新成功！", vbOKOnly + vbExclamation, "更新员工信息"
' mrc.Bookmark = myBookmark
Call viewData
Frame2.Enabled = True
firstCommand.Enabled = True
previousCommand.Enabled = True
nextCommand.Enabled = True
lastCommand.Enabled = True
txtEmployeeID.Enabled = False
txtName.Enabled = False
txtSex.Enabled = False
txtBirthDay.Enabled = False
txtNation.Enabled = False
txtMarriage.Enabled = False
txtStatus.Enabled = False
txtDegree.Enabled = False
txtEnterCom.Enabled = False
txtForm.Enabled = False
txtDepartment.Enabled = False
txtPosition.Enabled = False
txtHomeTown.Enabled = False
txtLivingPlace.Enabled = False
txtID.Enabled = False
txtAddress.Enabled = False
txtZip.Enabled = False
txtTel.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -