如何在Excel中通过右键点击工单编号将其记录写入数据库
本文是“网盘应用—Excel数据库开发”系列的第四篇文章，上期我们介绍了远程工单系统的派发单位客户端部分。本期我们将深入介绍如何通过右键点击工单编号将其记录写入数据库。
1. 右击工单编号事件设计——功能描述
我们的目标是实现以下功能：当用户右键点击某个工单编号时，程序将自动弹出确认对话框，经过用户确认后将对应的工单记录写入数据库。
2. 右击工单编号事件设计——Worksheet_BeforeRightClick事件
为了实现这个功能，我们需要对Worksheet_BeforeRightClick事件进行编程。该事件会在用户右键点击任意单元格时触发。
3. 右击工单编号事件设计——控制事件生效范围
我们只需要在右击工单编号时触发该事件。为了控制事件生效的范围，我们需要添加以下代码：
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim EndRow As Single '尾行行号
EndRow Sheets(1).Range("a65535").End(xlUp).Row
If 1 And > 1 And < EndRow And 1 Then '右击第一列的第二行到最后一行某个单元格时条件成立
'执行语句
End If
End Sub
4. 右击工单编号事件设计——获取用户选项
当用户右键点击工单编号时，我们需要弹出一个确认对话框来获取用户的确认。以下是完整的代码：
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim EndRow As Single '尾行行号
EndRow Sheets(1).Range("a65535").End(xlUp).Row
If 1 And > 1 And < EndRow And 1 Then '右击第一列的第二行到最后一行某个单元格时条件成立
'获取用户选项
Dim YorN As Byte
YorN MsgBox(" 是否将 " Target " 号工单的记录存入数据库？", vbOKCancel, "工单记录存入数据库")
'...
End If
End Sub
5. 右击工单编号事件设计——记录写入数据库
当用户确认将工单记录存入数据库后，我们需要将其记录写入数据库。以下是完整的代码：
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim EndRow As Single '尾行行号
EndRow Sheets(1).Range("a65535").End(xlUp).Row
If 1 And > 1 And < EndRow And 1 Then '右击第一列的第二行到最后一行某个单元格时条件成立
'获取用户选项
Dim YorN As Byte
YorN MsgBox(" 是否将 " Target " 号工单的记录存入数据库？", vbOKCancel, "工单记录存入数据库")
If YorN 1 Then
False
Arr Range("a" ":g" ).Value '获取当前行的所有数据
Dim DB As String
DB "d:kp远程工单远程工单数据库.xls"
Do '检测冲突循环体
If Dir(DB) <> "" Then
Filename:DB
Else
MsgBox "文件“远程工单数据库.xls”不存在！" vbCrLf vbCrLf "路径为“d:kp电务工单电务工单数据库—2015”"
End If
Workbooks("远程工单数据库.xls").Sheets(1).Range("a" ":g" ) Arr
Application.DisplayAlerts False
Workbooks("远程工单数据库.xls").Close savechanges:True
Application.DisplayAlerts True
If Dir(DB "*冲突*.*") <> "" Then
Kill (DB "*冲突*.*")
Else
Exit Do
End If
Loop '检测冲突循环体，无冲突时结束循环。
True
"号工单的记录存入数据库！"
End If
End If
End Sub
6. 派发单位客户端完工！
通过本期的介绍，我们完成了派发单位客户端的全部设计。下期我们将开始设计第三个功能模块——执行单位客户端。敬请期待！
7. 最后解释一下图片链接栏的用途：
如果将一个JPG图片文件命名为“”放置在与数据库同一个目录下，该文件即与编号为“006”的工单链接在一起，可通过客户端的链接地址将其打开。同时，该文件将与数据库一起被同步到其它客户端，可以被其它客户端打开浏览。你还可以将签字盖章的工单原件扫描成JPG图片作为工单的原始依据供所有客户端调用。
以上就是本期的内容，希望对你有所帮助。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
