历史数据库相关对象及代码.docxVIP

历史数据库相关对象及代码一、通用变量声明：Dim Tag_Name(100), Tag_Desc(100), Tag_Index(100) As String Dim Tag_Flag(100) As Boolean Dim TimeFlagAs IntegerDim Flag As Boolean二、图表对象（用于显示历史曲线）1、插入方法：在工具箱内2、属性：不改3、代码：无三、组合框对象（显示选择数据的列表）1、插入方法：工具箱——插入OEL对象——microsoft forms 2.0 combobox2、属性：名称：pen_list3、代码：四、命令对象（用于控制添加选择实时趋势）1、插入方法：在工具箱内2、属性：名称：pen_add2、代码Private Sub AddPen_Click()Dim w As Integer If pen_list.Value = ThenMsgBox 请选择笔 Else w = pen_list.ListIndex End If If Tag_Flag(w) = False Then Chart1.AddPen (Tag_Name(w))Tag_Flag(w) = True ElseMsgBox 该点一显示, vbOKOnly, 提示End IfEnd Sub五、命令对象（用于删除选择实时趋势）1、插入方法：工具箱内2、属性：名称：pen_del3、代码：Private Sub pen_del_Click()Dim w As Integer If pen_list.Value = ThenMsgBox 请选择笔 Else w = pen_list.ListIndex End If If Tag_Flag(w) = True Then Chart1.DeletePen Chart1.CurrentPenTag_Flag(w) = False ElseMsgBox 该点已删除, vbOKOnly, 提示 End IfEnd Sub六、命令对象（时间5分钟范围）1、插入方法：工具箱内2、属性：名称：Minutes53、代码：Private Sub Minutes5_Click()TimeFlag = 1 Minutes5.Enabled = False Chart1.Duration = 60 * 5LockEnableEnd Sub七、命令对象（时间15分钟范围）1、插入方法：工具箱内2、属性：名称:Minutes153、代码：Private Sub Minutes15_Click()TimeFlag = 2 minutes15.Enabled = False Chart1.Duration = 60 * 15LockEnableEnd Sub八、命令对象（时间30分钟范围）1、插入方法：工具箱内2、属性：名称Minutes303、代码：Private Sub Minutes30_Click()TimeFlag = 3 minutes30.Enabled = False Chart1.Duration = 60 * 30LockEnableEnd Sub九、命令对象（时间1小时范围）1、插入方法：工具箱内2、属性：名称Hour13、代码：Private Sub Hour1_Click()TimeFlag = 4 hour1.Enabled = False Chart1.Duration = 60 * 60LockEnableEnd Sub十、命令对象（时间4小时范围）1、插入方法：工具箱内2、属性：名称Hour43、代码：Private Sub Hour4_Click()TimeFlag = 5 hour4.Enabled = False Chart1.Duration = 60 * 240LockEnableEnd Sub十一、命令对象（时间8小时范围）1、插入方法：工具箱内2、属性：名称Hour83、代码：Private Sub Hour8_Click()TimeFlag = 6 hour8.Enabled = False Chart1.Duration = 60 * 480LockEnableEnd Sub十二、闭锁时间按钮处理子程序Private Sub LockEnable() Dim i, j As Integer For i = 1 To 6 If i TimeFlag Then If i = 1 Then