frmpeera.frm

一种小电流接地选线监视系统,可连接多台装置.

      Height          =   495
      Left            =   7920
      Top             =   6600
      Visible         =   0   'False
      Width           =   2295
      _ExtentX        =   4048
      _ExtentY        =   873
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   2
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\a1\Alert.mdb;Persist Security Info=False"
      OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\a1\Alert.mdb;Persist Security Info=False"
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "ALERT"
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSWinsockLib.Winsock udpPeerC 
      Left            =   10320
      Top             =   6600
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      Protocol        =   1
   End
   Begin VB.TextBox txtOutput 
      Height          =   615
      Left            =   3120
      MultiLine       =   -1  'True
      TabIndex        =   1
      Text            =   "frmPeerA.frx":0015
      Top             =   6480
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.TextBox txtSend 
      Height          =   735
      Left            =   1080
      MultiLine       =   -1  'True
      TabIndex        =   0
      Text            =   "frmPeerA.frx":001B
      Top             =   6480
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "主机IP"
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   240
      Width           =   855
   End
End
Attribute VB_Name = "frmPeerC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public MainNetIP As String
Dim i As Integer
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer
Dim I4 As Integer

Public CheckTime0 As String
Public CheckTime1 As String
Public CheckTime2 As String
Public CheckTime As String


Dim reCeiver() As String
Dim reChang(15) As String





Private Sub Command1_Click()
txtSend.Text = "DisConnection"
udpPeerC.SendData txtSend.Text '发送文本
Unload frmPeerC
End Sub

Private Sub Command2_Click()
txtSend.Text = "Connection"
udpPeerC.SendData txtSend.Text '发送文本
End Sub

Private Sub Command3_Click()

Dim SQL As String
Dim Con As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
CheckTime0 = Str(frmPeerC.DTPicker1.Year)
CheckTime1 = Str(frmPeerC.DTPicker1.Month)
CheckTime2 = Str(frmPeerC.DTPicker1.Day)
If Con.State = 1 Then Con.Close
Con.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\alert.mdb" & ";MODE=READWRITE;PERSIST SECURITY INFO=FALSE"
Con.Open
SQL = "select * from alert where 年 =" & "'" & CheckTime0 & "'" & ""
'SQL = "select * from alert where 年 =" & "'" & CheckTime0 & "'" & "and 月 =" & "'" & CheckTime1 & "'" & ""
Set Cmd.ActiveConnection = Con
Cmd.CommandText = SQL
rs.CursorLocation = adUseClient
rs.Open Cmd, , adOpenDynamic, 3
'rs.Open
a = rs.RecordCount
Form1.Show
'装置地址,年,月,日,时间(时, 分),时间(秒, 毫秒)
'如果找到记录
If a > 0 Then

For MsFlex = 1 To a
With Form1.MSFlexGrid1
    .Cols = 10
    .Rows = 50
    .TextMatrix(MsFlex, 0) = ""
    .TextMatrix(MsFlex, 1) = ""
    .TextMatrix(MsFlex, 2) = ""
    .TextMatrix(MsFlex, 3) = ""
    .TextMatrix(MsFlex, 4) = ""
    .TextMatrix(MsFlex, 5) = ""
    .TextMatrix(MsFlex, 6) = ""
    .TextMatrix(MsFlex, 7) = ""
    .TextMatrix(MsFlex, 8) = ""
    .TextMatrix(MsFlex, 9) = ""
   
   
  
End With
Next MsFlex
rs.MoveFirst
j = 1
While Not rs.EOF
With Form1.MSFlexGrid1
    .TextMatrix(j, 0) = rs!装置地址
    .TextMatrix(j, 1) = rs!年
    .TextMatrix(j, 2) = rs!月
    .TextMatrix(j, 3) = rs!日
    .TextMatrix(j, 4) = rs!时分秒
    '.TextMatrix(j, 5) = rs!秒毫秒
    .TextMatrix(j, 5) = rs!保护编号
    .TextMatrix(j, 6) = rs!事件编号
 
    .TextMatrix(j, 7) = rs!故障类型
    .TextMatrix(j, 8) = rs!接地母线号
    .TextMatrix(j, 9) = rs!接地线路号
  
    j = j + 1
    rs.MoveNext
End With
Wend
End If




End Sub


    Private Sub udpPeerC_DataArrival(ByVal bytesTotal As Long)
     Dim strData As String
     udpPeerC.GetData strData, vbString
     txtOutput.Text = strData
     i = Len(txtOutput.Text)
     ReDim reCeiver(i)
     i1 = 0
     i2 = 0
     i3 = 0
    
     For i1 = 0 To i Step 1
     reCeiver(i1) = Mid(txtOutput.Text, i1 + 1, 1)
     Next i1
     txtOutput.Text = ""
    
      For i2 = 0 To i Step 1
        If reCeiver(i2) = "X" Then
           i3 = i3 + 1
        Else
        reChang(i3) = reChang(i3) + reCeiver(i2)
         End If
      Next i2
    i3 = 0
      
    Adodc1.Recordset.AddNew
    Adodc1.Recordset("装置地址") = reChang(1)
    Adodc1.Recordset("年") = reChang(2)
    Adodc1.Recordset("月") = reChang(3)
    Adodc1.Recordset("日") = reChang(4)
    Adodc1.Recordset("时分秒") = reChang(5)
    'Adodc1.Recordset("秒毫秒") = reChang(6)
    Adodc1.Recordset("保护编号") = reChang(6)
    Adodc1.Recordset("事件编号") = reChang(7)
    'Adodc1.Recordset("累积次数") = reChang(8)
    Adodc1.Recordset("故障类型") = reChang(9)
    Adodc1.Recordset("接地母线号") = reChang(10)
   Adodc1.Recordset("接地线路号") = reChang(11)
     
   Adodc1.Recordset.UpdateBatch adAffectAll
   Adodc1.Recordset.MoveLast
   'Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
   'DataGrid1.Refresh
   For I4 = 0 To 14 Step 1
   reChang(I4) = ""
   Next I4
    End Sub

Private Sub Form_Load()

     With udpPeerC
     .RemoteHost = "197.1.1.4"  '要连接到的计算机名
     .RemotePort = 1011        '要连接到的端口号
     .LocalPort = 1010          '该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯
     .Bind 1010                 '将该Winsock控制绑定到该本地端口
     End With
Adodc1.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & _
"\alert.mdb;MODE=READWRITE;PERSIST SECURITY INFO=FALSE"

Adodc1.RecordSource = "ALERT"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh


    End Sub