《证券公司法人清算系统解决方案》由会员分享，可在线阅读，更多相关《证券公司法人清算系统解决方案（19页珍藏版）》请在金锄头文库上搜索。
1、证券公司法人清算系统解决方案证券公司法人清算系统解决方案证券公司法人清算系统解决方案摘要：本文以证券公司法人清算业务为背景，把多个 Office 应用程序的特性集成到一个解决方案中，从而提高和促进了用户的生产效率。关键词：Access、Excel、Outlook、Automation、VBA、DAO1、引言每一个 MicrosoftOffice 应用程序都包含了一组旨在帮助开发人员完成一组相关任务的强大工具。例如：MicrosoftAccess 提供了强大的数据管理以及查询能力;MicrosoftExcel 提供了数学分析以及报告工具;MicrosoftOutlook 提供了发送和接受电子函件
2、、计划、合同以及任务管理；而 MicrosoftWord 支持用户创建和维护文档，跟踪不同用户间的文档版本、创建窗体和模板等。以上应用使单个 Office 应用程序具备可编程能力以及使得创建集成 Office 解决方案成为可能的关键技术是称之为Automation 的组件对象模型(COM)技术。Automation 允许开发人员使用 VisualBasicforApplication(VBA)代码创建和控制由支持相应编程接口的应用程序、动态链接库、ActiveX 控件提供的软件对象。VBA 和 Automation 支持编写独立的 Office 应用程序。例如：可以在 Access 中创建一个
3、隐藏的 Excel 实例，用它对 Access 数据完成数学运算和分析操作。2、法人清算系统概述上海证券中央登记结算公司在中央交收体制下实行会员法人结算制度。上海证券交易所的会员单位均以法人名义在登记公司开立结算帐户，统一办理其所有下属机构在上海证券交易所进行的证券交易的清算交收业务。证券公司（法人）财务部每天上午通过沪、深法人专用平台拨号上网接收法人清算数据文件。清算文件包含有该公司下属交易席位各项交易费用明细。需要分类汇总：先统计出各席位各项费用，再统计出各营业部费用，最后汇总出公司各项费用。对账、打印、传真给下属营业部，供其对账。根据统计费用，划拨金额，以保障公司备付金。现在证券公司通过
4、兼并重组，规模日趋庞大，下属营业部少则十几家，多则几十，甚至上百家，所以上述流程由人工处理完成已越来越无法胜任。综合运用 Office 应用程序，上述工作得以快捷、准确完成，使以前几个人花费近一上午的工作在十几分钟就可以完成。法人清算系统业务流程见附图。3、法人清算系统的设计结构系统主要由三部分组成：准备数据、处理数据、发送数据。3.1准备数据沪深清算文件为压缩文件，接收完毕后由系统自动完成更名、解压，生成 DBF 文件，同时完成数据备份工作。3.2处理数据系统主要部分，选用 Access 为主程序，功能包括：数据导入，生成当日所需明细数据表当日划拨各类明细、汇总报表生成下属营业部所需数据文件
5、，为 Excel 文件生成邮件，准备发往各营业部对于开发运行小型商务系统的应用程序来说，Access 是一个较好的平台，它的向导有助于开发人员轻松地快速构造出应用程序的框架；由于它支持代码模块，因此，开发人员很容易建立可重用函数的代码库；又由于它支持在窗体和报表之后添加代码，因此它具有强大的窗体和报表自定义功能。之所以选用 Excel 文件为下发文件格式，因为下发数据包括深、沪明细数据和各类汇总数据，可作为工作簿中各工作表，格式清晰，且各营业部可再次利用 Excel 工具处理，得到想要各类数据。3.3发送数据启动 Outlook，发送邮件。4、法人清算系统的关键技术4.1用代码导入外部数据Ac
6、cess 的 DoCmd 对象提供了三种导入外部数据的方法，它们是：TransferDatabase、TransferText 和 TransferSpreadsheet下面的示例使用 DoCmd 对象的 TransferDatabase 方法从数据库导入数据：SubImportDatabase()DoCmd.TransferDatabase_TransferType:=acImport,_ 执行转换的类型DatabaseType:=“dBaseIII“,_ 导入数据库的类型DatabaseName:=APPPATH,_ 数据库的名称ObjectType:=actable,_ 导入对象的类型S
7、ource:=“Customer“,_ 导入源对象的名称Destination:=“tblCustomer“,_ 导入目标对象的名称StructureOnly:=False只导入表的结构，还是结构、数据都导入Endsub4.2数据访问技术本系统选用 DAO(DataAccessObjects)技术。DAO 代码可以创建、修改和删除 Jet 引擎对象，使用它可以完成以下工作：分析已存在的数据库结构增加或修改表和查询创建新数据库通过修改查询所基于的 SQL 来改变查询定义遍历记录集修改表数据4.3展示数据在 Office 解决方案中有许多不同的展示数据的方法，如何建构报表依赖于解决方案是如何设计的
8、以及数据存储在什么地方。本系统解决方案以 Access 为基础，用户可以通过 Access 窗体和数据访问页面操作数据；同时若需要在 Excel 中观察和操作数据，以便以最大的灵活性来创建定制报表，可以把数据从 Access 中导入到 Excel。证券公司法人清算系统解决方案(2)在 Access 运行的代码里使用 Automation 创建 Excel 的查询表QueryTable 或 PivotTable 报表。使用 Automation 可以使用户对从数据库到 Excel 转换数据的过程进行更多的控制，还可以使用Automation 来格式化报表，过滤数据，创建统计图等。用户能够在Acc
9、ess 中简单地单击一个按钮，就得到 Excel 中已格式化的报表。下面的示例创建一个新的数据库查询并把数据返回到工作表，建立动态报表。要在 VBA 中创建一个新的查询表，使用 QueryTables 集合的 Add 方法。QueryTables 集合从属于 Worksheet 对象，并且包含了该工作表的所有 QueryTable 对象。创建了一个新的查询表后，必须使用QueryTable 对象的 Refresh 方法在查询表中显示数据。DimdbResetAsDatabaseDimrstResetAsRecordsetDimwksNewAsExcel.WorksheetDimqtbDataA
10、sExcel.QueryTable.SetrstReset=dbReset.OpenRecordset(“营业部“)SetqtbData=_wksNew.QueryTables.Add(rstReset,wksNew.Range(“A4“)SetqtbData=wksNew.QueryTables.Add(_Connection:=rstReset,_Destination:=wksNew.Range(“A4“)WithqtbData.FieldNames=False.RowNumbers=False.FillAdjacentFormulas=False.PreserveFormatting=
11、True.RefreshOnFileOpen=False.BackgroundQuery=False.RefreshStyle=xlInsertDeleteCells.SavePassword=True.SaveData=True.AdjustColumnWidth=False.RefreshPeriod=0.PreserveColumnInfo=True.RefreshBackgroundQuery:=FalseEndWithqtbData.Refresh4.4使用 MicrosoftOutlook 对象可以以三种方式使用 Outlook 的对象模型：编写在本地工程文件或与 Outlook
12、本地安装相关联的 COM 加载项中运行的 VBA 代码。使用 Outlook 窗体中自带的脚本环境，该窗体用于显示诸如消息和约会这样的项目。通过 Automation 在其它 Office 应用程序或支持 VBA 的其它应用程序中使用 Outlook。本系统使用第三种方式。在使用 VBA 访问 Outlook 对象、方法、属性之前，必须首先单击 VisualBasic 编辑器的 Tools 菜单项下的 Reference 来设置对 MicrosoftOutlook 对象库的引用。下面的示例 InitializeOutlook 过程创建一个新的、隐藏的Outlook 实例；CreateMail
13、过程创建一个邮件消息，设置收件人、附件、主题和消息内容,然后发送邮件。PublicgolappAsOutlook.ApplicationPublicgnspNamespaceAsOutlook.ApplicationFunctionInitializeOutlook()AsBooleanThisfunctionisusedtoinitializetheglobalApplicationOnErrorGoToInit_ErrSetgolapp=NewOutlook.ApplicationInitializeOutlook=TrueInit_End:ExitFunctionInit_Err:Ini
14、tializeOutlook=FalseResumeInit_EndEndFunctionFunctionCreateMail(astrRecipAsVariant,_strSubjectAsString,_strMessageAsString,_OptionalastrAttachmentsAsVariant)AsBooleanDimobjNewMailAsOutlook.MailItemDimblnResolveSuccessAsBooleanOnErrorGoToCreateMail_ErrIfgolappIsNothingThenIfInitializeOutlook=FalseThe
15、nMsgBox“UnabletoinitializeOutlookApplication“_“orNameSpaceobjectvariables!“ExitFunctionEndIfEndIfSetgolapp=NewOutlook.ApplicationSetobjNewMail=golapp.CreateItem(olMailItem)WithobjNewMail.Recipients.AddastrRecipblnResolveSuccess=.Recipients.ResolveAll.Attachments.AddastrAttachments.Subject=strSubject
16、.Body=strMessageIfblnResolveSuccessThen.SendElseMsgBox“Unabletoresolveallrecipients.Pleasecheck“_“thenames.“.DisplayEndIfEndWithCreateMail=TrueCreateMail_End:ExitFunctionCreateMail_Err:CreateMail=FalseResumeCreateMail_EndEndFunction4.5划分数据库对象把包含表的数据库称为表数据库，而包含其它对象的数据库称为应用程序数据库。通过从应用程序数据库链接到表数据库，就把这两个数据库连接起来了。采用这种策略的理由是：可维护性性能可扩展性如果已经设计了应用程序，并且在同样的数据库中包括了所有的表和其他数据库对象，可以使用 Access 的数据库拆分向导（“工具“，“数据库实用工具“，“拆分数据库“）来帮助实现数据库的划分。5、法人清算系统的应用情况现该系统
