📄 frmdc.frm
字号:
EndProperty
BorderStyle = 0
GotForeColor = 16777215
LostForeColor = 0
MaxLength = 12
PreControl = "txtJGF"
NextControl = "txtType"
End
Begin 给出焦点文本框.FocusText txtType
Height = 315
Left = 7800
TabIndex = 8
Top = 2745
Width = 2100
_ExtentX = 3704
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotForeColor = 16777215
LostForeColor = 0
MaxLength = 25
PreControl = "txtUnit"
NextControl = "cmdAdd"
End
Begin VB.Frame Frame3
Height = 3300
Left = 75
TabIndex = 19
Top = 405
Width = 6885
Begin MSComctlLib.ListView lstPro
Height = 3135
Left = 30
TabIndex = 12
ToolTipText = "双击添加该菜到餐桌。"
Top = 120
Width = 6810
_ExtentX = 12012
_ExtentY = 5530
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "助记编码"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "菜 名"
Object.Width = 2469
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "拼音码"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 3
Text = "单价"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 4
Text = "单位"
Object.Width = 1235
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "菜的类别"
Object.Width = 2381
EndProperty
End
End
Begin VB.Shape Shape1
BorderColor = &H80000005&
Height = 480
Left = 7005
Top = 105
Width = 2970
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "菜类别："
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 9
Left = 7110
TabIndex = 24
Top = 2805
Width = 780
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "单位"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 8
Left = 8535
TabIndex = 23
Top = 2445
Width = 390
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "单价"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 5
Left = 8535
TabIndex = 22
Top = 2100
Width = 390
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "加工费："
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 4
Left = 7110
TabIndex = 21
Top = 2430
Width = 780
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 1
X1 = 7020
X2 = 9975
Y1 = 630
Y2 = 630
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 7020
X2 = 9975
Y1 = 615
Y2 = 615
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "名称："
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 1
Left = 7290
TabIndex = 20
Top = 1680
Width = 585
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "编码："
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 7290
TabIndex = 18
Top = 870
Width = 585
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "数量："
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 2
Left = 7290
TabIndex = 17
Top = 2085
Width = 585
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "拼音："
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 3
Left = 7290
TabIndex = 16
Top = 1245
Width = 585
End
End
Attribute VB_Name = "frmDC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim sName As String, lDJ As Currency, sDW As String, lSL As Long, sType As String, sCode As String
Dim AddIt As Boolean
Dim sGlobalType As String
Dim SearchAgain As Boolean '再搜索
Private Sub cmbCode_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Errorx
'给出F2-F8的所有内容,缺省显示第一道菜
Dim lMenu As Integer
Select Case KeyCode
Case 113 'F2
lMenu = 2
Case 114 'F3
lMenu = 3
Case 115 'F4
lMenu = 4
Case 116 'F5
lMenu = 5
Case 117 'F6
lMenu = 6
Case 118 'F7
lMenu = 7
Case 119 'F8
lMenu = 8
Case Else
Exit Sub
End Select
If lstPro.ListItems.Count > 0 Then
'索行超过时退出。
If lMenu > lstPro.ListItems.Count Then Exit Sub
'无需查询，直接给出该菜单参数
AddIt = True
'选择该行
lstPro.ListItems(lMenu).Selected = True
cmbCode.Text = lstPro.SelectedItem.Text
txtPingyin = lstPro.SelectedItem.SubItems(2)
txtName = lstPro.SelectedItem.SubItems(1)
txtSL = 1
txtDJ = lstPro.SelectedItem.SubItems(3)
txtUnit = lstPro.SelectedItem.SubItems(4)
txtType = lstPro.SelectedItem.SubItems(5)
txtJGF = 0
AddIt = False
SearchAgain = True
txtSL.SetFocus
Exit Sub
End If
Exit Sub
Errorx:
MsgBox "给出列表菜单错误:" & Err.Description, vbCritical
End Sub
Private Sub cmbCode_LostFocus()
'如果通过人工选择，或单击选择时，退出
If AddIt = True Then Exit Sub
'检测编码是否正确
If Trim(cmbCode.Text) = "" Then
txtPingyin = ""
txtName = ""
txtSL = 1
txtDJ = 0
txtUnit = ""
txtType = ""
txtJGF = 0
Exit Sub
End If
'如果没有搜索过时，通过编码来搜索。
If SearchAgain = False Then GetItem "MID"
End Sub
Private Sub cmbWaiter_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then
cmbCode.SetFocus
End If
End Sub
Private Sub cmdAdd_Click()
AddItItem
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdDel_Click()
On Error GoTo Err_del
If lstCust.ListItems.Count = 0 Then
Exit Sub
End If
If lstCust.SelectedItem.Text = "" Then
MsgBox "请先选择一种物品后,再按删除按钮。 ", vbExclamation
Exit Sub
End If
'删除
If MsgBox("真的删除 〖" & lstCust.SelectedItem.SubItems(2) & " 〗 吗？ ", vbYesNo + vbCritical) = vbNo Then
Exit Sub
End If
If DeleteTopMenu(CLng(lstCust.SelectedItem.Text)) = True Then
lstCust.ListItems.Remove lstCust.SelectedItem.Index
End If
cmbCode.SetFocus
Exit Sub
Err_del:
MsgBox "记录删除错误! " & vbCrLf & vbCrLf & Err.Description, vbCritical
End Sub
Private Sub cmdIntegration_Click()
'选择菜单酒席套餐
frmSelectCat.Show 1
If sMenuID = "" Then cmbCode.SetFocus: Exit Sub
If MsgBox("真的添加【" & sMenuID & "】号酒席菜单吗？(Y/N) ", vbInformation + vbYesNo) = vbNo Then
cmbCode.SetFocus
Exit Sub
End If
If sMenuID <> "" Then
'给出套餐
Dim CDB As Connection
Dim cRS As Recordset
Dim sTMp As String
Set CDB = CreateObject("ADODB.Connection")
CDB.Open Constr
Set cRS = CreateObject("ADODB.Recordset")
sTMp = "Select EatList.MID,EatList.MName,EatList.MUnit,EatList.MType,EatList.MPrice,EatList.Pingyin," _
& "tbdMenuCatDetail.MenuID,tbdMenuCatDetail.MenuNum from " _
& " EatList Inner Join tbdMenuCatDetail On EatList.MID=tbdMenuCatDetail.MenuName " _
& " Where tbdMenuCatDetail.MenuID='" & sMenuID & "'"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -