《Excel VBA+SQL数据管理与应用模板开发》_工作效率UP!_7.5 付款管理

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

7.5 付款管理

付款管理就是记录每个合同的每次付款情况。付款信息数据的录入与维护同样 也是通过一个“付款信息”窗口界面完成的。

付款信息录入界面结构

付款信息录入窗体的结构如图7-31所示，其名称和 Caption均为“付款信息”。窗体的 各个控件说明如表7-8所示。

启动并初始化窗口

由于在付款信息窗口中有计算控件，为了使查询窗口和输入窗口互不干扰，必须定义一 个公共逻辑变量“查询开关”,并保存在一个模块中。

Public 查询开关 As Boolean

为窗体设计以下的初始化程序。启动窗体时，初始化窗体界面，设置窗体控件的项目， 建立与工作簿的连接。

"定义模块级变量

Dim cnn As New ADODB.Connection

Dim wsCon As Worksheet,wsPay As Worksheet

Dim 合 同 额 As Currency,已付金额 As Currency

Private Sub UserForm_Initialize)

'默认情况下，付款查询窗口是关闭的

查询开关=False

'设置工作簿对象

Set wsCon =ThisWorkbook.Worksheets("合同信息")

Set wsPay =ThisWorkbook.Worksheets("付款信息")

'显示付款信息工作表

wsPay.Select

'建立与工作簿的连接

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"&wsCon.Range("A10000").End(xIUp).Row

.Value ="--选择合同号--"

End With

'为付款方式复合框设置项目

With 付款方式

.list=Array("电汇","转账","承兑","其他")

.Value ="--选择付款方式--"

End With

'清除窗口旧数据，恢复初始化状态，准备输入新数据

Call 重置窗口

End Sub

这里子程序“重置窗口”的代码如下：

Sub 重置窗口0

合同号.Value ="--选择合同号--"

合同名称.Value =""

单位代码.Value =""

开票单位.Value=""

付款日期.Value =""

付款金额.Value="

付款方式.Value="-- 选择付款方式--"

付款标记.Value=""

备注.Value =""

合同额显示.Caption =""

付款情况显示.Caption =""

End Sub

据合同号关键字快速查找要付款的合同

由于合同比较多，为了快速定位到某个合同，可以根据输入的合同号关键字来查找合同 信息，这是通过文本框“合同号关键词”的 Change事件完成的，具体代码请参阅前面的发 票信息代码。

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