113_个人资料编辑器（VB+XML）

3.2 功能需求分析
根据拥护要求，本系统利用XML数据库技术和文件处理技术来实现个人文档资料的管理和维护，达到用户希望的结果，同时提供一些常用编辑功能，丰富系统的“个人”特性。系统支持WindowsNT/2000/2003/XP，系统主要模块有：
（1）个人文档管理模块：
操作设定有新建，修改，删除，查找，显示。新建项目下面可以直接上传计算机中已有的文档，显示分全部和前30条列表。新建文档可分为主题，概要，内容等几部分，强大的文档管理功能使您可以快速的查阅出所需文件，并顺利将其归入您设定好的档案目录中。因此，所有文档不再是凌乱的堆放在各个目录下。如果说查找文档如大海捞针，那么自动的人性化文档管理功能，会像你的管理员一样将夜以继日的学习工作文档管理的井井有条。
（2）个人备忘录模块：
备忘录内容可编辑设定有日期，主题，类型，状态，完成情况，操作按钮有新建，修改，查找，删除。你可以将每日的学习计划，工作安排以及其他信息登记到备忘录里，帮助你管理日常繁琐的事情。 【买计算机毕业论文就到www.think58.com】
（3）个人通讯记录模块：
通过使用这一功能项，你可以新建，修改，删除，查找通讯信息。按群来管理通讯类别，新建通讯条目下预设手机，电话，MSN，QQ，地址，备注等系列常用信息，随时可以翻阅查找。 本文来自think58 [资料来源：http://www.THINK58.com]
（4）收入/支出财务管理模块：
操作按钮有新建，删除，修改，查找。我们可以把每天的具体收入、支出金额以及用途，详细的列入新建信息里保存起来，生活就像多了一位小管家。
（5）记事本编辑模块：
操作设定有新建，查找，删除，新建文档下面可编辑信息包括星期，日期，主题，内容，天气。记事本就好象日记薄一样，更可以把网上大量喜欢的文字资料，程序代码拷进来，待日后慢慢受用。
（6）系统用户管理模块：
通过初始管理员，可以添加、删除用户以及修改密码、退出程序等基本操作。添加用户：需要输入帐号，密码；删除用户：需要输入帐号，密码；修改密码：先输入帐号，然后核对旧密码，输入新密码；这样可以使系统更加“私有化”，安全程度也相对更高。
下面图3是本系统的总体功能结构简化图。 本文来自think58 [资料来源：THINK58.com]

think58

[资料来源：http://THINK58.com]

[资料来源：THINK58.com]

本文来自think58 [资料来源：http://THINK58.com]

本文来自think58 [资料来源：http://www.THINK58.com]

图3 系统总体功能构架

本文来自think58 [版权所有：http://think58.com]

4 主要模块编码实现
4.1 程序主窗体界面
Main.frm的程序操作界面如下图4。

图4 个人资料编辑器主窗口
（1）程序声明：
Private Const TBL_ALERT As Integer=0
Private Const TBL_ACCOUNTINDEX As Integer=1
Private Const TBL_DIARY As Integer=2
Private Const TBL_DOCINFO As Integer=3
Private Const TBL_FILEINFO As Integer=4
Private Const TBL_SALARY As Integer=5
Private Const TBL_SELECTINFO As Integer=6
Private Const TBL_ADDRESSLIST As Integer=7 [资料来源：THINK58.com]

Private Const DISPLAY_LENTGH As Integer =30
Public dbObj As ClsXmlProc think58 [资料来源：http://www.THINK58.com]

Private salary_in_out As Boolean '收入还是支出(True:支出;False:收入)
'数据排序
Private saveSortBw As Integer '备忘
Private saveSortXt As Integer '系统
Private saveSortJs As Integer '记事
Private saveSortTx As Integer '通讯
Private saveSortSz As Integer '收支
Private saveSortWd As Integer '文档 think58 [来源：http://think58.com]

Public typeBw As Collection
Public typeXt As Collection
Public typeJs As Collection
Public typeTx As Collection
Public typeSz_in As Collection
Public typeSz_out As Collection
Public typeWd As Collection

think58好，好think58

[资料来源：http://THINK58.com]

Private MSFlexGrid_wdOldRow As Integer '用于保存文档操作时上次选择的行
Private UpLoadFilePath As String '上传文件保存的文件夹 think58.com [资料来源：http://THINK58.com]

（2）以下是菜单栏中关于和系统按钮代码：
Private Sub MenuAbout_Click()
Call MsgBox("陈宝献版权所有!"，vbExclamation)
End Sub [资料来源：THINK58.com]

Private Sub MenuAddUser_Click()
AddForm.manageType=()
AddForm.Label2.Caption = "密码"
AddForm.Label3.Visible=False
AddForm.TxtOld.Visible=False
AddForm.Caption="用户管理-添加用户"
AddForm.Show vbModal
End Sub think58.com

[资料来源：http://think58.com]

Private Sub MenuChangePass_Click()
AddForm.manageType=1
AddForm.Label2.Caption="新密码"
AddForm.Label3.Visible=True
AddForm.TxtOld.Visible=True

AddForm.Caption="用户管理-修改密码"
AddForm.Show vbModal
End Sub [资料来源：www.THINK58.com]

Private Sub MenuDelete_Click()
AddForm.manageType=2
AddForm.Label2.Caption="密码"
AddForm.Label3.Visible=False
AddForm.TxtOld.Visible=False
AddForm.Caption="用户管理-删除用户"
AddForm.Show vbModal
End Sub

内容来自think58 [资料来源：http://THINK58.com]

Private Sub MenuExit_Click() '退出程序
End
End Sub think58好，好think58

Private Sub MenuRestart_Click() '重新登陆
LoginForm.Text1=""
LoginForm.Combo1.Text=""
LoginForm.init
LoginForm.Show
MainForm.Hide
End Sub

内容来自think58 [来源：http://think58.com]