📄 frmcash.frm
字号:
TabIndex = 23
Top = 735
Width = 630
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 = &H000040C0&
Height = 210
Index = 3
Left = 2745
TabIndex = 22
Top = 735
Width = 630
End
End
Begin VB.CommandButton cmdPrint
Caption = "打印帐单(&P)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 1770
TabIndex = 13
ToolTipText = "打印普通酒店帐单大小宽11*长21cm"
Top = 3585
Width = 1560
End
Begin VB.ComboBox cmbDZ
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 315
ItemData = "frmCash.frx":14AA
Left = 5100
List = "frmCash.frx":14DE
TabIndex = 3
Text = "cmbDZ"
Top = 1058
Width = 810
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H000080FF&
BorderStyle = 0 'None
Height = 2550
Left = 15
Picture = "frmCash.frx":1523
ScaleHeight = 2550
ScaleWidth = 1710
TabIndex = 17
Top = 195
Width = 1710
End
Begin VB.CommandButton cmdPay
Caption = "立即收款(&T)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 75
TabIndex = 12
ToolTipText = "收钱。"
Top = 3585
Width = 1560
End
Begin 给出焦点文本框.FocusText txtJE
Height = 300
Left = 3105
TabIndex = 2
Top = 1065
Width = 900
_ExtentX = 1588
_ExtentY = 529
BackColor = 14737632
ForeColor = 16711680
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotBackColor = 14737632
GotForeColor = 12582912
LostBackColor = 14737632
LostForeColor = 12582912
Locked = -1 'True
PreControl = "ftCName"
NextControl = "txtBXF"
TextType = 2
Text = "0"
End
Begin 给出焦点文本框.FocusText ftCName
Height = 300
Left = 3105
TabIndex = 1
ToolTipText = "会员选择后,自动生成。"
Top = 585
Width = 2820
_ExtentX = 4974
_ExtentY = 529
BackColor = 14737632
ForeColor = 16711680
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotBackColor = 14737632
GotForeColor = 12582912
LostBackColor = 14737632
LostForeColor = 12582912
Locked = -1 'True
PreControl = "ftCID"
NextControl = "txtJE"
TextType = 2
End
Begin 给出焦点文本框.FocusText ftCID
Height = 300
Left = 3105
TabIndex = 0
Top = 165
Width = 1725
_ExtentX = 3043
_ExtentY = 529
BackColor = 14737632
ForeColor = 16711680
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
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 = "cmdPay"
NextControl = "ftcName"
TextType = 2
End
Begin 给出焦点文本框.FocusText txtBXF
Height = 300
Left = 3105
TabIndex = 4
Top = 1485
Width = 900
_ExtentX = 1588
_ExtentY = 529
BackColor = 14737632
ForeColor = 16711680
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotBackColor = 14737632
GotForeColor = 12582912
LostBackColor = 14737632
LostForeColor = 12582912
Locked = -1 'True
PreControl = "txtJE"
NextControl = "txtFK"
TextType = 2
Text = "0"
End
Begin 给出焦点文本框.FocusText ftRemain
Height = 300
Left = 4905
TabIndex = 38
ToolTipText = "会员选择后,自动生成。"
Top = 165
Width = 1020
_ExtentX = 1799
_ExtentY = 529
BackColor = 14737632
ForeColor = 16576
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
GotBackColor = 14737632
GotForeColor = 12582912
LostBackColor = 14737632
LostForeColor = 12582912
Locked = -1 'True
PreControl = "ftCID"
NextControl = "txtJE"
TextType = 2
Text = "0"
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 = 13
Left = 5970
TabIndex = 37
Top = 225
Width = 210
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 = 1
Left = 5955
TabIndex = 35
Top = 1110
Width = 105
End
Begin VB.Image Image2
Height = 480
Left = 0
Picture = "frmCash.frx":F9D5
Top = 2940
Width = 480
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "会员时,请输入【会员编号】或卡号,系统将自动给出打『折率』。"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 195
Left = 705
TabIndex = 34
Top = 3150
Width = 5670
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 = 12
Left = 4035
TabIndex = 33
Top = 1485
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 = 11
Left = 2355
TabIndex = 32
Top = 1500
Width = 840
End
Begin VB.Line Line7
BorderColor = &H00FFFFFF&
X1 = 1785
X2 = 6330
Y1 = 1890
Y2 = 1890
End
Begin VB.Line Line5
BorderColor = &H00808080&
X1 = 1785
X2 = 1785
Y1 = 45
Y2 = 1905
End
Begin VB.Line Line4
BorderColor = &H00808080&
X1 = 1785
X2 = 6330
Y1 = 45
Y2 = 45
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
X1 = 6330
X2 = 6330
Y1 = 60
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -