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

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 Target.Column = 1 And Target.Row > 1 And Target.Row <= EndRow _

                     And Target.Cells.Count = 1 Then

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

'......

      '执行语句

'......  

End If

End Sub

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

'......

   Cancel = True  '屏蔽右键菜单

   Dim YorN As Byte  '获取用户选项

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

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

'......

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

'......

   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

'......

6、派发单位客户端完工！

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

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

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

8、下期预告：

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