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

zhaogang1960

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

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

2010-5-9 00:36 上传

点击文件名下载附件

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

2010-5-9 00:53 上传

点击文件名下载附件

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

2010-5-9 19:18 上传

点击文件名下载附件

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

huangyongli

谢谢楼主的分享！

cflood

下载学习下。

ljx63426

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

hshwxm

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

zhaogang1960

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

谢谢hshwxm坛友的肯定

zhaogang1960

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

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

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

ljx63426

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

hanter007

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

zhaogang1960

原帖由 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, 下载次数: 1140)

2010-5-9 15:15 上传

点击文件名下载附件

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