VB课程设计报告.docVIP

Visual Basic课程设计报告 报告人：王菁 题目介绍及功能要求 每个现代人都有众多的亲戚、朋友、业务伙伴的通讯信息（包括姓名、性别、生日、工作单位、电话号码和邮政编码等）需要维护。平常所使用的纸质通讯录不便于管理大量的通讯录信息，特别是查询起来相当费事。本题目要求编制一个通讯录管理程序，实现通讯录信息的添加、修改、删除和查询功能。 所含控件名称 命令按钮控件、文本框控件、标签控件、列表框控件、图片框控件、滚动条控件、组合框控件、动态数组控件、日期选择器控件 新控件简介 DTPicker控件 日期选择器控件，是专为用户输入单个日期设计的，一般状态下它像个组合框，可以单独编辑器中日期的年、月、日数值。单击右边下拉按钮时，会弹出一个月历控件，从中可以方便的单击选择一个日期，当Value值改变时引发Change事件。本程序中编写Birthday = DTPicker1.Value语句对该控件进行应用。 配置文件的应用 配置文件是一种特殊格式的文本文件，一般以.ini为扩展名。配置文件中的空行被忽略，以分号“；”开头的行作为注释内容也被忽略。节名不能重复，同节中的键名也不能重复。本例中[Record1] [Record2] [Record3]等即为节名，姓名、性别、邮政编码、手机、电子邮件、出生日期、所在城市、工作单位、住宅电话、办公电话、照片、职务职称、地址即为键名。因为配置文件的特殊格式，Windows提供了专门的API函数对其进行读写，与一般的文本文件读写操作相比更加简便，配置文件的读写不必使用Open、Close、Write、Input等顺序文件的文件操作语句。 可以使用WritePrivateProfileString函数在配置文件的指定节中写入一个键，此函数的声明语句如下：Public Declare Function WritePrivateProfileString Lib kernel32 Alias WritePrivateProfileStringA (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long 使用时如果指定的文件不存在会自动创建，如果文件中无指定的节名也会自动创建，如果指定的节名中已有同名的键，会被新值覆盖。 可以使用GetPrivateProfileString函数在配置文件的指定节中读出一个键，此函数的声明语句如下：Public Declare Function GetPrivateProfileString Lib kernel32 Alias GetPrivateProfileStringA (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long 注意：对应于lpReturnedString 参数的变量应是一个足够长的字符串变量，否则不能容纳读出的字符。nSize参数的值不能大于lpReturnedString参数的实际长度。 运行界面和功能 此界面为主界面，可用来显示各个联系人的信息。 此界面为添加联系人界面，在此界面可以输入新的人员信息然后保存。 此界面为修改当前记录界面，可修改除姓名外的所有信息，点击确定保存。 遇到的困难及解决办法 多个变量的处理 本来想使用各个变量单独定义的方法，发现太麻烦，不仅编写程序麻烦，而且录入信息、修改信息、保存信息也很麻烦。后来参考课本上的提示，选择了动态数组控件，解决了这个问题。 Public Type Addr Name As String * 4 姓名 Sex As Boolean 性别 Birthday As Date 生日 City As String * 20 所在城市 Title As String * 6 职务职称 Company As String * 30 工作单位 Address As String * 30 地址 Tel_Home As String * 8 住宅电话 Tel_Office As String * 8 办公电话 Mobi