📄 frmcash.frm
字号:
Y2 = 1905
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "会员名称："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 9
Left = 2145
TabIndex = 29
Top = 645
Width = 1050
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "会员编号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 8
Left = 2145
TabIndex = 28
Top = 240
Width = 1050
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "元"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 6
Left = 4035
TabIndex = 20
Top = 1110
Width = 210
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "消费合计："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 0
Left = 2145
TabIndex = 19
Top = 1110
Width = 1050
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "打折："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 4485
TabIndex = 18
Top = 1110
Width = 630
End
Begin VB.Line Line1
BorderColor = &H00808080&
X1 = 0
X2 = 6375
Y1 = 3495
Y2 = 3495
End
End
Begin 给出焦点文本框.FocusText ftArrearage
Height = 300
Left = 4125
TabIndex = 11
ToolTipText = "会员选择后,自动生成。"
Top = 4500
Visible = 0 'False
Width = 2490
_ExtentX = 4392
_ExtentY = 529
BackColor = 14737632
ForeColor = 16711680
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotBackColor = 14737632
GotForeColor = 12582912
LostBackColor = 14737632
LostForeColor = 12582912
PreControl = "ftCID"
NextControl = "txtJE"
End
Begin VB.Label lbArrearage
AutoSize = -1 'True
Caption = "请输入挂帐经办人："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 2145
TabIndex = 36
Top = 4530
Visible = 0 'False
Width = 1890
End
Begin VB.Line Line8
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 195
X2 = 6585
Y1 = 4380
Y2 = 4380
End
End
Attribute VB_Name = "frmCash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim FKAmo As Currency
Dim SFAmo As Currency
Dim JSAmo As Currency
Dim JGAmo As Currency
Dim cDiscount As Currency '打折百份比
Dim Already As Boolean '已经查询
Private Sub chkArrearage_Click()
On Error Resume Next
'显示输入挂帐经办人
If chkArrearage.Value = vbChecked Then
Line8.Visible = True
lbArrearage.Visible = True
ftArrearage.Visible = True
ftArrearage.SetFocus
Else
Line8.Visible = False
lbArrearage.Visible = False
ftArrearage.Visible = False
End If
End Sub
Private Sub chkCard_Click()
On Error Resume Next
If chkCard.Value = vbChecked Then
If ftCID.Text = "" Then
'非会员时，或者会员的卡号中金额不够时
chkCard.Value = vbUnchecked
MsgBox "只有会员才能使用〖卡付〗功能？ " & vbCrLf & "请首先选择会员。", vbInformation
ftCID.SetFocus
Exit Sub
End If
If CCur(ftRemain.Text) <= 0 Then
'会员的卡号中金额不够时
chkCard.Value = vbUnchecked
MsgBox "会员卡中余额为0，不能使用〖卡付〗功能？ ", vbInformation
Exit Sub
End If
'有足够的金额付款时
If CCur(txtFK.Text) <= CCur(ftRemain.Text) Then
txtSK.Text = "0"
Else
'必须付上所欠金额
txtSK.Text = CCur(txtFK.Text) - CCur(ftRemain.Text)
End If
End If
End Sub
Private Sub cmbDZ_Change()
'计算付款金额
If cmbDZ.Text = "" Then
cmbDZ.Text = 0
End If
If cmbDZ.Text = "." Then
cmbDZ.Text = 0
End If
Me.MousePointer = 11
'包厢费与金额
cJE = 0: cBXF = 0: cRate = 0
JSAmo = 0: JGAmo = 0: SFAmo = 0: FKAmo = 0
'计算金额,每次重新启动计算机金额
GetConsum "", "", 100
txtBXF.Text = cBXF
txtJE.Text = cJE
txtFK.Text = FKAmo
Already = False
End Sub
Private Sub cmbDZ_Click()
'计算付款金额
Me.MousePointer = 11
'包厢费与金额
cJE = 0: cBXF = 0: cRate = 0
JSAmo = 0: JGAmo = 0: SFAmo = 0: FKAmo = 0
'计算金额,每次重新启动计算机金额
GetConsum "", "", 100
txtBXF.Text = cBXF
txtJE.Text = cJE
txtFK.Text = FKAmo
Already = False
End Sub
Private Sub cmbDZ_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
Exit Sub
End If
If KeyAscii = 13 Then
txtSK.SetFocus
Exit Sub
End If
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
Private Sub cmbPayMethod_Change()
On Error Resume Next
SaveSetting App.EXEName, "Option", "PayMethod", cmbPayMethod.ListIndex
GetMoneyCount
End Sub
Private Sub cmbPaymethod_Click()
On Error Resume Next
SaveSetting App.EXEName, "Option", "PayMethod", cmbPayMethod.ListIndex
GetMoneyCount
End Sub
Private Sub cmdClose_Click()
'设置目前餐桌状态
If SetCashOut(sPubSite, 2) = False Then
Do While SetCashOut(sPubSite, 2) = True
'直到更新上台为直
Loop
End If
Unload Me
End Sub
'*****************************************
'
'1、会员结帐时方法有
' A、增加会员的累计消费额
' B、检测会员是否升级
'
'2、散户结帐时
' A、建立应收款
'*****************************************
Private Sub cmdPay_Click()
On Error GoTo CheckErr
If cmbPayMethod.Text = "" Then
MsgBox "请选择一种付款方法,如果付款方法为空时。 " & vbCrLf _
& "返回到基本配置中添加付款方法,再继续结帐。 ", vbExclamation
cmbPayMethod.SetFocus
Exit Sub
End If
'检测是否为卡付或其它付款时
If chkCard.Value = vbChecked Then
If chkArrearage.Value = vbChecked Then
MsgBox "挂帐时,不能选择【会员卡支付】选项。", vbInformation
chkCard.Value = vbUnchecked
Exit Sub
End If
If ftCID.Text = "" Then
'非会员时，或者会员的卡号中金额不够时
chkCard.Value = vbUnchecked
MsgBox "只有会员才能使用〖卡付〗功能？ ", vbInformation
ftCID.SetFocus
Exit Sub
End If
'会员的卡号中金额不够时
If CCur(ftRemain.Text) + CCur(txtSK.Text) < CCur(txtFK.Text) Then
MsgBox "会员卡中余额加上所付金额，不够消费金额？ ", vbInformation
txtSK.SetFocus
Exit Sub
End If
Else
If chkArrearage.Value = vbUnchecked Then
If CCur(txtSK.Text) = 0 Or CCur(txtSK.Text) < CCur(txtFK.Text) Then
MsgBox "对不起，付款不正确，请检查后继续！ " & vbCrLf & vbCrLf & "消费：" & txtFK.Text & "元,实付：" & txtSK.Text & "元", vbInformation
txtSK.Text = txtFK.Text
txtSK.SetFocus
Exit Sub
End If
End If
End If
'检验收款是否正确,挂帐时不检测，挂所有金额。
If chkArrearage.Value = vbUnchecked Then
If MsgBox("请在入帐前将帐单打印出来, " & vbCrLf _
& "【入帐后将不能打印帐单】" & vbCrLf & vbCrLf _
& "确认继续入帐吗？(Y/N) ", vbYesNo + vbInformation) = vbNo Then Exit Sub
Else
'如果非客户时不能挂帐
If Trim(ftCID.Text) = "" And Trim(ftCName.Text) = "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -