📄 frmclient.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmClient
Caption = "Ado 远程客户端 v1.1"
ClientHeight = 6315
ClientLeft = 60
ClientTop = 345
ClientWidth = 9105
LinkTopic = "Form1"
ScaleHeight = 6315
ScaleWidth = 9105
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.ImageList ImageList1
Left = 4200
Top = 2400
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmClient.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmClient.frx":031A
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmClient.frx":2ACC
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmClient.frx":2F1E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmClient.frx":3078
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 7
Top = 6060
Width = 9105
_ExtentX = 16060
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 177165
MinWidth = 177165
EndProperty
EndProperty
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 500
Left = 9600
Top = 4920
End
Begin VB.CheckBox Check1
Caption = "已完成列表"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 6960
TabIndex = 4
Top = 960
Width = 2055
End
Begin VB.Frame Frame1
Height = 855
Left = 120
TabIndex = 1
Top = 0
Width = 8895
Begin VB.CommandButton cmdNew
Caption = "建立新任务"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6000
TabIndex = 8
Top = 240
Width = 1455
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4440
TabIndex = 5
Top = 240
Width = 1455
End
Begin VB.CommandButton CmdConnect
Caption = "连接"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2760
TabIndex = 3
Top = 240
Width = 1455
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 240
TabIndex = 2
Text = "Text1"
Top = 240
Width = 2415
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Ado 系统服务: 主机 IP"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 9
Top = 600
Width = 2535
End
End
Begin VB.Timer Timer1
Interval = 500
Left = 9240
Top = 5880
End
Begin MSComctlLib.ListView ListView1
Height = 4935
Left = 120
TabIndex = 0
Top = 1200
Width = 8895
_ExtentX = 15690
_ExtentY = 8705
View = 3
Arrange = 1
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
AllowReorder = -1 'True
FullRowSelect = -1 'True
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin MSWinsockLib.Winsock sckClient
Index = 0
Left = 9120
Top = 5280
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Label Label1
Caption = "Label1"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2880
TabIndex = 6
Top = 960
Width = 3975
End
End
Attribute VB_Name = "FrmClient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************
'我为人人
'人人为我
'枕善居汉化收藏整理
'http://www.mndsoft.com/blog/
'e-mail:mnd@mndsoft.com
'2005.03.05
'******************************************************
Public MaxCN As Long
Public Authenticated As Boolean
Public AuthCompleted As Boolean
Public RScount, ConCurrent As Long
Private Sub Check1_Click()
ShowJobs
End Sub
Private Sub CmdConnect_Click()
MaxCN = MaxCN + 1 'creates another winsock instant
Authenticated = False
Load sckClient(MaxCN)
sckClient(MaxCN).Connect Text1.Text, "9456"
End Sub
Private Sub cmdNew_Click()
FrmNewJob.Show 1
ShowJobs
End Sub
Public Sub ShowJobs()
On Error GoTo Errinfo
If sckClient(MaxCN).State = sckClosed Then Exit Sub
With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "作业序号", 600 'Create Columns once connected
.ColumnHeaders.Add , , "日期", 1200
.ColumnHeaders.Add , , "客户", 2000
.ColumnHeaders.Add , , "电话", 1200
.ColumnHeaders.Add , , "作业描述", 2700
.ColumnHeaders.Add , , "技师", 1200
End With
If Check1.Value = 0 Then sckClient(MaxCN).SendData "ShowJobs" & FrmClient.ConCurrent
If Check1.Value = 1 Then sckClient(MaxCN).SendData "ShowCompletedJobs" & FrmClient.ConCurrent
Exit Sub
Errinfo:
MsgBox "无法显示数据，请检查服务器状态！", vbCritical, "提示"
Exit Sub
End Sub
Private Sub cmdRefresh_Click()
ShowJobs
ListView1.Refresh
End Sub
Private Sub Form_Load()
Text1.Text = sckClient(MaxCN).LocalIP 'Loopback. Handly if you only have one computer
End Sub
Private Sub Form_Resize()
On Error Resume Next
ListView1.Height = FrmClient.Height - 2000
'If FrmClient.Width <> 9270 Then FrmClient.Width = 9270
ListView1.Width = Me.Width - 300
ListView1.ColumnHeaders(5).Width = Me.Width - 6800
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
If Not sckClient(MaxCN).State = 7 Then 'if not connected then quit
End
Else
sckClient(MaxCN).SendData "QUIT" 'tell server we are disconnecting
End If
End Sub
Private Sub ListView1_DblClick()
FrmEditJob.Label11.Caption = ListView1.SelectedItem.Text
sckClient(MaxCN).SendData "JobNumber" & ListView1.SelectedItem.Text & "~~" & FrmClient.ConCurrent
FrmEditJob.Show 1
ShowJobs
End Sub
Private Sub sckClient_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Recieve As String
sckClient(MaxCN).GetData Recieve
If Len(Recieve) = Null Then Exit Sub Else Call ParseRecv(Recieve) 'Analyze data
End Sub
Private Sub Timer1_Timer()
'Get the status of the winsock control
If sckClient(MaxCN).State = sckConnected Then
Label1.Caption = "已连接: " & "端口: " & sckClient(MaxCN).LocalPort & " 套结字号: " & MaxCN
Timer2.Enabled = True
End If
If sckClient(MaxCN).State = sckClosed Then Label1.Caption = "连接关闭: " & sckClient(MaxCN).LocalPort & " 套结字号: " & MaxCN
If sckClient(MaxCN).State = sckConnecting Then Label1.Caption = "连接中: " & "端口: " & sckClient(MaxCN).LocalPort & " 套结字号: " & MaxCN
If sckClient(MaxCN).State = sckConnectionPending Then Label1.Caption = "连接未定: " & "端口: " & sckClient(MaxCN).LocalPort & " 套结字号: " & MaxCN
If sckClient(MaxCN).State = sckBadState Then Label1.Caption = "无效连接状态: " & "端口: " & sckClient(MaxCN).LocalPort & " 套结字号: " & MaxCN
If InStr(Label1.Caption, "连接中") Then
CmdConnect = True
Label1.Caption = "重接中... " & MaxCN
If MaxCN > 20 Then
Label1.Caption = "连接无法建立"
Timer1.Enabled = False
End If
End If
If AuthCompleted = True Then
cmdRefresh.Enabled = True
cmdNew.Enabled = True
Check1.Enabled = True
Else
cmdRefresh.Enabled = False
cmdNew.Enabled = False
Check1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
If Authenticated = True Then Exit Sub
If sckClient(MaxCN).State = sckConnected Then
sckClient(MaxCN).SendData "VerifyUser" & ConCurrent 'Send in our Notification.
StatusBar1.Panels.Item(1).Text = "验证请求"
StatusBar1.Panels.Item(1).Picture = ImageList1.ListImages.Item(2).Picture
Timer2.Enabled = False
Authenticated = True
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -