📄 frmcostprice.frm
字号:
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 = 1320
TabIndex = 31
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 = 6360
TabIndex = 30
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 = 7080
TabIndex = 29
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 = 240
TabIndex = 26
Top = 5070
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 = 630
TabIndex = 25
Top = 5070
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 = 210
TabIndex = 24
Top = 570
Visible = 0 'False
Width = 1800
End
Begin VB.Label lblTotal
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "合计"
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 360
TabIndex = 19
Top = 4830
Visible = 0 'False
Width = 555
End
Begin VB.Label lblFieldCaption
Alignment = 2 'Center
BackColor = &H80000002&
Caption = "标题"
ForeColor = &H80000009&
Height = 195
Index = 0
Left = 180
TabIndex = 14
Top = 1590
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 = 255
Index = 0
Left = 180
TabIndex = 15
Top = 1800
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 = 5400
Left = 0
TabIndex = 16
Top = 480
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 = 20
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 = 17
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 = 4290
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 = 5700
TabIndex = 18
Top = 120
Width = 630
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 5
Left = 6360
TabIndex = 2
Tag = "2"
Top = 120
Width = 1590
End
End
Attribute VB_Name = "FrmCostPrice"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 单据（入库成本单）窗体
' 作者：苏梦
' 日期：1998.07.3
'
' 方法：
' ShowANewBill 新增单据
' SHowAOldBill 修改单据
' GetID 取当前单据的ID号
' ResPonseMessage 响应消息
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim ReceiptTypeID As Integer
Dim clsBill As CostPrice
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 strSql As String
Dim blnEdit As Boolean '可填制权限
Dim blnView As Boolean '可查询权限
Public strNewReceiptNO As String
Public NewReceiptDate As Date
Dim blnSelectSucceed As Boolean
Public blnIsLoading As Boolean '正在引入数据标志
Private blnFirstIn As Boolean
Private blnNoClick As Boolean
Public Sub SET_SelectedReceipts(lngSelectedReceipts() As Long)
'接收“选择单据”对话框返回的单据明细号数组
Dim i As Integer
grdCol.TextMatrix(grdCol.Row, 21) = ""
For i = 0 To UBound(lngSelectedReceipts) - LBound(lngSelectedReceipts)
If grdCol.TextMatrix(grdCol.Row, 21) = "" Then
grdCol.TextMatrix(grdCol.Row, 21) = CStr(lngSelectedReceipts(i))
Else
grdCol.TextMatrix(grdCol.Row, 21) = grdCol.TextMatrix(grdCol.Row, 21) & "," & CStr(lngSelectedReceipts(i))
End If
Next
clsBill.blnIsChanged = True
blnSelectSucceed = True
End Sub
Private Sub cmbInput_Click()
If Not blnEdit Then Exit Sub
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
' Debug.Print "CLICK"
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
' cmdButton(1).ToolTipText = "快捷键：Ctrl+PageUp"
' cmdButton(0).ToolTipText = "快捷键：Ctrl+PageDown"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -