?? 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 + -