在线通讯录设计报告

在线通讯录设计报告

一、设计分析 目标要求

1）、分析要解决的问题，明确实训目的，了解“在线通讯录”程序应具备的功能，划分功能模块，并画出系统功能模块图。

2）根据各程序模块的功能分别画出程序的详细流程图。

3）分模块编写程序。

4）程序编写完，分模块调试，各模块调试通过之后，在联起来调试，调试通 过之后试运行无错误时，编译生成可执行文件。

二、程序结构

输入时间

是↓

－－－－退出？ ｜ ↓否

｜ 等待←－－－－－－－

｜ ↓无 ｜

｜ 键盘输入？－－－－－－ ｜ ↓有 ｜

｜ 显示时间－－－－－－

｜

｜－－－结束 三、各模块的功及程序说明

设计一个类似于高端“在线通讯”功能的应用程序，当系统界面和代码设计完成运行后，能够实现以下操作：

1）通讯录管理程序将用一个单向链表来管理朋友的情况。每个朋友都有姓名和一个电话号码这些数据都将由类TFriend来管理

2）链表的值指针指向这些TFriend类，通过对链表的链表的遍历可以操作这些数据。

3）能够添加，显示，修改，查找，保存和装载。

四、源程序

Option Explicit

Dim fileName As String

Private Sub Command1_Click() '将文本框中的信息添加到列表框中 Dim i As Integer

With ListView1.ListItems.Add() .Text = Text1(0) For i = 1 To 4

.SubItems(i) = Text1(i) Next i End With End Sub

Private Sub Command2_Click() '删除列表框中信息

If ListView1.ListItems.Count > 0 Then

If MsgBox(\"真的要删除吗？\vbYes Then

ListView1.ListItems.Remove ListView1.SelectedItem.Index End If End If End Sub

Private Sub Form_Load()

Dim tpStr As String, i As Integer fileName = App.Path & \"\\data.txt\" If Dir(fileName) <> \"\" Then '加载数据

Open fileName For Input As #1

Do While Not EOF(1)

With ListView1.ListItems.Add() For i = 0 To 4

Line Input #1, tpStr If i = 0 Then .Text = tpStr Else

.SubItems(i) = tpStr End If Next i End With Loop Close #1 End If End Sub

Private Sub Form_Unload(Cancel As Integer) Dim i As Integer

Dim tpList As ListItem '保存数据

Open fileName For Output As #1

For Each tpList In ListView1.ListItems Print #1, tpList.Text For i = 1 To 4

Print #1, tpList.SubItems(i) Next i

Next tpList Close #1 End Sub 五、操作方流程 开始 运行程序 是

六、试验结果