📄 ct_yexs.frm
字号:
VERSION 5.00
Begin VB.Form fm_yexs
BorderStyle = 3 'Fixed Dialog
ClientHeight = 1860
ClientLeft = -15
ClientTop = -15
ClientWidth = 3495
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1860
ScaleWidth = 3495
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.Frame Frame4
BackColor = &H00C0C000&
Caption = "客人应付款"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1845
Left = 0
TabIndex = 0
Top = 0
Width = 3495
Begin VB.Label Label5
Alignment = 1 'Right Justify
BackColor = &H8000000D&
Caption = "客人应付金额:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 255
Left = 180
TabIndex = 8
Top = 390
Width = 1485
End
Begin VB.Label lb_ye
Alignment = 1 'Right Justify
BackColor = &H00000040&
Caption = "sdfsdf"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 255
Left = 1860
TabIndex = 7
Top = 390
Width = 1485
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
BackColor = &H000040C0&
Caption = "其中: 现 金:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 255
Left = 180
TabIndex = 6
Top = 840
Width = 1485
End
Begin VB.Label lb_xj
Alignment = 1 'Right Justify
BackColor = &H00000040&
Caption = "sdfsdf"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 255
Left = 1860
TabIndex = 5
Top = 840
Width = 1485
End
Begin VB.Label Label10
Alignment = 1 'Right Justify
BackColor = &H00FF80FF&
Caption = "支 票:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 255
Left = 180
TabIndex = 4
Top = 1140
Width = 1485
End
Begin VB.Label lb_zp
Alignment = 1 'Right Justify
BackColor = &H00000040&
Caption = "sdfsdf"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 255
Left = 1860
TabIndex = 3
Top = 1140
Width = 1485
End
Begin VB.Label Label12
Alignment = 1 'Right Justify
BackColor = &H00008080&
Caption = "信用卡:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 255
Left = 180
TabIndex = 2
Top = 1440
Width = 1485
End
Begin VB.Label lb_xyk
Alignment = 1 'Right Justify
BackColor = &H00000040&
Caption = "sdfsdf"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 255
Left = 1860
TabIndex = 1
Top = 1440
Width = 1485
End
End
End
Attribute VB_Name = "fm_yexs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'参数
Dim CS_fkmc As String
Dim CS_ye As Double
Dim CS_ye1 As Double
'返回值
Dim yexs_xj As Double
Dim yexs_zp As Double
Dim yexs_xyk As Double
Sub MAIN(t_FKMC As String, t_YE As Double, t_ye1 As Double)
CS_fkmc = Trim(t_FKMC)
CS_ye = t_YE
CS_ye1 = t_ye1
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.18
'* 修改日期 : 1999.03.18
'**************************************************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Me
End Sub
'**************************************************************************************************
'* 功 能 : 餐厅余额显示
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.18
'* 修改日期 : 1999.03.18
'* 返 回 值 : 实际的支票, 现金, 信用卡的金额
'**************************************************************************************************
Private Sub Form_Load()
Select Case CS_fkmc
Case "现金"
yexs_xj = CS_ye
Case "支票"
yexs_zp = CS_ye
Case "信用卡"
yexs_xyk = CS_ye
Case "支票+信用卡"
yexs_zp = CS_ye1
yexs_xyk = CS_ye - CS_ye1
Case "支票+现金"
yexs_zp = CS_ye1
yexs_xj = CS_ye - CS_ye1
Case "信用卡+现金"
yexs_xyk = CS_ye1
yexs_xj = CS_ye - CS_ye1
End Select
lb_ye.Caption = Format(CS_ye, "#,##0.00")
lb_xj.Caption = Format(yexs_xj, "#,##0.00")
lb_zp.Caption = Format(yexs_zp, "#,##0.00")
lb_xyk.Caption = Format(yexs_xyk, "#,##0.00")
End Sub
Public Property Get XJ() As Double
XJ = yexs_xj
End Property
Public Property Let XJ(ByVal temp_xj As Double)
yexs_xj = temp_xj
End Property
Public Property Get ZP() As Double
ZP = yexs_zp
End Property
Public Property Let ZP(ByVal temp_zp As Double)
yexs_zp = temp_zp
End Property
Public Property Get XYK() As Double
XYK = yexs_xyk
End Property
Public Property Let XYK(ByVal temp_xyk As Double)
yexs_xyk = temp_xyk
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -