VB收藏夹管理系统-142-(代码+程序说明)

转载地址http://www.3q2008.com/soft/search.asp?keyword=142

说明 :

轻轻松松管理您的收藏夹,实行收藏夹多人共享, 系统同时支持ACCESS库和SQL库,都一样的下面有演示程序的下载

这个系统也不错的.. 整理了 几套了都说不错哈哈, 因为这个比较实用一些,我用他把单位的收藏夹导了出来 拿到了家里,

一直打算 把他改写成 备份收藏夹的程序, 让他脱离数据库, 这样就更方便了有时间的吧 :)

可以实现收藏夹 的归类管理,

当然代码里少不了的 详细的注视 :)  

本系统不单单是个毕业设计,而且是一个产品,当然您若有兴趣将他继续新增功能, 可以跟我联系,我可以按您的要求去修改,或是专门给您定做,  您获得代码后也可以自己改, 没有什么版权 :)  既然放上来了, 就当他是毕业设计出售了 :)  联系方式在网页的最下方

  

以下是当年的一些对话

1.我想把主界面的文件名"开题报告"改了,改完后.但APP.TITLE 还是开题报告.....

你 看 这个模块  modDeclare - 里面的这个

Public Sub AddFormTitleCaption()
    Dim frm As Form
    For Each frm In Forms
        If InStr(frm.Caption, CurrentTitle) = 0 Then
            frm.Caption = frm.Caption & "-" & CurrentTitle
        End If
    Next
End Sub

不知道你可以看懂 集合查找的 语句, 他的意思是吧 所以的 窗体名都加上 CurrentTitle

2.主界面的菜单怎么改,那个DNETMENU控件的属性无法修改菜单名啊.
改菜单名你还得用菜单编辑器, 这个控件的作用就是 让 菜单显示图标

3.我想知道那个模块,类模块,用户控件里的东西大致的功能都是用来实现什么的.大部分都看不明白.所以您就告诉我那些代码里我主要用它的什么,来做什么的就可以了.
模块里面的大多数函数 你的工程都没有用到. 我懒得删除. 你要要看看窗体大多数函数的 说明你看下面

4.网上我搜ISBUTTON的按钮没找到,他和普通按钮什么区别啊.还有控件里的那个usrtext
isButton是别人写的按钮控件, 就是好看, 没别的区别,,
usrText 你的工程 没用到, 我是忘记删除了

5.为什么我点浏览本地收藏夹后,上面的地址栏就没有了....

是因为 在 收藏夹窗体上 也有菜单  但是隐藏的 , 当他启动时 菜单 以 当前窗体的为主
 
麻烦您了...我的问题是多了...也许我应该改名叫问题先生了...呵呵

 (2006-05-19 09:03:00)   HOT
modDeclare
程序的主要模块
CurrentTitle　

提示框的标题
AddFormTitleCaption
列举所有窗体对象，给窗体对象加入对应的名称
IsFileOpen
判断文件是否打开
DefaultDatabaseFileName
获得数据库的位置，若库不存在建立数据库

Echo　
提示框的另一种写法，　
ReleaseEMS
释放资源，关闭程序时，释放对象和变量
CheckEmpty
检查是否时必填控件
CreateFileName
附加库存储的文件，读取原文件，根据当前的年月日时分秒毫秒生成文件名存储在库里，和把改名的文件拷贝到Attachment里
SelectCtlName
调试时使用的　程序不用
SelectField　调试使用
ListFolderFiles　列举文件夹下的所有文件　你的程序没用到模块我以前的忘记删除了

GetAppF　自己读应该能读懂　VB的基础知识　得到文件的文件夹

LoadAttachment　加载附加，动作将对应窗体对应ID的附加加载在list控件里
ErrorHandling　全局的错误处理

modFrmConfig
的程序没用到模块我以前的忘记删除了
GetFrmSize 存储窗体 位置
SetFrmSize 设置窗体位置
TopWindow 窗体制定

modIni 存储,读取INI文件
函数的名称你应该明白他的意思

clsCurrentDb
类 记录集打开类返回 OpenRecordset一个传入SQL语句的记录集

转载地址http://www.3q2008.com/soft/search.asp?keyword=142