form3.frm

读取SQL数据库后

        Check3.Enabled = False
        Check4.Enabled = False
        Check5.Enabled = False
    End If
End Sub

Private Sub Check3_Click()
    If Check3.Value = 1 Then
        Combo5.Enabled = True
        Combo6.Enabled = True
        DTPicker3.Enabled = True
'        Check4.Enabled = True
    Else
        Combo5.Enabled = False
        Combo6.Enabled = False
        DTPicker3.Enabled = False
        Check4.Value = 0
        Check5.Value = 0
        Check4.Enabled = False
        Check5.Enabled = False
    End If
End Sub

Private Sub Check4_Click()
    If Check4.Value = 1 Then
        Combo7.Enabled = True
        Combo8.Enabled = True
        DTPicker4.Enabled = True
'        Check5.Enabled = True
    Else
        Combo7.Enabled = False
        Combo8.Enabled = False
        DTPicker4.Enabled = False
        Check5.Value = 0
        Check5.Enabled = False
    End If
End Sub

Private Sub Check5_Click()
    If Check5.Value = 1 Then
        Combo9.Enabled = True
        Combo10.Enabled = True
        DTPicker5.Enabled = True
    Else
        Combo9.Enabled = False
        Combo10.Enabled = False
        DTPicker5.Enabled = False
    End If
End Sub

Private Sub Combo1_Click()
Call del_com_item(2)
Call add_mkid(Combo1.Text)
Call add_ttname(c_mkid, 1)
End Sub

Private Sub Combo2_Click()
        Check2.Enabled = True
End Sub

Private Sub Combo3_Click()
Call del_com_item(4)
Call add_mkid(Combo3.Text)
Call add_ttname(c_mkid, 2)
End Sub

Private Sub Combo4_Click()
        Check3.Enabled = True
End Sub

Private Sub Combo5_Click()
Call del_com_item(6)
Call add_mkid(Combo5.Text)
Call add_ttname(c_mkid, 3)
End Sub

Private Sub Combo6_Click()
        Check4.Enabled = True
End Sub

Private Sub Combo7_Click()
Call del_com_item(8)
Call add_mkid(Combo7.Text)
Call add_ttname(c_mkid, 4)
End Sub

Private Sub Combo8_Click()
        Check5.Enabled = True
End Sub

Private Sub Combo9_Click()
Call del_com_item(10)
Call add_mkid(Combo9.Text)
Call add_ttname(c_mkid, 5)
End Sub

Private Sub Command1_Click()
Dim sKey As String
Erase data
If Combo2.Text = "" Then
   MsgBox "请选择传感器！"                        '一个传感器都没选
Else
   If Check1.Value = 1 And Combo2.Text <> "" Then
       Call add_ZeXian(Combo2.Text, 1)
   End If
   
   If Check2.Value = 1 And Combo4.Text <> "" Then
      Call add_ZeXian(Combo4.Text, 2)
   End If
   If Check3.Value = 1 And Combo6.Text <> "" Then
       Call add_ZeXian(Combo6.Text, 3)
   End If
   
   If Check4.Value = 1 And Combo8.Text <> "" Then
      Call add_ZeXian(Combo8.Text, 4)
   End If
   If Check5.Value = 1 And Combo10.Text <> "" Then
       Call add_ZeXian(Combo10.Text, 5)
   End If
End If                  'End      If Combo2.Text = "" Then
'Call drawzx(mhead, mtemp, mcount)
Call drawzx(0, maxnum, maxnum)
mhead = 0
mtemp = maxnum
mcount = maxnum
Form3.Hide
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Combo2.RemoveItem 0
End Sub

Private Sub Form_Load()
c_mkid = ""
maxnum = 0
minvalue = 0
maxvalue = 0
If conn.State <> adStateOpen Then
conn.CursorLocation = adUseClient
  With conn
     .CommandTimeout = 600
     .ConnectionTimeout = 600
  End With
conn.Open "Provider=SQLOLEDB.1;Data Source=LENOVO-D16E7F58;User ID=sa; Password='operator'; Initial Catalog =COAL"
End If
sqlstr = "select * from xia_coal"
rs.Open sqlstr, conn, adOpenStatic
m = rs.RecordCount
rs.MoveFirst
For i = 1 To m
Combo1.AddItem (rs.Fields("mkname").Value)
Combo3.AddItem (rs.Fields("mkname").Value)
Combo5.AddItem (rs.Fields("mkname").Value)
Combo7.AddItem (rs.Fields("mkname").Value)
Combo9.AddItem (rs.Fields("mkname").Value)
rs.MoveNext
Next i
rs.Close
End Sub

Public Sub add_mkid(id As String)
If id <> "" Then
   sqlstr = "select * from xia_coal"
   rs.Open sqlstr, conn, adOpenStatic
   m = rs.RecordCount
   rs.MoveFirst
   While id <> rs.Fields("mkname").Value
      rs.MoveNext
   Wend
   c_mkid = rs.Fields("mkid").Value
   rs.Close
End If
End Sub

Public Sub add_ttname(id As String, n As Integer)
If id <> "" Then
   sqlstr = "select ttid,ttname from xia_config where mkid = '" & id & "'"
   rs.Open sqlstr, conn, adOpenStatic
   m = rs.RecordCount
   If m <> 0 Then
   rs.MoveFirst
   For i = 1 To m
      If n = 1 Then
         Combo2.AddItem (rs.Fields("ttname").Value)
      End If
      If n = 2 Then
         Combo4.AddItem (rs.Fields("ttname").Value)
      End If
      If n = 3 Then
         Combo6.AddItem (rs.Fields("ttname").Value)
      End If
      If n = 4 Then
         Combo8.AddItem (rs.Fields("ttname").Value)
      End If
      If n = 5 Then
         Combo10.AddItem (rs.Fields("ttname").Value)
      End If
      
      rs.MoveNext
   Next i
 End If
rs.Close
End If
End Sub



Public Sub del_com_item(i As Integer)
If i = 2 Then
   If Combo2.ListCount <> 0 Then
      For j = 1 To Combo2.ListCount
          Combo2.RemoveItem (0)
      Next j
   End If
End If
If i = 4 Then
   If Combo4.ListCount <> 0 Then
      For j = 1 To Combo4.ListCount
          Combo4.RemoveItem (0)
      Next j
   End If
End If
If i = 6 Then
   If Combo6.ListCount <> 0 Then
      For j = 1 To Combo6.ListCount
          Combo6.RemoveItem (0)
      Next j
   End If
End If
If i = 8 Then
   If Combo8.ListCount <> 0 Then
      For j = 1 To Combo8.ListCount
          Combo8.RemoveItem (0)
      Next j
   End If
End If
If i = 10 Then
   If Combo10.ListCount <> 0 Then
      For j = 1 To Combo10.ListCount
          Combo10.RemoveItem (0)
      Next j
   End If
End If
End Sub
        '**************************************************************************
        '根据第num条传感器的名称ttname与时间选出表xia_dayreport中对应的数据并存入数组中
        '**************************************************************************
Public Sub add_ZeXian(c_ttname As String, num As Integer)                'maxnum minvalue maxvalue要初始化 =0
Dim c_sky, ctime As String
         sqlstr = "select ttid,ttname from xia_config where ttname = '" & c_ttname & "'"    '从xia_config中取出与传感器名对应的ID号
         rs.Open sqlstr, conn, adOpenStatic
         c_Key = Left(rs.Fields("ttid").Value, 9) & "01" & Right(rs.Fields("ttid").Value, 2)
         rs.Close
         
         sqlstr = "select tttime,ttvalue from xia_dayreport where ttid = '" & c_Key & "' and left(tttime,10) = '2007-08-07' order by tttime"
         rs.Open sqlstr, conn, adOpenStatic
         m = rs.RecordCount
         If m > 0 Then
             If m > maxnum Then
                maxnum = m
             End If
         
             ReDim Preserve data(maxnum, 2 * num - 1)

            If num = 1 Then                                 '取出最小时间、最大时间
              
               rs.MoveFirst
               ctime = Right(rs.Fields("tttime").Value, 8)
               mintime = 24 * CDate(ctime)
               rs.MoveLast
               ctime = Right(rs.Fields("tttime").Value, 8)
               maxtime = 24 * CDate(ctime)
            Else
               rs.MoveFirst
               ctime = Right(rs.Fields("tttime").Value, 8)
               If 24 * CDate(ctime) < mintime Then
                  mintime = 24 * CDate(ctime)
               End If
               rs.MoveLast
               ctime = Right(rs.Fields("tttime").Value, 8)
               If 24 * CDate(ctime) > maxtime Then
                  maxtime = 24 * CDate(ctime)
               End If
           End If
           rs.MoveFirst
           For i = 0 To m - 1                               '把时间与数值存入数组中，并取得最大与最小的数值
                ctime = Right(rs.Fields("tttime").Value, 8)
                h = CDate(ctime)
                data(i, 2 * num - 2) = 24 * h
                data(i, 2 * num - 1) = rs.Fields("ttvalue").Value
                
                    If data(i, 2 * num - 1) < minvalue Then
                       minvalue = data(i, 2 * num - 1)
                    End If
                    If data(i, 2 * num - 1) > maxvalue Then
                       maxvalue = data(i, 2 * num - 1)
                    End If
                rs.MoveNext
           Next i
            rs.Close
            temp = data
         Else                       'Else      M >0
            rs.Close
         End If                     'End      if m > 0
End Sub