frmsendmsg.frm

网吧的所有经营活动都能操作(包括时间管理、客户机管理、食品出售等)

VERSION 5.00
Begin VB.Form frmSendMsg 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "发送信息"
   ClientHeight    =   3510
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4995
   Icon            =   "frmSendMsg.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3510
   ScaleWidth      =   4995
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      Height          =   2895
      Left            =   0
      MaxLength       =   255
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   0
      Width           =   4935
   End
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   3240
      TabIndex        =   2
      Top             =   3000
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "发送(&S)"
      Height          =   375
      Left            =   1680
      TabIndex        =   1
      Top             =   3000
      Width           =   975
   End
End
Attribute VB_Name = "frmSendMsg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public IndexJSJ As Integer
Public SelectCom As String
Public ISText As Boolean

Private Sub Command1_Click()
On Error Resume Next
With frmMain.Data1.Recordset
aa = .AbsolutePosition


If Text1.Text = "" Then
 MsgBox "所发的信息不能为空！", vbQuestion
 Exit Sub
End If
Select Case SelectCom
Case "当前所选计算机"
 If ISText = True Then
 frmMain.Winsock1(IndexJSJ).SendData "_comm" + Chr(0) + "settext" + Chr(0) + Text1.Text + Chr(0) + "OK$"
 DoEvents
  
 Else
 frmMain.Winsock1(IndexJSJ).SendData "_msgb" + Chr(0) + Text1.Text + Chr(0) + "OK$"
 DoEvents
 End If
Case "所有待机计算机"
 
 .MoveFirst
 For i = 1 To .RecordCount
  If .Fields("状态") = "S" Then
    For j = 0 To frmMain.Winsock1.Count - 1
        If .Fields("IP") = frmMain.Winsock1(j).RemoteHostIP Then
             If ISText = True Then
              frmMain.Winsock1(j).SendData "_comm" + Chr(0) + "settext" + Chr(0) + Text1.Text + Chr(0) + "OK$"
              DoEvents
             Else
             frmMain.Winsock1(j).SendData "_msgb" + Chr(0) + Text1.Text + Chr(0) + "OK$"
             DoEvents
             End If
            Exit For
        End If
    Next j
  End If
  .MoveNext
 Next i
 .MoveFirst
 .Move aa
 
Case "所有记费中的计算机"
 .MoveFirst
 For i = 1 To .RecordCount
  If .Fields("状态") = "Y" Then
    For j = 0 To frmMain.Winsock1.Count - 1
        If .Fields("IP") = frmMain.Winsock1(j).RemoteHostIP Then
             If ISText = True Then
              frmMain.Winsock1(j).SendData "_comm" + Chr(0) + "settext" + Chr(0) + Text1.Text + Chr(0) + "OK$"
              DoEvents
             Else
             frmMain.Winsock1(j).SendData "_msgb" + Chr(0) + Text1.Text + Chr(0) + "OK$"
             DoEvents
             End If
             Exit For
          End If
    Next j
  End If
  .MoveNext
 Next i
 .MoveFirst
 .Move aa
Case "所有暂停的计算机"
 .MoveFirst
 For i = 1 To .RecordCount
  If .Fields("状态") = "P" Then
    For j = 0 To frmMain.Winsock1.Count - 1
        If .Fields("IP") = frmMain.Winsock1(j).RemoteHostIP Then
             If ISText = True Then
              frmMain.Winsock1(j).SendData "_comm" + Chr(0) + "settext" + Chr(0) + Text1.Text + Chr(0) + "OK$"
              DoEvents
             Else
             frmMain.Winsock1(j).SendData "_msgb" + Chr(0) + Text1.Text + Chr(0) + "OK$"
             DoEvents
             End If
            Exit For
        End If
    Next j
  End If
  .MoveNext
 Next i
 .MoveFirst
 .Move aa
Case "全部计算机"
  
    For j = 0 To frmMain.Winsock1.Count - 1
             If ISText = True Then
              frmMain.Winsock1(j).SendData "_comm" + Chr(0) + "settext" + Chr(0) + Text1.Text + Chr(0) + "OK$"
              DoEvents
             Else
             frmMain.Winsock1(j).SendData "_msgb" + Chr(0) + Text1.Text + Chr(0) + "OK$"
             DoEvents
             End If
         DoEvents
    Next j

Case Else
 MsgBox SelectCom & "错误"
 
End Select
End With
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me

End Sub