📄 frmtransvoucher.frm
字号:
Top = 0
Visible = 0 'False
Width = 9525
_ExtentX = 16801
_ExtentY = 979
ButtonWidth = 820
ButtonHeight = 926
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
Style = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "下张"
Key = "NEXT"
Description = "下一张"
Object.ToolTipText = "下一张"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "上张"
Key = "PREV"
Description = "上一张"
Object.ToolTipText = "上一张"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "确定"
Key = "SAVE"
Description = "存盘退出"
Object.ToolTipText = "存盘退出"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
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 = "凭证"
Key = "Voucher"
Object.ToolTipText = "关联凭证"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "Print"
Object.ToolTipText = "打印单据"
EndProperty
BeginProperty Button9 {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 Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设置"
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 = 180
Index = 0
Left = 150
TabIndex = 33
Top = 5460
Visible = 0 'False
Width = 645
BackColor = -2147483634
VariousPropertyBits= 276824091
Caption = "备注(M)"
Size = "1138;317"
BorderColor = -2147483638
Accelerator = 77
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label lblmemo
Height = 270
Index = 1
Left = 870
TabIndex = 32
Top = 5430
Visible = 0 'False
Width = 4950
BackColor = -2147483634
Size = "8731;476"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label lblmemo
Height = 180
Index = 2
Left = 5880
TabIndex = 31
Top = 5460
Visible = 0 'False
Width = 465
BackColor = -2147483634
Caption = "制单"
Size = "820;317"
BorderColor = -2147483638
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label lblmemo
Height = 210
Index = 3
Left = 6450
TabIndex = 30
Top = 5460
Visible = 0 'False
Width = 585
BackColor = -2147483634
VariousPropertyBits= 268435483
Caption = "制单人"
Size = "1032;370"
BorderColor = 255
BorderStyle = 1
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label lblFieldCaption
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "标题"
ForeColor = &H80000008&
Height = 195
Index = 1
Left = 2370
TabIndex = 25
Top = 1860
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblField
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "lblField"
ForeColor = &H80000008&
Height = 255
Index = 1
Left = 3990
TabIndex = 24
Top = 1020
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblFieldCaption
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "标题"
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 1290
TabIndex = 12
Top = 1110
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblHead
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Height = 300
Index = 3
Left = 4020
TabIndex = 23
Top = 0
Visible = 0 'False
Width = 1275
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "执行周期(C)"
Height = 180
Index = 2
Left = 2910
TabIndex = 22
Tag = "0"
Top = 60
Width = 990
End
Begin VB.Label lblHead
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 1
Left = 1110
TabIndex = 21
Top = 0
Visible = 0 'False
Width = 1695
End
Begin VB.Label lblFU
BackColor = &H80000009&
Caption = "张"
Height = 165
Left = 7500
TabIndex = 19
Top = 900
Width = 165
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 5
Left = 6630
TabIndex = 18
Tag = "2"
Top = 0
Visible = 0 'False
Width = 1530
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 = 5610
TabIndex = 17
Tag = "2"
Top = 60
Width = 990
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "转帐名称(N)"
Height = 180
Index = 0
Left = 60
TabIndex = 16
Tag = "0"
Top = 45
Width = 990
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 = 3300
TabIndex = 14
Top = 480
Width = 2160
End
Begin VB.Label lblField
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "lblField"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 150
TabIndex = 13
Top = 1110
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label LblBack
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 5400
Left = 0
TabIndex = 15
Top = 330
Width = 7995
End
End
Attribute VB_Name = "frmTransVoucher"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'-----------------------------------------
'通用转帐凭证
'作者：王兴元
'时间：1998年7月
'-----------------------------------------
Option Explicit
Const ReceiptTypeID = 17 '记帐凭证ID(主要用于设置表头的凭证模版)
'Const IntSpace = 10 '粘贴控件之间距
'Const SPACETWIPS = 15 '单据头控件之列距
'Const SpaceTwRow = 15 '单据头控件之行距
Const lngDefaultWidth = 8600 'Min 8600
#If conWan = 1 Then
Const lngDefaultHeight = 5050 'Min 5600
#Else
Const lngDefaultHeight = 5600 'Min 5600
#End If
Const intButtonWidth = 255 '下拉按纽宽度
Private IntSpace As Integer '= 10 '粘贴控件之间距
Private SPACETWIPS As Integer '= 30 '单据头控件之列距
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -