📄 main.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
Caption = "美食向导"
ClientHeight = 7365
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
Icon = "Main.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7365
ScaleWidth = 11880
WindowState = 2 'Maximized
Begin VB.Label lblTitle
BackStyle = 0 'Transparent
Caption = "美食向导"
BeginProperty Font
Name = "宋体"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 495
Left = 2760
TabIndex = 9
Top = 3600
Width = 2055
End
Begin VB.Label lblExplain
BackStyle = 0 'Transparent
Caption = "本产品用于各级酒店餐饮部门的订餐点菜及收费管理。"
BeginProperty Font
Name = "宋体"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 1575
Left = 960
TabIndex = 8
Top = 4200
Width = 6495
End
Begin VB.Label lblDir
BackStyle = 0 'Transparent
Caption = "退出向导"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 735
Index = 3
Left = 7800
MouseIcon = "Main.frx":0442
MousePointer = 99 'Custom
TabIndex = 7
Top = 6600
Width = 3495
End
Begin VB.Label lblDir
BackStyle = 0 'Transparent
Caption = "销量查询"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 735
Index = 2
Left = 7800
MouseIcon = "Main.frx":074C
MousePointer = 99 'Custom
TabIndex = 6
Top = 5280
Width = 3375
End
Begin VB.Label lblDir
BackStyle = 0 'Transparent
Caption = "订餐点菜"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 855
Index = 1
Left = 7800
MouseIcon = "Main.frx":0A56
MousePointer = 99 'Custom
TabIndex = 5
Top = 3960
Width = 3375
End
Begin VB.Label lblDir
BackStyle = 0 'Transparent
Caption = "美食档案"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 735
Index = 0
Left = 7800
MouseIcon = "Main.frx":0D60
MousePointer = 99 'Custom
TabIndex = 4
Top = 2760
Width = 3375
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "LIST Studio"
BeginProperty Font
Name = "Verdana"
Size = 15
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 240
TabIndex = 3
Top = 120
Width = 2055
End
Begin VB.Label lblPrincipalName
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 315
Left = 5520
TabIndex = 2
Top = 2400
Width = 165
End
Begin VB.Label lblHotelName
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 315
Left = 5520
TabIndex = 1
Top = 2040
Width = 165
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "本产品已注册到："
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 2880
TabIndex = 0
Top = 2040
Width = 2655
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
strExplain(0) = "由餐饮部门的工作人员输入各种菜肴的原始资料，以供编辑菜单使用。"
strExplain(1) = "编辑、制作出令客人满意的菜单，并可预览所点的各种美味佳肴，同时管理收费。"
strExplain(2) = "供餐饮部门经理查看各种销售记录，统计分析各种数据。"
strExplain(3) = "退出《美食向导》程序。"
strExplain(4) = "本产品用于各级酒店餐饮部门的订餐点菜及收费管理。"
Dim strName As String
Dim strRegName As String
Dim strCode As String
Dim intFileNumber As Integer
intFileNumber = FreeFile
'Input #intFileNumber, strName
'Input #intFileNumber, strRegName
'Input #intFileNumber, strCode
'Close #intFileNumber
If Dir(AppDir & "Menu.tel") <> "" Then
intFileNumber = FreeFile
Open AppDir & "Menu.tel" For Input As #intFileNumber
Input #intFileNumber, strTele
Close #intFileNumber
End If
strHotelName = strName
lblHotelName = strName
With frmStart
lblPrincipalName = strRegName
.lblReg = "本产品已被注册到：" & strHotelName '************
.lblRegName = strRegName
.lblRegName.Refresh
.lblReg.Refresh
End With
DoEvents
If Dir(AppDir & "Image\Main.jpg") <> "" Then
frmMain.Picture = LoadPicture(AppDir & "Image\Main.jpg")
End If
Dim strA As String
Dim strB As String
strA = strName & strRegName
Dim I As Integer
Dim lngCode As Long
For I = 1 To Len(strName & strRegName)
strB = Mid(strA, I, 1)
lngCode = lngCode + Asc(strB)
Next I
Dim strC As String
Dim lngC As Long
lngC = Val(Right(Str(lngCode), 2)) Xor 3824
strC = Chr((lngC Mod 26) + 65)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim I As Integer
For I = 0 To 3
lblDir(I).ForeColor = &H8000&
Next I
lblTitle = "美食向导"
lblExplain = strExplain(4)
End Sub
Private Sub lblDir_Click(Index As Integer)
lblDir(Index).MousePointer = 11
Select Case Index
Case 0
If MsgBox("您是“" & strHotelName & "”餐饮部门工作人员吗？", vbYesNo + vbQuestion, "美食档案----输入、编辑菜单原始资料") = vbNo Then
Exit Sub
End If
frmInput.Show
Me.Hide
Case 1
Load frmGuest
Case 2
If MsgBox("您是“" & strHotelName & "”餐饮部门管理人员吗？", vbYesNo + vbQuestion, "美食档案----销量查询") = vbNo Then
Exit Sub
End If
Load frmQuery
Case 3
If MsgBox("要退出《美食向导》吗？", vbQuestion + vbYesNo, "退出提示") = vbNo Then
Exit Sub
End If
Dim frm As Form
For Each frm In Forms
Unload frm
Next
End
End Select
End Sub
Private Sub lblDir_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
lblDir(Index).MousePointer = 99
lblDir(Index).ForeColor = &HFFFF00
lblTitle = lblDir(Index)
lblExplain = strExplain(Index)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -