科密KD-36考勤机二次开发技术详解
2010-02-08 21:37
363 查看
项目详细:科密KD-36 delphi接口 VB 6.0程序读取数据
KD-36
程序:
Private Sub Cmd_CheckNet_Click() ' 检查网络
Dim ECHO As
ICMP_ECHO_REPLY
Dim Pos As Long
Dim Success As Long
Dim IP As
String
IPAddress = Trim(txtIPAddress.Text)
PortNumber =
Trim(txtPortNumber.Text)
PassWord = Trim(txtPassWord.Text)
MacNo =
Trim(txtMacNo.Text)
If IPAddress = "" Then
MsgBox "请先输入IP地址,再检查网络!", vbInformation,
Jxjr
txtIPAddress.SetFocus
Else
If SocketsInitialize()
Then
Success = Pings(IPAddress, MyIP, ECHO)
If Success
= 0 Then
'MsgBox "考勤机网络连接正常!", vbInformation,
Jxjr
If MacNo = "" Then
MsgBox "机号不能为空!",
vbInformation, Jxjr
Else
If
kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 1)
Call
kd.CloseCommPort
MsgBox "考勤机网络连接正常!", vbInformation,
Jxjr
Else
MsgBox "考勤机机号错误,请重新输入!",
vbInformation, Jxjr
txtMacNo.SetFocus
End
If
End If
Else
MsgBox
"考勤机网络连接不正常,请检查IP和网络连接!", vbInformation, Jxjr
End If
SocketsCleanup
End If
End If
End Sub
Private Sub Cmd_GetAllData_Click() '得到全部数据
Dim TMacNo As
Long
Dim EnrollNo As Long
Dim EMacNo As Long
Dim VerMode As Long
Dim
kdYear As Long
Dim kdMonth As Long
Dim kdDay As Long
Dim kdHour As
Long
Dim kdMinute As Long
Dim kddate As Date
Dim kdtime As
String
Dim MacPr As Long
Dim EnrollNumber As Variant
Dim EnrollWord As
Long
Dim SqlEnrollWord As String
Dim OldNum As Integer
Dim i As Integer
MacPr = 3 '用户的权限
Dim iSql As String
IPAddress = GetSetting("jxjr", "jrhr", "ipaddress",
IPAddress)
PortNumber = GetSetting("jxjr", "jrhr", "portnumber",
PortNumber)
PassWord = GetSetting("jxjr", "jrhr", "password",
PassWord)
MacNo = GetSetting("jxjr", "jrhr", "macno", MacNo)
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) = True
Then
If kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 0)
Call kd.ReadAllGLogData(MacNo)
If
kd.GetAllGLogData(MacNo, TMacNo, EnrollNo, EMacNo, VerMode, kdYear, kdMonth,
kdDay, kdHour, kdMinute) = True Then
Do Until
kd.GetAllGLogData(MacNo, TMacNo, EnrollNo, EMacNo, VerMode, kdYear, kdMonth,
kdDay, kdHour, kdMinute) = False
Call
kd.GetEnrollData(MacNo, EnrollNo, TMacNo, 11, MacPr, EnrollNumber,
EnrollWord)
SqlEnrollWord =
CStr(EnrollWord)
OldNum =
Len(SqlEnrollWord)
For i = 0 To 9 -
OldNum
SqlEnrollWord = "0" +
CStr(SqlEnrollWord)
Next i
'kd.ReadMark
= False
'Call kd.GetAllGLogData(MacNo, TMacNo, EnrollNo,
EMacNo, VerMode, kdYear, kdMonth, kdDay, kdHour, kdMinute)
kdtime = kdYear & "-" & kdMonth & "-" & kdDay & " " &
kdHour & ":" & kdMinute & ":" & "00" & "." &
"000"
iSql = "insert into
HR_ATS_OriginalityCard(FCardID,FHostName,FCardDateTime)values('" &
SqlEnrollWord & "','" & MacNo & "','" & kdtime &
"')"
Pcnn.Execute (iSql)
Loop
MsgBox "全部考勤记录读取成功!", vbInformation, Jxjr
Call
kd.EnableDevice(MacNo, 1)
Call kd.CloseCommPort
Else
MsgBox "没有考勤记录!", vbInformation, Jxjr
End If
Else
MsgBox "终端机号[" & MacNo & "]打开失败!", vbInformation,
Jxjr
End If
Else
MsgBox "连接设置错误!", vbInformation, Jxjr
End
If
End Sub
Private Sub Cmd_GetNewData_Click() '得到最新数据
Dim TMacNo As
Long
Dim EnrollNo As Long
Dim EMacNo As Long
Dim VerMode As Long
Dim
kdYear As Long
Dim kdMonth As Long
Dim kdDay As Long
Dim kdHour As
Long
Dim kdMinute As Long
Dim kddate As Date
Dim kdtime As
String
Dim MacPr As Long
Dim EnrollNumber As Variant
Dim EnrollWord As
Long
Dim SqlEnrollWord As String
Dim OldNum As Integer
Dim i As Integer
MacPr = 3 '用户的权限
Dim iSql As String
IPAddress = GetSetting("jxjr", "jrhr", "ipaddress",
IPAddress)
PortNumber = GetSetting("jxjr", "jrhr", "portnumber",
PortNumber)
PassWord = GetSetting("jxjr", "jrhr", "password",
PassWord)
MacNo = GetSetting("jxjr", "jrhr", "macno", MacNo)
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) = True
Then
If kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 0)
Call
kd.ReadGeneralLogData(MacNo)
If kd.GetGeneralLogData(MacNo,
TMacNo, EnrollNo, EMacNo, VerMode, kdYear, kdMonth, kdDay, kdHour, kdMinute) =
True Then
Do Until kd.GetGeneralLogData(MacNo, TMacNo,
EnrollNo, EMacNo, VerMode, kdYear, kdMonth, kdDay, kdHour, kdMinute) =
False
Call kd.GetEnrollData(MacNo, EnrollNo, TMacNo,
11, MacPr, EnrollNumber, EnrollWord)
SqlEnrollWord =
CStr(EnrollWord)
OldNum =
Len(SqlEnrollWord)
For i = 0 To 9 -
OldNum
SqlEnrollWord = "0" +
CStr(SqlEnrollWord)
Next i
'kd.ReadMark = False
'Call kd.GetAllGLogData(MacNo,
TMacNo, EnrollNo, EMacNo, VerMode, kdYear, kdMonth, kdDay, kdHour,
kdMinute)
kdtime = kdYear & "-" & kdMonth &
"-" & kdDay & " " & kdHour & ":" & kdMinute & ":" &
"00" & "." & "000"
iSql = "insert into
HR_ATS_OriginalityCard(FCardID,FHostName,FCardDateTime)values('" &
SqlEnrollWord & "','" & MacNo & "','" & kdtime &
"')"
Pcnn.Execute (iSql)
Loop
MsgBox "最新考勤记录读取成功!", vbInformation,
Jxjr
Else
MsgBox "没有最新的考勤记录!", vbInformation,
Jxjr
End If
Call kd.EnableDevice(MacNo, 1)
Call kd.CloseCommPort
Else
MsgBox "终端机号[" & MacNo &
"]打开失败!", vbInformation, Jxjr
End If
Else
MsgBox "连接设置错误!",
vbInformation, Jxjr
End If
End Sub
Private Sub Cmd_SetIP_Click() '设置IP信息
IPAddress = Trim(txtIPAddress.Text)
PortNumber =
Trim(txtPortNumber.Text)
PassWord = Trim(txtPassWord.Text)
MacNo =
Trim(txtMacNo.Text)
If IPAddress = "" Then
MsgBox "IP地址不能为空!", vbInformation,
Jxjr
txtIPAddress.SetFocus
Else
If PortNumber = "" Then
MsgBox "端口号不能为空!", vbInformation, Jxjr
txtPortNumber.SetFocus
Else
If PassWord = "" Then
MsgBox "密码不能为空!",
vbInformation, Jxjr
txtPassWord.SetFocus
Else
If MacNo = "" Then
MsgBox "机号不能为空!",
vbInformation, Jxjr
txtMacNo.SetFocus
Else
SaveSetting "jxjr", "jrhr", "ipaddress",
IPAddress
SaveSetting "jxjr", "jrhr", "portnumber",
PortNumber
SaveSetting "jxjr", "jrhr", "password",
PassWord
SaveSetting "jxjr", "jrhr", "macno",
MacNo
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) =
True Then
MsgBox "连接数据设置成功!", vbInformation,
Jxjr
Else
MsgBox "无法设置连接数据!",
vbInformation, Jxjr
End If
End If
End If
End If
End If
End Sub
Private Sub Cmd_SetMacTime_Click() '设置系统时间
IPAddress =
GetSetting("jxjr", "jrhr", "ipaddress", IPAddress)
PortNumber =
GetSetting("jxjr", "jrhr", "portnumber", PortNumber)
PassWord =
GetSetting("jxjr", "jrhr", "password", PassWord)
MacNo = GetSetting("jxjr",
"jrhr", "macno", MacNo)
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) = True
Then
If kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 0)
If kd.SetDeviceTime(MacNo) = True
Then
MsgBox "考勤机时间同步成功!", vbInformation, Jxjr
Else
MsgBox "考勤机时间同步失败,请检查!", vbInformation, Jxjr
End
If
Call kd.EnableDevice(MacNo, 1)
Call
kd.CloseCommPort
Else
MsgBox "终端机号[" & MacNo & "]打开失败!",
vbInformation, Jxjr
End If
Else
MsgBox "连接设置错误!",
vbInformation, Jxjr
End If
End Sub
Private Sub Com_ClearData_Click() '清除记录数据
IPAddress =
GetSetting("jxjr", "jrhr", "ipaddress", IPAddress)
PortNumber =
GetSetting("jxjr", "jrhr", "portnumber", PortNumber)
PassWord =
GetSetting("jxjr", "jrhr", "password", PassWord)
MacNo = GetSetting("jxjr",
"jrhr", "macno", MacNo)
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) = True
Then
If kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 0)
If kd.EmptyGeneralLogData(MacNo) = True
Then
MsgBox "所有记录清空成功!", vbInformation, Jxjr
Else
MsgBox "清空失败,请检查!", vbInformation, Jxjr
End
If
Call kd.EnableDevice(MacNo, 1)
Call
kd.CloseCommPort
Else
MsgBox "终端机号[" & MacNo & "]打开失败!",
vbInformation, Jxjr
End If
Else
MsgBox "连接设置错误!",
vbInformation, Jxjr
End If
End Sub
Private Sub Com_DeleteAll_Click() '清除全部数据
IPAddress =
GetSetting("jxjr", "jrhr", "ipaddress", IPAddress)
PortNumber =
GetSetting("jxjr", "jrhr", "portnumber", PortNumber)
PassWord =
GetSetting("jxjr", "jrhr", "password", PassWord)
MacNo = GetSetting("jxjr",
"jrhr", "macno", MacNo)
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) = True
Then
If kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 0)
If kd.EmptyEnrollData(MacNo) = True
Then
MsgBox "所有信息清空成功!", vbInformation, Jxjr
Else
MsgBox "清空失败,请检查!", vbInformation, Jxjr
End
If
Call kd.EnableDevice(MacNo, 1)
Call
kd.CloseCommPort
Else
MsgBox "终端机号[" & MacNo & "]打开失败!",
vbInformation, Jxjr
End If
Else
MsgBox "连接设置错误!",
vbInformation, Jxjr
End If
End Sub
Private Sub Com_TimeSet_Click()
Dim dblReturn As
Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL
timedate.cpl", 5)
End Sub
Private Sub Form_Load()
txtIPAddress.Text = GetSetting("jxjr",
"jrhr", "ipaddress", IPAddress)
txtPortNumber.Text = GetSetting("jxjr",
"jrhr", "portnumber", PortNumber)
txtPassWord.Text = GetSetting("jxjr",
"jrhr", "password", PassWord)
txtMacNo.Text = GetSetting("jxjr", "jrhr",
"macno", MacNo)
Timer.Interval = 500
End Sub
Private Sub Timer_Timer()
LbTime = Year(Date) & "年" &
Month(Date) & "月" & Day(Date) & "日 星期" &
GetWeekDay(Weekday(Date)) & "" & Format$(Time, "hh:mm:ss")
'"xx年xx月xx日 星期几 系统时间hh:mm:ss"
End Sub
KD-36
程序:
Private Sub Cmd_CheckNet_Click() ' 检查网络
Dim ECHO As
ICMP_ECHO_REPLY
Dim Pos As Long
Dim Success As Long
Dim IP As
String
IPAddress = Trim(txtIPAddress.Text)
PortNumber =
Trim(txtPortNumber.Text)
PassWord = Trim(txtPassWord.Text)
MacNo =
Trim(txtMacNo.Text)
If IPAddress = "" Then
MsgBox "请先输入IP地址,再检查网络!", vbInformation,
Jxjr
txtIPAddress.SetFocus
Else
If SocketsInitialize()
Then
Success = Pings(IPAddress, MyIP, ECHO)
If Success
= 0 Then
'MsgBox "考勤机网络连接正常!", vbInformation,
Jxjr
If MacNo = "" Then
MsgBox "机号不能为空!",
vbInformation, Jxjr
Else
If
kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 1)
Call
kd.CloseCommPort
MsgBox "考勤机网络连接正常!", vbInformation,
Jxjr
Else
MsgBox "考勤机机号错误,请重新输入!",
vbInformation, Jxjr
txtMacNo.SetFocus
End
If
End If
Else
MsgBox
"考勤机网络连接不正常,请检查IP和网络连接!", vbInformation, Jxjr
End If
SocketsCleanup
End If
End If
End Sub
Private Sub Cmd_GetAllData_Click() '得到全部数据
Dim TMacNo As
Long
Dim EnrollNo As Long
Dim EMacNo As Long
Dim VerMode As Long
Dim
kdYear As Long
Dim kdMonth As Long
Dim kdDay As Long
Dim kdHour As
Long
Dim kdMinute As Long
Dim kddate As Date
Dim kdtime As
String
Dim MacPr As Long
Dim EnrollNumber As Variant
Dim EnrollWord As
Long
Dim SqlEnrollWord As String
Dim OldNum As Integer
Dim i As Integer
MacPr = 3 '用户的权限
Dim iSql As String
IPAddress = GetSetting("jxjr", "jrhr", "ipaddress",
IPAddress)
PortNumber = GetSetting("jxjr", "jrhr", "portnumber",
PortNumber)
PassWord = GetSetting("jxjr", "jrhr", "password",
PassWord)
MacNo = GetSetting("jxjr", "jrhr", "macno", MacNo)
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) = True
Then
If kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 0)
Call kd.ReadAllGLogData(MacNo)
If
kd.GetAllGLogData(MacNo, TMacNo, EnrollNo, EMacNo, VerMode, kdYear, kdMonth,
kdDay, kdHour, kdMinute) = True Then
Do Until
kd.GetAllGLogData(MacNo, TMacNo, EnrollNo, EMacNo, VerMode, kdYear, kdMonth,
kdDay, kdHour, kdMinute) = False
Call
kd.GetEnrollData(MacNo, EnrollNo, TMacNo, 11, MacPr, EnrollNumber,
EnrollWord)
SqlEnrollWord =
CStr(EnrollWord)
OldNum =
Len(SqlEnrollWord)
For i = 0 To 9 -
OldNum
SqlEnrollWord = "0" +
CStr(SqlEnrollWord)
Next i
'kd.ReadMark
= False
'Call kd.GetAllGLogData(MacNo, TMacNo, EnrollNo,
EMacNo, VerMode, kdYear, kdMonth, kdDay, kdHour, kdMinute)
kdtime = kdYear & "-" & kdMonth & "-" & kdDay & " " &
kdHour & ":" & kdMinute & ":" & "00" & "." &
"000"
iSql = "insert into
HR_ATS_OriginalityCard(FCardID,FHostName,FCardDateTime)values('" &
SqlEnrollWord & "','" & MacNo & "','" & kdtime &
"')"
Pcnn.Execute (iSql)
Loop
MsgBox "全部考勤记录读取成功!", vbInformation, Jxjr
Call
kd.EnableDevice(MacNo, 1)
Call kd.CloseCommPort
Else
MsgBox "没有考勤记录!", vbInformation, Jxjr
End If
Else
MsgBox "终端机号[" & MacNo & "]打开失败!", vbInformation,
Jxjr
End If
Else
MsgBox "连接设置错误!", vbInformation, Jxjr
End
If
End Sub
Private Sub Cmd_GetNewData_Click() '得到最新数据
Dim TMacNo As
Long
Dim EnrollNo As Long
Dim EMacNo As Long
Dim VerMode As Long
Dim
kdYear As Long
Dim kdMonth As Long
Dim kdDay As Long
Dim kdHour As
Long
Dim kdMinute As Long
Dim kddate As Date
Dim kdtime As
String
Dim MacPr As Long
Dim EnrollNumber As Variant
Dim EnrollWord As
Long
Dim SqlEnrollWord As String
Dim OldNum As Integer
Dim i As Integer
MacPr = 3 '用户的权限
Dim iSql As String
IPAddress = GetSetting("jxjr", "jrhr", "ipaddress",
IPAddress)
PortNumber = GetSetting("jxjr", "jrhr", "portnumber",
PortNumber)
PassWord = GetSetting("jxjr", "jrhr", "password",
PassWord)
MacNo = GetSetting("jxjr", "jrhr", "macno", MacNo)
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) = True
Then
If kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 0)
Call
kd.ReadGeneralLogData(MacNo)
If kd.GetGeneralLogData(MacNo,
TMacNo, EnrollNo, EMacNo, VerMode, kdYear, kdMonth, kdDay, kdHour, kdMinute) =
True Then
Do Until kd.GetGeneralLogData(MacNo, TMacNo,
EnrollNo, EMacNo, VerMode, kdYear, kdMonth, kdDay, kdHour, kdMinute) =
False
Call kd.GetEnrollData(MacNo, EnrollNo, TMacNo,
11, MacPr, EnrollNumber, EnrollWord)
SqlEnrollWord =
CStr(EnrollWord)
OldNum =
Len(SqlEnrollWord)
For i = 0 To 9 -
OldNum
SqlEnrollWord = "0" +
CStr(SqlEnrollWord)
Next i
'kd.ReadMark = False
'Call kd.GetAllGLogData(MacNo,
TMacNo, EnrollNo, EMacNo, VerMode, kdYear, kdMonth, kdDay, kdHour,
kdMinute)
kdtime = kdYear & "-" & kdMonth &
"-" & kdDay & " " & kdHour & ":" & kdMinute & ":" &
"00" & "." & "000"
iSql = "insert into
HR_ATS_OriginalityCard(FCardID,FHostName,FCardDateTime)values('" &
SqlEnrollWord & "','" & MacNo & "','" & kdtime &
"')"
Pcnn.Execute (iSql)
Loop
MsgBox "最新考勤记录读取成功!", vbInformation,
Jxjr
Else
MsgBox "没有最新的考勤记录!", vbInformation,
Jxjr
End If
Call kd.EnableDevice(MacNo, 1)
Call kd.CloseCommPort
Else
MsgBox "终端机号[" & MacNo &
"]打开失败!", vbInformation, Jxjr
End If
Else
MsgBox "连接设置错误!",
vbInformation, Jxjr
End If
End Sub
Private Sub Cmd_SetIP_Click() '设置IP信息
IPAddress = Trim(txtIPAddress.Text)
PortNumber =
Trim(txtPortNumber.Text)
PassWord = Trim(txtPassWord.Text)
MacNo =
Trim(txtMacNo.Text)
If IPAddress = "" Then
MsgBox "IP地址不能为空!", vbInformation,
Jxjr
txtIPAddress.SetFocus
Else
If PortNumber = "" Then
MsgBox "端口号不能为空!", vbInformation, Jxjr
txtPortNumber.SetFocus
Else
If PassWord = "" Then
MsgBox "密码不能为空!",
vbInformation, Jxjr
txtPassWord.SetFocus
Else
If MacNo = "" Then
MsgBox "机号不能为空!",
vbInformation, Jxjr
txtMacNo.SetFocus
Else
SaveSetting "jxjr", "jrhr", "ipaddress",
IPAddress
SaveSetting "jxjr", "jrhr", "portnumber",
PortNumber
SaveSetting "jxjr", "jrhr", "password",
PassWord
SaveSetting "jxjr", "jrhr", "macno",
MacNo
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) =
True Then
MsgBox "连接数据设置成功!", vbInformation,
Jxjr
Else
MsgBox "无法设置连接数据!",
vbInformation, Jxjr
End If
End If
End If
End If
End If
End Sub
Private Sub Cmd_SetMacTime_Click() '设置系统时间
IPAddress =
GetSetting("jxjr", "jrhr", "ipaddress", IPAddress)
PortNumber =
GetSetting("jxjr", "jrhr", "portnumber", PortNumber)
PassWord =
GetSetting("jxjr", "jrhr", "password", PassWord)
MacNo = GetSetting("jxjr",
"jrhr", "macno", MacNo)
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) = True
Then
If kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 0)
If kd.SetDeviceTime(MacNo) = True
Then
MsgBox "考勤机时间同步成功!", vbInformation, Jxjr
Else
MsgBox "考勤机时间同步失败,请检查!", vbInformation, Jxjr
End
If
Call kd.EnableDevice(MacNo, 1)
Call
kd.CloseCommPort
Else
MsgBox "终端机号[" & MacNo & "]打开失败!",
vbInformation, Jxjr
End If
Else
MsgBox "连接设置错误!",
vbInformation, Jxjr
End If
End Sub
Private Sub Com_ClearData_Click() '清除记录数据
IPAddress =
GetSetting("jxjr", "jrhr", "ipaddress", IPAddress)
PortNumber =
GetSetting("jxjr", "jrhr", "portnumber", PortNumber)
PassWord =
GetSetting("jxjr", "jrhr", "password", PassWord)
MacNo = GetSetting("jxjr",
"jrhr", "macno", MacNo)
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) = True
Then
If kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 0)
If kd.EmptyGeneralLogData(MacNo) = True
Then
MsgBox "所有记录清空成功!", vbInformation, Jxjr
Else
MsgBox "清空失败,请检查!", vbInformation, Jxjr
End
If
Call kd.EnableDevice(MacNo, 1)
Call
kd.CloseCommPort
Else
MsgBox "终端机号[" & MacNo & "]打开失败!",
vbInformation, Jxjr
End If
Else
MsgBox "连接设置错误!",
vbInformation, Jxjr
End If
End Sub
Private Sub Com_DeleteAll_Click() '清除全部数据
IPAddress =
GetSetting("jxjr", "jrhr", "ipaddress", IPAddress)
PortNumber =
GetSetting("jxjr", "jrhr", "portnumber", PortNumber)
PassWord =
GetSetting("jxjr", "jrhr", "password", PassWord)
MacNo = GetSetting("jxjr",
"jrhr", "macno", MacNo)
If kd.SetIPAddress(IPAddress, PortNumber, PassWord) = True
Then
If kd.OpenCommPort(MacNo) = True Then
Call
kd.EnableDevice(MacNo, 0)
If kd.EmptyEnrollData(MacNo) = True
Then
MsgBox "所有信息清空成功!", vbInformation, Jxjr
Else
MsgBox "清空失败,请检查!", vbInformation, Jxjr
End
If
Call kd.EnableDevice(MacNo, 1)
Call
kd.CloseCommPort
Else
MsgBox "终端机号[" & MacNo & "]打开失败!",
vbInformation, Jxjr
End If
Else
MsgBox "连接设置错误!",
vbInformation, Jxjr
End If
End Sub
Private Sub Com_TimeSet_Click()
Dim dblReturn As
Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL
timedate.cpl", 5)
End Sub
Private Sub Form_Load()
txtIPAddress.Text = GetSetting("jxjr",
"jrhr", "ipaddress", IPAddress)
txtPortNumber.Text = GetSetting("jxjr",
"jrhr", "portnumber", PortNumber)
txtPassWord.Text = GetSetting("jxjr",
"jrhr", "password", PassWord)
txtMacNo.Text = GetSetting("jxjr", "jrhr",
"macno", MacNo)
Timer.Interval = 500
End Sub
Private Sub Timer_Timer()
LbTime = Year(Date) & "年" &
Month(Date) & "月" & Day(Date) & "日 星期" &
GetWeekDay(Weekday(Date)) & "" & Format$(Time, "hh:mm:ss")
'"xx年xx月xx日 星期几 系统时间hh:mm:ss"
End Sub
相关文章推荐
- 设计、仿真、工艺、加工、优化、开发交流QQ群 106930856 行业软件、二次开发、优化技术
- hadoop应用开发技术详解
- Discuz7.0程序二次开发必备:目录详解
- Django技术详解(六)开发Admin
- android 4.4省电技术详解,如何开发一个省电的app
- python开发技术详解---第一章:python概述
- 短信猫池价格及二次开发技术AT指令
- Android开发之SQLite技术详解
- 透视木马程序开发技术:病毒源代码详解(一)
- Autodesk 产品二次开发技术研讨会总结(上海,广州两个会场结束)
- Dede二次开发程序详解
- PHPCMS V9二次开发pc标签详解
- iOS开发之蓝牙4.0技术(详解)
- windows驱动开发技术详解 总结
- openfire+spark二次开发 Java监听器Listener使用详解
- <学习笔记>Windows驱动开发技术详解__Windows内存管理
- iOS开发——高级技术&本地化与国际化详解
- (iphone/ipad开发技术)ASIHTTPRequest 详解
- <学习笔记>Windows驱动开发技术详解__IRP的同步