📄 frmysinstock.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 = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Begin VB.Form frmYSInStock
Caption = "商品验收入库"
ClientHeight = 3975
ClientLeft = 60
ClientTop = 345
ClientWidth = 7110
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3975
ScaleWidth = 7110
StartUpPosition = 1 '所有者中心
Begin GATLCTRLLibCtl.CalEdit CalText
Height = 285
Left = 3900
OleObjectBlob = "frmYSInStock.frx":0000
TabIndex = 19
Top = 1950
Width = 1335
End
Begin MSFlexGridLib.MSFlexGrid GrdList
Bindings = "frmYSInStock.frx":0081
Height = 1365
Left = 180
TabIndex = 18
Top = 2385
Width = 5460
_ExtentX = 9631
_ExtentY = 2408
_Version = 393216
Cols = 10
FixedCols = 0
BackColorBkg = -2147483643
GridColor = -2147483643
GridColorFixed = -2147483643
End
Begin VB.CommandButton CmdButton
Caption = "全部取消(&U)"
Height = 350
Index = 3
Left = 5760
TabIndex = 17
Top = 2880
Width = 1215
End
Begin VB.CommandButton CmdButton
Caption = "全部入库(&A)"
Height = 350
Index = 2
Left = 5760
TabIndex = 16
Top = 2385
Width = 1215
End
Begin VB.CommandButton CmdButton
Cancel = -1 'True
Height = 350
Index = 1
Left = 5760
Style = 1 'Graphical
TabIndex = 15
Tag = "1002"
Top = 1035
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton CmdButton
Height = 350
Index = 0
Left = 5750
Style = 1 'Graphical
TabIndex = 14
Tag = "1001"
Top = 495
UseMaskColor = -1 'True
Width = 1215
End
Begin MSRDC.MSRDC DataGrid
Height = 375
Left = 5760
Top = 1920
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 661
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 1
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 VB.Label lblHeadCaption
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 195
Index = 4
Left = 3060
TabIndex = 13
Top = 1170
Width = 2400
End
Begin VB.Label lblHeadCaption
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 195
Index = 3
Left = 750
TabIndex = 12
Top = 1170
Width = 1410
End
Begin VB.Label lblHeadCaption
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 195
Index = 2
Left = 4530
TabIndex = 11
Top = 675
Width = 930
End
Begin VB.Label lblHeadCaption
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 195
Index = 1
Left = 2940
TabIndex = 10
Top = 675
Width = 840
End
Begin VB.Label lblHeadCaption
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 750
TabIndex = 9
Top = 675
Width = 1410
End
Begin VB.Label lblhead
BackColor = &H80000005&
Caption = "业务员"
ForeColor = &H80000008&
Height = 195
Index = 4
Left = 2300
TabIndex = 8
Top = 1170
Width = 600
End
Begin VB.Label lblhead
BackColor = &H80000005&
Caption = "部门"
ForeColor = &H80000008&
Height = 195
Index = 3
Left = 270
TabIndex = 7
Top = 1170
Width = 375
End
Begin VB.Label lblhead
BackColor = &H80000005&
Caption = "单据号"
ForeColor = &H80000008&
Height = 195
Index = 2
Left = 3885
TabIndex = 6
Top = 675
Width = 540
End
Begin VB.Label lblhead
BackColor = &H80000005&
Caption = "日 期"
ForeColor = &H80000008&
Height = 195
Index = 1
Left = 2295
TabIndex = 5
Top = 675
Width = 555
End
Begin VB.Label lblhead
BackColor = &H80000005&
Caption = "单位"
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 270
TabIndex = 4
Top = 675
Width = 375
End
Begin VB.Label lblback
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Height = 1300
Index = 0
Left = 90
TabIndex = 2
Top = 450
Width = 5500
End
Begin VB.Label lblTitle
Caption = "验收入库信息"
Height = 195
Index = 1
Left = 90
TabIndex = 1
Top = 1890
Width = 1125
End
Begin VB.Label lblTitle
Caption = "采购单信息"
Height = 200
Index = 0
Left = 90
TabIndex = 0
Top = 135
Width = 1005
End
Begin VB.Label lblback
BackColor = &H80000010&
Caption = "Label1"
Height = 1300
Index = 1
Left = 130
TabIndex = 3
Top = 495
Width = 5500
End
End
Attribute VB_Name = "frmYSInStock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
' 标题：商品验收入库
' 作者：蒲苇
' 日期：98-07-15
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Option Explicit
Private Const LOrRSpace = 50 '距窗体左右边距
Private Const IntSpace = 75 '距窗体上下边距,框与框上下左右距离
Private Const BackSpace = 50 '
Private Const PartSpace = 50 '各控件数组水平间距
Private Const HeadS = 300 '各控件数组上下间距
Private Const intFormHeight = 5000 '窗体最小高度
Private Const intFormWidth = 9000 '窗体最小宽度
Private Const intFixCols = 8 '固定列数
Private Const intViewID = 145 '视图ID
Dim lngID As Long '业务ID
Private WithEvents MesGrid As Grid
Attribute MesGrid.VB_VarHelpID = -1
Dim OldRow As Integer '原来行
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -