【VB开源代码栏目提醒】:网学会员为需要VB开源代码的朋友们搜集整理了frmAppendMerchandise.frm相关资料,希望对各位网友有所帮助!
VERSION 5.00
Begin VB.Form frmAppendMerchandise
BorderStyle = 1 'Fixed Single
Caption = "补货信息"
ClientHeight = 3075
ClientLeft = 45
ClientTop = 330
ClientWidth = 4050
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3075
ScaleWidth = 4050
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton cmdCancle
Caption = "放弃"
Height = 375
Left = 2378
TabIndex = 11
Top = 2520
Width = 735
End
Begin VB.CommandButton cmdApply
Caption = "申请"
Height = 375
Left = 938
TabIndex = 10
Top = 2520
Width = 735
End
Begin VB.TextBox txtAppendCount
Height = 300
Left = 1440
TabIndex = 9
Text = "Text1"
Top = 1680
Width = 2415
End
Begin VB.TextBox txtApplyCount
Height = 300
Left = 1440
TabIndex = 7
Text = "txtApplyCount"
Top = 1290
Width = 2415
End
Begin VB.ComboBox cmbMerchandise
Height = 300
Left = 1440
Style = 2 'Dropdown List
TabIndex = 6
Top = 900
Width = 2415
End
Begin VB.ComboBox cmbMerchandiseKind
Height = 300
Left = 1440
Style = 2 'Dropdown List
TabIndex = 5
Top = 510
Width = 2415
End
Begin VB.ComboBox cmbShopName
Height = 300
Left = 1440
Style = 2 'Dropdown List
TabIndex = 4
Top = 120
Width = 2415
End
Begin
VB.Label lblErrorInfo
Caption = "lblErrorInfo"
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 12
Top = 2040
Width = 3735
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "实际补货数量"
Height = 180
Left = 120
TabIndex = 8
Top = 1740
Width = 1080
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "申请补货数量"
Height = 180
Left = 120
TabIndex = 3
Top = 1350
Width = 1080
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "商 品 名 称"
Height = 180
Left = 120
TabIndex = 2
Top = 960
Width = 990
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "商 品 类 别"
Height = 180
Left = 120
TabIndex = 1
Top = 570
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "申请补货店名"
Height = 180
Left = 120
TabIndex = 0
Top = 180
Width = 1080
End
End
Attribute VB_Name = "frmAppendMerchandise"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_OpModiFlag As Boolean '修改操作标志
Private m_Apply As clsAppendMerchandise '当前商品
Private m_CurrentUser As clsOpuser '当前操作用户
'***********************************************************************
'* 过程名:IniComboxShop
'* 功 能:初始化连锁店下拉框
'* 参 数:
'* 版 本:2006.01.04 颜志军 初版
'***********************************************************************
Private Sub IniComboxShop()
'变量定义
Dim shopList As clsMembershopSet '连锁店集合
Dim singleShop As clsMembershop '连锁店
Dim index As Integer '索引
Dim curIndex As Integer '当前显示项
'生成类别集合
Set shopList = New clsMembershopSet
'初始化COMBOX列表
index = 0
curIndex = 0
For Each singleShop In shopList
If singleShop.shopId > 1 Then
cmbShopName.AddItem singleShop.shopName, index
cmbShopName.ItemData(index) = singleShop.shopId
If m_CurrentUser.shopId = singleShop.shopId Then
curIndex = index
End If
index = index + 1
End If
Next
'初始化显示项
If cmbShopName.ListCount > 0 Then
cmbShopName.ListIndex = curIndex
End If
End Sub
'***********************************************************************
'* 过程名:IniComboxKind
'* 功 能:初始化商品类别下拉框
'* 参 数:
'* 版 本:2006.01.04 颜志军 初版
'***********************************************************************
Private Sub IniComboxKind()
'变量定义
Dim kindList As clsMerchandisekindSet '商品类别集合
Dim singleKind As clsMerchandisekind '商品类别
Dim index As Integer '索引
'生成类别集合
Set kindList = New clsMerchandisekindSet
'初始化COMBOX
列表 index = 0
For Each singleKind In kindList
cmbMerchandiseKind.AddItem singleKind.kindName, index
cmbMerchandiseKind.ItemData(index) = singleKind.kindId
index = index + 1
Next
'初始化显示项
If cmbMerchandiseKind.ListCount > 0 Then
cmbMerchandiseKind.ListIndex = 0
End If
End Sub
'***********************************************************************
'* 过程名:IniComboxMerchandise
'* 功 能:初始化商品名称下拉框
'* 参 数:
'* 版 本:2006.01.04 颜志军 初版
'***********************************************************************
Private Sub IniComboxMerchandise()
'变量定义
Dim merchandiseList As clsMerchandiseinfoSet '商品集合
Dim merchandise As clsMerchandiseinfo '商品
Dim merchandiseKind As Integer '商品类别
Dim index As Integer '索引
'生成商品集合
Set merchandiseList = New clsMerchandiseinfoSet
If cmbMerchandiseKind.ListIndex