📄 frmboxdc.frm
字号:
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotForeColor = 16777215
LostForeColor = 0
MaxLength = 25
PreControl = "txtPingyin"
NextControl = "txtSl"
End
Begin 给出焦点文本框.FocusText txtJGF
Height = 315
Left = 8025
TabIndex = 5
Top = 2385
Width = 675
_ExtentX = 1191
_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 = 8
PreControl = "txtDJ"
NextControl = "txtUnit"
TextType = 2
Text = "0"
End
Begin 给出焦点文本框.FocusText txtDJ
Height = 315
Left = 9180
TabIndex = 4
Top = 2040
Width = 630
_ExtentX = 1111
_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 = 8
PreControl = "txtSL"
NextControl = "txtJGF"
TextType = 2
Text = "0"
End
Begin 给出焦点文本框.FocusText txtUnit
Height = 315
Left = 9180
TabIndex = 6
Top = 2385
Width = 630
_ExtentX = 1111
_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 = 12
PreControl = "txtJGF"
NextControl = "txtType"
End
Begin 给出焦点文本框.FocusText txtType
Height = 315
Left = 8025
TabIndex = 7
Top = 2745
Width = 1785
_ExtentX = 3149
_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.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 = 7245
TabIndex = 23
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 = 8760
TabIndex = 22
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 = 8760
TabIndex = 21
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 = 7245
TabIndex = 20
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 = 7425
TabIndex = 19
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 = 7425
TabIndex = 17
Top = 945
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 = 7425
TabIndex = 16
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 = 7425
TabIndex = 15
Top = 1320
Width = 585
End
End
Attribute VB_Name = "frmBoxDC"
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 '再搜索
Public sBoxSite As String '包厢名
Private Sub cmbCode_LostFocus()
If AddIt = True Then Exit Sub
'检测编码是否正确
If Trim(cmbCode.Text) = "" Then Exit Sub
If SearchAgain = False Then GetItem "MID"
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 DeletePreMenu(CLng(lstCust.SelectedItem.Text)) = True Then
lstCust.ListItems.Remove lstCust.SelectedItem.Index
End If
Exit Sub
Err_del:
MsgBox "记录删除错误! " & vbCrLf & vbCrLf & Err.Description, vbCritical
End Sub
'删除点菜内容..............................................................
Private Function DeletePreMenu(nID As Long) As Boolean
On Error GoTo GetERR
Dim utDB As Connection
Set utDB = CreateObject("ADODB.Connection")
utDB.Open Constr
utDB.BeginTrans
'删除酒席
utDB.Execute "Delete From tmpBox Where ID=" & nID
utDB.CommitTrans
utDB.Close
Set utDB = Nothing
DeletePreMenu = True
Exit Function
GetERR:
DeletePreMenu = False
MsgBox "清除预点菜错误:" & Err.Description, vbCritical
End Function
'--------------------------------------------------------------------------
Private Sub cmdIntegration_Click()
'选择菜单酒席套餐
frmSelectCat.Show 1
If sMenuID = "" Then Exit Sub
If MsgBox("真的添加【" & sMenuID & "】号酒席菜单吗？(Y/N) ", vbInformation + vbYesNo) = vbNo Then Exit Sub
If sMenuID <> "" Then
'给出套餐
Dim CDB As Connection
Dim cRS As Recordset
Dim sTMp As String
Set CDB = CreateObject("ADODB.Connection")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -