《2022年2022年历史数据库相关对象及代码》由会员分享，可在线阅读，更多相关《2022年2022年历史数据库相关对象及代码（7页珍藏版）》请在金锄头文库上搜索。
1、历史数据库相关对象及代码一、通用变量声明：Dim Tag_Name(100), Tag_Desc(100), Tag_Index(100) As String Dim Tag_Flag(100) As Boolean Dim TimeFlag As Integer Dim Flag As Boolean 二、图表对象（用于显示历史曲线）1、插入方法：在工具箱内2、属性：不改3、代码：无三、组合框对象（显示选择数据的列表）1、插入方法：工具箱插入OEL对象 microsoft forms 2.0 combobox 2、属性：名称： pen_list 3、代码：四、命令对象（用于控制添加选择实时趋
2、势）1、插入方法：在工具箱内2、属性：名称： pen_add 2、代码Private Sub AddPen_Click() Dim w As Integer If pen_list.Value = Then MsgBox 请选择笔 Else w = pen_list.ListIndex End If If Tag_Flag(w) = False Then Chart1.AddPen (Tag_Name(w) Tag_Flag(w) = True Else MsgBox 该点一显示 , vbOKOnly, 提示 End If End Sub 五、命令对象（用于删除选择实时趋势）1、插入方法：工具
3、箱内2、属性：名称： pen_del 3、代码：Private Sub pen_del_Click() Dim w As Integer If pen_list.Value = Then MsgBox 请选择笔 Else w = pen_list.ListIndex End If 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 7 页 - - - - - - - - - If Tag_Flag(w) = True Then Chart1.DeletePen Chart1.
4、CurrentPen Tag_Flag(w) = False Else MsgBox 该点已删除 , vbOKOnly, 提示 End IfEnd Sub 六、命令对象（时间5 分钟范围）1、插入方法：工具箱内2、属性：名称： Minutes5 3、代码：Private Sub Minutes5_Click() TimeFlag = 1 Minutes5.Enabled = False Chart1.Duration = 60 * 5 LockEnable End Sub 七、命令对象（时间15分钟范围）1、插入方法：工具箱内2、属性：名称 :Minutes15 3、代码：Private Su
5、b Minutes15_Click() TimeFlag = 2 minutes15.Enabled = False Chart1.Duration = 60 * 15 LockEnable End Sub 八、命令对象（时间30分钟范围）1、插入方法：工具箱内2、属性：名称 Minutes30 3、代码：Private Sub Minutes30_Click() TimeFlag = 3 minutes30.Enabled = False Chart1.Duration = 60 * 30 LockEnable End Sub 九、命令对象（时间1 小时范围）1、插入方法：工具箱内2、属性：
6、名称 Hour1 3、代码：Private Sub Hour1_Click() TimeFlag = 4 hour1.Enabled = False Chart1.Duration = 60 * 60 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 7 页 - - - - - - - - - LockEnable End Sub 十、命令对象（时间4 小时范围）1、插入方法：工具箱内2、属性：名称 Hour4 3、代码：Private Sub Hour4_Click()
7、TimeFlag = 5 hour4.Enabled = False Chart1.Duration = 60 * 240 LockEnable End Sub 十一、命令对象（时间8 小时范围）1、插入方法：工具箱内2、属性：名称 Hour8 3、代码：Private Sub Hour8_Click() TimeFlag = 6 hour8.Enabled = False Chart1.Duration = 60 * 480 LockEnable End Sub 十二、闭锁时间按钮处理子程序Private Sub LockEnable() Dim i, j As Integer For i
8、= 1 To 6 If i TimeFlag Then If i = 1 Then Minutes5.Enabled = True End If If i = 2 Then minutes15.Enabled = True End If If i = 3 Then minutes30.Enabled = True End If If i = 4 Then hour1.Enabled = True End If If i = 5 Then hour4.Enabled = True End If If i = 6 Then hour8.Enabled = True 名师资料总结 - - -精品资料
9、欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 7 页 - - - - - - - - - End If End If Next i End Sub 十三、缩放操作按钮对象（水平缩放）1 、 插 入 方 法 ： 工具 箱 插 入 OLE 对 象 Microsoft forms 2.0 optionbutton 2、属性：名称： zoom_hori；caption: 水平方向3、代码：Private Sub zoom_hori_Click() zoom_hori.Value = True zoom_ver
10、t.Value = False zoom_both.Value = False Chart1.ZoomDirection = ZoomHorizontal End Sub 十四、操作按钮对象（垂直缩放）1 、 插 入 方 法 ： 工具 箱 插 入 OLE 对 象 Microsoft forms 2.0 optionbutton（也可以使用粘贴方法）2、属性：名称： zoom_Vert；caption:垂直方向3、代码：Private Sub zoom_Vert_Click() zoom_hori.Value = False zoom_vert.Value = True zoom_both.Va
11、lue = False Chart1.ZoomDirection = ZoomVertical End Sub 十五、操作按钮对象（双向缩放）1 、 插 入 方 法 ： 工具 箱 插 入 OLE 对 象 Microsoft forms 2.0 optionbutton（也可以使用粘贴方法）2、属性：名称： zoomdoble；caption: 双方向3、代码：Private Sub zoomdoble_Click() Dim dblYHiValue As Double, dblYLoValue As Double Dim dblXHiValue As Double, dblXLoValue A
12、s Double dblYHiValue = 100 - zoombox.Text dblXHiValue = 100 - zoombox.Text dblYLoValue = zoombox.Text dblXLoValue = zoombox.Text Chart1.Zoom dblYHiValue, dblYLoValue, dblXHiValue, dblXLoValue End Sub 十六、文本框对象（缩放百分比）1、插入方法：工具箱插入OLE对象 Microsoft forms 2.0 textbox 2、属性：名称： zoombox 名师资料总结 - - -精品资料欢迎下载 -
13、 - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 7 页 - - - - - - - - - 3、代码：无十七、微调按钮对象（百分比按钮）1、 插入方法：工具箱插入 OLE对象 Microsoft forms 2.0 spinbutton 2、属性：名称： zoomspin 3、代码：Private Sub zoomspin_SpinDown() If zoombox.Text = Then zoombox.Text = 0 End If If CInt(zoombox.Text) = 5 Then zoombox.
14、Text = CInt(zoombox.Text) - 5 End If End Sub Private Sub zoomspin_SpinUp() If zoombox.Text = Then zoombox.Text = 0 End If If CInt(zoombox.Text) = 95 Then zoombox 1.Text = CInt(zoombox.Text) + 5 End If End Sub 十八、命令按钮对象（缩放按钮）1、插入方法：工具箱内2、属性：名称： zoomcmd 3、代码：Private Sub zoomcmd_Click() Dim dblYHiValue
15、 As Double, dblYLoValue As Double Dim dblXHiValue As Double, dblXLoValue As Double dblYHiValue = 100 - zoombox.Text dblXHiValue = 100 - zoombox.Text dblYLoValue = zoombox.Text dblXLoValue = zoombox.Text Chart1.Zoom dblYHiValue, dblYLoValue, dblXHiValue, dblXLoValue End Sub 十九、命令按钮对象（恢复按钮）1、插入方法：工具箱内
16、2、属性：名称： zoomresume 3、代码：Private Sub zoomresume _Click() Chart1.ResetZoom End Sub 二十、命令对象（向前25% ）1、插入方法：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 7 页 - - - - - - - - - 2、属性：名称： scrollright 3、代码：Private Sub scrollright_Click() Chart1.ScrollPercentage = 25 C
17、hart1.ScrollForward End Sub 二十一、命令对象（向前50% ）1、插入方法：2、属性：名称： scrollrightfast 3、代码：Private Sub scrollrightfast_Click() Chart1.ScrollPercentage = 50 Chart1.ScrollForward End Sub 二十二、命令对象（向后25% ）1、插入方法：2、属性：名称： scrollleft 3、代码：Private Sub scrollleft_Click() Chart1.ScrollPercentage = 25 Chart1.ScrollBack
18、 End Sub 二十三、命令对象（向后50）1、插入方法：2、属性：名称： scrollleftfast 3、代码：Private Sub scrollleftfast_Click() Chart1.ScrollPercentage = 50 Chart1.ScrollBack End Sub 二十四、初始化（预装代码） ：Private Sub CFixPicture_Initialize() pen_list.Clear Dim i As Integer For i = 0 To 99 Tag_Name(i) = Tag_Desc(i) = Tag_Flag(i) = False Nex
19、t i Dim RS_List As New ADODB.Recordset类型引用见注释 Dim CN_List As New Connection Dim SQLTest As String Dim w, x As Integer 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 7 页 - - - - - - - - - SQLTest = select * from wx With CN_List .Open Provider=Microsoft.Jet.OLEDB
20、.4.0;Data Source=c:REPORTweixin.mdb;Persist Security Info=False .Execute (SQLTest) End With RS_List.Open SQLTest, CN_List, adOpenDynamic, adLockReadOnly, adCmdText w = 0 While RS_List.EOF True If RS_List.Fields(w) Then Tag_Index(w) = RS_List.Fields(0) Tag_Name(w) = (Hist.fix. + RS_List.Fields(1) Tag
21、_Desc(w) = RS_List.Fields(2) RS_List.MoveNext w = w + 1 End If Wend x = 0 For x = 0 To w - 1 pen_list.AddItem (Tag_Desc(x) Next x RS_List.Close CN_List.Close pen_list.ListIndex = 0 Chart1.endtime = Now() end sub 注释：选中历史趋势画面工作台VB 编辑器工具引用在Microsoft active data objects 2.1 前打钩确定名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 7 页 - - - - - - - - -
