📄 frmadjust.frm
字号:
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 = "Print"
Object.ToolTipText = "打印单据"
EndProperty
BeginProperty Button8 {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 Button9 {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 VB.Label lblmemo
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 240
Index = 1
Left = 1170
TabIndex = 32
Top = 5490
Visible = 0 'False
Width = 4950
End
Begin VB.Label lblNote
BackColor = &H00ECFFFF&
Height = 240
Index = 1
Left = 870
TabIndex = 22
Top = 5100
Visible = 0 'False
Width = 825
WordWrap = -1 'True
End
Begin VB.Label lblTotal
Alignment = 2 'Center
BackColor = &H00ECFFFF&
Caption = "数量"
Height = 195
Index = 0
Left = 360
TabIndex = 17
Top = 4830
Visible = 0 'False
Width = 555
End
Begin VB.Label lblNote
AutoSize = -1 'True
BackColor = &H00ECFFFF&
Caption = "说明"
Height = 360
Index = 0
Left = 390
TabIndex = 20
Top = 5070
Visible = 0 'False
Width = 240
WordWrap = -1 'True
End
Begin VB.Label lblmemo
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "备注(M)"
ForeColor = &H80000008&
Height = 180
Index = 0
Left = 375
TabIndex = 16
Top = 5490
Visible = 0 'False
Width = 630
End
Begin VB.Label lblFieldCaption
Alignment = 2 'Center
BackColor = &H80000002&
Caption = "标题"
ForeColor = &H8000000E&
Height = 195
Index = 0
Left = 210
TabIndex = 6
Top = 990
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblField
Appearance = 0 'Flat
BackColor = &H00ECFFFF&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 210
TabIndex = 7
Top = 1200
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblmemo
BackColor = &H00ECFFFF&
Caption = "制单"
Height = 195
Index = 2
Left = 6570
TabIndex = 19
Top = 5490
Visible = 0 'False
Width = 465
End
Begin VB.Label lblmemo
BackColor = &H00ECFFFF&
Height = 195
Index = 3
Left = 7050
TabIndex = 18
Top = 5490
Visible = 0 'False
Width = 885
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 = 360
TabIndex = 11
Top = 510
Width = 1080
End
Begin VB.Label LblBack
Appearance = 0 'Flat
BackColor = &H00ECFFFF&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 5400
Left = 0
TabIndex = 12
Top = 408
Visible = 0 'False
Width = 7992
End
Begin VB.Label lblHead
BackColor = &H00ECFFFF&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 1
Left = 750
TabIndex = 10
Tag = "0"
Top = 90
Visible = 0 'False
Width = 2580
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "类型(Y)"
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 3660
TabIndex = 21
Top = 120
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "货位(C)"
Height = 180
Index = 0
Left = 60
TabIndex = 13
Tag = "0"
Top = 135
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
BackColor = &H00ECFFFF&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 3
Left = 4290
TabIndex = 9
Tag = "1"
Top = 120
Visible = 0 'False
Width = 1230
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 = 6060
TabIndex = 14
Tag = "2"
Top = 120
Width = 630
End
Begin VB.Label lblHead
BackColor = &H00ECFFFF&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 5
Left = 6660
TabIndex = 8
Tag = "2"
Top = 120
Width = 1530
End
End
Attribute VB_Name = "frmAdjust"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'诸涛
'98.7.4
' 商品调拨单
' 方法：
' ShowANewBill 新增单据
' SHowAOldBill 修改单据
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim ReceiptTypeID As Integer
Dim clsBill As itemAdjust '
Dim clsLst As clsListMethod '确定凭证是否存在等的类模块
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 blnIsCanEventChk_Click As Boolean '在进行LOADBILLOTHER时决定是否激活其CLICK事件
Public m_lngInActivityID As Long, m_lngOutActivityID As Long
Dim blnEdit As Boolean '填制权限
Dim blnView As Boolean '查询权限
Dim arrDeleteActivityDetailID As String
Dim blnNotRaiseEvents As Boolean '不响应按键事件标志
Dim blnIsLoading As Boolean '正在引入数据标志
Private blnFirstIn As Boolean '首次进入窗体（从SHOWANEWTYPEBILL和showaoldbill)标志
Private blnPrinted As Boolean '已打印标志
Private blnReceiptNoError As Boolean '新增单据时编号重复错误标志
Private Sub cmbInput_Click()
clsBill.SaveInput2Form
If clsBill.bytRegion = FHead Then
Dim lngID As Long
Dim lngT As Long
Dim strT As String
Dim strC As String
lngID = BillPublic.ReceiptNameToTypeID(cmbInput.Text)
lngT = FirstId(xTemplatE, lngID)
Call BillPublic.IdToCodeAndName(xTemplatE, lngT, strC, strT)
lblHead(4).Tag = lngT
lblHead(5).Caption = strT
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
clsBill.Form_key_Down KeyCode
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If blnNotRaiseEvents Then Exit Sub
Dim CtrDown As Integer
If KeyCode = 93 Then
If clsBill.bytRegion = FGrid Or clsBill.bytRegion = FGrid1 Or clsBill.bytRegion = FPicture Then
GrdCol_Mouseup vbRightButton, 0, 0, 0
Else
Form_MouseUp vbRightButton, 0, 0, 0
End If
Exit Sub
End If
CtrDown = Shift And vbCtrlMask
If CtrDown > 0 Then
Select Case KeyCode
Case 33 'Ctr+PageUp
cmdButton_Click 1
Case 34 'Ctl-PageDown
cmdButton_Click 0
Case 13 'ctr_Enter
cmdButton_Click 4
End Select
' ElseIf KeyCode = 27 Then 'ESCAPE
' cmdButton_Click 5
Else
clsBill.Form_KeyDown KeyCode, Shift
End If
End Sub
Private Sub Form_Load()
' -------------------------------
ReceiptTypeID = 8 '商品调拨单ID
' -------------------------------
Set clsBill = New itemAdjust
Set clsLst = New clsListMethod
clsBill.ReceiptTypeID = ReceiptTypeID
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -