DOC《《程序设计》报告》

删除列表框中信息 If ListView1.ListItems.Count >

0 Then If MsgBox( 真的要删除吗? , vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then ListView1.ListItems.Remove ListView1.SelectedItem.Index End If End If End Sub (6)清空----用于清空左边文本框里的记录,将文本框中内容清除后见图七 图七 代码如下: Private Sub Command3_Click() '

清空文本框内容,以便继续填写 Text1(0) = Text1(1) = Text1(2) = Text1(3) = Text1(4) = End Sub (7)查询―在InputBox中输入要查询的姓名后(图八),如果存在则在MsgBox中显示记录(图九),不存在就显示 查找记录不存在 (图十,十一) 图八 图九 图十 图十一 代码如下: Private Sub Command5_Click() fileName = App.Path &

\data.txt Dim i As Integer, strname As String Dim name As String, tel As String, qq As String, add As String, mail As String strname = InputBox( 请输入要查询的姓名 ) Open fileName For Input As #1 Do While Not EOF(1) Line Input #1, name Line Input #1, tel Line Input #1, qq Line Input #1, mail Line Input #1, add If name = strname Then MsgBox ( 要查询的记录是 &

Chr(13) &

Chr(10) &

姓名 &

name &

Chr(13) &

Chr(10) &

电话 &

tel &

Chr(13) &

Chr(10) &

qq &

qq &

Chr(13) &

Chr(10) &

E-mail &

mail &

Chr(13) &

Chr(10) &

地址 &

add) Exit Do Else MsgBox ( 您查询的记录不存在 ) End If Loop Close #1 End Sub (8)修改----在listview中选中一条记录,则在textbox中显示(图12),在textbox中修改后,单击修改按钮,则记录覆盖以前记录(图13) 图12 图13 代码如下: Private Sub ListView1_Click() Text1(0) = ListView1.SelectedItem.Text Text1(1) = ListView1.SelectedItem.SubItems(1) Text1(2) = ListView1.SelectedItem.SubItems(2) Text1(3) = ListView1.SelectedItem.SubItems(3) Text1(4) = ListView1.SelectedItem.SubItems(4) End Sub Private Sub Command6_Click() ListView1.SelectedItem.Text = Text1(0) ListView1.SelectedItem.SubItems(1) = Text1(1) ListView1.SelectedItem.SubItems(2) = Text1(2) ListView1.SelectedItem.SubItems(3) = Text1(3) ListView1.SelectedItem.SubItems(4) = Text1(4) MsgBox ( 修改成功 ) End Sub (9)数据加载和保存 代码如下: Private Sub Form_Load() Dim tpStr As String, i As Integer, j As Integer Me.Caption = 通讯录 For j =

0 To

4 Text1(j).Text = Next j 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

4 ,安装使用说明 双击 通讯录.exe 文件,进入登录窗口,用户名:123,密码123,点击确认即可进入主窗体,进行各个功能的实现. 5,小结 这次的程序中遇到好多的问题,从最开始的真个系统的架构,到编程过程中用到的文件的运用,控件的运用,查询算法和修改的实现等,都是遇到的难题.架构好系统之后,就是各个功能的实现,添加,删除,修改,查询等功能,用到读写文件,并用到listview控件,这是我不熟悉的,通过图书馆查找资料,网上搜集资料,我熟悉了这些原本不熟悉的知识. 6,致谢 感谢老师的教导,通过这次的课程设计我对VB6.0有了一定的了解,并能做一些简单的软件,本系统是我们通过一周的时间做出的一个小小的软件,它能方便管理同学通讯录信息,本系统具有一定的优点,例如可以很方便的使用,操作简单,但是本系统还有一定的缺点,例如窗体不美观、代码冗长,密码长度未确定等,不过我会在以后的学习中改进,我相信通过一段的时间的学习一定会有所长进,一定能做出一个更好的系统. 封面(封面在该文档后面) 目录(用Word 自动生成.下面为正文部分,要求10页以上,显示页码) 1.设计要求 (1)设计内容 (2)开发环境 (用流程