《Excel VBA+SQL数据管理与应用模板开发》_工作效率UP!_7.1.7 合同信息查询导出

【摘要】 本书摘自《Excel VBA+SQL数据管理与应用模板开发》一书中第7章，第1节，韩小良著。

7.1.7 合同信息查询导出

由于合同很多，为了便于查看某些合同，可设计一个统计模块，根据供货商、供货产品、

合同金额、签订日期等条件来查询合同数据，并导出到新工作簿。

发票信息查询与导出

这是一个单独设计的模块，可以根据开票单位、入票日期、开票金额等条件来查询相关 的发票信息，并导出到新工作簿。

7.1.9 付款信息查询与导出

这也是一个单独设计的模块，可以根据开票单位、付款日期、付款金额等条件来查询， 并导出到新工作簿。

“全部合同进度跟踪”报表

对合同的跟踪是非常重要的，图7-7所示是一个简单的合同执行情况跟踪报表结构，统 计汇总的项目包括：

●合同号

●合同名称

●供货商代码

●供货商名称

●供货产品 ●合同额

●签订日期

●交货日期

●已开票金额

●已付款金额

●未开票金额

●未付款金额

●进度情况

这个统计表中的数据是统计所有合同的执行情况，都是根据前面的“合同信息”“发票 信息”和“付款信息”这3个工作表统计汇总得到的，如果合同额、发票总额和付款总额三

者相同，就表示合同已经完成。

“供货商合同跟踪”报表

“供货商合同跟踪”报表是根据进度类型来对供货商进行筛选和统计，例如，统计汇总 未全额付款的供货商及合同；统计汇总那些已开票还没付款的供货商及合同等，如图7-8 所示。

“供货商合同跟踪”报表包括两大部分：按进度类别的所有供货商及合同的总汇总表， 以及某个指定供货商的合同信息明细、开票信息明细和付款信息明细。

7.2 供货商信息管理

供货商管理主要是对供货商基本资料进行管理和维护，包括对已有供货商资料 的编辑、添加新供货商资料。供货商的这些资料都会被合同表单、发票表单和付款 表单引用，因此供货商资料的完整性和准确性是非常重要的。

供货商信息录入界面结构

供货商信息的录入是通过一个窗口界面完成的，其结构如图7-12所示。窗体的名称和 Caption均为“供货商管理”。窗体的各个控件说明如表7-2所示。

启动并初始化窗口

为窗体设计以下的初始化程序，当启动窗体时，建立与工作簿的连接，设置窗体中的两

个复合框，引用工作簿。

'定义模块级变量

Dim cnn As New ADODB.Connection

Dim wsBasic As Worksheet

Dim wsSup As Worksheet

Private Sub UserForm_Initialize)

'指定工作表对象

Set wsBasic =ThisWorkbook.Worksheets("基本资料")

Set wsSup=ThisWorkbook.Worksheets("供货商信息")

wsSup.Select

'建立与工作簿的ADO连接

With cnn

.Provider ="microsoft.ace.oledb.12.0"

.ConnectionString="Extended Properties=Excel 12.0;"_

&"Data Source="&ThisWorkbook.FullName

.Open

End With

'为“地区”复合框设置项目

With 地区

.RowSource=" 基本资料!A2:A"&wsBasic.Range("A1000"),End(xlUp).Row

.Value ="--选择地区--"

End With

'为“合作类型”复合框设置项目

With 合作类型

.AddItem "整体采购"

.AddItem"零星采购"

.Addltem "其他"

.Value ="--选择合作类型--"

End With

供货商代码.Locked =True

'将焦点移到“供货商名称”文本框

供货商名称.SetFocus

End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们 18664393530@aliyun.com 处理，核实后本网站将在24小时内删除侵权内容。