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

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

7.5.9 查询付款信息

单击“查询”按钮，即可打开一个“付款查询”窗口，在此窗口中可以设置查询条件进

行查询，然后将查询到的付款数据输入主窗口。程序代码如下：

Private Sub 查询_Click0

付款查询.Show 0

End Sub

关于付款查询窗口的设计将在后面进行介绍。

修改付款信息

单击“修改”按钮，即可将指定的付款信息予以修改保存，这里是以付款标记为关键词 进行修改。程序代码如下：

Private Sub 修改_Click0

If付款标记.Value =""Then

MsgBox" 没有要修改的付款信息!"vbCritical,"警告"

Exit Sub

End If

If MsgBox("下面将修改指定的付款信息。确认修改吗?"_

vbQuestion +vbYesNo,"警告")= vbNo Then Exit Sub

With wsPay

n=WorksheetFunction.Match (付款标记.Value,.Range("H:H"),0)

.Range("A"&n)= 合同号 .Value

.Range("B"&n)= 合同名称.Value

.Range("C"&n)= 单位代码.Value

.Range("D"&n)= 开票单位.Value

.Range("E"&n)= 付款日期 .Value

.Range("F"&n)=付款金额 .Value

.Range("G"&n)=付款方式 .Value

.Range("H"&n)=付款标记 .Value

.Range("I"&n)=备 注 .Value

End With

MsgBox" 数据修改成功!",vbInformation +vbOKOnly,"修改"

Call 重置窗口

End Sub

删除付款信息

单击“删除”按钮，即可将指定的付款信息从表单中删除，这里是以付款标记为关键词

进行删除的。程序代码如下：

Private Sub 删除_Click0

If 付款标记 .Value =""Then

MsgBox" 没有要删除的付款信息!"vbCritical," 警告"

Exit Sub

End If

If MsgBox("下面将删除指定的付款信息， 一 经删除将无法恢复!确认删除吗?"_ vbQuestion+vbYesNo," 警告")=vbNo Then Exit Sub

With wsPay

n=WorksheetFunction.Match (付款标记 .Value,.Range("H:H"),0)

.Rows(n).Delete shift:=xlUp

End With

MsgBox" 数据删除成功!"vbInformation+vbOKOnly," 删除"

Call 重置窗口

End Sub

退出付款信息窗口

单击“退出”按钮，即可关闭合同信息窗口。程序代码如下：

Private Sub 退出_Click0

End

End Sub

付款信息多维度查询模块

付款查询是一个单独的小模块，既可以在付款信息主窗口中调用，也可以单独使用。在 这个模块中，可以根据指定的条件查询付款信息。

1.“付款查询”窗口结构

“付款查询”窗口结构如图7-32所示。这个窗体结构与前面介绍的发票查询窗体结构基本相同。

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