网盘应用—Excel数据库开发：[4]初现轮廓

上期开始制作"远程工单系统"。系统包括数据库、派发单位客户端、执行单位客户端等三个功能模块。

其中数据库必须放置在酷盘同步目录中“D:\kp\远程工单\远程工单数据库.xls"，为了提高读写速度数据格式越简单越好（参见上期内容）。

派发单位客户端主要功能是派发工单、跟踪工单执行情况、对执行单位发出指令等，上期完成“更新本地数据”程序设计，本期将完成工单信息录入部分的设计：右击工单编号时，通过Worksheet_BeforeRightClick事件将对应工单记录写入数据库。

前期准备工作（包括相关工具或所使用的原料等）

Excel/VBA/酷盘

派发单位客户端设计：

右击工单编号事件设计——功能描述

右击工单编号-->弹出确认对话框-->经确认后将对应工单记录写入数据库。

右击工单编号事件设计——Worksheet_BeforeRightClick事件

要实现这样的功能，需要对Worksheet_BeforeRightClick事件进行编程。

右击工单编号事件设计——控制事件生效范围

Private Sub Worksheet_BeforeRightClick _

(ByVal Target As Range, Cancel As Boolean)

Dim EndRow As Single '尾行行号

EndRow=Sheets(1).Range("a65535").End(xlUp).Row

If Target.Column=1 And Target.Row > 1 And Target.Row <=EndRow _

And Target.Cells.Count=1 Then

'右击第一列的第二行到最后一行某个单元格时条件成立

'......

'执行语句

'......

End If

End Sub

右击工单编号事件设计——获取用户选项

'......

Cancel=True '屏蔽右键菜单

Dim YorN As Byte '获取用户选项

YorN=MsgBox(" 是否将 " & Target & " 号工单的记录存入数据库？ ", _

vbOKCancel, "工单记录存入数据库")

'......

右击工单编号事件设计——记录写入数据库

'......

If YorN=1 Then

Application.ScreenUpdating=False

Arr=Range("a" & Target.Row & ":g" & Target.Row).Value

Dim DB As String

DB="d:\kp\远程工单\远程工单数据库.xls"

Do '检测冲突循环体

If Dir(DB) <> "" Then

Workbooks.Open Filename:=DB

Else

MsgBox "文件“远程工单数据库.xls”不存在！" & vbCrLf & vbCrLf _

& "路径为“d:\kp\电务工单\电务工单数据库—2015”"

End If

Workbooks("远程工单数据库.xls").Sheets(1). _

Range("a" & Target.Row & ":g" & Target.Row)=Arr

Application.DisplayAlerts=False

Workbooks("远程工单数据库.xls").Close savechanges:=True

Application.DisplayAlerts=True

If Dir(DB & "*冲突*.*") <> "" Then

Kill (DB & "*冲突*.*")

Else

Exit Do

End If

Loop '检测冲突循环体，无冲突时结束循环。

Application.ScreenUpdating=True

Application.StatusBar=Target.Value & "号工单的记录存入数据库！"

End If

'......

派发单位客户端完工！

最后解释一下图片链接栏的用途：

如果将一个JPG图片文件命名为“2015-006.JPG”放置在与数据库同一个目录下，该文件即与编号为“006”的工单链接在一起，可通过客户端的链接地址将其打开，同时，该文件将与数据库一起被同步到其它客户端，可以被其它客户端打开浏览。

可以将签字盖章的工单原件扫描成JPG图片作为工单的原始依据供所有客户端调用。

下期预告：

下期开始设计第三个功能模块——执行单位客户端。

注意事项

派发单位客户端还可以增加许多功能，比如汇总、统计、分析等，以后有机会跟朋友们分享！网盘应用—Excel数据库开发(共8篇)上一篇：叩石垦壤|下一篇：雕梁画柱经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。