www.pudn.com > netserver.zip > frmChangeJSJ.frm

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