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
参考文献
萨师煊、王珊.数据库系统概论.北京：高等教育出版社，2000年
张海藩.软件工程导论.北京：清华大学出版社，2003年
龚沛曾、陆慰民、杨志强.Visual Basic程序设计教程.北京：高等教育出版社，2000年
白尚旺、党伟超.PowerDesigner软件工程技术.北京：电子工业出版社，2004年
