VisualBasic管理信息开发案例第14章第3章办公文档管理信息系统课件

资源描述

《VisualBasic管理信息开发案例第14章第3章办公文档管理信息系统课件》由会员分享，可在线阅读，更多相关《VisualBasic管理信息开发案例第14章第3章办公文档管理信息系统课件（205页珍藏版）》请在金锄头文库上搜索。

1、第第3 3章章办公文档管理信息系统办公文档管理信息系统第第3章章办公文档管理信息系统办公文档管理信息系统 3.1 系统开发的功能分析系统开发的功能分析 3.2 设计好自己的数据库设计好自己的数据库 3.3 系统开发过程的实现系统开发过程的实现 3.4 应用程序的打包和发布应用程序的打包和发布 3.5 相关开发技术介绍相关开发技术介绍 3.6 最终运行结果的查看最终运行结果的查看第第3 3章章办公文档管理信息系统办公文档管理信息系统在线教务辅导网：在线教务辅导网：http:/教材其余课件及动画素材请查阅在线教务辅导网教材其余课件及动画素材请查阅在线教务辅导网QQ:349134187

2、或者直接输入下面地址：或者直接输入下面地址：http:/第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.1 系统开发的功能分析系统开发的功能分析 3.1.1设计目标本章要开发的办公文档管理信息系统是用来实现对日常办公中产生的电子文档的存储、备案、检索等信息处理功能。其总体设计目标是实现办公电子文档管理的系统化和自动化，帮助企业工作人员更好、更高效地完成电子信息资料的管理工作。第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.1.2需要实现的系统功能我们知道，现在多数企业、单位，无论其规模大小，大都有自己的数据库来实现对自己企业内部信息的管理。本办公文档管理信息系统的开

3、发，正是要设计这样一个用来对数据进行处理，对日常电子文档信息进行管理的软件系统来满足人们的实际需求。第第3 3章章办公文档管理信息系统办公文档管理信息系统确定了本系统的设计目标之后，在开发本系统时需要实现的系统功能主要有如下所述几点：(1)对个人电脑中的各种电子文档进行编目，并能够根据自己的需要建立文档索引信息，便于以后进行查询。(2)将各种电子文档存储到数据库中，而不是存入磁盘目录，从而有效地防止误删除或硬盘故障导致数据无法恢复。第第3 3章章办公文档管理信息系统办公文档管理信息系统 (3)能够自动按照编目类别来显示查询已存储过的电子文档，并支持各种Windows常用格式，如Offic

4、e、IE、图形和多媒体文件。(4)所有信息保存在单一的数据库文件中，保存了数据库文件，则就可以保存所有文档。第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.1.3开发和运行环境开发工具：VisualBasic6.0，所用后台数据库是Access2000。运行环境：Windows9x、WindowsNT、Windows2000或WindowsXP/2003操作系统。第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.1.4系统功能模块的设计根据日常工作中的实际需求，本系统在设计中充分利用了数据库技术和文件处理技术来实现对文档进行管理和维护，同时还提供了一些常用的办公管理功

5、能，以丰富该系统的“个人”特性。1个人文档管理功能强大的文档管理功能使用户可以用该软件快速地查阅出所需的文件，并顺利将其归入预先设定好的档案目录中。第第3 3章章办公文档管理信息系统办公文档管理信息系统 2个人日常管理功能可以将每次会议的时间、会议纪要以及其他信息登记到时间记录器上，它会定时提醒您所要做的事情，同时还可以定期将此信息进行整理，帮助您对日常繁杂的工作进行管理。3方便的阅读和检索功能可以像阅读一本书一样快速翻阅、保存各类文档，并且可以将保存的文档按照原有的格式存为文件。第第3 3章章办公文档管理信息系统办公文档管理信息系统 4个人通讯管理功能可用软件中的名片夹将所有名片按一定顺

6、序记录，使用户可以随时翻阅、记录信息，并自动进行保存。5自动归档功能可按用户所选择的目录以及安排的自动保存时间，无须人工干预，自动检索文件并存入数据库，让工作更轻松、周密。第第3 3章章办公文档管理信息系统办公文档管理信息系统 6定时提醒可将自己的用户、朋友等个人信息存入数据库，并随意安排自己的时间，系统将会按照你的安排定时对你发出提醒信息。7支持多种文件格式能够分类保存给予Windows的各种格式的文档，包括Word、Excel、PowerPoint以及各种图文图像、语音软件等。本系统的总体功能结构图如图3-1-1所示。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-1-1

7、本系统的总体功能结构图第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.2 设计好自己的数据库设计好自己的数据库本系统所使用的一些Access格式等数据库表格结构，各表格的名称、数据项及类型在以下表格中有明确说明，读者完全可以按照这些说明来使用Access设计表格。(1)文档信息表，如表3-2-1所示。(2)联系人表，如表3-2-2所示。(3)个人信息表，如表3-2-3所示。第第3 3章章办公文档管理信息系统办公文档管理信息系统表3-2-1文档信息表名称类型长度编号长整型4标题文本50主题文本50作者文本50单位文本50类别文本50关键词文本50内容简介备注-原文档位置文本5

8、0完成日期日期/时间8版本号文本50使用语言文本50编写目的文本50最后归档时间日期/时间8使用频率文本50重要程度文本50文件格式文本50内容OLE对象-第第3 3章章办公文档管理信息系统办公文档管理信息系统表3-2-2联系人表名称类型长度联系人ID长整型4姓名文本50职务文本50地址文本255城市文本50省份文本20邮政编码文本20公司名称文本50主要业务文本50家庭电话文本30工作电话文本30传真号码文本30电子邮件文本50第第3 3章章办公文档管理信息系统办公文档管理信息系统移动电话文本30生日日期/时间8附注备注-婚姻状况文本20配偶姓名文本50配偶爱好文本255子女姓名文本

9、255籍贯文本50联系人爱好文本255雇员文本50重要程度长整型4第第3 3章章办公文档管理信息系统办公文档管理信息系统表3-2-3个人信息表名称类型长度序号长整型4您的名字文本50您的单位文本50身份证号文本50驾驶照号文本50信用卡号文本50住址备注-电话文本50办公电话文本50电子邮件文本50邮政编码文本50传真文本50主页文本50护照号码文本50职务文本50第第3 3章章办公文档管理信息系统办公文档管理信息系统 (4)约会会议表，如表3-2-4所示。(5)项目表，如表3-2-5所示。(6)自动归档表，如表3-2-6所示。(7)重要信息表，如表3-2-7所示。第第3 3章章办公文

10、档管理信息系统办公文档管理信息系统表3-2-4约会会议表名称类型长度约会ID长整型4联系人姓名文本50项目名称文本50约会日期日期/时间8约会主题文本50会谈纪要备注-开始时间日期/时间8结束时间日期/时间8参加人员备注-重要性长整型4雇员文本50状态文本50第第3 3章章办公文档管理信息系统办公文档管理信息系统表3-2-5项目表名称类型长度项目ID长整型4项目名称文本50项目说明备注-客户文本50项目估计总账货币8雇员文本50项目开始日期日期/时间8项目结束日期日期/时间8是否完成是/否1第第3 3章章办公文档管理信息系统办公文档管理信息系统表3-2-6自动归档表名称类型长度编号长

11、整型4标题文本50主题文本50作者文本50单位文本50类别文本50关键词文本50内容简介备注-原文档位置文本50完成日期日期/时间8版本号文本50使用语言文本50编写目的文本50最后归档时间日期/时间8使用频率文本50重要程度文本50文件格式文本50建立开始日期日期/时间8建立结束日期日期/时间8内容OLE对象-第第3 3章章办公文档管理信息系统办公文档管理信息系统表3-2-7重要信息表名称类型长度重要信息编号长整型4类别文本50日期日期/时间8说明备注-第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.3 系统开发过程的实现系统开发过程的实现本书中所涉及到的每一个模块的开发，

12、均是按照创建应用程序界面设置属性编写代码这个思路来介绍给读者的。下面就来创建第一个窗体界面。界面的设计有两步：先绘制控件，然后确定控件属性。本系统包含的程序文件如表3-3-1所示。第第3 3章章办公文档管理信息系统办公文档管理信息系统表3-3-1程序文件列表程序说明程序说明Module=Modulel;Modulel.bas公共程序模块Form=frmRead.frm文档阅读检索Form=frmMain.frm程序主窗体Form=frmReports.frm报表打印Form=frmOptions.frm系统配置管理Designer=DRDocuments.Dsr文档报表文件Form=frm

13、About.frm关于本系统Form=frmProject.frm项目信息Form=frmBrowser.frmVisualBasic开发的IE浏览器Form=frmAppointment.frm约会Form=frmSplash.frm系统介绍的展示程序Form=frmContact.frm联系人Form=frmDocuments.frm文档归档管理Form=MessengerOrig.frm短消息功能Designer=DEDocuments.Dsr数据环境文件第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.3.1程序模块的调用关系在该系统中各种窗体和程序中模块的调用关系如表3-

14、3-2所示，读者可以根据该表格对照提供的源程序来掌握程序设计的内容。第第3 3章章办公文档管理信息系统办公文档管理信息系统表3-3-2窗体和模块的调用关系系统程序调用模块及参数模块位置文档管理frmContact.frm调用的过程模块：PrivateSubForm_Unload(CancelAsInteger)调用的过程模块：PrivateSubtxtFields_LostFocus(IndexAsInteger)调用的过程模块：PrivateSubtxtFields_GotFocus(IndexAsInteger)调用的过程模块：Private Sub txtFields_Validat

15、e(Index As Integer,CancelAsBoolean)frmContact.frm第第3 3章章办公文档管理信息系统办公文档管理信息系统文档管理frmMain.frm调用的窗体模块：f.Show调用的窗体模块：Messen4terOrig.Show(1)调用的窗体模块：frmRead.Show调用的窗体模块；frmReports.Show调用的窗体模块：frmOptions.ShowvbModal,MefrmMain.frm文档管理frmReports.frm调用的窗体模块：DRDoeuments.ShowfrmRcports.frm文档管理Module1.bas调用的过程

16、模块：SubMoin()调用的窗体模块：frmSplash.Show调用的窗体模块：frmLogin.Show(1)调用的窗体模块：fMninForm.ShowModule!.bas第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.3.2创建公用代码模块module1.bas所创建的公用代码模块module1.bas部分用来实现对系统公用代码、函数的编写，同时，将启动程序函数Main设计出来。在该代码模块中，主要用来进行变量定义、函数定义和启动程序调用。第第3 3章章办公文档管理信息系统办公文档管理信息系统通常设置启动窗体的方法如下：(1)在缺省情况下，应用程序中的第一个窗体被

17、指定为启动窗体。如果想在应用程序启动时显示别的窗体，那么就得改变启动窗体。(2)如果想要应用程序在启动时不加载任何窗体，例如，可能想先运行装入数据文件的代码，然后再根据数据文件的内容决定显示几个不同窗体中的其中一个，就可以在标准模块中创建一个名为Main的子过程，如本例中的标准模块中的SubMain子过程。第第3 3章章办公文档管理信息系统办公文档管理信息系统 Main过程必须是一个子过程，且不能在窗体模块内。要想将SubMain过程设为启动对象，可从菜单中选取【工程】【工程属性】命令选项，再选【通用】选项卡，然后从【启动对象】框中选定“SubMain”，如图3-3-1所示。第第3 3章章

18、办公文档管理信息系统办公文档管理信息系统图3-3-1从【启动对象】框中选定“SubMain”第第3 3章章办公文档管理信息系统办公文档管理信息系统 (3)如果在启动时有一个较长的执行过程，例如要从数据库中装入大量数据或者要装入一些大型位图，这时就可能希望在启动时能够给出一个快速显示。快速显示是一种窗体，它通常显示的是诸如应用程序名、版权信息和一个简单的位图等内容。第第3 3章章办公文档管理信息系统办公文档管理信息系统其实在启动VisualBasic时所显示的屏幕就是一个快速显示。要实现快速显示，需用SubMain过程作为启动对象，并用Show方法来显示该窗体，设计代码如下：SubMai

19、n()显示快速显示frmSplash.ShowfrmMain.ShowUnloadfrmSplashEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.3.3实现程序主窗体frmMain的设计主程序frmMain窗体是首先出现的系统操作界面，也是整个系统的主要操作界面，如图3-3-2所示，该程序由SubMain函数调用。在运行程序以前，需要先设置好ODBC数据源。在这里将该数据源的名字保存为DM，使用的数据库是Access格式的DM.mdb数据库。第第3 3章章办公文档管理信息系统办公文档管理信息系统本程序所要实现的主要功能如下：(1)实现对整个系统子程序的调用，同时

20、能够将系统中的常用信息显示出来。(2)能够自动显示日期和相关项目信息，并能够同时提供警告，通过项目信息类别的颜色来处理。(3)能够提供工具菜单中的多种操作，让用户可以方便地根据自身的需要来选择辅助功能。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-3-2系统主界面第第3 3章章办公文档管理信息系统办公文档管理信息系统另外，在窗体中还特意设置了一些辅助菜单，这些菜单用来调用一些常用的功能。为窗体中的控件添加的设计代码如下：PrivateDeclareFunctionSendMessageLibuser32Alias SendMessageA (ByVal hWnd As L

21、ong, ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsAny)AsLongConstEM_UNDO=&HC7第第3 3章章办公文档管理信息系统办公文档管理信息系统 Private Declare Function OSWinHelp% Lib user32 AliasWinHelpA (ByVal hWnd&, ByVal HelpFile$, ByValwCommand%,dwDataAsAny)DimDraggedDateAsDatePublicAutoSaveTimeAsDatePubliccnAsNewADODB.Connection

22、第第3 3章章办公文档管理信息系统办公文档管理信息系统下面的代码用来实现处理ListView中的信息，当选择一个文件时，进行对应的处理。具体设计代码如下：PrivateSubListView1_ItemClick(ByValItemAsMSComctlLib.ListItem)IfNot(Me.ActiveFormIsNothing)ThenUnloadMe.ActiveFormEndIfSelectCaseItem.TextCase文档归档第第3 3章章办公文档管理信息系统办公文档管理信息系统 mnuToolsDocuments_ClickCase文档阅读mnuToolsRead_Cl

23、ickCase项目信息mnuToolsProject_ClickCase我的约会mnuToolsAppointment_ClickCase我的名片mnuToolsContact_ClickCaseElseEndSelectEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统接下来是程序初始化的调用模块，该模块可以通过数据环境来显示文件的信息情况。具体设计代码如下：PrivateSubMDIForm_Load()Me.Left = GetSetting(App.Title, Settings, MainLeft,1000)Me.Top=GetSetting(App.Title,

24、Settings,MainTop,1000)Me.Width = GetSetting(App.Title, Settings, MainWidth,6500)Me.Height=GetSetting(App.Title,Settings,MainHeight,6500)第第3 3章章办公文档管理信息系统办公文档管理信息系统 MonthView1.Value=DateCallEverydayTipsDEDocuments.rs自动归档表.OpenAutoSaveTime=DEDocuments.rs自动归档表.Fields(最后归档时间)Picture1.AutoSize=FalsePict

25、ure1.Align=vbAlignLeftPicture1.Width=Me.Width/7Picture2.AutoSize=FalsePicture2.Align=vbAlignLeftPicture2.Width=Me.Width*6/7第第3 3章章办公文档管理信息系统办公文档管理信息系统 ListView1.ColumnHeaders.ClearListView1.ListItems.ClearListView1.View=lvwIconListView1.Font.Name=宋体ListView1.Font.Size=9ListView1.Height=Picture1.Hei

26、ghtListView1.Width=Picture1.WidthListView1.BackColor=Picture1.BackColorListView1.ListItems.Add,文档归档,1ListView1.ListItems.Add,文档阅读,1ListView1.ListItems.Add,我的约会,1第第3 3章章办公文档管理信息系统办公文档管理信息系统 ListView1.ListItems.Add,我的名片,1ListView1.ListItems.Add,项目信息,1tvwCRefreshEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统要想系统

27、能够实现每日提醒功能，就需要使当系统时间到达提醒时间的时候，能够自动查询数据库中的相关内容，并显示符合条件的记录提醒文字信息。具体设计代码如下：PrivateSubEverydayTips()DimtdAsVariantDimtipsAsStringtips=“今天是：”DEDocuments.rs重要信息表.Open第第3 3章章办公文档管理信息系统办公文档管理信息系统 IfDEDocuments.rs重要信息表.EOFThentips=您应该考虑备份的日子了，Else第第3 3章章办公文档管理信息系统办公文档管理信息系统 tips=您应该考虑备份的日子了。另外，DoWhileNotDE

28、Documents.rs重要信息表.EOFtd=DEDocuments.rs重要信息表.Fields(日期).ValueIfMonth(td)=Month(Date)AndDay(td)=Day(Date)Thentips=tips&DEDocuments.rs重要信息表.Fields(类别).Value&；tips=tips&DEDocuments.rs重要信息表.Fields(说明).ValueEndIfDEDocuments.rs重要信息表.MoveNextLoopEndIftips=tips&您可要重视啊！不要忘记哦！sbStatusBar(0).Panels(1).Text=tips

29、EndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统然后就是初始化程序启动的参数和内容了。具体设计代码如下：PrivateSubMDIForm_Unload(CancelAsInteger)IfMe.WindowStatevbMinimizedThenSaveSettingApp.Title,Settings,MainLeft,Me.LeftSaveSettingApp.Title,Settings,MainTop,Me.TopSaveSettingApp.Title,Settings,MainWidth,Me.WidthSaveSettingApp.Title,Settin

30、gs,MainHeight,Me.HeightEndIfEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubmnuEditCancel_Click()SendKeysZEndSubPrivateSubmnuEditRefresh_Click()IfMe.ActiveControlIsPicture1ThenMe.MSHFlexGrid1.RefreshMe.tvwC.RefreshEndIfEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubmnuToolsAppointment_Click()DimfAsNewfrm

31、AppointmentMe.Picture2.Visible=Falsef.ShowEndSubPrivateSubmnuToolsContact_Click()DimfAsNewfrmContactMe.Picture2.Visible=Falsef.ShowEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubmnuToolsDiskSpace_Click()MsgBoxFreeSpace()EndSubPrivateSubmnuToolsDocuments_Click()DimfAsNewfrmDocumentsMe.Picture2.Visible=

32、Falsef.ShowEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubmnuToolsMsg_Click()MessengerOrig.Show(1)EndSubPrivateSubmnuToolsProject_Click()DimfAsNewfrmProjectMe.Picture2.Visible=Falsef.ShowEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubmnuToolsRead_Click()Me.Picture2.Visible=FalsefrmRead.Adodc1.Connection

33、String=DSN=DM;UID=;PWD=;frmRead.ShowEndSubPrivateSubmnuToolsReports_Click()frmReports.ShowEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubMonthView1_DateDblClick(ByValDateDblClickedAsDate)DimfAsNewfrmAppointmentLoadff.txtFields(3).Text=DateDblClickedMe.Picture2.Visible=Falsef.ShowEndSubPrivateSubmnuToo

34、lsOptions_Click()frmOptions.ShowvbModal,MeEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统下面的代码用来实现文件的另存为功能，使其能够将数据库中的OLE文件内容保存为磁盘文件，以便以后使用相应的工具来打开，具体设计代码如下：PrivateSubmnuFileSaveAs_Click()DimsFileAsStringIfTypeOfActiveFormIsfrmDocumentsThenWithdlgCommonDialog.DialogTitle=另存为.CancelError=False第第3 3章章办公文档管理信息系统办公

35、文档管理信息系统 ToDo:设置CommonDialog控件的标志和属性.Filter=所有文件(*.*)|*.*.ShowSaveIfLen(.FileName)=0ThenExitSubEndIfsFile=.FileNameEndWithActiveForm.Caption=sFileActiveForm.rtfText.SaveFilesFilefrmDocuments.OLE1.SaveToFiledlgCommonDialog.FileNameSaveSettingwlf,DM,date,DateEndIfEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 Pri

36、vateSubmnuFileSave_Click()DimsFileAsStringIfTypeOfMe.ActiveFormIsfrmDocumentsThenWithdlgCommonDialog.DialogTitle=保存.CancelError=FalseToDo:设置CommonDialog控件的标志和属性.Filter=所有文件(*.*)|*.*.ShowSaveIfLen(.FileName)=0ThenExitSubEndIf第第3 3章章办公文档管理信息系统办公文档管理信息系统 sFile=.FileNameEndWithfrmDocuments.OLE1.SaveToF

37、iledlgCommonDialog.FileNameSaveSettingwlf,DM,date,DateEndIfEndSubPrivateSubmnuFileClose_Click()IfNotActiveFormIsNothingThenUnloadMe.ActiveFormPicture2.Visible=TrueEndIfEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubTimer1_Timer()IfTime=AutoSaveTimeThenAutoSaveEndIfEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统下面

38、的函数用来对自动归档功能进行处理。需要提醒大家的一点是：该函数不但使用了数据环境对象，而且还同时使用了系统文件处理的脚本对象，因此就要求大家设计时在工程中引用Scripting对象。第第3 3章章办公文档管理信息系统办公文档管理信息系统具体的设计代码如下：PublicFunctionAutoSave()DimFSOAsNewScripting.FileSystemObjectDimfilAsScripting.FileDimbDate,eDate,fDateAsDateDimoldFolderAsStringDimlngOffsetAsLongDimlngLogoSizeAsLongDim

39、varLogoAsVariantDimvarChunkAsVariantConstconChunkSize=100第第3 3章章办公文档管理信息系统办公文档管理信息系统 Data1.RecordSource=自动归档表Data1.DefaultType=1Data1.RefreshData1.Recordset.MoveFirst第第3 3章章办公文档管理信息系统办公文档管理信息系统以下使用数据环境对象进行数据处理的方法和使用ADO控件处理数据的方法基本相同，只不过是换了一种技术方式而已。当然，数据环境还有其他重要功能，在以后的章节中我们将对其进行详细介绍。第第3 3章章办公文档管理信

40、息系统办公文档管理信息系统具体的设计代码如下：oldFolder=DEDocuments.rs自动归档表.Fields(原磁盘位置)IfoldFolder=ThenExitFunctionEndIfbDate=DEDocuments.rs自动归档表.Fields(建立开始日期)eDate=DEDocuments.rs自动归档表.Fields(“建立结束日期”)ForEachfilInFSO.GetFolder(oldFolder).Files第第3 3章章办公文档管理信息系统办公文档管理信息系统 Iffil.DateLastModified=bDateAndfil.DateLastModi

41、fied=eDateThenDEDocuments.rs文档信息表.AddNewDEDocuments.rs文档信息表.Fields(标题)=DEDocuments.rs自动归档表.Fields(标题)DEDocuments.rs文档信息表.Fields(主题)=DEDocuments.rs自动归档表.Fields(主题)DEDocuments.rs文档信息表.Fields(作者)=DEDocuments.rs自动归档表.Fields(作者)第第3 3章章办公文档管理信息系统办公文档管理信息系统 DEDocuments.rs文档信息表 .Fields(单位 )=DEDocument

42、s.rs自动归档表.Fields(单位)DEDocuments.rs文档信息表 .Fields(类别 ) =DEDocuments.rs自动归档表.Fields(类别)DEDocuments.rs文档信息表 .Fields(关键词 ) =DEDocuments.rs自动归档表.Fields(关键词)DEDocuments.rs文档信息表.Fields(内容简介) =DEDocuments.rs自动归档表.Fields(内容简介)DEDocuments.rs文档信息表.Fields(原磁盘位置)=fil.ParentFolder&fil.Name第第3 3章章办公文档管理

43、信息系统办公文档管理信息系统 DEDocuments.rs文档信息表.Fields(完成日期)=fil.DateLastModifiedDEDocuments.rs文档信息表.Fields(版本号)=DEDocuments.rs自动归档表.Fields(版本号)DEDocuments.rs文档信息表.Fields(语言)=DEDocuments.rs自动归档表.Fields(语言)DEDocuments.rs文档信息表.Fields(编写目的)=DEDocuments.rs自动归档表.Fields(编写目的)DEDocuments.rs文档信息表.Fields(最后归档时间)=NowDEDoc

44、uments.rs文档信息表.Fields(使用频率)=DEDocuments.rs自动归档表.Fields(使用频率)第第3 3章章办公文档管理信息系统办公文档管理信息系统 DEDocuments.rs文档信息表.Fields(重要程度)=DEDocuments.rs自动归档表.Fields(重要程度)DEDocuments.rs文档信息表.Fields(文件格式)=fil.TypeOLE1.CreateEmbedfil.ParentFolder&fil.NameOLE1.UpdateData1.UpdateRecordDEDocuments.rs自动归档表.MoveFirstlngLog

45、oSize=DEDocuments.rs自动归档表.Fields(内容).ActualSize第第3 3章章办公文档管理信息系统办公文档管理信息系统 DoWhilelngOffsetlngLogoSizevarChunk=DEDocuments.rs自动归档表.Fields(内容).GetChunk(conChunkSize)varLogo=varLogo&varChunklngOffset=lngOffset+conChunkSizeLooplngOffset=0Resetoffset.DoWhilelngOffsetlngLogoSizevarChunk=LeftB(RightB(var

46、Logo,lngLogoSize-lngOffset),conChunkSize)第第3 3章章办公文档管理信息系统办公文档管理信息系统 DEDocuments.rs文档信息表.Fields(内容).AppendChunkvarChunklngOffset=lngOffset+conChunkSizeLoopDEDocuments.rs文档信息表.UpdateBatchadAffectAllChaptersEndIfNextMsgBox自动归档已经完成！,vbOKOnly,提示！EndFunction第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubtvwC_No

47、deClick(ByValNodeAsMSComctlLib.Node)Label1.Caption=IIf(IsNull(Node.Tag),(该项目没有详细描述信息，请您补充。),Node.Tag)EndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统下面的函数用来填充树状结构的控件，显示项目的相关信息。PrivateSubtvwCRefresh()DimrsaAsNewADODB.RecordsetDimrootNodeAsNode,ndAsNodeDimdiffB,diffEAsIntegerOnErrorResumeNextcn.OpenDSN=DM;UID=;PWD

48、=;第第3 3章章办公文档管理信息系统办公文档管理信息系统 rsa.Open项目信息,cn,adOpenForwardOnly,adLockReadOnlyIfErrThenMsgBoxUnabletoopenaaatable,vbCriticalEndEndIfSetrootNode=tvwC.Nodes.Add(,Projects,项目信息,2)rootNode.Expanded=TrueDoUntilrsa.EOF第第3 3章章办公文档管理信息系统办公文档管理信息系统 Setnd=tvwC.Nodes.Add(rootNode.Key,tvwChild,rsa.Fields(客户),

49、1)nd.Tag=rsa.Fields(客户)diffB=rsa.Fields(项目开始日期)-DatediffE=rsa.Fields(项目结束日期)-DateIfdiffB0Thennd.ForeColor=vbBlueEndIfIfdiffB0AnddiffB30Thennd.ForeColor=vbGreenEndIf第第3 3章章办公文档管理信息系统办公文档管理信息系统 IfdiffE1ThenExitSubalsoexitifitdoesnthaveadummychildnodeIfNode.Child.Text*ThenExitSubremovethedummychildite

50、mtvwC.Nodes.RemoveNode.Child.IndexaddallthetitlesforthisNodeobjectAddTitlesNodeEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubAddTitles(ByValNodeAsMSComctlLib.Node)DimndAsNodeDimdiffAsIntegerDimrsbAsNewADODB.Recordsetrsb.Openselect*from项目信息wheretrim(客户)= & Trim(Node.Tag) & , cn, adOpenForward Only,adL

51、ockReadOnlyDoUntilrsb.EOF第第3 3章章办公文档管理信息系统办公文档管理信息系统 Setnd=tvwC.Nodes.Add(Node,tvwChild,rsb.Fields(项目名称)&：&FormatDateTime(rsb.Fields(项目开始日期),vbLongDate)&至&FormatDateTime(rsb.Fields(项目结束日期),vbLongDate),1)diff=rsb.Fields(项目结束日期)-rsb.Fields(项目开始日期)nd.Tag=项目情况：&vbCrLf&工期：&Str(diff)&天&vbCrLf&rsb.Fields(

52、项目说明)rsb.MoveNextLooprsb.CloseEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.3.4设计约会会议(FrmAppointment)窗体界面本窗体界面主要用来实现系统中约会会议的管理功能，利用数据库来记录个人的日常约会和会议信息。其中使用了VisualBasic中常用的一些控件，如TabDlg.SSTabSSTab1、RichTextLib.RichTextBoxRTFText、VB.CommandButtoncmdAdd、cmdUpdate、cmdDelete、cmdClose、MSDataListLib.DataComboDataComb

53、o2、VB.FrameFrame、MSComCtl2.UpDownUpDown1、MSDataGridLib.DataGridDataGrid1和MSAdodcLib.AdodcdatPrimaryRS等。其中最为重要的是SSTab控件，这可以通过添加部件功能来增加。第第3 3章章办公文档管理信息系统办公文档管理信息系统如图3-3-3所示界面实现的功能如下：(1)约会信息的录入。(2)对所录入的信息进行基本的处理。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-3-3约会会议窗体界面第第3 3章章办公文档管理信息系统办公文档管理信息系统本窗体界面的设计代码如下：Priv

54、ateSubForm_Unload(CancelAsInteger)Screen.MousePointer=vbDefaultEndSubPrivate Sub datPrimaryRS_Error(ByVal ErrorNumber AsLong,DescriptionAsString,ByValScodeAsLong,ByValSource As String, ByVal HelpFile As String, ByValHelpContextAsLong,fCancelDisplayAsBoolean)第第3 3章章办公文档管理信息系统办公文档管理信息系统错误处理程序代码置于此处想

55、要忽略错误，注释掉下一行想要捕获它们，在此添加代码以处理它们MsgBoxDataerroreventhiterr:&DescriptionEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubdatPrimaryRS_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)为这个Recordset显示当前记录位置datPrimaryRS.

56、Caption=Record:&CStr(datPrimaryRS.Recordset.AbsolutePosition)EndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubdatPrimaryRS_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)验证代码置于此处第第3 3章章办公文档管理信息系统办公文档管理信息系统下列动作发

57、生时该事件被调用DimbCancelAsBooleanSelectCaseadReasonCaseadRsnAddNewCaseadRsnCloseCaseadRsnDeleteCaseadRsnFirstChangeCaseadRsnMoveCaseadRsnRequeryCaseadRsnResynchCaseadRsnUndoAddNewCaseadRsnUndoDelete第第3 3章章办公文档管理信息系统办公文档管理信息系统 CaseadRsnUndoUpdateCaseadRsnUpdateEndSelectIfbCancelThenadStatus=adStatusCancel

58、EndSubPrivateSubcmdAdd_Click()OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNew第第3 3章章办公文档管理信息系统办公文档管理信息系统 txtFields(10).Text = GetSetting(wlf, DM, UserName,Default:=)ExitSubAddErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdDelete_Click()OnErrorGoToDeleteErrWithdatPrimaryRS.Recordset.Delete第第3 3章章办公文档管理

59、信息系统办公文档管理信息系统 .MoveNextIf.EOFThen.MoveLastEndWithExitSubDeleteErr:MsgBoxErr.DescriptionEndSub细心的读者可能已经注意到了，在上面的代码中用到了Recordset的多种使用方法，如MoveFirst、MoveLast、Delete等，其相关知识将在后面进行介绍。第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubcmdUpdate_Click()OnErrorGoToUpdateErrdatPrimaryRS.Recordset.MovePreviousdatPrimaryRS

60、.Recordset.MoveNextDataGrid1.RefreshExitSubUpdateErr:MsgBoxErr.DescriptionEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubcmdClose_Click()UnloadfMainForm.ActiveFormfMainForm.Picture2.Visible=TrueEndSubPrivateSubOptionStatus_Click(IndexAsInteger)Label2.Caption=OptionStatus(Index).CaptionEndSub第第3 3章章办公

61、文档管理信息系统办公文档管理信息系统 PrivateSubtxtFields_LostFocus(IndexAsInteger)txtFields(Index).BackColor=vbWhitetxtFields(Index).ForeColor=vbBlackEndSubPrivateSubtxtFields_GotFocus(IndexAsInteger)txtFields(Index).BackColor=vbBluetxtFields(Index).ForeColor=vbWhiteEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 Private Sub txtF

62、ields_Validate(Index As Integer, Cancel AsBoolean)DimtempsAsStringSelectCaseIndexCase9IftxtFields(Index).Text=ThenMsgBox 该项目必须填写，请重新输入。 ,vbCritical,WeLinkZone.txtFields(Index).SetFocusElse第第3 3章章办公文档管理信息系统办公文档管理信息系统 temps=txtFields(Index).TexttxtFields(Index).Text=tempsEndIfCase1,3,5,6

63、,7IftxtFields(Index).Text=ThenMsgBox 该项目必须填写，请重新输入。 ,vbCritical,WeLinkZone.txtFields(Index).SetFocus第第3 3章章办公文档管理信息系统办公文档管理信息系统 EndIfCaseElseExitSubEndSelectEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 VisualBasic用户应该知道，在窗体中绘制的控件都是VisualBasic的内部控件(标准控件)，即工具箱中的21个标准控件。下面我们就来在frmAppointment窗体中绘制几个

64、工具箱中没有的控件，例如DataCombo控件、DataTimePicker控件、SSTab控件，即所谓的ActiveX控件。第第3 3章章办公文档管理信息系统办公文档管理信息系统如果想在工程的工具框中加入控件，则可以按照以下步骤执行：(1)单击菜单中的【工程】【部件】选项以显示【部件】对话框，也可以在工具框中单击鼠标右键以显示该对话框。(2)在该对话框中将列出所有已经注册的可插入的对象、设计器和ActiveX控件，如图3-3-4所示。(3)如果要在工具框中加入ActiveX控件，则需要选定控件名称左边的复选框。(4)单击【确定】按钮以关闭【部件】对话框，所有选定的ActiveX控件将出现

65、在工具框中。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-3-4【部件】对话框第第3 3章章办公文档管理信息系统办公文档管理信息系统 DateTimePicker控件有两种操作模式：时间格式模式：允许用户在日期显示中选择一个字段(例如，月、日、年等)，按下控件右边的上、下箭头来设置它的值。下拉式日历模式(缺省)：允许用户显示一种能够用来选择日期的下拉式日历。Change事件(ActiveX控件)是指一个控件的内容已经改变，此事件如何和何时发生则随控件的不同而不同。BoundText属性用来返回或设置由BoundColumn属性指定的字段的值。第第3 3章章办公文档管理信息

66、系统办公文档管理信息系统 3.3.5设计联系人(FrmContact)窗体界面本窗体实现了个人联系人信息的管理，通过整个程序，用户可以管理自己的名片信息，方便随时查询和增加自己的联系人。本窗体的设计视图界面如图3-3-5所示，在本窗体中应该实现联系人信息的录入和对联系人信息进行基本操作两大具体功能。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-3-5联系人窗体设计视图第第3 3章章办公文档管理信息系统办公文档管理信息系统在本窗体界面中使用的控件主要有：SSTabSSTab1、PictureBoxpicButtons、CommandButtoncmdAdd、cmdUpdat

67、e、cmdDelete、cmdClose、DataGridDataGrid1、TextBoxtxtFields、VB.Labellb1Labels、VB.PictureBoxPicture1和MSAdodcLib.AdodcdatPrimaryRS等，通过这些不同的控件，才使得本窗体中的各项井井有条。下面来看一下实现本窗体界面的程序代码：PrivateSubForm_Unload(CancelAsInteger)Screen.MousePointer=vbDefaultEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 Private Sub datPrimaryRS_Err

68、or(ByVal ErrorNumber AsLong,DescriptionAsString,ByValScodeAsLong,ByValSource As String, ByVal HelpFile As String, ByValHelpContextAsLong,fCancelDisplayAsBoolean)错误处理程序代码置于此处。如果想要忽略错误，则注释掉下一行；如果想要捕获它们，则在此添加代码以处理它们MsgBoxDataerroreventhiterr:&DescriptionEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubdatP

69、rimaryRS_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)为这个Recordset显示当前记录位置datPrimaryRS.Caption=Record:&CStr(datPrimaryRS.Recordset.AbsolutePosition)EndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统程序进行到这里的时候，可以接着在下面添加如下

70、代码来实现基本的增加、删除和保存功能。具体设计代码如下：PrivateSubcmdAdd_Click()OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNewExitSubAddErr:MsgBoxErr.DescriptionEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubcmdDelete_Click()OnErrorGoToDeleteErrWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithExitSubDeleteErr:

71、MsgBoxErr.DescriptionEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubcmdRefresh_Click()只有多用户应用程序需要OnErrorGoToRefreshErrdatPrimaryRS.RefreshExitSubRefreshErr:MsgBoxErr.DescriptionEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统在接下来的程序代码中，将会出现前面已经多次提到的OnErrorTo语句，这是VisualBasic的错误处理语句，请大家注意它的一些用法。具体设计代码如下：PrivateSubcm

72、dUpdate_Click()OnErrorGoToUpdateErrdatPrimaryRS.Recordset.MovePreviousdatPrimaryRS.Recordset.MoveNext第第3 3章章办公文档管理信息系统办公文档管理信息系统 DataGrid1.RefreshExitSubUpdateErr:MsgBoxErr.DescriptionEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubcmdClose_Click()UnloadfMainForm.ActiveFormfMainForm.Picture2.Visible=T

73、rueEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统一个控件仅当其Enabled和Visible属性值都设置为True时才能接收焦点。下面就来看一下当文本框失去焦点时执行的代码。具体设计代码如下：PrivateSubtxtFields_LostFocus(IndexAsInteger)txtFields(Index).BackColor=vbWhitetxtFields(Index).ForeColor=vbBlackEndSubPrivateSubtxtFields_GotFocus(IndexAsInteger)txtFields(Index).BackColor=

74、vbBluetxtFields(Index).ForeColor=vbWhiteEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 Private Sub txtFields_Validate(Index As Integer, Cancel AsBoolean)DimtempsAsStringSelectCaseIndexCase7IftxtFields(Index).Text=ThenMsgBox 该项目必须填写，请重新输入。 ,vbCritical,WeLinkZone.txtFields(Index).SetFocusElse第第3 3章章

75、办公文档管理信息系统办公文档管理信息系统 temps=txtFields(Index).TexttxtFields(Index).Text=tempsEndIfCase1,3,5,6IftxtFields(Index).Text=ThenMsgBox 该项目必须填写，请重新输入。 ,vbCritical,WeLinkZone.txtFields(Index).SetFocus第第3 3章章办公文档管理信息系统办公文档管理信息系统 EndIfCaseElseExitSubEndSelectEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.3.6

76、设计文件归档(FrmDocuments)窗体界面该程序是实现文件归档的主要程序，它将系统磁盘中的文件保存到数据库中，并建立索引信息。该程序使用了文件操作功能和数据库操作功能，结合了ADO和DATA控件，其中还利用了OLE控件技术。第第3 3章章办公文档管理信息系统办公文档管理信息系统本窗体界面使用的控件主要有：VB.CommandButtonCommand、TabDlg.SSTabSSTab1、VB.DataData1、MSAdodcLib.AdodcAdodc1、MSComctlLib.ImageListImageList1、MSDamListLib.DamcomboDataCombo1

77、、MSDataGridLib.DataGridDataGrid1、MSComctlLib.TreeViewtvwDir、VB.FrameFrame2、VB.TextBoxtxtFields、MSComCtlLib.ListViewListView1和VB.OLEOLE1等，其所要实现的主要功能有如下三点：第第3 3章章办公文档管理信息系统办公文档管理信息系统 (1)显示文件类别信息并显示详细信息。(2)对选择的磁盘中的文件进行其他信息的补充录入。(3)将文件归档并增加说明。系统的窗体界面视图如图3-3-6所示。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-3-6【文件归档】

78、程序界面第第3 3章章办公文档管理信息系统办公文档管理信息系统下面来看一下本界面中定义初始变量的程序代码：OptionExplicitPublicCancelPressedAsBooleanPublicFSOAsNewScripting.FileSystemObjectPublicfldAsScripting.FolderPublicfilAsScripting.FilePublicdrAsScripting.DrivePrivatem_PathAsString第第3 3章章办公文档管理信息系统办公文档管理信息系统接下来的代码用来显示磁盘文件信息，包括目录、文件等。具体设计代码如下：P

79、rivateSubDirRefresh()DimrootNodeAsNode,ndAsNodeOnErrorResumeNextSetrootNode=tvwDir.Nodes.Add(,MyComputer,我的电脑,1)rootNode.Expanded=TrueForEachdrInFSO.DrivesIfdr.PathA:Then第第3 3章章办公文档管理信息系统办公文档管理信息系统 Err.ClearSetnd=tvwDir.Nodes.Add(rootNode.Key,tvwChild,dr.Path&,dr.Path&,2)IfErr=0ThenAddDummyChildndE

80、ndIfNextEndSubPropertyGetPath()AsStringPath=m_PathEndProperty第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubAdodc1_Error(ByValErrorNumberAsLong,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,fCancelDisplayAsBoolean)OnErrorResumeNextEndSubPrivateSubCombo

81、2_Click()txtFields(9).Text=Combo2.TextEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubCombo3_Click()txtFields(12).Text=Combo3.TextEndSubPrivateSubCombo4_Click()txtFields(13).Text=Combo4.TextEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统程序进行到这里的时候，还需要为保存文件信息编写如下的设计代码：PrivateSubCommand1_Click()DimstrFileAsStringDim

82、cursAsStringDimtempsAsNewADODB.RecordsetAdodc1.Recordset.UpdateBatchadAffectAllChapterscurs=selectmax(编号)asIDfrom文档信息表Withtemps第第3 3章章办公文档管理信息系统办公文档管理信息系统 .Open curs, Adodc1.ConnectionString, adOpenKeyset,adLockOptimisticEndWith第第3 3章章办公文档管理信息系统办公文档管理信息系统 curs=编号=&temps.Fields(ID).ValuestrFile=Lab

83、el24.CaptionData1.RecordSource=select编号,内容from文档信息表where&cursData1.RefreshOLE1.CreateEmbedstrFileOLE1.UpdateData1.UpdateRecordDataGrid1.Refreshtemps.Close第第3 3章章办公文档管理信息系统办公文档管理信息系统 MsgBox 您的文档已经保存完毕，可以查阅了。,vbInformation,WeLinkZoneEndSubPrivateSubCommand2_Click()Adodc1.Recordset.DeleteEndSub第第3 3章章

84、办公文档管理信息系统办公文档管理信息系统这时候，就可以根据当前的显示界面是否变化来确定隐藏和显示Pictuer2了，因为如果Picture2存在，则系统将无法显示其他界面。由于在MDI中，Picture的级别要比Form的级别高，这就使得可以将所显示的Form隐藏在Pictue背后。继续来为其添加如下的设计代码：PrivateSubCommand3_Click()UnloadfMainForm.ActiveFormfMainForm.Picture2.Visible=TrueEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubCommand4_Clic

85、k()Adodc1.Recordset.AddNewtxtFields(2).Text=GetSetting(wlf,DM,UserName,Default:=)EndSubPrivateSubDataCombo1_Click(AreaAsInteger)txtFields(4).Text=DataCombo1.BoundTextEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubDataGrid1_DblClick()DimcursAsStringcurs = 编号 = & Adodc1.Recordset.Fields(编号).ValueData1

86、.RecordSource = select 内容 from 文档信息表where&cursData1.RefreshOLE1.RefreshEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubForm_Load()WithData1.DefaultType=1.Connect=ODBC;DSN=DM;UID=;PWD=;.RecordSource=文档信息表EndWithWithAdodc1.ConnectionString=DSN=DM;UID=;PWD=;EndWith第第3 3章章办公文档管理信息系统办公文档管理信息系统接下来的代码用来填充Li

87、stView控件的内容。具体设计代码如下：ListView1.ColumnHeaders.ClearListView1.View=lvwReportListView1.ColumnHeaders.Add,目录,2000ListView1.ColumnHeaders.Add,名称,1500ListView1.ColumnHeaders.Add,大小,1000ListView1.ColumnHeaders.Add,类型,1500ListView1.ColumnHeaders.Add,完成时间,2000DirRefreshEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.3.

88、7选项窗体(FrmOptions)界面的实现接着再来看下面几个窗体，这些窗体实现了通常默认的一些配置选项记录，用户可以在这里预先设置好一些参数，然后其他程序就可以自动使用这些参数来完成数据库的操作了，如自动归档的时间、自动提醒的文字内容的获取等。第第3 3章章办公文档管理信息系统办公文档管理信息系统在本窗体界面中使用的控件主要有：TabDlg.SSTabSSTab2、MSDataGridLib.DataGridDataGrid1、VB.TextBoxtxt*、VB.Labellb1FieldLabel、MSComCtl2.DTPickerDTPicker3-1、MSDataLiStlib.

89、DataComboDataCombo1和VB.CommandBunonCmdApply.CmdCancel等。其设计视图如图3-3-7所示。该窗体主要用来实现输入自动归档文件位置、记录个人信息、管理重要日程和设置自动归档选择等功能。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-3-7【选项】窗体的设计视图第第3 3章章办公文档管理信息系统办公文档管理信息系统以下就是该界面的具体设计代码：PrivateSubcmdApply_Click()DEDocuments.rs个人信息表.UpdateBatchadAffectAllChaptersDEDocuments.rs重要信息

90、表.UpdateBatchadAffectAllChaptersIfchkFolderExistThenDEDocuments.rs自动归档表.UpdateBatchadAffectAllChaptersEndIfSaveSettingwlf,DM,path,Text1.TextEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubcmdCancel_Click()DEDocuments.rs个人信息表.CancelBatchDEDocuments.rs重要信息表.CancelBatchDEDocuments.rs自动归档表.CancelBatchUnloa

91、dMeEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubcmdOK_Click()DEDocuments.rs个人信息表.UpdateBatchadAffectAllChaptersDEDocuments.rs重要信息表.UpdateBatchadAffectAllChaptersSaveSettingwlf,DM,path,Text1.TextIfchkFolderExistThenDEDocuments.rs自动归档表.UpdateBatchadAffectAllChaptersUnloadMeEndIfEndSub第第3 3章章办公文档管理信息系

92、统办公文档管理信息系统 PrivateSubForm_Load()Text1.Text=GetSetting(wlf,DM,path,Default:=)Label4.Caption=GetSetting(wlf,DM,date,Default:=)EndSubPrivateFunctionchkFolderExist()AsBooleanDimFSOAsNewScripting.FileSystemObjectIfNotFSO.FolderExists(Text16.Text)Then第第3 3章章办公文档管理信息系统办公文档管理信息系统 MsgBox文件夹不存在！,vbCritical,

93、错误！chkFolderExist=FalseElsechkFolderExist=TrueEndIfEndFunction第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.3.8项目窗体(FrmProject)界面的实现本项目窗体程序主要用来实现记录自身一些项目工作任务的功能，如前面讲到的那些系统主程序中出现的项目信息文字，都是通过该窗体界面录入到数据库中的。本窗体界面在设计时需要使用到的主要控件有：VB.LabelLabel、 VB.CommandButtonCommand、MSComCtl2.DTPickerDTPicker和VB.FrameFramel等，其主要用来实现记录

94、项目信息和对项目信息进行基本处理的功能。本窗体界面的设计视图如图3-3-8所示。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-3-8【项目】窗体的设计视图第第3 3章章办公文档管理信息系统办公文档管理信息系统以下为该界面的程序代码：PrivateSubDataCombo1_Change()txtFields(7).Text=DataCombo1.BoundTextEndSubPrivateSubDTPicker1_Change()txtFields(3).Text=DTPicker1.ValueEndSubPrivateSubDTPicker2_Change()txtFi

95、elds(6).Text=DTPicker2.ValueEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubForm_Unload(CancelAsInteger)Screen.MousePointer=vbDefaultEndSubPrivate Sub datPrimaryRS_Error(ByVal ErrorNumber AsLong,DescriptionAsString,ByValScodeAsLong,ByValSource As String, ByVal HelpFile As String, ByValHelpContextAsLong

96、,fCancelDisplayAsBoolean)第第3 3章章办公文档管理信息系统办公文档管理信息系统错误处理程序代码置于此处。如果想要忽略错误，则注释掉下一行；如果想要捕获它们，则在此添加代码以处理它们MsgBoxDataerroreventhiterr:&DescriptionEndSubPrivateSubdatPrimaryRS_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADO

97、DB.Recordset)第第3 3章章办公文档管理信息系统办公文档管理信息系统为这个Recordset显示当前记录位置datPrimaryRS.Caption=Record:&CStr(datPrimaryRS.Recordset.AbsolutePosition)EndSubPrivateSubdatPrimaryRS_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Record

98、set)第第3 3章章办公文档管理信息系统办公文档管理信息系统验证代码置于此处。下列动作发生时该事件被调用DimbCancelAsBooleanSelectCaseadReasonCaseadRsnAddNewCaseadRsnCloseCaseadRsnDeleteCaseadRsnFirstChangeCaseadRsnMoveCaseadRsnRequeryCaseadRsnResynch第第3 3章章办公文档管理信息系统办公文档管理信息系统 CaseadRsnUndoAddNewCaseadRsnUndoDeleteCaseadRsnUndoUpdateCaseadRsnUpda

99、teEndSelectIfbCancelThenadStatus=adStatusCancelEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubcmdAdd_Click()OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNewtxtFields(5).Text=GetSetting(wlf,DM,UserName,Default:=)ExitSubAddErr:MsgBoxErr.DescriptionEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubcmdDelete_Cli

100、ck()OnErrorGoToDeleteErrWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithExitSubDeleteErr:MsgBoxErr.DescriptionEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubcmdRefresh_Click()只有多用户应用程序需要OnErrorGoToRefreshErrdatPrimaryRS.RefreshExitSubRefreshErr:MsgBoxErr.DescriptionEndSub第第3 3章章办公

101、文档管理信息系统办公文档管理信息系统 PrivateSubcmdUpdate_Click()OnErrorGoToUpdateErrdatPrimaryRS.Recordset.MovePreviousdatPrimaryRS.Recordset.MoveNextDataGrid1.RefreshExitSubUpdateErr:MsgBoxErr.DescriptionEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubcmdClose_Click()UnloadfMainForm.ActiveFormfMainForm.Picture2.Visible

102、=TrueEndSub当输入框成为当前的输入区域时，该区域背景颜色将发生变化，方便用户识别目前自己在处理哪个输入的数据信息。第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubtxtFields_LostFocus(IndexAsInteger)txtFields(Index).BackColor=vbWhitetxtFields(Index).ForeColor=vbBlackEndSubPrivateSubtxtFields_GotFocus(IndexAsInteger)txtFields(Index).BackColor=vbBluetxtFields(Ind

103、ex).ForeColor=vbWhiteEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSub txtFields_Validate(IndexAs Integer,CancelAsBoolean)SelectCaseIndexCase1,3,5,6,7IftxtFields(Index).Text=ThenMsgBox 该项目必须填写，请重新输入。,vbCritical,WeLinkZone.txtFields(Index).SetFocus第第3 3章章办公文档管理信息系统办公文档管理信息系统 EndIfCaseElseExitSubEndSelec

104、tEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.3.9设计阅读(FrmRead)窗体界面本窗体界面实现了文档阅读的功能。系统正是通过本窗体界面，将其存储在数据库中的文档读取出来的，并且还可以进行自动分类查看。在设计这个程序的时候使用了ADO对象技术，同时结合了OLE技术。第第3 3章章办公文档管理信息系统办公文档管理信息系统本窗体界面在设计时需要使用到的主要控件有：ADODCAdodc1、VB.FrameFrame1、VB.DTPickerDTPicker1、VB.DataData1、VB.DataGridDataGrid2、VB.ImageListImageL

105、ist1和DataComboDataCombo1等。这些控件主要用来实现根据类别自动进行归类显示，阅读已经保存的文档，设置查询条件；按照条件查询需要的文档，然后进行显示和自动显示文档内容，还可以打开相关处理程序，如Word等主要功能。本窗体界面的设计视图如图3-3-9所示。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-3-9【阅读】窗体设计视图第第3 3章章办公文档管理信息系统办公文档管理信息系统以下是该界面设计的实现代码：PubliccnAsNewADODB.ConnectionPublicWithEventstvwPublishersAsMSComctlLib.Tre

106、eViewPrivateSubCommand3_Click()UnloadfMainForm.ActiveFormfMainForm.Picture2.Visible=TrueEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubForm_Load()DimrssAsNewADODB.RecordsetDimiAsIntegerOnErrorResumeNextcn.OpenDSN=DM;UID=;PWD=;IfErrThenMsgBox Unable to database & Err.Description,vbCriticalEnd第第3 3章章办公

107、文档管理信息系统办公文档管理信息系统 EndIfrss.OpenselectDISTINCT类别from类别信息,cn,adOpenForwardOnly,adLockReadOnlyIfErrThenMsgBox Unable to open table & Err.Description,vbCriticalEndEndIfIfNotrss.EOFThen第第3 3章章办公文档管理信息系统办公文档管理信息系统 rss.MoveFirstSettvwPublishers=Controls.Add(MSComctlLib.TreeCtrl.2,tvw,picTab)WithtvwPublis

108、hers.Scroll=True.ImageList=ImageList1.Indentation=400.Visible=False.Top=picTab.ScaleTop.Left=picTab.ScaleLeft.Height=picTab.ScaleHeight第第3 3章章办公文档管理信息系统办公文档管理信息系统 .Width=picTab.ScaleWidthEndWithtvwPublishers.Visible=Truei=1TabStrip1.Tabs(i).Caption=rss.Fields(类别)TabStrip1.Tabs(i).Key=rss.Fields(类别)

109、SetTabStrip1.SelectedItem=TabStrip1.Tabs(i)TabStrip1.Tabs(i).Selected=TrueEndIf第第3 3章章办公文档管理信息系统办公文档管理信息系统 IfNotrss.EOFThenrss.MoveNextDoUntilrss.EOFi=i+1Ifi3ThenTabStrip1.Tabs.Add,EndIfTabStrip1.Tabs(i).Caption=rss.Fields(类别)TabStrip1.Tabs(i).Key=rss.Fields(类别)rss.MoveNext第第3 3章章办公文档管理信息系统办公文档管理信

110、息系统 LooppicTab.Move TabStrip1.clientLeft, TabStrip1.clientTop,TabStrip1.clientWidth,TabStrip1.clientHeightpicTab.BorderStyle=0tvwPublishers.Scroll=Truerss.CloseEndIfDatabaseRefreshEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubTabStrip1_Click()picTab.Visible=TrueControls.RemovetvwSettvwPublishers=Cont

111、rols.Add(MSComctlLib.TreeCtrl.2,tvw,picTab)WithtvwPublishers.Scroll=True.ImageList=ImageList1.Indentation=400第第3 3章章办公文档管理信息系统办公文档管理信息系统 .Top=picTab.ScaleTop.Left=picTab.ScaleLeft.Height=picTab.ScaleHeight.Width=picTab.ScaleWidthEndWithtvwPublishers.Visible=TrueDatabaseRefreshEndSubPrivate Sub tvwP

112、ublishers_NodeClick(ByVal Node AsMSComctlLib.Node)DimcursAsString第第3 3章章办公文档管理信息系统办公文档管理信息系统 IfIsNumeric(Node.Tag)Thencurs=编号=&Node.TagData1.Connect=ODBC;DSN=DM;UID=;PWD=;Data1.DefaultType=1Data1.RecordSource=select*from文档信息表where&cursData1.RefreshData1.Recordset.MoveFirstOLE1.RefreshEndIfEndSub第第3

113、 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubDatabaseRefresh()DimrsaAsNewADODB.RecordsetDimqrysAsStringDimrootNodeAsNode,ndAsNodeOnErrorResumeNextqrys=select*from文档信息表wheretrim(类别)=&TabStrip1.SelectedItem.Key&rsa.Openqrys,cn,adOpenForwardOnly,adLockReadOnly第第3 3章章办公文档管理信息系统办公文档管理信息系统 IfErrThenMsgBoxUnableto

114、openaaatable,vbCriticalEndEndIftvwPublishers.RefreshSetrootNode=tvwPublishers.Nodes.Add(,TabStrip1.SelectedItem.Key,&TabStrip1.SelectedItem.Key&“文档仓库”,2)rootNode.Expanded=TrueDoUntilrsa.EOF第第3 3章章办公文档管理信息系统办公文档管理信息系统 Setnd=tvwPublishers.Nodes.Add(rootNode.Key,tvwChild,rsa.Fields(主题),1)WecantusePubI

115、DastheKey,becauseitisanumber.nd.Tag=rsa.Fields(主题)AddDummyChildndrsa.MoveNextLooprsa.CloseEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 SubAddDummyChild(ndAsNode)Ifnd.children=0ThentvwPublishers.Nodes.Addnd.Index,tvwChild,*EndIfEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubtvwPublishers_Expand(ByValNodeAsMSComc

116、tlLib.Node)DimndAsNodeIfNode.children=0OrNode.children1ThenExitSubIfNode.Child.Text*ThenExitSubtvwPublishers.Nodes.RemoveNode.Child.IndexAddTitlesNodeEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 PrivateSubAddTitles(ByValNodeAsMSComctlLib.Node)DimndAsNodeDimtvAsStringDimrsbAsNewADODB.Recordsetrsb.OpenSelect编号,

117、标题From文档信息表Where主题=&Node.Tag&,cn,adOpenForwardOnly,adLockReadOnlyDoUntilrsb.EOF第第3 3章章办公文档管理信息系统办公文档管理信息系统 IfIsNull(rsb.Fields(标题)Thentv=(无)Elsetv=rsb.Fields(标题)EndIfSetnd=tvwPublishers.Nodes.Add(Node,tvwChild,tv,1)nd.Tag=rsb.Fields(编号)rsb.MoveNextLooprsb.CloseEndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 Pri

118、vateSubCommand1_Click()DimsFilterAsStringDims1AsStringDims2AsStringIfDataCombo2.BoundText=(所有)Thens1=(编号0)Elses1=(类别=&DataCombo2.BoundText&)EndIf第第3 3章章办公文档管理信息系统办公文档管理信息系统 IfDataCombo1.Text=(所有)Thens2=(编号-1)Elses2=(文件格式=&DataCombo1.BoundText&)EndIfsFilter=s1&and&s2&and&(最后归档时间&DTPicker1.Value&)and

119、(最后归档时间0EndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.3.10设计其他窗体界面其他窗体实现了一些辅助功能，主要是为了方便系统操作。一般的应用系统都将常用的通用功能编写成系统配置程序，以便一次操作、多次使用。例如，图3-3-10所示为报表选择窗体(frmReports)时间设置视图。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-3-10报表选择窗体(frmReports)时间设置视图第第3 3章章办公文档管理信息系统办公文档管理信息系统下面就是该报表选择窗体的程序代码：PrivateSubCommand1_Click()DEDocumen

120、ts.rsReport_view.Filter=最后归档时间=&DTPicker1.Value&and最后归档时间=&DTPicker1.Value&and最后归档时间=&DTPicker2.ValueDRDocuments.PrintReport(True)EndSub第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.4 应用程序的打包和发布应用程序的打包和发布 3.4.1编译应用程序编译成应用程序就是将创建的应用程序以及它的工程文件合并成个可执行文件。在编译成应用程序之前，首先应对该程序进行全面测试，排除所有可能的错误。第第3 3章章办公文档管理信息系统办公文档管理信息系统

121、编译成应用程序之前还应该设置一些此工程文件的属性。打开菜单中的【工程】【属性】子菜单，进入工程属性窗口。在【通用】选项卡中可以输入些此工程的工程类型、工程名、启动窗口、帮助文件等；在【生成】选项卡中可以输入一些生成.exe执行文件时的属性信息，如程序版本号、可执行文件名、图标以及一些关于公司名、产品名、文件描述信息等内容。生成.exe可执行文件后，右击该文件选择属性，则可以看到你所选择的这些信息。第第3 3章章办公文档管理信息系统办公文档管理信息系统输入完这些工程属性信息后，就可以进行编译了。打开菜单中的【文件】【生成】子菜单，将进入编译状态，选择好要存放文件的位置和.exe文件名之后就可

122、以了。编译成可执行文件后，该文件还只能在安装了VisualBasic的计算机上运行，不能在没有安装VisualBasic的计算机上运行，因为缺少许多应用程序运行时所必需的动态链接库。第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.4.2使用打包和展开向导使用打包和展开向导发布应用程序后，可以通过磁盘、光盘、网络等途径自由地进行发布。它使用的是VisualStudio6.0中的“Package&DeploymentWizard”工具。从【开始】菜单中安装VB的相应位置打开“Package&DeploymentWizard”，具体操作见本书第1章介绍。到此为止，应用程序的打包发布步骤

123、就全部结束了。第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.5 相关开发技术介绍相关开发技术介绍ADO(ActiveXDataObject)是Microsoft数据库应用程序开发的新接口，是建立在OLEDB之上的高层数据库访问技术。请大家不必为此担心，即使对OLEDB、COM不了解，也能轻松对付ADO，因为它非常简单易用，甚至比以往我们所接触的ODBC API、DAO、RDO都要容易使用，并且不失灵活性。第第3 3章章办公文档管理信息系统办公文档管理信息系统 OLEDB是一个低层的数据访问接口，用它可以访问各种数据源，包括传统的关系型数据库，以及电子邮件系统和自定义的商业对象

124、。同传统的数据对象层次(DAO和RDO)不同，ADO可以独立创建。因此你可以只创建一个Connection对象，但是可以有多个独立的Recordset对象来使用它。ADO针对客户/服务器以及Web应用程序作了优化。第第3 3章章办公文档管理信息系统办公文档管理信息系统以前的对象模型，如DAO和RDO是层次型的，在创建一个QueryDef对象的实例之前，不能创建DAORecordset对象的实例。但ADO却不同，它定义了一组平面型顶级对象。因此，基于OLEDB之上的ADO更简单，更高级，更适合VisualBasic程序员，同时消除了OLEDB的多种弊端，取而代之是微软技术发展的趋势。如图3-

125、5-1所示即为ADO的架构图表。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-5-1ADO架构图表第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.5.1如何在VisualBasic中使用ADO在窗体上放置一个ADOData控件(该图标的工具提示为“Adodc”)，具体操作步骤如下：(1)如果该控件不在【工具箱】中，请按Ctrl+T键，显示【部件】对话框。在这个【部件】对话框中，单击【MicrosoftADODataControl6.0(SP4)】复选项，如图3-5-2所示。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-5-2单击【Microso

126、ftADODataControl6.0(SP4)】复选项第第3 3章章办公文档管理信息系统办公文档管理信息系统 (2)在【工具箱】中单击选定【Adodc】选项，生成Adodc控件。然后点右键选择【Adodc属性】选项，弹出如图3-5-3所示的Adodc属性页窗口。这时候用户只需要在其中作相应的设置就可以了。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-5-3Adodc属性窗口第第3 3章章办公文档管理信息系统办公文档管理信息系统 3.5.2ADOData的简要编程事件说明ADOData控件提供了若干个可以编程的事件。如表3-5-1所示就是对这些事件进行的一些简要说明，不过

127、这个表不是一个关于这些事件何时发生的所有条件的完整列表。更完整的信息，请大家最好还是参阅各个事件的参考主题。第第3 3章章办公文档管理信息系统办公文档管理信息系统表3-5-1事件说明列表事件产生条件FieldChangeComplete在WillChangeField事件之后InfoMessage当数据提供者返回一个结果时MoveComplete在WillMove事件之后WillChangeField在Value属性更改之前RecordChangeComplete在WillChangeRecord事件之后RecordsetChangeComplere在WillChangeRecordset

128、事件之后WillChangeRecord当执行Recordset.CancelBatch、Recordset.UpdateBatch、Recordset.CancelUpdate、Recordset.Delete、Recordset.Update方法时WillChangeRecordset在执行Recordset.Rquery、Recordset.Resync、Recordset.Close、Recordset.Open、Recordset.Filter方法时WillMove当执行Recordset.Open、Recordset.MoreNext、Recordset.More、Recordse

129、t.MoveLast、Recordset.MoveFirst、Recordset.Delete、Recordset.Bookmark、Recordset.AddNew、Recordset.MovePrevious、Recordset.Requery、Recordset.Resync方法时第第3 3章章办公文档管理信息系统办公文档管理信息系统 ADOData控件与内部Data控件以及RemoteData控件(RDC)相似。ADOData控件使您能使用MicrosoftActiveXDataObjects(ADO)快速地创建一个到数据库的链接。在设计时，我们可以首先将ConnectionStri

130、ng属性设置为一个有效的连接字符串，然后将RecordSource属性设置为一个适合于数据库管理者的语句来创建一个连接，当然，我们也可以将ConnectionString属性设置为定义连接的文件名。第第3 3章章办公文档管理信息系统办公文档管理信息系统由于该文件是由【数据链接】对话框产生的，因此，当我们单击【属性】窗口中的ConnectionString，然后单击【生成】或【选择】按钮的时候，该对话框就会出现。我们还可以通过将DataSource属性设置为ADOData控件，把ADOData控件连接到一个数据绑定的控件上，例如DataGrid、DataCombo或DataList控件。第第

131、3 3章章办公文档管理信息系统办公文档管理信息系统 3.6 最终运行结果的查看最终运行结果的查看在完成本管理信息系统的程序开发之后，通常要对程序进行一下最终运行测试。如图3-6-1、3-6-2、3-6-3和3-6-4所示即为本系统各重要表单的运行结果，其他辅助表单未列出。第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-6-1约会会议信息窗口的运行界面第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-6-2注册信息窗口的运行界面第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-6-3阅读窗口的运行界面第第3 3章章办公文档管理信息系统办公文档管理信息系统图3-6-4项目信息窗口的运行界面

展开阅读全文

VisualBasic管理信息开发案例第14章第3章办公文档管理信息系统课件

最新文档