📄 frmtakestock.frm
字号:
Top = 5520
Width = 645
BackColor = -2147483643
VariousPropertyBits= 276824091
Caption = "备注(M)"
Size = "1138;318"
BorderColor = -2147483640
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label lblMemo
Height = 180
Index = 1
Left = 1440
TabIndex = 32
Top = 5520
Width = 4845
BackColor = -2147483643
Size = "8546;317"
BorderColor = -2147483640
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label lblMemo
Height = 180
Index = 2
Left = 6480
TabIndex = 31
Top = 5520
Width = 405
BackColor = -2147483643
Caption = "制单"
Size = "706;317"
BorderColor = -2147483640
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label lblMemo
Height = 210
Index = 3
Left = 7200
TabIndex = 30
Top = 5520
Width = 585
ForeColor = 255
BackColor = -2147483643
Size = "1032;370"
BorderColor = 255
BorderStyle = 1
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label lblNote
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "说明"
ForeColor = &H80000008&
Height = 360
Index = 0
Left = 300
TabIndex = 27
Top = 4980
Visible = 0 'False
Width = 180
WordWrap = -1 'True
End
Begin VB.Label lblNote
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 360
Index = 1
Left = 690
TabIndex = 26
Top = 4980
Visible = 0 'False
Width = 825
WordWrap = -1 'True
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 = 25
Top = 630
Visible = 0 'False
Width = 1800
End
Begin VB.Label lblTotal
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 300
TabIndex = 20
Top = 4680
Visible = 0 'False
Width = 555
End
Begin VB.Label lblFieldCaption
Alignment = 2 'Center
BackColor = &H80000002&
Caption = "标题"
ForeColor = &H80000009&
Height = 195
Index = 0
Left = 210
TabIndex = 15
Top = 1440
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblField
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 270
Index = 0
Left = 210
TabIndex = 16
Top = 1650
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label LblBack
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 5370
Left = 120
TabIndex = 17
Top = 510
Visible = 0 'False
Width = 7995
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 1
Left = 750
TabIndex = 0
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
Tag = "1"
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 = 18
Tag = "0"
Top = 135
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 3
Left = 4320
TabIndex = 1
Tag = "1"
Top = 90
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 = 5910
TabIndex = 19
Top = 120
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 5
Left = 6510
TabIndex = 2
Tag = "2"
Top = 120
Visible = 0 'False
Width = 1590
End
End
Attribute VB_Name = "FrmTakeStock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 单据（商品盘点单）窗体
' 作者：苏梦
' 日期：1998.07.25
'
' 方法：
' ShowANewBill 新增单据
' SHowAOldBill 修改单据
' 函数
' SaveBill 保存当前单据
' getID 取当前单据的ID号
' ReponseMessage 消息处理
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim ReceiptTypeID As Integer
Dim clsBill As TakeStock
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 xlngColNo(18) As Long
Dim strSql As String
Public strSQLSelect As String
Public lngTempLateNewID As Long
Public blnEdit As Boolean '可填制权限
Dim blnView As Boolean '可查询权限
Dim blnIsPost As Boolean '是否已处理
Dim clsList As clsStockTaking
Public strNewReceiptNO As String
Public NewReceiptDate As Date
Public blnIsLoading As Boolean '正在引入数据标志
Private blnFirstIn As Boolean
Private blnNoClick As Boolean
Private Sub cmbInput_Click()
If Not blnEdit Then Exit Sub
Static blnFirst As Boolean
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)
' If Not blnFirst Then
' If clsBill.blnRefresh And grdCol.Visible And lblHead(2) <> "" Then clsBill.DrawTotalBox True
' blnFirst = False
' End If
lblHead(2).Tag = lngID
lblHead(3).Caption = cmbInput.Text
lblHead(4).Tag = lngT
lblHead(5).Caption = strT
End If
End Sub
Private Sub Form_Deactivate()
frmMain.SetEditUnEnabled
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
clsBill.Form_KeyDown KeyCode, Shift
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
clsBill.Form_KeyUp KeyCode, Shift
If KeyCode = 93 Then
If Not Me.ActiveControl Is GrdCol And clsBill.bytRegion <> FGrid Then
MakeListEditMenu
clsBill.MenuVisible = True
PopupMenu frmMain.mnuListEdit
clsBill.MenuVisible = False
Else
MakeListActivityMenu
clsBill.MenuVisible = True
PopupMenu frmMain.mnuListActivity
clsBill.MenuVisible = False
End If
ElseIf KeyCode = vbKeyPageUp Then
If Shift = vbCtrlMask Then
cmdButton_Click 1
End If
ElseIf KeyCode = vbKeyPageDown Then
If Shift = vbCtrlMask Then
cmdButton_Click 0
End If
ElseIf KeyCode = 13 Then
If Shift = vbCtrlMask Then
cmdButton_Click 4
End If
End If
End Sub
Private Sub Form_Load()
SetDtm
' Me.Hide
' Me.Left = -30000
blnFirstIn = True
blnNoClick = False
If blnIsLoading = False Then
MsgForm.PleaseWait
End If
' -------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -