📄 frmstartperiod.frm
字号:
End
Begin MSForms.Label LblMemo
Height = 210
Index = 5
Left = 6780
TabIndex = 29
Top = 5610
Visible = 0 'False
Width = 585
ForeColor = 255
BackColor = 16777152
VariousPropertyBits= 268435483
Caption = "蔡奇科"
Size = "1032;370"
BorderColor = 255
BorderStyle = 1
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label LblMemo
Height = 180
Index = 4
Left = 6330
TabIndex = 30
Top = 5610
Visible = 0 'False
Width = 375
ForeColor = 0
VariousPropertyBits= 268435483
Caption = "制单"
Size = "661;317"
BorderColor = 255
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label LblMemo
Height = 225
Index = 3
Left = 5160
TabIndex = 34
Top = 5610
Visible = 0 'False
Width = 615
ForeColor = 0
VariousPropertyBits= 268435483
Size = "1085;397"
BorderColor = 255
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label LblMemo
Height = 225
Index = 2
Left = 4260
TabIndex = 33
Top = 5610
Visible = 0 'False
Width = 615
ForeColor = 0
VariousPropertyBits= 268435483
Size = "1085;397"
BorderColor = 255
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label LblMemo
Height = 225
Index = 1
Left = 1050
TabIndex = 32
Top = 5610
Visible = 0 'False
Width = 2925
ForeColor = 0
VariousPropertyBits= 27
Size = "5159;397"
BorderColor = 255
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label LblMemo
Height = 180
Index = 0
Left = 300
TabIndex = 31
Top = 5610
Visible = 0 'False
Width = 645
ForeColor = 0
VariousPropertyBits= 268435483
Caption = "备注(M)"
Size = "1138;317"
BorderColor = 255
Accelerator = 77
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
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 = 21
Top = 540
Visible = 0 'False
Width = 1440
End
Begin VB.Label lblField
Appearance = 0 'Flat
BackColor = &H00ECFFFF&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 150
TabIndex = 0
Top = 1230
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblFieldCaption
Alignment = 2 'Center
BackColor = &H00808000&
Caption = "标题"
ForeColor = &H80000009&
Height = 195
Index = 0
Left = 150
TabIndex = 20
Top = 1020
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblNote
BackColor = &H00FFFFE1&
Caption = "说明"
Height = 420
Index = 0
Left = 330
TabIndex = 19
Top = 5100
Visible = 0 'False
Width = 240
End
Begin VB.Label lblTotal
Alignment = 2 'Center
BackColor = &H00FFFFE1&
Caption = "合计"
Height = 195
Index = 0
Left = 240
TabIndex = 18
Top = 4860
Visible = 0 'False
Width = 555
End
Begin VB.Label lblNote
BackColor = &H00FFFFE1&
Height = 480
Index = 1
Left = 810
TabIndex = 17
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 = 6300
TabIndex = 1
Tag = "2"
Top = 120
Visible = 0 'False
Width = 1710
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 = 5670
TabIndex = 25
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 = 3
Tag = "1"
Top = 120
Visible = 0 'False
Width = 1170
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位(C)"
Height = 180
Index = 0
Left = 0
TabIndex = 24
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 = 23
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 = 2
Tag = "0"
Top = 120
Visible = 0 'False
Width = 1950
End
Begin VB.Label LblBack
Appearance = 0 'Flat
BackColor = &H00FFFFE1&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 5400
Left = 60
TabIndex = 22
Top = 480
Visible = 0 'False
Width = 7995
End
End
Attribute VB_Name = "frmStartPeriod"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'______________________________________
'作者：蔡奇科
'方法：
' ShowAOldBill 显示一张旧单据。
'
'______________________________________
Option Explicit
Dim ReceiptTypeID As Integer
Dim clsBill As clsStartPeriod 'itemclass
Dim clsLst As clsStartDel '删除期初单类模块
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 blnEdit As Boolean '可填制权限
Dim blnView As Boolean '可查询权限
Dim intCurDec As Integer
Dim intRateDec As Integer
Dim blnNotRaiseClick As Boolean ' 不触发CHECKBOX 的CLICK事件标志
Dim blnNotRaiseEvents As Boolean '不响应按键事件标志
Public blnIsLoading As Boolean '正在引入数据标志
Private blnFirstIn As Boolean '首次进入窗体（从SHOWANEWTYPEBILL和showaoldbill)标志
Private intBillState As Integer
Private blnPrinted As Boolean '已打印标志
'单据状态标志0---可修改，1---已结算，2----已开票，3--已经入库，4--已开票，5-- 被分摊加工费用
'6--有批次管理的商品已经出库
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
Debug.Print KeyCode
' ElseIf KeyCode = 27 Then 'ESCAPE
' cmdButton_Click 5
Else
clsBill.Form_KeyDown KeyCode, Shift
End If
End Sub
Private Sub Form_Load()
ReceiptTypeID = 18 '商品期初ID
Me.HelpContextID = 34001
Set clsBill = New clsStartPeriod 'itemclass 'BillStart
Set clsLst = New clsStartDel
clsLst.SethWnd Me.hWnd
clsBill.ReceiptTypeID = ReceiptTypeID
Set clsBill.Form = Me
blnNotResize = True
If gclsSys Is Nothing Then Exit Sub
Set mclsMainControl = gclsSys.MainControls.Add(Me)
blnNotResize = False
' FirstReceiptTypeIDAndName ReceiptTypeID, lgID, srName
' lblHead(2).Tag = lgID
' lblHead(3).Caption = srName
'--------WAIT WINDOWS---------
' Me.Hide
' Me.Left = -30000
If blnIsLoading = False Then MsgForm.PleaseWait
'--------------------------------------
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If blnNotRaiseEvents Then Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -