frmchangejsj.frm

提供一个网吧管理系统的VB源代码供大家学习

VERSION 5.00
Begin VB.Form frmChangeJSJ 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "换机管理"
   ClientHeight    =   3870
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4695
   Icon            =   "frmChangeJSJ.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3870
   ScaleWidth      =   4695
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command4 
      Caption         =   "确认换机"
      Height          =   375
      Left            =   3240
      TabIndex        =   1
      Top             =   120
      Width           =   1215
   End
   Begin VB.ListBox List1 
      Height          =   3120
      ItemData        =   "frmChangeJSJ.frx":0442
      Left            =   120
      List            =   "frmChangeJSJ.frx":0444
      TabIndex        =   0
      Top             =   600
      Width           =   4455
   End
   Begin VB.Label Label1 
      Caption         =   "和下列计算机更换："
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   240
      Width           =   1935
   End
End
Attribute VB_Name = "frmChangeJSJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command4_Click()

'换机
'MsgBox SelectComputer
On Error Resume Next
frmMain.ListView1.ListItems(SelectComputer).Icon = 5
frmMain.ListView1.ListItems(SelectComputer).SmallIcon = 5
For i = 1 To 9
frmMain.ListView1.ListItems(SelectComputer).SubItems(i) = ""
Next i
'MsgBox "OK"
With frmMain.Data1.Recordset
aa = .Fields("开始时间")
bb = .Fields("到点时间")
cc = .Fields("已收款")
dd = .Fields("暂停开始")
ee = .Fields("暂停时间")
ff = .Fields("状态")
jh = .Fields("机号")
.Edit
 .Fields("开始时间") = Null
 .Fields("到点时间") = Null
 .Fields("已收款") = 0
 .Fields("暂停开始") = Null
 .Fields("暂停时间") = 0
 .Fields("状态") = "S"
.Update
For j = 0 To frmMain.Winsock1.Count - 1
 If frmMain.Winsock1(j).RemoteHostIP = .Fields("IP") Then
   frmMain.Winsock1(j).SendData "_comm" + Chr(0) + "stop" + Chr(0) + "OK$"
   ' "_comm" + Chr(0) + "stop"
   DoEvents
   Exit For
 End If
 Next j
.MoveFirst
.Move List1.ItemData(List1.ListIndex)

.Edit
 .Fields("开始时间") = aa
 .Fields("到点时间") = bb
 .Fields("已收款") = cc
 .Fields("暂停开始") = dd
 .Fields("暂停时间") = ee
 .Fields("状态") = ff
.Update
For j = 0 To Winsock1.Count - 1
 If frmMain.Winsock1(j).RemoteHostIP = .Fields("IP") Then
   frmMain.Winsock1(j).SendData "_comm" + Chr(0) + "start" + Chr(0) + "OK$"
   DoEvents
   Exit For
 End If
Next j
frmMain.Data2.Recordset.MoveFirst
For i = 1 To frmMain.Data2.Recordset.RecordCount
  If frmMain.Data2.Recordset.Fields("机号") = jh Then
      frmMain.Data2.Recordset.Edit
      frmMain.Data2.Recordset.Fields("机号") = .Fields("机号")
      frmMain.Data2.Recordset.Update
  End If
  frmMain.Data2.Recordset.MoveNext
Next i
SelectComputer = .AbsolutePosition + 1
frmMain.ListView1.ListItems(SelectComputer).SmallIcon = 2

frmMain.SelectJSJ
End With
frmMain.Timer2_Timer
Unload Me
End Sub

Private Sub Form_Load()
With frmMain.Data1.Recordset  '
        .MoveFirst
   For i = 1 To .RecordCount
     If Not (.Fields("状态").Value = "Y" Or .Fields("状态").Value = "P") Then
      List1.AddItem .Fields("名称")
      List1.ItemData(List1.NewIndex) = .AbsolutePosition
     End If
    
     .MoveNext
   Next i
   .MoveFirst
   .Move SelectComputer - 1
End With
End Sub