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