📄 frmr_p.frm
字号:
Caption = "取消"
Key = "CANCEL"
Description = "取消"
Object.ToolTipText = "取消退出"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "冲销"
Object.ToolTipText = "单据冲销"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "核销"
Object.ToolTipText = "应收核销"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "凭证"
Object.ToolTipText = "关联凭证"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "记事"
Key = "Note"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "Print"
Object.ToolTipText = "打印单据"
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "列表"
Key = "List"
Object.ToolTipText = "单据列表"
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "图片"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "图片文字"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "文字"
EndProperty
EndProperty
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设置"
Key = "Setup"
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "图片"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "图片+文字"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "文字"
EndProperty
EndProperty
EndProperty
EndProperty
BorderStyle = 1
End
Begin MSForms.Label LblMemo
Height = 210
Index = 5
Left = 6780
TabIndex = 19
Top = 5610
Visible = 0 'False
Width = 585
ForeColor = 255
BackColor = 16777152
VariousPropertyBits= 268435483
Caption = "蔡奇科"
Size = "1032;370"
BorderColor = 255
BorderStyle = 1
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label LblMemo
Height = 180
Index = 4
Left = 6330
TabIndex = 20
Top = 5610
Visible = 0 'False
Width = 375
ForeColor = 0
BackColor = -2147483639
VariousPropertyBits= 268435483
Caption = "制单"
Size = "661;317"
BorderColor = 255
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label LblMemo
Height = 225
Index = 3
Left = 5160
TabIndex = 24
Top = 5610
Visible = 0 'False
Width = 615
ForeColor = 0
BackColor = -2147483639
VariousPropertyBits= 268435483
Size = "1085;397"
BorderColor = 255
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label LblMemo
Height = 225
Index = 2
Left = 4260
TabIndex = 23
Top = 5610
Visible = 0 'False
Width = 615
ForeColor = 0
BackColor = -2147483639
VariousPropertyBits= 268435483
Size = "1085;397"
BorderColor = 255
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label LblMemo
Height = 225
Index = 1
Left = 1050
TabIndex = 22
Top = 5610
Visible = 0 'False
Width = 2925
ForeColor = 0
BackColor = -2147483639
VariousPropertyBits= 27
Size = "5159;397"
BorderColor = 255
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label LblMemo
Height = 180
Index = 0
Left = 300
TabIndex = 21
Top = 5610
Visible = 0 'False
Width = 645
ForeColor = 0
BackColor = -2147483639
VariousPropertyBits= 268435483
Caption = "备注(M)"
Size = "1138;317"
BorderColor = 255
Accelerator = 77
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label lblCaption
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "采购付款"
BeginProperty Font
Name = "楷体_GB2312"
Size = 18
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00004000&
Height = 360
Left = 300
TabIndex = 11
Top = 540
Visible = 0 'False
Width = 1440
End
Begin VB.Label lblField
Appearance = 0 'Flat
BackColor = &H00ECFFFF&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 150
TabIndex = 0
Top = 1230
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblFieldCaption
Alignment = 2 'Center
BackColor = &H00808000&
Caption = "标题"
ForeColor = &H80000009&
Height = 195
Index = 0
Left = 150
TabIndex = 10
Top = 1020
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblNote
AutoSize = -1 'True
BackColor = &H00FFFFE1&
Caption = "折扣科目"
Height = 180
Index = 0
Left = 330
TabIndex = 9
Top = 5100
Visible = 0 'False
Width = 720
End
Begin VB.Label lblTotal
Alignment = 2 'Center
BackColor = &H00FFFFE1&
Caption = "合计"
Height = 195
Index = 0
Left = 240
TabIndex = 8
Top = 4860
Visible = 0 'False
Width = 555
End
Begin VB.Label lblNote
BackColor = &H00FFFFE1&
Height = 180
Index = 1
Left = 1290
TabIndex = 7
Top = 5100
Visible = 0 'False
Width = 825
WordWrap = -1 'True
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 5
Left = 6300
TabIndex = 1
Tag = "2"
Top = 120
Visible = 0 'False
Width = 1710
End
Begin VB.Label lblHead
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "模板(D)"
ForeColor = &H80000008&
Height = 180
Index = 4
Left = 5670
TabIndex = 15
Tag = "2"
Top = 150
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 3
Left = 4230
TabIndex = 3
Tag = "1"
Top = 120
Visible = 0 'False
Width = 1170
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位(C)"
Height = 180
Index = 0
Left = 0
TabIndex = 14
Tag = "0"
Top = 165
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "类型(Y)"
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 3600
TabIndex = 13
Tag = "1"
Top = 150
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 1
Left = 690
TabIndex = 2
Tag = "0"
Top = 120
Visible = 0 'False
Width = 1950
End
Begin VB.Label LblBack
Appearance = 0 'Flat
BackColor = &H00FFFFE1&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 5400
Left = 60
TabIndex = 12
Top = 480
Visible = 0 'False
Width = 7995
End
End
Attribute VB_Name = "frmR_P"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'______________________________________
'作者：蔡奇科
'方法：
' ShowAOldBill 显示一张旧单据。
'
'______________________________________
Option Explicit
Dim ReceiptTypeID As Integer
Dim clsBill As clsR_P 'itemclass
Dim clsLst As clsListMethod '删除期初单类模块
Dim WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Dim lgID As Long
Dim srName As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -