VB通讯录管理系统 第10页
此界面功能是对所有用户的查找。在输入框中输入相应的关键词后。点击关键词后的查询按钮就可以对此关键词进行查找。当用户输入关键词后，点击后面的查询按钮进行查询，查询成功后，该用户的用户明、用户密码就会在查询结果中显示出来。下面是查询按钮的详细代码：
Private Sub Picture2_Click()
Dim kk As String
kk = Trim(Text1.Text)
If Text1.Text = "" Then
ans = MsgBox("请输入姓名", 65, "同学/友情—查询")
Text1.SetFocus
Else
Data1.RecordSource = "select * from load where name='" & kk & " '"
Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then
ans = MsgBox("没有您所要查询的用户名,请重新输入!", vbOKOnly + vbExclamation, "同学/友情—查询")
Text1.SetFocus
End If
Text1.Text = ""
End If
End Sub
5.3.4通讯录预览菜单的功能实现
通讯录预览菜单的界面如下：
图5.3.5
5.3.5.1 预览功能的实现
预览功能的界面如下：
图5.3.5.1
预览页面实际上是DataReport报表的实现。首先在、窗体中新建一个DataEnvironment环境，在DataEnvironment环境中有一个自带的Connection连接，右击Connection连接，选择“添加命令”将会新建一个Command命令，右击此命令，在弹出的对话框中的资料对象中选择“表”，在“对象名称”中选择相应的“资料表名”，此时Command命令会出现对话框中选定的表的各个字段，最后新建一个DataReport报表,在其Datasourse属性和DataMember属性中做相应的设定,然后将Command命令中的各个字段拖入DataReport报表的细节框中,要求是报表的宽度不能超过标尺15刻度，最后在窗体中添加相应的代码，运行，代码文字叙述。
§5.3.5 通讯录关于菜单的功能实现
通讯录关于菜单的界面图如下：
图5.3.5
此界面包含关于功能和帮助功能。§5.3.5.1 关于界面的是实现
关于界面如下：
图5.3.6.15.3.5.2 帮助功能的实现
帮助功能的界面如下：此界面主要介绍系统制作人对于使用本系统的用户的感谢和祝福！
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>