制作员工电话查询数据库3
1、接上文，在VBA窗口中，在左边栏里“窗体”下，双击“UserForm3",就可以弹出窗体3，管理员操作窗口。点上方菜单栏”视图“---”工具箱“，弹出控件工具箱。
2、从控件工具箱里拉出三个框架，放到窗体里，分别把框架名称caption改为”更新数据“，”添加数据“，”删除数据“。如下图所示：
3、在”更新数据“框架里，放入”姓名“标签，后面是文本输入框TextBox1；电话号码标签，后面是电话号码文本输入框TextBox4；身份证标签，后面是身份证号文本输入框TextBox7；下方是”更新“CommandButton2和”取消“CommandButton5命令按钮。如下图所示：
4、下面对"更新数倌栗受绽据”框架里的命令按钮进行编辑命令行。右键点击“更新”按钮CommandButton2。在弹出菜单里选择“查看代码”。输入下面内容：Private Sub CommandButton2_Click()Dim name As StringDim i As Longname = TextBox1.TextFor i = 2 To [A65536].End(xlUp).RowIf Cells(i, 1) = name Then Cells(i, 2) = TextBox4.Text: Cells(i, 3) = TextBox7.TextIf Cells(i, 1).Value = name Then Exit ForNextEnd Sub//解释：在电话表格里查找姓名，如果找到则把原来的号码换成现在输入的号码，把身份证号填入身份证那一栏里。如下图：
5、右键点击右边的“取消”命令按钮CommandButton5，在弹出菜单里选择“查看代码”。输入下面内容。Private Sub CommandButton5_Click()TextBox1.Text = ""TextBox4.Text = ""TextBox7.Text = ""End Sub//让文本输入框清空。
6、切换到第二个“添加数据”框架，和第一个框架一样，从工具箱里拉三个标签分别为姓名，电话号码，身份证号。三个文本框。分别是TextBox2，TextBox5，TextBox8。按顺序相对应。下面两个命令按钮，名称分别为“添加数据”，“清空”。命令名分别是CommandButton3，CommandButton6。
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//把输入的新姓名，电话号码，身份证号加到表格最后一行里。
8、“清空”按钮代码行如下：Private Sub CommandButton6_Click()TextBox2.Text = ""TextBox5.Text = ""TextBox8.Text = ""End Sub//三个文本框数据清空。
9、切换到第三个“删除数据”框架，从工具箱里拉两个标签分别为姓名，提示。两个文本框。分别是TextBox9，TextBox10。按顺序相对应。下面两个命令按钮，分别是“删除数据”和“清空”。窗体最右下角放一个命令按钮“退出系统”。如下图：
10、下面对这些命令按钮进行编乩态祗嚆辑命令行。“删除数据“命令按钮CommandButton4里的内容：Private Sub CommandButton4_Click()Di罪焐芡拂m name As StringDim i As Longname = TextBox9.TextFor i = 2 To [A65536].End(xlUp).RowIf Cells(i, 1) = name Then Rows(i).Delete: TextBox10.Text = "资料已删除。"If Cells(i, 1).Value <> name Then TextBox10.Text = "数据库中无此人！"If Cells(i, 1).Value = name Then Exit ForNextEnd Sub//从表格里查找相应的输入姓名，如果有此人，则删除其资料。如果找不到输入的姓名，则提示”数据库中无此人！“。
11、”清空“CommandButton7按钮里的命令行如下：Private Sub CommandButton7_Click()TextBox9.Text = ""TextBox10.Text = ""End Sub//清空两个文本框的内容。
12、”退出系统“CommandButton1按钮命令行如下：Private Sub CommandButton1_Click()Unload Me '卸载窗体End Sub到此整个数据库为设计完成。希望通过抛砖引玉，为大家提供举一反三的VBA应用。通过本文实例。加上你的移植，就可以做出其他更为复杂的VBA应用。
