📄 frmmain.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form FrmMain
Caption = "黄河大酒店智能门锁管理系统"
ClientHeight = 6510
ClientLeft = 1080
ClientTop = -9345
ClientWidth = 9480
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 6510
ScaleWidth = 9480
WindowState = 2 'Maximized
Begin VB.Timer TimerInfo
Left = 480
Top = 3720
End
Begin MSCommLib.MSComm MSCommIC
Left = 960
Top = 240
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InputMode = 1
End
Begin VB.Label Label3
Caption = "售后电话:13019508658"
Height = 615
Left = 1800
TabIndex = 4
Top = 5160
Width = 6615
End
Begin VB.Label Label2
Caption = "内蒙古靓声电子技术有限公司"
BeginProperty Font
Name = "Arial Narrow"
Size = 17.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Index = 1
Left = 2880
TabIndex = 3
Top = 3840
Width = 5775
End
Begin VB.Label LblHotelName
Alignment = 2 'Center
BeginProperty Font
Name = "隶书"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 1200
TabIndex = 2
Top = 4560
Width = 8295
End
Begin VB.Label Label2
Caption = "适用于磁卡、IC卡、TM卡、感应卡门锁"
BeginProperty Font
Name = "Times New Roman"
Size = 16.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Index = 0
Left = 2400
TabIndex = 1
Top = 3240
Width = 6375
End
Begin VB.Label Label1
Caption = "Lock System V11.0"
BeginProperty Font
Name = "Times New Roman"
Size = 36
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 975
Left = 2520
TabIndex = 0
Top = 2040
Width = 5895
End
Begin VB.Menu MnuICOperator
Caption = "IC卡操作 "
Begin VB.Menu M11
Caption = "-"
End
Begin VB.Menu MnuICPutOut
Caption = "发行各类IC卡"
End
Begin VB.Menu M12
Caption = "-"
End
Begin VB.Menu MnuICCancel
Caption = "注销各类IC卡"
End
Begin VB.Menu M13
Caption = "-"
End
Begin VB.Menu MnuICRead
Caption = "读取各类IC卡"
End
Begin VB.Menu M14
Caption = "-"
End
Begin VB.Menu MnuICDataRead
Caption = "读数据卡"
End
Begin VB.Menu M15
Caption = "-"
End
Begin VB.Menu MnuPutOutClientIC
Caption = "发行客人卡 "
End
Begin VB.Menu M16
Caption = "-"
End
Begin VB.Menu MnuCancelClientIC
Caption = "注销客人卡"
End
Begin VB.Menu M17
Caption = "-"
End
Begin VB.Menu MnuReadClientIC
Caption = "读取客人卡"
End
Begin VB.Menu M18
Caption = "-"
End
End
Begin VB.Menu MnuClientManager
Caption = "服务台管理 "
Begin VB.Menu M21
Caption = "-"
End
Begin VB.Menu MnuClientSrch
Caption = "查询工作记录"
End
Begin VB.Menu M22
Caption = "-"
End
Begin VB.Menu MnuClientReplPWD
Caption = "修改密码"
End
Begin VB.Menu M23
Caption = "-"
End
End
Begin VB.Menu MnuSrch
Caption = " 操作记录 "
Begin VB.Menu M33
Caption = "-"
End
Begin VB.Menu MnuSrchHandOver
Caption = "服务台交接班情况"
End
Begin VB.Menu M34
Caption = "-"
End
Begin VB.Menu MnuSrchSysEvent
Caption = "系统工作日志"
End
Begin VB.Menu M35
Caption = "-"
End
End
Begin VB.Menu MnuDanger
Caption = " 系统设置 "
Begin VB.Menu M41
Caption = "-"
End
Begin VB.Menu MnuSetSystem
Caption = "参数设置"
End
Begin VB.Menu M42
Caption = "-"
End
Begin VB.Menu MnuSetRoom
Caption = "楼号和客房设置"
End
Begin VB.Menu M43
Caption = "-"
End
Begin VB.Menu MnuManager
Caption = "用户管理"
End
Begin VB.Menu M44
Caption = "-"
End
Begin VB.Menu MnuClearSect
Caption = "区域设置"
End
Begin VB.Menu M45
Caption = "-"
End
End
Begin VB.Menu MnuQuit
Caption = " 退出 "
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim lCur As Long
Sub MainWinSet(gUserName As String)
Dim sTmp As String
Dim sLog As Boolean
Dim MainMnuCount As Integer
LblHotelName.Caption = LblHotelName.Caption & gHotelName
sTmp = "UserName='" & gUserName & "'"
With RC_Operator
.MoveLast
.FindFirst sTmp
If Not .NoMatch Then
'input
sLog = .Fields("FrmOutSeting") Or .Fields("FrmOutTime") Or .Fields("FrmOutCheckOut") Or _
.Fields("FrmOutTemp") Or .Fields("FrmOutControl") Or .Fields("FrmOutBuilding") Or _
.Fields("FrmOutFloor") Or .Fields("FrmOutmeeting") Or .Fields("FrmOutZone") Or _
.Fields("FrmOutRepair") Or .Fields("FrmOutChannel")
MainMnuCount = 0
If Not sLog Then
M11.Visible = False
MnuICPutOut.Visible = False
MainMnuCount = MainMnuCount + 1
End If
If Not .Fields("MnuICCancel") Then
M12.Visible = False
MnuICCancel.Visible = False
MainMnuCount = MainMnuCount + 1
End If
If Not .Fields("MnuICDataRead") Then
M14.Visible = False
MnuICDataRead.Visible = False
MainMnuCount = MainMnuCount + 1
End If
If Not .Fields("MnuPutOutClientIC") Then
M15.Visible = False
MnuPutOutClientIC.Visible = False
MainMnuCount = MainMnuCount + 1
End If
If Not .Fields("MnuCancelClientIC") Then
M16.Visible = False
MnuCancelClientIC.Visible = False
MainMnuCount = MainMnuCount + 1
End If
'If Not .Fields("MnuModifyClientIC") Then
' M18.Visible = False
' MnuModifyClientIC.Visible = False
' MainMnuCount = MainMnuCount + 1
' End If
'grant
MainMnuCount = 0
'If Not .Fields("MnuChgICPWD") Then
' M41.Visible = False
' MnuChgICPWD.Visible = False
'MainMnuCount = MainMnuCount + 1
'End If
'If Not .Fields("MnuRenewGrant") Then
' M42.Visible = False
' MnuRenewGrant.Visible = False
'MainMnuCount = MainMnuCount + 1
'End If
If Not .Fields("MnuSetSystem") Then
M41.Visible = False
MnuSetSystem.Visible = False
MainMnuCount = MainMnuCount + 1
End If
If Not .Fields("MnuSetRoom") Then
M42.Visible = False
MnuSetRoom.Visible = False
MainMnuCount = MainMnuCount + 1
End If
If Not .Fields("MnuManager") Then
M43.Visible = False
MnuManager.Visible = False
MainMnuCount = MainMnuCount + 1
End If
If Not .Fields("MnuClearSect") Then
M44.Visible = False
MnuClearSect.Visible = False
MainMnuCount = MainMnuCount + 1
End If
If MainMnuCount = 4 Then
MnuDanger.Visible = False
'M45.Visible = False
End If
End If
End With
End Sub
Private Sub CmdSetRoomPara_Click()
FrmSetRoomPara.Show vbModal, Me
End Sub
Private Sub Command1_Click()
MnuICOperator.Enabled = True
Exit Sub
FrmCancelClient.Init_Win ("Cancel")
Form1.Show vbModal, Me
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 1 Then
FrmService.Show vbModal, Me
End If
End Sub
Private Sub Form_Load()
Dim sTmp As String
'On Error GoTo ErrHand:
MSCommIC.CommPort = gComN
MSCommIC.PortOpen = True
MainWinSet (gUserName) '对界面进行设置
sTmp = ReadRegisterNo()
' If gRunCount = 0 Then
gRunCount = 1
gRegisterNo = sTmp
SysParaWrite
' Else
' If (StrComp(sTmp, gRegisterNo, vbTextCompare) <> 0) Then
' MnuICOperator.Enabled = False
' MsgBox "发卡机注册失败!", vbInformation + vbOKOnly, "提示"
' End If
' End If
Exit Sub
'ErrHand:
MainWinSet (gUserName) '对界面进行设置
MnuICOperator.Enabled = False
MsgBox "端口打开失败!", vbInformation + vbOKOnly, "提示"
End Sub
Private Sub Form_Unload(Cancel As Integer)
If StrComp(gUserType, "O", vbTextCompare) = 0 Then
Call OperatorDate_Edit(gUserName, gUserCode) '加入接班登记
End If
Call RC_EventLog_Add("用户" & Trim(gUserName) & "退出系统", gUserName, "")
End Sub
Private Sub MnuCancelClientIC_Click()
FrmCancelClient.Init_Win ("Cancel")
FrmCancelClient.Show vbModal, Me
End Sub
Private Sub MnuChgICPWD_Click()
FrmRenewGrant.Init_Win ("Replace")
FrmRenewGrant.Show vbModal, Me
End Sub
Private Sub MnuClearSect_Click()
FrmSetSect.Show vbModal, Me
End Sub
Private Sub MnuClientCheckIn_Click()
FrmSrchCheckIn.Show vbModal, Me
End Sub
Private Sub MnuClientReplPWD_Click()
FrmReplPWD.Show vbModal, Me
End Sub
Private Sub MnuClientSrch_Click()
FrmSrchWorkRecord.Show vbModal, Me
End Sub
Private Sub MnuICCancel_Click()
FrmCancelIC.Init_Win ("Cancel")
FrmCancelIC.Show vbModal, Me
End Sub
Private Sub MnuICDataRead_Click()
FrmReadDataIC.Show vbModal, Me
End Sub
Private Sub MnuICPutOut_Click()
FrmOutIC.Show vbModal, Me
End Sub
Private Sub MnuICRead_Click()
FrmCancelIC.Init_Win ("Read")
FrmCancelIC.Show vbModal, Me
End Sub
Private Sub MnuManager_Click()
FrmSetUser.Show vbModal, Me
End Sub
Private Sub MnuModifyClientIC_Click()
' FrmReplICClient.Show vbModal, Me
End Sub
Private Sub MnuNoICCancel_Click()
FrmCancelNoIC.Show vbModal, Me
End Sub
Private Sub MnuPutOutClientIC_Click()
FrmOutClient.Show vbModal, Me
End Sub
Private Sub MnuQuit_Click()
If StrComp(Trim(MnuQuit.Caption), "退出", 1) = 0 Then
Unload Me
Else
FrmHandOver.Show vbModal, Me
Caption = "操作台 操作员：" & gUserName
End If
End Sub
Private Sub MnuReadClientIC_Click()
FrmCancelClient.Init_Win ("Read")
FrmCancelClient.Show vbModal, Me
End Sub
Private Sub MnuRenewGrant_Click()
FrmRenewGrant.Init_Win ("Renew")
FrmRenewGrant.Show vbModal, Me
End Sub
Private Sub MnuSetRoom_Click()
FrmSetRoom.Show vbModal, Me
End Sub
Private Sub MnuSetSystem_Click()
FrmSetSystem.Show vbModal, Me
End Sub
Private Sub MnuSrchClient_Click()
FrmSrchCheckIn.Show vbModal, Me
End Sub
Private Sub MnuSrchHandOver_Click()
FrmSrchHandOver.Show vbModal, Me
End Sub
Private Sub MnuSrchICPutOut_Click()
FrmSrchIC.Show vbModal, Me
End Sub
Private Sub MnuSrchRecord_Click()
FrmSrchLockRecord.Show vbModal, Me
End Sub
Private Sub MnuSrchSysEvent_Click()
FrmSrchEvent.Show vbModal, Me
End Sub
Private Sub MNUViewClient_Click()
frmViewClient.Show vbModal, Me
End Sub
Private Sub TimerInfo_Timer()
'显示联系信息
Dim StrInfo As String
Dim InfoWidth As Long
StrInfo = "Kebur深圳市科布尔电子有限公司 热线电话：0755-3264645，3780182"
InfoWidth = PicInfo.TextWidth(StrInfo)
If lCur <= -InfoWidth Then
lCur = PicInfo.Width
Else
lCur = lCur - 50
End If
PicInfo.Cls
PicInfo.CurrentX = lCur
PicInfo.Print StrInfo
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -