删除等操作，在此就不再赘述
Private Sub Command5_Click()
Adodc1.RecordSource = "select workno as 职工号,userregname as 用户名,position as 职位,power as 权限,name as 姓名 from userinfor where name='" & Text6.Text & "' and position='" & Text7 & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "无此信息!", , "提示"
Adodc1.RecordSource = "select workno as 职工号,userregname as 用户名,position as 职位,power as 权限,name as 姓名 from userinfor"
Adodc1.Refresh
Text6.Text = ""
Text7.Text = ""
Text6.SetFocus
End If
End Sub
Private Sub Form_Load()
Adodc1.RecordSource = "select workno as 职工号,userregname as 用户名,position as 职位,power as 权限,name as 姓名 from userinfor"
Adodc1.Refresh
End Sub
