【VB开源代码栏目提醒】:网学会员鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“frmDeliver.frm”一文,供大家参考学习
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmDelivery
BorderStyle = 1 'Fixed Single
Caption = "商品入库"
ClientHeight = 6450
ClientLeft = 45
ClientTop = 330
ClientWidth = 8175
Icon = "frmDeliver.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6450
ScaleWidth = 8175
StartUpPosition = 3 'Windows Default
Begin VB.PictureBox Picture6
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 6495
Left = 0
ScaleHeight = 6495
ScaleWidth = 8175
TabIndex = 5
Top = 0
Width = 8175
Begin VB.Frame Frame5
BackColor = &H80000005&
Enabled = 0 'False
Height = 1695
Left = 120
TabIndex = 19
Top = 840
Width = 2535
Begin VB.TextBox txtQtyS
Height = 300
Left = 1200
Locked = -1 'True
TabIndex = 21
TabStop = 0 'False
Text = "0"
Top = 1320
Width = 1215
End
Begin VB.TextBox txtCountS
Height = 300
Left = 1200
Locked = -1 'True
TabIndex = 20
TabStop = 0 'False
Text = "0"
Top = 960
Width = 1215
End
Begin VB.TextBox txtRef
Height = 300
Left = 1200
TabIndex = 1
Top = 600
Width = 1215
End
Begin MSComCtl2.DTPicker DDate
Height = 315
Left = 1200
TabIndex = 22
Top = 240
Width = 1215
_ExtentX = 2143
_ExtentY = 556
_Version = 393216
Format = 20185089
CurrentDate = 37368
End
Begin VB.Label Label25
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "总数量 :"
Height = 255
Left = 120
TabIndex = 26
Top = 1320
Width = 975
End
Begin VB.Label Label26
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "入库笔数:"
Height = 255
Left = 0
TabIndex = 25
Top = 960
Width = 1095
End
Begin VB.Label Label29
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "入库单号 :"
Height = 255
Left = 240
TabIndex = 24
Top = 600
Width = 855
End
Begin VB.Label Label30
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "入库日期 :"
Height = 255
Left = 240
TabIndex = 23
Top = 240
Width = 855
End
End
Begin
VB.PictureBox Picture7
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 975
Left = 0
ScaleHeight = 975
ScaleWidth = 9015
TabIndex = 16
Top = 5640
Width = 9015
Begin VB.CommandButton cmdClear
Caption = "清除"
Height = 615
Left = 4680
TabIndex = 35
Top = 120
Width = 825
End
Begin VB.CommandButton cmdExit
Caption = "退出"
Height = 615
Left = 7200
Picture = "frmDeliver.frx":08CA
Style = 1 'Graphical
TabIndex = 30
Top = 120
Width = 825
End
Begin VB.CommandButton cmdCancel
Caption = "&取消"
Height = 615
Left = 3480
Picture = "frmDeliver.frx":09BC
Style = 1 'Graphical
TabIndex = 29
Top = 120
Width = 825
End
Begin VB.CommandButton cmdSave
Caption = "&保存"
Height = 615
Left = 2640
Picture = "frmDeliver.frx":0AAE
Style = 1 'Graphical
TabIndex = 4
Top = 120
Width = 825
End
Begin VB.CommandButton cmdDel
Caption = "&删除"
Height = 615
Left = 1800
Picture = "frmDeliver.frx":0BA0
Style = 1 'Graphical
TabIndex = 28
Top = 120
Width = 825
End
Begin VB.CommandButton cmdEdit
Caption = "&编辑"
Height = 615
Left = 960
Picture = "frmDeliver.frx":0C92
Style = 1 'Graphical
TabIndex = 27
Top = 120
Width = 825
End
Begin VB.CommandButton cmdAdd
Caption = "&添加"
Height = 615
Left = 120
Picture = "frmDeliver.frx":0D84
Style = 1 'Graphical
TabIndex = 0
Top = 120
Width = 825
End
Begin VB.CommandButton cmdPost
Caption = "入库"
Height = 615
Left = 5760
TabIndex = 17
Top = 120
Width = 1095
End
End
Begin VB.Frame Frame6
Appearance = 0 'Flat
BackColor = &H80000005&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 2055
Left = 2880
TabIndex = 6
Top = 840
Width = 5175
Begin VB.TextBox txtSupplier
Height = 300
Left = 1320
Locked = -1 'True
TabIndex = 31
Top = 1320
Width = 3735
End
Begin VB.TextBox txtDescrip
Height = 300
Left = 1320
Locked = -1 'True
TabIndex = 9
Top = 600
Width = 3735