📄 frmsidebar.frm
字号:
Caption = "Notepad"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 720
TabIndex = 14
Top = 7080
Width = 825
End
Begin VB.Label Label12
AutoSize = -1 'True
BackColor = &H00404040&
Caption = "Calculator"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 720
TabIndex = 13
Top = 6600
Width = 1005
End
Begin VB.Image Image11
Height = 480
Left = 120
Picture = "frmsidebar.frx":7C2E
Top = 6960
Width = 480
End
Begin VB.Image Image10
Height = 480
Left = 120
Picture = "frmsidebar.frx":88F8
Top = 6480
Width = 480
End
Begin VB.Label Label11
AutoSize = -1 'True
BackColor = &H00404040&
Caption = "Control Panel"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 720
TabIndex = 12
Top = 6120
Width = 1335
End
Begin VB.Label Label10
AutoSize = -1 'True
BackColor = &H00404040&
Caption = "Search Employee"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 720
TabIndex = 11
Top = 2760
Width = 1710
End
Begin VB.Label Label9
AutoSize = -1 'True
BackColor = &H00404040&
Caption = "Status Of Hotel"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 720
TabIndex = 10
Top = 2280
Width = 1515
End
Begin VB.Label Label8
AutoSize = -1 'True
BackColor = &H00404040&
Caption = "Search Guest"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 720
TabIndex = 9
Top = 1800
Width = 1320
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H00404040&
Caption = "Check Out"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 720
TabIndex = 8
Top = 1320
Width = 1020
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H00404040&
Caption = "Check In"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 720
TabIndex = 7
Top = 840
Width = 870
End
Begin VB.Image Image9
Height = 480
Left = 120
Picture = "frmsidebar.frx":95C2
Top = 6000
Width = 480
End
Begin VB.Image Image8
Height = 480
Left = 120
Picture = "frmsidebar.frx":A28C
Top = 2640
Width = 480
End
Begin VB.Image Image7
Height = 480
Left = 120
Picture = "frmsidebar.frx":AF56
Top = 2160
Width = 480
End
Begin VB.Image Image6
Height = 480
Left = 120
Picture = "frmsidebar.frx":BC20
Top = 1680
Width = 480
End
Begin VB.Image Image5
Height = 480
Left = 120
Picture = "frmsidebar.frx":C8EA
Top = 1200
Width = 480
End
Begin VB.Image Image4
Height = 480
Left = 120
Picture = "frmsidebar.frx":D5B4
Top = 720
Width = 480
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H00404040&
Caption = "PICK A TASK"
BeginProperty Font
Name = "Baskerville Old Face"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Left = 480
TabIndex = 6
Top = 240
Width = 1620
End
End
Attribute VB_Name = "frmsidebar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComCtlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "Align Left"
'ToDo: Add 'Align Left' button code.
MsgBox "Add 'Align Left' button code."
Case "Align Right"
'ToDo: Add 'Align Right' button code.
MsgBox "Add 'Align Right' button code."
Case "Bold"
'ToDo: Add 'Bold' button code.
MsgBox "Add 'Bold' button code."
Case "Button"
'ToDo: Add 'Button' button code.
MsgBox "Add 'Button' button code."
Case "Center"
'ToDo: Add 'Center' button code.
MsgBox "Add 'Center' button code."
Case "Copy"
'ToDo: Add 'Copy' button code.
MsgBox "Add 'Copy' button code."
Case "Cut"
'ToDo: Add 'Cut' button code.
MsgBox "Add 'Cut' button code."
Case "Italic"
'ToDo: Add 'Italic' button code.
MsgBox "Add 'Italic' button code."
Case "Justify"
'ToDo: Add 'Justify' button code.
MsgBox "Add 'Justify' button code."
End Select
End Sub
Private Sub Command2_Click()
On Error GoTo Err
Shell "calc.exe", vbNormalFocus
Exit Sub
Err:
MsgBox "You don't have a Calculator installed in your computer.", vbExclamation, "CSRS version 1"
End Sub
Private Sub Command3_Click()
On Error GoTo Err
Shell "notepad.exe", vbNormalFocus
Exit Sub
Err:
MsgBox "You don't have a NotePad installed in your computer.", vbExclamation, "CSRS version 1"
End Sub
Private Sub Command4_Click()
frmChangePassword.Show
End Sub
Private Sub Form_Load()
Me.Left = 0
Me.Top = 0
Label2.Caption = Format(Date, "long date")
Label1.Caption = Format(Now, "long time")
Label18.Caption = "You are logged on as: "
Label17.Caption = UserName
End Sub
Private Sub Form_Unload(Cancel As Integer)
Exit Sub
End Sub
Private Sub Image10_Click()
Label12_Click
End Sub
Private Sub Image11_Click()
Label13_Click
End Sub
Private Sub Image12_Click()
Label14_Click
End Sub
Private Sub Image13_Click()
Label15_Click
End Sub
Private Sub Image14_Click()
Label16_Click
End Sub
Private Sub Image15_Click()
frmReport.Show 1
End Sub
Private Sub Image16_Click()
frmBar.Show 1
End Sub
Private Sub Image4_Click()
Label6_Click
End Sub
Private Sub Image5_Click()
Label7_Click
End Sub
Private Sub Image6_Click()
Label8_Click
End Sub
Private Sub Image7_Click()
Label9_Click
End Sub
Private Sub Image8_Click()
Label10_Click
End Sub
Private Sub Image9_Click()
Label11_Click
End Sub
Private Sub Label10_Click()
frmSearchEmp.Show 1
End Sub
Private Sub Label11_Click()
Shell "c:\windows\system32\control.exe", vbNormalFocus
End Sub
Private Sub Label12_Click()
Shell "calc.exe", vbNormalFocus
End Sub
Private Sub Label13_Click()
Shell "notepad", vbNormalFocus
End Sub
Private Sub Label14_Click()
frmChangePassword.Show 1
End Sub
Private Sub Label15_Click()
If MsgBox("Are you sure you want to Log Off User?", vbYesNo) = vbYes Then
MDIMain.Hide
frmLogin.Show
End If
End Sub
Private Sub Label16_Click()
If MsgBox("Are you sure you want to quit?", vbInformation + vbYesNo) = vbYes Then
MsgBox "Thank you for using this application " & login, vbOKOnly, " " & Date & " " & Time
Else: Exit Sub
End If
With RS_Userlog
.AddNew
.Fields(0) = UserName
.Fields(1) = "Log Out"
.Fields(2) = Date
.Fields(3) = Time
.Fields(4) = "Successful"
.Update
End With
End
End Sub
Private Sub Label20_Click()
frmReport.Show 1
End Sub
Private Sub Label21_Click()
Image16_Click
End Sub
Private Sub Label6_Click()
frmcheckIn.Show 1
End Sub
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.MousePointer = hourglass
End Sub
Private Sub Label7_Click()
frmCheckOut.Show 1
End Sub
Private Sub Label8_Click()
frmSearchGuest.Show 1
End Sub
Private Sub Label9_Click()
frmStatus.Show 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -