📄 frmstriprigout.frm
字号:
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar tblReceipt
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 36
Top = 0
Visible = 0 'False
Width = 9765
_ExtentX = 17224
_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 = "下一张"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "上张"
Key = "PREV"
Description = "上一张"
Object.ToolTipText = "上一张"
ImageIndex = 1
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "确定"
Key = "SAVE"
Description = "存盘退出"
Object.ToolTipText = "存盘退出"
ImageIndex = 7
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "取消"
Key = "CANCEL"
Description = "取消"
Object.ToolTipText = "取消退出"
ImageIndex = 12
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "凭证"
Key = "Voucher"
Object.ToolTipText = "关联凭证（Alt+G）"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "Print"
Object.ToolTipText = "打印单据"
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "列表"
Key = "List"
Object.ToolTipText = "单据列表"
ImageIndex = 1
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设置"
Key = "Setup"
ImageIndex = 10
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 VB.Label lblmemo
BackColor = &H00DFFFFF&
Caption = "N"
ForeColor = &H80000008&
Height = 210
Index = 3
Left = 6990
TabIndex = 29
Top = 5520
Visible = 0 'False
Width = 885
End
Begin VB.Label lblmemo
BackColor = &H00DFFFFF&
Caption = "制单"
ForeColor = &H80000008&
Height = 210
Index = 2
Left = 6510
TabIndex = 28
Top = 5520
Visible = 0 'False
Width = 465
End
Begin VB.Label lblmemo
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 1110
TabIndex = 21
Top = 5520
Visible = 0 'False
Width = 4875
End
Begin VB.Label lblmemo
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "备注(M)"
ForeColor = &H80000008&
Height = 210
Index = 0
Left = 300
TabIndex = 25
Top = 5520
Visible = 0 'False
Width = 630
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 = 30
Top = 540
Visible = 0 'False
Width = 1800
End
Begin VB.Label lblField
Appearance = 0 'Flat
BackColor = &H00DFFFFF&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 150
TabIndex = 27
Top = 1230
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblFieldCaption
Alignment = 2 'Center
BackColor = &H00808000&
Caption = "标题"
ForeColor = &H8000000E&
Height = 195
Index = 0
Left = 150
TabIndex = 26
Top = 1020
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblNote
BackColor = &H00DFFFFF&
Caption = "说明"
ForeColor = &H80000008&
Height = 360
Index = 0
Left = 330
TabIndex = 24
Top = 5100
Visible = 0 'False
Width = 300
End
Begin VB.Label lblTotal
Alignment = 2 'Center
BackColor = &H00DFFFFF&
Caption = "合计"
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 240
TabIndex = 23
Top = 4860
Visible = 0 'False
Width = 555
End
Begin VB.Label lblNote
BackColor = &H00DFFFFF&
Height = 420
Index = 1
Left = 810
TabIndex = 22
Top = 5070
Visible = 0 'False
Width = 825
WordWrap = -1 'True
End
Begin VB.Label lblHead
BackColor = &H00ECFFFF&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 5
Left = 6630
TabIndex = 4
Tag = "2"
Top = 120
Visible = 0 'False
Width = 1380
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 = 5970
TabIndex = 19
Tag = "2"
Top = 150
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
BackColor = &H00ECFFFF&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 3
Left = 4230
TabIndex = 5
Tag = "1"
Top = 120
Visible = 0 'False
Width = 1230
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位(C)"
Height = 180
Index = 0
Left = 0
TabIndex = 20
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 = 32
Tag = "1"
Top = 150
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
BackColor = &H00ECFFFF&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 1
Left = 690
TabIndex = 6
Tag = "0"
Top = 120
Visible = 0 'False
Width = 2580
End
Begin VB.Label LblBack
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 5340
Left = 90
TabIndex = 31
Top = 510
Visible = 0 'False
Width = 7995
End
End
Attribute VB_Name = "frmStripRigOut"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'______________________________________
'作者：蔡奇科
'方法：
' showaOldOldbill 显示一张旧单据。
'______________________________________
Option Explicit
'定义列
Dim ReceiptTypeID As Integer
Dim clsBill As clsStripRigOut
Dim WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Dim lgID As Long
Dim srName As String
Dim srCode As String
Dim blnNotResize As Boolean
Dim lngInActivityID As Long
Dim lngOutActivityID As Long
Dim blnIsCanEventChk_Click As Boolean
Dim blnEdit As Boolean '填制权限
Dim blnView As Boolean '查询权限
Dim blnNotRaiseEvents As Boolean '不响应按键事件标志
Dim blnIsLoading As Boolean '正在引入数据标志
Private blnFirstIn As Boolean '首次进入窗体（从SHOWANEWTYPEBILL和showaoldbill)标志
Dim blnMouse As Boolean '鼠标标志
Private blnPrinted As Boolean '已打印标志
Dim lngVoucherID As Long
Private Enum ColOrder
coItemNameAndStyle = 1
coItemUnit
coItemPosition
coItemQuantity
coProduceNum
coproduceDate
coValidDate
coValidDay
coCustomer1
coCustomer2
coCustomer3
coCustomer4
coCustomer5
coCustomer6
coItemID
coItemUnitID
coItemPositionID
coCustomer1ID
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -