用vb.net与acess结合实现简单的电话号码本程序（一） (转)

用vb.net与acess结合实现简单的电话号码本程序（一） (转)[@more@]

所有源代码这里下载：

source.PHP">http://www.up2e.com/resource.php

用vb.NET与acess结合实现简单的电话号码本程序（一）--by zigz(LuHai)
Mailto:luluhai@eastday.com" rel="nofollow">luluhai@eastday.com

先看看界面：

2003-7-201648590.gif" align=baseline border=0>

一） 运用控件
OledbConnection控件，OleDbCommand控件，ListView控件，ErrorProvider控件

二） 设计步骤
1） 新建项目并添加基本控件
2） 添加并设置Label、TextBox、Button控件
3） 添加OleDbConnection、OleDbCommand控件
4） 编写各相应程序代码

三） 程序功能
可以进行纪录添加，删除和列出所有纪录。

图4电话号码本主界面

在上面的文本框中输入信息后，单击添加按钮就完成了一条纪录的添加。
单击删除按钮，就会出现图5的界面。

图5 删除记录界面

在文本框中输入要删除的姓名点击删除按钮，就完成删除纪录的操作，删除成功会有提示出现。XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

 

 

单击主界面中“名单列表”按钮，就会列出所有纪录的一个列表（见图6），在这里我用了ListView控件来显示所有纪录。他的相关原理就是通过OleDbDataReader结合ListView控件来显示数据库的所有纪录。

例：  Dim reader As OleDb.OleDbDataReader

  …………

  ………..

  reader = mainform.OleDbCommand1.ExecuteReader '返回所有纪录

   Do While reader.Read '用listview列出所有纪录

   Dim li As New ListViewItem()

   li.SubItems.Clear()

li.SubItems(0).Text = reader("name").

…………….

图6 列表显示


未完待续......

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10748419/viewspace-959529/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10748419/viewspace-959529/