菜单栏自定义按钮执行SQL脚本

功能说明：

在填报、修改、查阅模板时，顶部的菜单栏添加一个自定义按钮并在点击按钮时执行SQL语言脚本。

支持版本：

企业版7.0以上

效果：

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.         Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.         Dim EV As SpreadsheetGear.Windows.Co**ols.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.         Dim CF As TextBox,VW As Object
    
14.         Dim TS As StackPanel
    
15.                 Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Co**ols.WorkbookView)
    
16.                         EV = Excel
    
17.                         Excel.GetLock()
    
18.                         AW = Excel.ActiveWorkbook
    
19.                         Range = AW.ActiveWorksheet.Range
    
20.                         Excel.ReleaseLock()
    
21. 
    
22.                         CF = CType(OldRoot.Children(1),TextBox)
    
23.                         TS = CType(OldRoot.Children(5),StackPanel)
    
24.                        
    
25.                        
    
26.                         Dim BT1 As New Button
    
27.                         BT1.Name = "BT_RZ"
    
28.                         BT1.Content = "写入日志"
    
29.                         BT1.Margin= New Thickness(0, 2, 0, 2)
    
30.                         BT1.Padding= New Thickness(13, 3, 13, 3)
    
31.                         BT1.Style=CType(Application.Current.Resources("ButtonStyle3"),style)
    
32.                         BT1.Foreground =  CType(Application.Current.Resources("Foreground1"),System.Windows.Media.Brush)
    
33.                         AddHandler BT1.Click, Sub()
    
34.                                 CF.Tag="INSERT INTO SYS_LOG (LID,COMPUTERNAME,USERNAME,LOGTYPE,LOGDATE,LOGDETAIL) VALUES(NEWID(),'192.168.0.100','超级管理员','执行SQL',GETDATE(),NEWID())|执行完毕! "   '执行的SQL语句，语句后竖线分隔符及后面显示的文字为在语句执行完成后弹出提示内容。
    
35.                                 CF.Text="#执行SQL"
    
36.                         End Sub
    
37.                         TS.Children.Insert(16, BT1)
    
38. 
    
39.                 End Sub'打开时执行事件
    
40. 
    
41.                 Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangedEventArgs)
    
42. 
    
43.                 End Sub'单元格选择后执行的事件
    
44. 
    
45.                 Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeChangedEventArgs)
    
46. 
    
47.                 End Sub'单元格编辑完成后执行事件
    
48. 
    
49.                 Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs)
    
50. 
    
51.                 End Sub'按钮/标签点击事件
    
52. 
    
53.                 Public Sub FollowHyperlink(sender As Object)
    
54. 
    
55.                 End Sub '暂不支持
    
56. 
    
57.         End Class
    
58. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
59. End Namespace
    

复制代码

菜单栏自定义按钮执行SQL脚本

功能说明：

在填报、修改、查阅模板时，顶部的菜单栏添加一个自定义按钮并在点击按钮时执行SQL语言脚本。

支持版本：

企业版7.0以上

效果：

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.         Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.         Dim EV As SpreadsheetGear.Windows.Co**ols.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.         Dim CF As TextBox,VW As Object
    
14.         Dim TS As StackPanel
    
15.                 Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Co**ols.WorkbookView)
    
16.                         EV = Excel
    
17.                         Excel.GetLock()
    
18.                         AW = Excel.ActiveWorkbook
    
19.                         Range = AW.ActiveWorksheet.Range
    
20.                         Excel.ReleaseLock()
    
21. 
    
22.                         CF = CType(OldRoot.Children(1),TextBox)
    
23.                         TS = CType(OldRoot.Children(5),StackPanel)
    
24.                        
    
25.                        
    
26.                         Dim BT1 As New Button
    
27.                         BT1.Name = "BT_RZ"
    
28.                         BT1.Content = "写入日志"
    
29.                         BT1.Margin= New Thickness(0, 2, 0, 2)
    
30.                         BT1.Padding= New Thickness(13, 3, 13, 3)
    
31.                         BT1.Style=CType(Application.Current.Resources("ButtonStyle3"),style)
    
32.                         BT1.Foreground =  CType(Application.Current.Resources("Foreground1"),System.Windows.Media.Brush)
    
33.                         AddHandler BT1.Click, Sub()
    
34.                                 CF.Tag="INSERT INTO SYS_LOG (LID,COMPUTERNAME,USERNAME,LOGTYPE,LOGDATE,LOGDETAIL) VALUES(NEWID(),'192.168.0.100','超级管理员','执行SQL',GETDATE(),NEWID())|执行完毕! "   '执行的SQL语句，语句后竖线分隔符及后面显示的文字为在语句执行完成后弹出提示内容。
    
35.                                 CF.Text="#执行SQL"
    
36.                         End Sub
    
37.                         TS.Children.Insert(16, BT1)
    
38. 
    
39.                 End Sub'打开时执行事件
    
40. 
    
41.                 Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangedEventArgs)
    
42. 
    
43.                 End Sub'单元格选择后执行的事件
    
44. 
    
45.                 Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeChangedEventArgs)
    
46. 
    
47.                 End Sub'单元格编辑完成后执行事件
    
48. 
    
49.                 Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs)
    
50. 
    
51.                 End Sub'按钮/标签点击事件
    
52. 
    
53.                 Public Sub FollowHyperlink(sender As Object)
    
54. 
    
55.                 End Sub '暂不支持
    
56. 
    
57.         End Class
    
58. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
59. End Namespace
    

复制代码