📄 frmpurchaseorder.frm
字号:
TabStop = 0 'False
Top = 750
Visible = 0 'False
Width = 825
_ExtentX = 1455
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
RMenu = "1"
BorderStyle = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar tbrCMD
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 43
Top = 0
Visible = 0 'False
Width = 8880
_ExtentX = 15663
_ExtentY = 979
ButtonWidth = 609
ButtonHeight = 926
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
Style = 1
_Version = 393216
BorderStyle = 1
End
Begin MSForms.Label lblMemo
Height = 180
Index = 0
Left = 240
TabIndex = 39
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 = 1320
TabIndex = 38
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 = 37
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 = 36
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 = 210
TabIndex = 33
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 = 600
TabIndex = 32
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 = 240
TabIndex = 31
Top = 570
Visible = 0 'False
Width = 1440
End
Begin VB.Label lblTitle
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Caption = "收货"
ForeColor = &H80000008&
Height = 210
Index = 2
Left = 3180
TabIndex = 29
Top = 1680
Width = 390
End
Begin VB.Label lblTitle
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 210
Index = 3
Left = 3960
TabIndex = 28
Top = 1680
Width = 1410
End
Begin VB.Label lblTitle
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 210
Index = 1
Left = 3960
TabIndex = 27
Top = 1380
Width = 1410
End
Begin VB.Label lblTitle
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Caption = "发货"
ForeColor = &H80000008&
Height = 210
Index = 0
Left = 3180
TabIndex = 26
Top = 1380
Width = 390
End
Begin VB.Label lblTotal
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "合计"
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 360
TabIndex = 22
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 = 210
TabIndex = 17
Top = 1470
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 = 210
TabIndex = 18
Top = 1680
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 = 19
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
Width = 2580
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "类型(Y)"
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 3660
TabIndex = 23
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 = 20
Tag = "0"
Top = 135
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 = 5670
TabIndex = 21
Top = 120
Width = 630
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 5
Left = 6390
TabIndex = 2
Tag = "2"
Top = 120
Width = 1590
End
End
Attribute VB_Name = "FrmPurchaseOrder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 单据（商品采购订单）窗体
' 作者：苏梦
' 日期：1998.07.15
'
' 方法：
' ShowANewBill 新增单据
' SHowAOldBill 修改单据
' GetID 取当前单据的ID号
' ResPonseMessage 响应消息
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim ReceiptTypeID As Integer
Dim clsBill As clsOrder
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 blnRefUsed As Boolean 'RefInput控件用于“地址”框
Dim strSql As String
Public blnEdit As Boolean '可填制权限
Dim blnView As Boolean '可查询权限
Public strNewReceiptNO As String
Public NewReceiptDate As Date
Public blnIsLoading As Boolean '正在引入数据标志
Private blnFirstIn As Boolean
Private blnNoClick As Boolean
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -