《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 页 - - - - - - - - -