证券公司法清算系统解决方案
证券公司法清算系统解决方案 连海事学 长泓
摘 ：文证券公司法清算业务背景Office应程序特性集成解决方案中提高促进户生产效率
关键词：AccessExcelOutlookAutomationVBADAO
1引言
Microsoft Office应程序包含组旨帮助开发员完成组相关务强工具
例：Microsoft Access提供强数理查询力Microsoft Excel提供数学分析报告工具Microsoft Outlook提供发送接受电子函件计划合务理Microsoft Word支持户创建维护文档踪户间文档版创建窗体模板等
应单Office应程序具备编程力创建集成Office解决方案成关键技术称Automation组件象模型(COM)技术
Automation允许开发员Visual Basic for Application(VBA)代码创建控制支持相应编程接口应程序动态链接库ActiveX控件提供软件象
VBAAutomation支持编写独立Office应程序
例：Access中创建隐藏Excel实例Access数完成数学运算分析操作
2法清算系统概述
海证券中央登记结算公司中央交收体制实行会员法结算制度
海证券交易会员单位均法名义登记公司开立结算帐户统办理属机构海证券交易进行证券交易清算交收业务
证券公司（法）财务部天午通沪深法专台拨号网接收法清算数文件
清算文件包含该公司属交易席位项交易费明细
需分类汇总：先统计出席位项费统计出营业部费汇总出公司项费
账印传真属营业部供账
根统计费划拨金额保障公司备付金
现证券公司通兼重组规模日趋庞属营业部少十家十甚百家述流程工处理完成已越越法胜
综合运Office应程序述工作快捷准确完成前花费午工作十分钟完成
法清算系统业务流程见附图
3法清算系统设计结构
系统三部分组成：准备数处理数发送数
31 准备数
沪深清算文件压缩文件接收完毕系统动完成更名解压生成DBF文件时完成数备份工作
32 处理数
系统部分选Access程序功包括：
● 数导入生成日需明细数表 ● 日划拨 ● 类明细汇总报表 ● 生成属营业部需数文件Excel文件 ● 生成邮件准备发营业部
开发运行型商务系统应程序说Access较台导助开发员轻松快速构造出应程序框架支持代码模块开发员容易建立重函数代码库支持窗体报表添加代码具强窗体报表定义功
选Excel文件发文件格式发数包括深沪明细数类汇总数作工作簿中工作表格式清晰营业部次利Excel工具处理想
类数
33 发送数
启动Outlook发送邮件
4法清算系统关键技术
41 代码导入外部数
AccessDoCmd象提供三种导入外部数方法： TransferDatabaseTransferTextTransferSpreadsheet 面示例DoCmd象TransferDatabase方法数库导入数： Sub ImportDatabase() DoCmdTransferDatabase _ TransferTypeacImport_ 执行转换类型 DatabaseTypedBase III_ 导入数库类型 DatabaseNameAPPPATH_ 数库名称 ObjectTypeactable_ 导入象类型 SourceCustomer_ 导入源象名称 DestinationtblCustomer_ 导入目标象名称 StructureOnlyFalse 导入表结构结构数导入 End sub 42 数访问技术
系统选DAO(Data Access Objects)技术
DAO代码创建修改删Jet引擎象完成工作：
● 分析已存数库结构
● 增加修改表查询
● 创建新数库
● 通修改查询基SQL改变查询定义
● 遍历记录集
● 修改表数 43 展示数
Office解决方案中许展示数方法建构报表赖解决方案设计数存储什方
系统解决方案Access基础户通Access窗体数访问页面操作数时需Excel中观察操作数便灵活性创建定制报表数Access中导入Excel
Access运行代码里Automation创建Excel查询表QueryTablePivotTable报表
Automation户数库Excel转换数程进行更控制Automation格式化报表滤数创建统计图等
户够Access中简单单击钮Excel中已格式化报表
面示例创建新数库查询数返回工作表建立动态报表
VBA中创建新查询表QueryTables集合Add方法
QueryTables集合属Worksheet象包含该工作表QueryTable象
创建新查询表必须QueryTable象Refresh方法查询表中显示数
Dim dbReset As Database Dim rstReset As Recordset Dim wksNew As ExcelWorksheet Dim qtbData As ExcelQueryTable Set rstReset dbResetOpenRecordset(营业部) Set qtbData _ wksNewQueryTablesAdd(rstReset wksNewRange(A4)) Set qtbData wksNewQueryTablesAdd( _ ConnectionrstReset _ DestinationwksNewRange(A4)) With qtbData FieldNames False RowNumbers False FillAdjacentFormulas False PreserveFormatting True RefreshOnFileOpen False BackgroundQuery False RefreshStyle xlInsertDeleteCells SavePassword True SaveData True AdjustColumnWidth False RefreshPeriod 0 PreserveColumnInfo True Refresh BackgroundQueryFalse End With qtbDataRefresh 44 Microsoft Outlook象
三种方式Outlook象模型：
● 编写工程文件Outlook安装相关联COM加载项中运行VBA代码
● Outlook窗体中带脚环境该窗体显示诸消息约会样项目
● 通AutomationOffice应程序支持VBA应程序中Outlook
系统第三种方式
VBA访问Outlook象方法属性前必须首先单击Visual Basic编辑器Tools菜单项Reference设置Microsoft Outlook象库引
面示例InitializeOutlook程创建新隐藏Outlook实例CreateMail程创建邮件消息设置收件附件题消息容然发送邮件
Public golapp As OutlookApplication Public gnspNamespace As OutlookApplication Function InitializeOutlook() As Boolean This function is used to initialize the global Application On Error GoTo Init_Err Set golapp New OutlookApplication InitializeOutlook True Init_End Exit Function Init_Err InitializeOutlook False Resume Init_End End Function Function CreateMail(astrRecip As Variant _ strSubject As String _ strMessage As String _ Optional astrAttachments As Variant) As Boolean Dim objNewMail As OutlookMailItem Dim blnResolveSuccess As Boolean On Error GoTo CreateMail_Err If golapp Is Nothing Then If InitializeOutlook False Then MsgBox Unable to initialize Outlook Application _ & or NameSpace object variables Exit Function End If End If Set golapp New OutlookApplication Set objNewMail golappCreateItem(olMailItem) With objNewMail RecipientsAdd astrRecip blnResolveSuccess RecipientsResolveAll AttachmentsAdd astrAttachments Subject strSubject Body strMessage If blnResolveSuccess Then Send Else MsgBox Unable to resolve all recipients Please check _ & the names Display End If End With CreateMail True CreateMail_End Exit Function CreateMail_Err CreateMail False Resume CreateMail_End End Function 45
划分数库象
包含表数库称表数库包含象数库称应程序数库
通应程序数库链接表数库两数库连接起
采种策略理：
● 维护性
● 性
● 扩展性
果已设计应程序样数库中包括表数库象Access数库拆分导（工具数库实工具拆分数库）帮助实现数库划分
5法清算系统应情况
现该系统通证券股份限公司运行良极减轻财会员工作强度时种清晰完善数报表加强公司公司属营业部财务监力度堵塞漏洞
6法清算系统改进
现系统Microsoft Outlook建立发送邮件改进通公司局域网中邮件服务器发送
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
证券公司法清算系统解决方案 连海事学 长泓
摘 ：文证券公司法清算业务背景Office应程序特性集成解决方案中提高促进户生产效率
关键词：AccessExcelOutlookAutomationVBADAO
1引言
Microsoft Office应程序包含组旨帮助开发员完成组相关务强工具
例：Microsoft Access提供强数理查询力Microsoft Excel提供数学分析报告工具Microsoft Outlook提供发送接受电子函件计划合务理Microsoft Word支持户创建维护文档踪户间文档版创建窗体模板等
应单Office应程序具备编程力创建集成Office解决方案成关键技术称Automation组件象模型(COM)技术
Automation允许开发员Visual Basic for Application(VBA)代码创建控制支持相应编程接口应程序动态链接库ActiveX控件提供软件象
VBAAutomation支持编写独立Office应程序
例：Access中创建隐藏Excel实例Access数完成数学运算分析操作
2法清算系统概述
海证券中央登记结算公司中央交收体制实行会员法结算制度
海证券交易会员单位均法名义登记公司开立结算帐户统办理属机构海证券交易进行证券交易清算交收业务
证券公司（法）财务部天午通沪深法专台拨号网接收法清算数文件
清算文件包含该公司属交易席位项交易费明细
需分类汇总：先统计出席位项费统计出营业部费汇总出公司项费
账印传真属营业部供账
根统计费划拨金额保障公司备付金
现证券公司通兼重组规模日趋庞属营业部少十家十甚百家述流程工处理完成已越越法胜
综合运Office应程序述工作快捷准确完成前花费午工作十分钟完成
法清算系统业务流程见附图
3法清算系统设计结构
系统三部分组成：准备数处理数发送数
31 准备数
沪深清算文件压缩文件接收完毕系统动完成更名解压生成DBF文件时完成数备份工作
32 处理数
系统部分选Access程序功包括：
● 数导入生成日需明细数表 ● 日划拨 ● 类明细汇总报表 ● 生成属营业部需数文件Excel文件 ● 生成邮件准备发营业部
开发运行型商务系统应程序说Access较台导助开发员轻松快速构造出应程序框架支持代码模块开发员容易建立重函数代码库支持窗体报表添加代码具强窗体报表定义功
选Excel文件发文件格式发数包括深沪明细数类汇总数作工作簿中工作表格式清晰营业部次利Excel工具处理想
类数
33 发送数
启动Outlook发送邮件
4法清算系统关键技术
41 代码导入外部数
AccessDoCmd象提供三种导入外部数方法： TransferDatabaseTransferTextTransferSpreadsheet 面示例DoCmd象TransferDatabase方法数库导入数： Sub ImportDatabase() DoCmdTransferDatabase _ TransferTypeacImport_ 执行转换类型 DatabaseTypedBase III_ 导入数库类型 DatabaseNameAPPPATH_ 数库名称 ObjectTypeactable_ 导入象类型 SourceCustomer_ 导入源象名称 DestinationtblCustomer_ 导入目标象名称 StructureOnlyFalse 导入表结构结构数导入 End sub 42 数访问技术
系统选DAO(Data Access Objects)技术
DAO代码创建修改删Jet引擎象完成工作：
● 分析已存数库结构
● 增加修改表查询
● 创建新数库
● 通修改查询基SQL改变查询定义
● 遍历记录集
● 修改表数 43 展示数
Office解决方案中许展示数方法建构报表赖解决方案设计数存储什方
系统解决方案Access基础户通Access窗体数访问页面操作数时需Excel中观察操作数便灵活性创建定制报表数Access中导入Excel
Access运行代码里Automation创建Excel查询表QueryTablePivotTable报表
Automation户数库Excel转换数程进行更控制Automation格式化报表滤数创建统计图等
户够Access中简单单击钮Excel中已格式化报表
面示例创建新数库查询数返回工作表建立动态报表
VBA中创建新查询表QueryTables集合Add方法
QueryTables集合属Worksheet象包含该工作表QueryTable象
创建新查询表必须QueryTable象Refresh方法查询表中显示数
Dim dbReset As Database Dim rstReset As Recordset Dim wksNew As ExcelWorksheet Dim qtbData As ExcelQueryTable Set rstReset dbResetOpenRecordset(营业部) Set qtbData _ wksNewQueryTablesAdd(rstReset wksNewRange(A4)) Set qtbData wksNewQueryTablesAdd( _ ConnectionrstReset _ DestinationwksNewRange(A4)) With qtbData FieldNames False RowNumbers False FillAdjacentFormulas False PreserveFormatting True RefreshOnFileOpen False BackgroundQuery False RefreshStyle xlInsertDeleteCells SavePassword True SaveData True AdjustColumnWidth False RefreshPeriod 0 PreserveColumnInfo True Refresh BackgroundQueryFalse End With qtbDataRefresh 44 Microsoft Outlook象
三种方式Outlook象模型：
● 编写工程文件Outlook安装相关联COM加载项中运行VBA代码
● Outlook窗体中带脚环境该窗体显示诸消息约会样项目
● 通AutomationOffice应程序支持VBA应程序中Outlook
系统第三种方式
VBA访问Outlook象方法属性前必须首先单击Visual Basic编辑器Tools菜单项Reference设置Microsoft Outlook象库引
面示例InitializeOutlook程创建新隐藏Outlook实例CreateMail程创建邮件消息设置收件附件题消息容然发送邮件
Public golapp As OutlookApplication Public gnspNamespace As OutlookApplication Function InitializeOutlook() As Boolean This function is used to initialize the global Application On Error GoTo Init_Err Set golapp New OutlookApplication InitializeOutlook True Init_End Exit Function Init_Err InitializeOutlook False Resume Init_End End Function Function CreateMail(astrRecip As Variant _ strSubject As String _ strMessage As String _ Optional astrAttachments As Variant) As Boolean Dim objNewMail As OutlookMailItem Dim blnResolveSuccess As Boolean On Error GoTo CreateMail_Err If golapp Is Nothing Then If InitializeOutlook False Then MsgBox Unable to initialize Outlook Application _ & or NameSpace object variables Exit Function End If End If Set golapp New OutlookApplication Set objNewMail golappCreateItem(olMailItem) With objNewMail RecipientsAdd astrRecip blnResolveSuccess RecipientsResolveAll AttachmentsAdd astrAttachments Subject strSubject Body strMessage If blnResolveSuccess Then Send Else MsgBox Unable to resolve all recipients Please check _ & the names Display End If End With CreateMail True CreateMail_End Exit Function CreateMail_Err CreateMail False Resume CreateMail_End End Function 45
划分数库象
包含表数库称表数库包含象数库称应程序数库
通应程序数库链接表数库两数库连接起
采种策略理：
● 维护性
● 性
● 扩展性
果已设计应程序样数库中包括表数库象Access数库拆分导（工具数库实工具拆分数库）帮助实现数库划分
5法清算系统应情况
现该系统通证券股份限公司运行良极减轻财会员工作强度时种清晰完善数报表加强公司公司属营业部财务监力度堵塞漏洞
6法清算系统改进
现系统Microsoft Outlook建立发送邮件改进通公司局域网中邮件服务器发送
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
