初学ADO献上小作《电话簿管理系统》

zhaogang1960 · 发表于 2010-5-9 00:36

前几天得到hshwxm坛友的回帖，已经把我帮助写的用ListView控件美化窗体的代码用到了电话号码查询，原帖地址：
http://club.excelhome.net/thread-568324-1-1.html
看后我觉得使用ADO可以实现更多的功能，征得hshwxm坛友同意后，我使用ADO数据库访问技术写了《电话簿管理系统》，分两个版本：
以本工作簿工作表为数据库
以Access为数据库
界面和功能完全相同，代码基本相同
功能：
模糊查询、部门查询、数据导出、修改记录、添加记录、删除记录
作为初学ADO的第一个习作，这个《电话簿管理系统》可能没有什么实用价值，本贴意在同和我一样的ADO初学者交流，利用ADO技术实现简单的数据查询、ListView控件设置等，欢迎坛友们提出改进意见或建议，如果觉得有点实用价值，也欢迎下载使用。
“代码公开，版权不所有，谢谢使用”，哈哈
附件中代码有注释，就不写出来了
本人不善写作，就不再赘述了，下面给出界面和附件
无标题.jpg

电话簿管理系统(以本工作簿工作表为数据库).rar (25.13 KB, 下载次数: 5568)

电话簿管理系统(以access为数据库).rar (33.23 KB, 下载次数: 3933)

电话簿管理系统(以本工作簿工作表为数据库)回复 4楼 ljx63426 的帖子.rar (37.47 KB, 下载次数: 4106)

[ 本帖最后由 zhaogang1960 于 2010-5-9 19:18 编辑 ]

huangyongli · 发表于 2010-5-9 00:39

谢谢楼主的分享！

cflood · 发表于 2010-5-9 08:51

下载学习下。

ljx63426 · 发表于 2010-5-9 09:16

谢谢楼主的分享！请问:如果我要增加工作简历1,工作简历2,工作简历3,工作简历4,工作简历5,工作简历6,等等内容,代码如何修改?请楼主做个附件,给我学习学习,好吗?先谢了.

hshwxm · 发表于 2010-5-9 11:23

进一步成熟的《电话簿管理系统》，对单位来说确实是实用的！！！

zhaogang1960 · 发表于 2010-5-9 11:29

原帖由 hshwxm 于 2010-5-9 11:23 发表
进一步成熟的《电话簿管理系统》，对单位来说确实是实用的！！！

谢谢hshwxm坛友的肯定

zhaogang1960 · 发表于 2010-5-9 11:34

原帖由 ljx63426 于 2010-5-9 09:16 发表
谢谢楼主的分享！请问:如果我要增加工作简历1,工作简历2,工作简历3,工作简历4,工作简历5,工作简历6,等等内容,代码如何修改?请楼主做个附件,给我学习学习,好吗?先谢了.

这样的电话簿好像是人员资料信息库，哈哈
为了不对代码做太大的改动，保持姓名为第一列，部门为最后一列
由于添加了很多字段，编辑用的标签和文本框画起来很费力，使用动态添加吧
附件见1楼最新附件：
电话簿管理系统(以本工作簿工作表为数据库)回复 4楼 ljx63426 的帖子.rar

[ 本帖最后由 zhaogang1960 于 2010-5-9 11:45 编辑 ]

ljx63426 · 发表于 2010-5-9 13:25

多谢楼主回复,我是想用这个东东改做人员资料管理系统,您的回复达到了我的要求,我有个小小的要求:能否将标签和文本框水平排列(可以排几列),同时,请您将改动的代码用红色标出,以便我和前面的代码对比,学习您编写的代码,举一反三.

hanter007 · 发表于 2010-5-9 13:30

不错,可以借鉴一下,谢谢楼主的分享.

zhaogang1960 · 发表于 2010-5-9 14:11

原帖由 ljx63426 于 2010-5-9 13:25 发表
多谢楼主回复,我是想用这个东东改做人员资料管理系统,您的回复达到了我的要求,我有个小小的要求:能否将标签和文本框水平排列(可以排几列),同时,请您将改动的代码用红色标出,以便我和前面的代码对比,学习您编写的代码 ...

10组为一列：
Private Sub UserForm_Initialize()
Dim SQL$, i&, j&, arr, a(), k, m%, n%
With Sheet2
      arr = .Range("A2").CurrentRegion
      ReDim a(UBound(arr, 2) - 1)
      For i = 0 To UBound(a)
         a(i) = .Columns(i + 1).ColumnWidth * 6.5 'ListView1各列列宽
      Next
End With
Set cnn = New ADODB.Connection
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
SQL = "select * from [数据库$] "
Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
On Error Resume Next
With ListView1
'       设置ListView1的标题,显示类型,整行选择和网格线属性
      .ColumnHeaders.Clear
      .View = lvwReport       ' listivew的显示格式为报表格式
      .FullRowSelect = True ' 允许整行选中
      .Gridlines = True       ' 显示网格线
'       为ListView1设置标题
      For i = 0 To rs.Fields.Count - 1
         m = i Mod 10
         n = Int(i / 10) * 210
         Set k = Controls.Add("Forms.Label.1", "Label" & i + 1, True)
         k.Move 570 + n, 40 * (m + 1)
         k.Caption = rs.Fields(i).Name
         k.Width = 50
         Set k = Controls.Add("Forms.TextBox.1", "TextBox" & i + 1, True)
         k.Move 620 + n, 40 * (m + 1)
         k.Width = 150
         k.Height = 30
         If i > 0 Then
            .ColumnHeaders.Add , , rs.Fields(i).Name, a(i), lvwColumnCenter '从第2列起居中
         Else
            .ColumnHeaders.Add , , rs.Fields(i).Name, a(i)
         End If
      Next i
End With
Call 显示数据(SQL) '为ListView1设置各行数据
arr = cnn.Execute("select distinct " & rs.Fields(i - 1).Name & " from [数据库$] where " & rs.Fields(i - 1).Name & " is not null ").GetRows '不重复的工作部门，为了修改字段名后不受影响使用了rs.Fields(i - 1).Name来代替“工作部门”
ComboBox1.List = WorksheetFunction.Transpose(arr) '不重复的工作部门赋值给组合框
模糊查询.SetFocus
End Sub

其他代码都是自适应的，不必修改

电话簿管理系统(以本工作簿工作表为数据库)回复 4楼 ljx63426 的帖子2.rar (32.9 KB, 下载次数: 1150)

[ 本帖最后由 zhaogang1960 于 2010-5-9 15:16 编辑 ]

		自动登录	找回密码
密码			免费注册

[分享] 初学ADO献上小作《电话簿管理系统》

评分

回复 1楼 zhaogang1960 的帖子

回复 9楼 ljx63426 的帖子