开源发布一个小程序，供初学者学习。

贴一段启动模块的代码。'主启动过程
'---------------------------------------------------------
Sub Main()

    On Error GoTo ErrLiner    If App.PrevInstance Then            '判断程序是否已经在运行中
        MsgBox "应用已经在运行中！", vbInformation + vbOKOnly, "提示"
        End         '终止应用
    End If

    '创建ODBC数据源
    If RegODBCSource("Info", App.Path & strMDBName, "办公室文档管理 ", "Admin", "password") <> 0 Then
        MsgBox "对不起，创建数据源链接失败！" & vbNewLine & "请检查您的ODBC设置。", vbInformation + vbOKOnly, "提示"
        End
    End If

    strConn = "DSN=Info;UID=Admin;Password=password"
    Set DbConn = New ADODB.Connection

    With DbConn                         '初始化本地数据连接
        .ConnectionString = strConn
        .Mode = adModeReadWrite
        .CursorLocation = adUseClient
        .CommandTimeout = 0
        .Open
    End With

    frmMain.Show                        '显示主界面
    Exit Sub

ErrLiner:
    MsgBox "在系统启动的过程中发生了一个错误！" & vbNewLine & Err.Description & "[" & Err.Number & "]", vbInformation + vbOKOnly, "提示"

    End         '终止应用

End Sub

Begin VB.Menu mnuFile
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuExport
         Caption         =   "导出(&E)"
         Shortcut        =   ^E
      End
      Begin VB.Menu munItem11
         Caption         =   "-"
      End
      Begin VB.Menu mnuRefresh
         Caption         =   "刷新(&R)"
         Shortcut        =   {F5}
      End
      Begin VB.Menu munItem12
         Caption         =   "-"
      End
      Begin VB.Menu mnuQuit
         Caption         =   "退出(&Q)"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu mnuGroup
      Caption         =   "分组(&G)"
      Begin VB.Menu mnuGroupAdd
         Caption         =   "新建分组(&A)"
      End
      Begin VB.Menu mnuGroupDelete
         Caption         =   "删除分组(&D)"
      End
      Begin VB.Menu mnuGroupProperty
         Caption         =   "分组属性(&P)"
      End
   End
   Begin VB.Menu mnuEdit
      Caption         =   "编辑(&E)"
      Begin VB.Menu mnuAdd
         Caption         =   "录入(&A)"
         Shortcut        =   ^A
      End
      Begin VB.Menu mnuDelete
         Caption         =   "删除(&D)"
         Shortcut        =   ^D
      End
      Begin VB.Menu mnuProperty
         Caption         =   "属性(&P)"
         Shortcut        =   ^P
      End
      Begin VB.Menu munItem21
         Caption         =   "-"
      End
      Begin VB.Menu mnuSearch
         Caption         =   "查找(&S)"
         Shortcut        =   {F3}
      End
   End
   Begin VB.Menu mnuHelp
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuContent
         Caption         =   "内容(&C)"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mnuAbout
         Caption         =   "关于(&A)"
      End
   End
End＝＝＝＝＝＝＝＝＝＝＝
就这些功能项。

1、5年
2、容易上手哈哈，楼主好样，等你回复～[email protected]

[email protected]
＝＝＝＝＝＝＝＝＝＝＝
邮件以发。忘了说偶的邮件了：[email protected]，大家看清楚，别以为是病毒邮件来了。请在这里跟贴，说明要求的两个问题后偶会尽量发送。从明天开始，每天中午发一次、下午发一次。

谢谢楼主1 一个半月2 上手容易提高难[email protected]

1.学习VB3个月了.
2.觉得学习VB蛮好玩的.希望楼主发给我.谢谢!!!
Email:[email protected]

[email protected]（第一次可能忘了附件了）
[email protected]
＝＝＝＝＝＝＝＝＝＝
发送ed晕死！
HOTMAIL不能检查带密码的附件。改用GMAIL发送。
发件人：[email protected]
邮件标题：ODM.RAR，开源发布一个小程序，供初学者学习。 from cobra
邮件内容：附件：ODM.RAR，解压密码：cobra

调查这两个问题的原因是：不希望看到所谓的“VB没落了”的现象。
事实将证明：VB永远都是最容易上手，开发中小应用最强有力的工具。

1.从大二开始学，工作后（已经3月了）一直在用
2.除了慢，没啥不好~Email: [email protected]
谢谢楼主

[email protected]
我是搞网络的，现在想拓宽知识面，有半年了吧。

[email protected]
8年 ERP 低手~

支持
1、不知道该怎么算时间，好久没用VB了
2、现在提高不是很大，只会些简单的
[email protected]
希望有一些关于界面的程序。

[email protected],
[email protected],
[email protected],
[email protected],
[email protected]
===================
邮件已发，请查收。另：收到[email protected]，[email protected]的邮件回复。

1. 1年
2. 上手容易，提高难邮箱 [email protected]
谢谢楼主

1.两年前学的.
2.看着简单，想精通很难现在碰到一个DataGrid更新问题，希望楼主帮忙解决。邮箱：[email protected]
谢谢

1.一年
2.感觉越做越不象开始那时候顺手.呵
邮箱：[email protected]
谢谢

1、3年
2、学了3年，什么也没学会，什么也没学精数据库问题困扰了我2年
[email protected]谢谢

谢谢楼主，
mail: [email protected] 1.学VB两个月了。
2。我是学了C语言后学VB的，我书上的都看得懂，但就是不知怎么编程序。
谢谢了

1.学了2年了。
2.一般都是外快开发，对集体开发一知半解
[email protected]

1.学了两个多月
2.目前只是应用在企业小型数据库应用[email protected]
谢谢

也想要一份那。多谢楼主
[email protected]

1.5年啦
2.目前是老菜鸟[email protected]

1.断断续续6个月
2.多用于VBA,解决一些实用问题
[email protected]

1.学了vb半年多点。
2.感觉不错，是一门好语言，可是总被c++和delphi程序员看不起，生气。
[email protected]

1 不连续四年
2 VB是好样的
3 [email protected]

1 一年
2 混饭吃，学什么不是学。
3 [email protected]

1.快两三年了
2.做小型项目快,且比较好做;做大型项目就慢了,要做强来,感觉就更慢,实现有困难啊!VB还是挺可以的不知楼主的心得怎么样? 谢谢楼主发送源码,[email protected];

回复人： Hellohuan() ( ) 信誉：100  2005-09-21 20:13:00  得分: 0
   [email protected]回复人： zt96052118(taotao) ( ) 信誉：100  2005-09-21 22:04:00  得分: 0
[email protected]
====================
请务必回答两个调查；主要是看看大家对VB的认识和想法。
======================
[email protected]
[email protected]   //偶习惯使用LISTVIEW。对DG不怎么习惯。
[email protected]
[email protected]
[email protected]  //书上的都看得懂，但就是不知怎么编程序。估计这个代码对你比较有用；关键在于实践的练习；不能光是看书。
[email protected]     //良好的编码、协调的沟通交流是集体合作的关键，我以为。
[email protected]
[email protected]
[email protected]       //VBA能真正用于解决实际问题的人还不多，有机会多交流。
[email protected]
[email protected]
[email protected]    //做技术，要踏实。
[email protected]       //到了大项目，就不是工具的问题了，而是设计上的问题。
＝＝＝＝＝＝＝＝＝＝＝
上述邮件已发。收到[email protected]回复，谢谢。

1 初学
2 VB是好样的，现正做工具开发
3 [email protected]
4 谢谢

[email protected]，邮件已发。另：收到[email protected]回复。

[email protected]
也来份学习下。

[email protected]
学习... 谢谢楼主

1.学VB3年了.
2.VB可以做许多东西,也不能做某些东西.
谢谢楼主的开源,[email protected]

初学VB,感觉挺好的.
谢谢楼主!
[email protected]

大哥哥在姐姐们：
    你们好！
    我刚学北大青鸟的VB，请问大家该如何去学呢？VB有视频教程吗？
    谢谢！！

回复人： Athickhead(穿着三角裤到处跑终归是件不体面的事)
   [email protected]


回复人： hot1kang1(许仙)
   [email protected] ＝＝＝＝＝＝＝＝＝＝＝
俺都说了，请务必回答俩个调查问题，咋就是都看不见捏？

[email protected]
[email protected]
＝＝＝＝＝＝＝＝＝＝＝
邮件已发。
回复人： ljp115912492()
    我刚学北大青鸟的VB，请问大家该如何去学呢？VB有视频教程吗？
//任何一门语言或者一个工具，关键在与实践与练习。
//领会知识要点，然后自己动手做实际的例子。比如：写个自己用的记事本；MP3播放器；都是调动初学者兴趣的最好的方法。

我,[email protected],我学VB有三年了,感觉VB快要淘汰

1.一年
2.上手简单越做多发现越多不会.呵
邮箱：[email protected]
谢谢

1.接近一年
2.会简单的编程，对数据库、网络、图形图像等方面编程困难
邮箱：[email protected]

我的邮件是[email protected],现在我对VB有比较大的兴趣，觉得它的语法还可以，就是不知道从何处下手，希望得到高手的指导

凑个份子：
  1、学习VB，断断续续差不多有一年
  2、现在努力学数据库等基础知识
     想朝工业运用上发展（如：COM的运用，VGA的通讯等）
     VB容易上手学，学好不容易！

   邮箱：[email protected]

[email protected] 三个月2 上手容易提高难

[email protected]
谢谢,我也要一份

1.四、五个月
2.快速开发、易学难精邮箱：[email protected]感谢！

1,三个月
2。上手不容易，提高更难，正在寻找突破口，个人认为学习程序不该从单个语言学习。
[email protected]

有一年了.正在向网络转行,
学VB主要是自己写写小软件,自己用用.请发 [email protected]

一个月
谢谢楼主请发[email protected]

一年了，交流一下，谢谢楼主
[email protected]

一年也
几个工程的相互调用,就是没办法像JAVA调入包那样用的好用.这只是对象编程方面的一个不便.
不是很想学技术细节,用到了才查.
对系统构件,流程组织比较感兴趣.
谢谢楼主哦.
[email protected]

1。 5年了（大学的课程）
2。易学难通[email protected]

1。学VB两个月，用VB用了3年
2。感觉VB很不错，暂时不想换语言.
[email protected]

1、真正用也就3个月
2、大家都是一个感觉，易学难精，缺少高手指点，总是自己摸索比较慢，做些小软件还是比较实用的。
想转到.net开发了，不知道有什么宝贵的意见没？？？？给推荐几本好书（vb+sql或.NET+sql)，支持搂主开源，谢谢！！！ [email protected]

1.多年,記不清楚了.
2.學的再好都不如賺錢的快[email protected]

[email protected] //呵呵，C被淘汰了么？我认为VB在很长的一段时间内将继续抱有生命的活力。
[email protected] //语言学过了，就该思考设计上的问题了。
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected] //实际项目的锻炼才是真正的突破口
[email protected]
[email protected]
[email protected]
[email protected] //架构重与实现
[email protected]
[email protected]
[email protected] //俺是从VB转C#的，感觉语言上的障碍不大，主要是不同的思想
[email protected] //哈哈，赚钱才是第一要义
回复人： elmerlrx() ( ) 信誉：100 2005-09-22 20:22:00 得分: 0
刚学VB，还不大会做软件，能给我提点建议吗？
＝＝＝＝＝＝＝
//俺在前面的回复中说了，自己动手，写些自己可以用的小东西，提升兴趣。
收到[email protected]，[email protected]，[email protected]，[email protected]，[email protected] ，[email protected]回复。谢谢。=============
偶都说了至少三次了，请回复俩个调查提问，再留MAIL。
可是，总是有人直接一个MAIL。
不过，偶还是同样的发送了邮件。

[email protected] //呵呵，C被淘汰了么？我认为VB在很长的一段时间内将继续抱有生命的活力。
[email protected] //语言学过了，就该思考设计上的问题了。
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected] //实际项目的锻炼才是真正的突破口
[email protected]
[email protected]
[email protected]
[email protected] //架构重与实现
[email protected]
[email protected]
[email protected] //俺是从VB转C#的，感觉语言上的障碍不大，主要是不同的思想
[email protected] //哈哈，赚钱才是第一要义
＝＝＝＝＝＝＝＝
邮件发送ed

刚学，不怎么会用
[email protected]

初步使用：进入主程序后，1、删除缺省分组（即“我的文档”下的子节点）；2新增子节点出错，错误行发生在frmMain窗体内过程：Private Sub InitSubNodes(parentid As Integer, parentcode As String)中语句 tvwGroup.Nodes.Add parentcode, tvwChild, rstemp.Fields("code"), rstemp.Fields("name"), 2, 3--〉错误提示“无效的关键字”。不明白，请楼主指点，谢谢先。

1、真正学也就3个月
2、一个感觉，易学难精，缺少高手指点，总是自己摸索比较慢，做些小软件还是比较实用的。
3、支持搂主开源，谢谢！！！
4、[email protected]

初步使用：进入主程序后，
1、删除缺省分组（即“我的文档”下的子节点）；
2新增子节点出错，错误行发生在frmMain窗体内过程：Private Sub InitSubNodes(parentid As Integer, parentcode As String)中语句 tvwGroup.Nodes.Add parentcode, tvwChild, rstemp.Fields("code"), rstemp.Fields("name"), 2, 3--〉错误提示“无效的关键字”。
不明白，请楼主指点，谢谢先。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
缺省分组是不可以被删除的，因为它的ID和PARENTID是固定的。除了ID和PARENTID外的信息都可以被修改。
删除分组出错的问题，我没有遇到；我看了一下代码，应该没什么问题。你可以在这个函数中逐步跟踪，看看到底问题在什么地方。思路，其实比较简单；就是将文档进行分组的管理，并且分组是可以嵌套的（设计PARENTID的目的所在）。
其实，这个应用中对父子关系的处理复杂了；正常情况下，GROUPS表只需要ID,PARENTID就可以表示父子了；
当时考虑了父子分组可能会在CODE上有所关联，并且分组的code可能会成为INFOS记录的编码前缀；所以又增加了CODE字段。
这个应用总共用了两个晚上写的，第一个晚上做界面＋数据库；第二个晚上写代码；完后再没有看。今天帮朋友导入EXCEL的数据时，发现了一些问题：
1、原来在程序中没有考虑倒字段值为NULL的情况，都没有进行过滤处理；
2、查看分组属性时，对其所属分组信息的处理，存在一个BUG；
3、由于在记录的操作方式上把修改与属性做了等同的考虑，所以修改记录时，同样进行了添加记录时的有效性校验（编码重复）；应该过滤；发布这个小应用，纯粹是希望抛砖引玉，希望更多的人来支持VB，支持VB初学者。另：从今天开始，不再通过邮件发送代码。
俺会把今天中午的修改版本(V1.2)，传送倒俺同事的网站。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
=======
发送ed

http://www.westcaihong.com/Down/list.asp?id=555
==
从今天开始，不再通过邮件发送源码。俺同事把它传到了自己的网站上，供大家下载。
请大家访问上面的地址进行下载。今天中午修订的最新源码V1.2,解压密码：cobra================广告，呵呵================
www.westcaihong.com，西部彩虹。

1.学VB一个半月.
2.觉得容易上手,自己写程序难.
[email protected]
希望楼主也给我一份,在这里先谢谢楼主了.

我学vb两年了，做了一年，觉的vb上手快，就担心它的未来。楼主，给我一份把，[email protected].谢谢

http://www.westcaihong.com/Down/list.asp?id=555
==
从今天开始，不再通过邮件发送源码。俺同事把它传到了自己的网站上，供大家下载。
请大家访问上面的地址进行下载。今天晚上修订的最新源码V1.2,在今天中午修正BUG的基础上，重新修订关于ROOT节点的定义；增加列表数据导出到EXCEL功能。解压密码：cobra================广告，呵呵================
www.westcaihong.com，西部彩虹。

1。跨专业初学VB，目前已经完成代码量约1500行
2。感觉：中文帮助文档没。net多，不能在Debug的时候做Save的动作。
Mail：[email protected]

1.刚开始
2.很烂我不是来要源码的
只是我刚开始学，但也为公司做了一小段程序，觉得VB比VC++容易上手，但可能我的程序比较简单，很多难的东西还没用到。

楼主不错啊1。1年
2。入门容易，精通不易[email protected]

好楼主！！！
俺：
1 . 两年
2 . 入门容易，未找到提高的有效途径！
希望楼主赐教！[email protected]

1、学VB多久了？快3年了
2、对VB的感觉和认识？想没有VB不能做的，只是效率问题。[email protected]

大家可以留联系方式多多交流交流，我的msn:[email protected]

1.学VB3个月了
2.比C容易理解,速度慢一些
刚学不久,很多不会的东西,请楼主多多关照了[email protected]

学VB3个月。
有感觉，感兴趣！
支持楼主！[email protected]

谢谢楼主，最好有readme文件
小弟的mail：[email protected]

来一份,看看先. [email protected]

回复人： cobrastudio(老汉我) ( ) 信誉：100  2005-09-26 22:51:00  得分: 0

   http://www.westcaihong.com/Down/list.asp?id=555
==
从今天开始，不再通过邮件发送源码。俺同事把它传到了自己的网站上，供大家下载。
请大家访问上面的地址进行下载。今天晚上修订的最新源码V1.2,在今天中午修正BUG的基础上，重新修订关于ROOT节点的定义；增加列表数据导出到EXCEL功能。解压密码：cobra================广告，呵呵================
www.westcaihong.com，西部彩虹。

================
郁闷，看不到俺的回复么？
俺不再通过邮件发送；请自己到上面的地址去下载。
今晚修正一个小BUG；再次发布。估计不会再有后续版本了。

[email protected]
＝＝＝＝＝＝
GMAIL没能成功给这个地址发信。
请自己去下载。选择揭帖。

1.用了1个月
2.很容易抄，这里抄到那里就用起来了[email protected]

http://www.westcaihong.com/Down/list.asp?id=534重新上传，更正下载地址。

1.学了几个月了,才接触到数据库开发.2.感觉数据库有点难,关键是没合适的书,好多方法属性弄不明白.Email:[email protected](没错是163.NET)

调试易

开源发布一个小程序，供初学者学习。

解决方案 »