计算机毕业设计员工信息功能介绍：
4.9 员工信息设置
此模块用于管理员对使用该系统的员工进行维护，添加、修改和删除操作。
|
以下是引用片段：
其关键代码实现如下：
Private Sub btn添加_Click()
'修改记录
If Me.Text3.Tag <> "" Then
Dim strResult As String
strResult = Exec_SqL("update YG set ygzw='" & Trim(Me.Text1.Text) & "',ygxb='" & Me.Combo1.Text & "',ygms='" & Me.Text4.Text & "' where ygid=" & CInt(Me.Text3.Tag))
If strResult <> "OK" Then
MsgBox strResult
End If
Call InitList
End If
End Sub
Private Sub UserControl11_Click()
'删除选择的记录
If Me.Text3.Text = "Admin" Then
MsgBox "Admin的帐户不能删除"
Exit Sub
End If
If Me.Text3.Tag <> "" Then
Dim strResult As String
strResult = Exec_SqL("delete from YG where ygid=" & CInt(Me.Text3.Tag))
If strResult <> "OK" Then
MsgBox strResult
End If
Call InitList
End If
End Sub
|
<责任编辑：计算机毕业设计网(http://www.xiaoniu168.com)>