制作员工电话查询数据库3

1、接上文，在VBA窗口中，在左边栏里“窗体”下，双击“UserForm3",就可以弹出窗体3，管理员操作窗口。点上方菜单栏”视图“---”工具箱“，弹出控件工具箱。

3、在”更新数据“框架里，放入”姓名“标签，后面是文本输入框TextBox1；电话号码标签，后面是电话号码文本输入框TextBox4；身份证标签，后面是身份证号文本输入框TextBox7；下方是”更新“CommandButton2和”取消“CommandButton5命令按钮。如下图所示：

5、右键点击右边的“取消”命令按钮CommandButton5，在弹出菜单里选择“查看代码”。输入下面内容。Private Sub CommandButton5_Click()TextBox1.Text = ""TextBox4.Text = ""TextBox7.Text = ""End Sub//让文本输入框清空。

7、接着对两个命令按钮进行编辑命令行。添加数据命筠沭鱿漆令CommandButton3，代码内容如下：Private Sub CommandButton3_Click()With S茑霁酌绡heets(1) Row = .Range("A65536").End(xlUp).Row .Range("A" & Row + 1).Value = TextBox2.Value .Range("B" & Row + 1).Value = TextBox5.Value .Range("C" & Row + 1).Value = TextBox8.ValueEnd WithEnd Sub//把输入的新姓名，电话号码，身份证号加到表格最后一行里。

9、切换到第三个“删除数据”框架，从工具箱里拉两个标签分别为姓名，提示。两个文本框。分别是TextBox9，TextBox10。按顺序相对应。下面两个命令按钮，分别是“删除数据”和“清空”。窗体最右下角放一个命令按钮“退出系统”。如下图：

11、”清空“CommandButton7按钮里的命令行如下：Private Sub CommandButton7_Click()TextBox9.Text = ""TextBox10.Text = ""End Sub//清空两个文本框的内容。