📄 frmdlcommisionmachining.frm
字号:
VERSION 5.00
Object = "{9C4B12C2-D5CE-11D1-9ABC-444553540000}#1.0#0"; "GACEDIT.DLL"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Begin VB.Form frmdlCommisionMachining
BorderStyle = 3 'Fixed Dialog
Caption = "委托加工入库结算"
ClientHeight = 5160
ClientLeft = 1245
ClientTop = 1335
ClientWidth = 8415
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5160
ScaleWidth = 8415
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSRDC.MSRDC Datadl
Height = 330
Left = 5190
Top = 4590
Visible = 0 'False
Width = 1965
_ExtentX = 3466
_ExtentY = 582
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin GATLCTRLLibCtl.CalEdit txtEdit
Height = 255
Left = 7365
OleObjectBlob = "frmdlCommisionMachining.frx":0000
TabIndex = 16
Top = 150
Width = 750
End
Begin VB.CommandButton Cmdall
Caption = "栏目设置"
Height = 350
Index = 3
Left = 7125
TabIndex = 10
Top = 1785
Width = 1215
End
Begin VB.CommandButton Cmdall
Caption = "筛选"
Height = 350
Index = 2
Left = 7125
TabIndex = 9
Top = 1410
Width = 1215
End
Begin VB.CommandButton Cmdall
Height = 350
Index = 1
Left = 7125
Style = 1 'Graphical
TabIndex = 8
Top = 930
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton Cmdall
Height = 350
Index = 7
Left = 7125
Style = 1 'Graphical
TabIndex = 7
Top = 570
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton Cmdall
Caption = "全部取消"
Height = 350
Index = 6
Left = 7125
Style = 1 'Graphical
TabIndex = 2
Top = 3000
Width = 1215
End
Begin VB.CommandButton Cmdall
Enabled = 0 'False
Height = 350
Index = 4
Left = 7125
Style = 1 'Graphical
TabIndex = 0
Top = 2160
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton Cmdall
Caption = "全部结算"
Height = 350
Index = 5
Left = 7125
TabIndex = 1
Top = 2640
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid msgGrid
Bindings = "frmdlCommisionMachining.frx":0081
Height = 3735
Left = 105
TabIndex = 15
Top = 570
Width = 6615
_ExtentX = 11668
_ExtentY = 6588
_Version = 393216
Rows = 30
Cols = 35
RowHeightMin = 250
BackColor = 16777215
End
Begin MSForms.Label title
Height = 255
Index = 5
Left = 4515
TabIndex = 14
Top = 330
Width = 2880
Caption = "入库金额："
Size = "5080;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label title
Height = 255
Index = 3
Left = 105
TabIndex = 13
Top = 360
Width = 555
Caption = "商品："
Size = "967;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label title
Height = 255
Index = 4
Left = 705
TabIndex = 12
Top = 360
Width = 3615
Size = "6376;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label title
Height = 255
Index = 2
Left = 4545
TabIndex = 11
Top = 120
Width = 2850
Caption = "入库数量："
Size = "5027;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin VB.Label hLb
Alignment = 1 'Right Justify
BackColor = &H80000014&
Height = 255
Index = 0
Left = 480
TabIndex = 6
Top = 4410
Width = 855
End
Begin VB.Label hLb
Alignment = 1 'Right Justify
BackColor = &H80000014&
Height = 255
Index = 1
Left = 1680
TabIndex = 5
Top = 4410
Width = 855
End
Begin MSForms.Label title
Height = 255
Index = 1
Left = 645
TabIndex = 4
Top = 120
Width = 3390
Size = "5976;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label title
Height = 255
Index = 0
Left = 105
TabIndex = 3
Top = 120
Width = 615
Caption = "单位："
Size = "1085;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin VB.Menu menuPopup
Caption = ""
Visible = 0 'False
Begin VB.Menu mnuCheckAll
Caption = "完全结算"
End
Begin VB.Menu menbar1
Caption = "-"
End
Begin VB.Menu mnuUndoCheck
Caption = "完全取消"
End
End
End
Attribute VB_Name = "frmdlCommisionMachining"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'标题：委托加工入库结算
'日期：1998.07.20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Const mintViewId = 84 '视图ID号
Private Const mintOffsetCol = 11 '列偏移行数
Private Const mintFormHeight = 4018 '当前窗体的最小高度
Private Const mintFormWidth = 7368 '当前窗体的最小宽度
Private Const mintLastChkAmtCol = 2
Private Const mintLastChkQtyCol = 3
Private Const mintLastUnChkAmtCol = 4
Private Const mintLastUnChkQtyCol = 5
Private Const mintLastTotalQtyCol = 7
Private Const mintLastTotalAmtCol = 8
Private Const mintFactorCol = 9
Private Const mintItemIDCol = 10
Private mintUnChkQtyCol As Integer
Private mintUnChkAmtCol As Integer
Private mintChkAmtCol As Integer
Private mintChkQtyCol As Integer
Private mintTotalQtyCol As Integer
Private mintTotalAmtCol As Integer
Private WithEvents mclsGrid As Grid '声明类模块
Attribute mclsGrid.VB_VarHelpID = -1
Private WithEvents mclsMainControl As MainControl 'MainControl类
Attribute mclsMainControl.VB_VarHelpID = -1
Private mlngItemID As Long
Private mlngCustomerID As Long '单位ID
Private mlngDetailID As Long 'DetailID为单据业务ID
Private mstrDate As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -