?? 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 = "消費(fèi)合計："
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 給出焦點(diǎn)文本框.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 = "請輸入掛帳經(jīng)辦人："
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 '已經(jīng)查詢
Private Sub chkArrearage_Click()
On Error Resume Next
'顯示輸入掛帳經(jīng)辦人
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
'包廂費(fèi)與金額
cJE = 0: cBXF = 0: cRate = 0
JSAmo = 0: JGAmo = 0: SFAmo = 0: FKAmo = 0
'計算金額,每次重新啟動計算機(jī)金額
GetConsum "", "", 100
txtBXF.Text = cBXF
txtJE.Text = cJE
txtFK.Text = FKAmo
Already = False
End Sub
Private Sub cmbDZ_Click()
'計算付款金額
Me.MousePointer = 11
'包廂費(fèi)與金額
cJE = 0: cBXF = 0: cRate = 0
JSAmo = 0: JGAmo = 0: SFAmo = 0: FKAmo = 0
'計算金額,每次重新啟動計算機(jī)金額
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()
'設(shè)置目前餐桌狀態(tài)
If SetCashOut(sPubSite, 2) = False Then
Do While SetCashOut(sPubSite, 2) = True
'直到更新上臺為直
Loop
End If
Unload Me
End Sub
'*****************************************
'
'1、會員結(jié)帳時方法有
' A、增加會員的累計消費(fèi)額
' B、檢測會員是否升級
'
'2、散戶結(jié)帳時
' A、建立應(yīng)收款
'*****************************************
Private Sub cmdPay_Click()
On Error GoTo CheckErr
If cmbPayMethod.Text = "" Then
MsgBox "請選擇一種付款方法,如果付款方法為空時。 " & vbCrLf _
& "返回到基本配置中添加付款方法,再繼續(xù)結(jié)帳。 ", vbExclamation
cmbPayMethod.SetFocus
Exit Sub
End If
'檢測是否為卡付或其它付款時
If chkCard.Value = vbChecked Then
If chkArrearage.Value = vbChecked Then
MsgBox "掛帳時,不能選擇【會員卡支付】選項(xiàng)。", 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 "會員卡中余額加上所付金額，不夠消費(fèi)金額？ ", 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 "對不起，付款不正確，請檢查后繼續(xù)！ " & vbCrLf & vbCrLf & "消費(fèi)：" & txtFK.Text & "元,實(shí)付：" & txtSK.Text & "元", vbInformation
txtSK.Text = txtFK.Text
txtSK.SetFocus
Exit Sub
End If
End If
End If
'檢驗(yàn)收款是否正確,掛帳時不檢測，掛所有金額。
If chkArrearage.Value = vbUnchecked Then
If MsgBox("請?jiān)谌霂で皩未蛴〕鰜? " & vbCrLf _
& "【入帳后將不能打印帳單】" & vbCrLf & vbCrLf _
& "確認(rèn)繼續(xù)入帳嗎？(Y/N) ", vbYesNo + vbInformation) = vbNo Then Exit Sub
Else
'如果非客戶時不能掛帳
If Trim(ftCID.Text) = "" And Trim(ftCName.Text) = "" Then
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -