📄 frmtakestockwizardselect.frm
字号:
VERSION 5.00
Begin VB.Form frmTakeStockWizardSelect
BorderStyle = 1 'Fixed Single
Caption = "货位选择"
ClientHeight = 3915
ClientLeft = 45
ClientTop = 330
ClientWidth = 6270
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3915
ScaleWidth = 6270
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Height = 375
Left = 4920
Style = 1 'Graphical
TabIndex = 9
Top = 780
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Default = -1 'True
Height = 375
Left = 4920
Style = 1 'Graphical
TabIndex = 8
Top = 300
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.Frame Frame1
Caption = "选择货位"
Height = 3615
Left = 180
TabIndex = 10
Top = 120
Width = 4575
Begin VB.CommandButton cmdButton1
Caption = "<<"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 2100
TabIndex = 7
Top = 1980
UseMaskColor = -1 'True
Width = 375
End
Begin VB.CommandButton cmdButton1
Caption = "<"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 2100
TabIndex = 6
Top = 1680
UseMaskColor = -1 'True
Width = 375
End
Begin VB.CommandButton cmdButton1
Caption = ">>"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 2100
TabIndex = 5
Top = 1380
UseMaskColor = -1 'True
Width = 375
End
Begin VB.CommandButton cmdButton1
Caption = ">"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 2100
TabIndex = 4
Top = 1080
UseMaskColor = -1 'True
Width = 375
End
Begin VB.ListBox ListSelect
Height = 2760
Index = 0
Left = 240
TabIndex = 1
Top = 660
Width = 1695
End
Begin VB.ListBox ListSelect
Height = 2760
Index = 1
Left = 2640
TabIndex = 3
Top = 660
Width = 1695
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "可选项目(&S)"
Height = 180
Left = 360
TabIndex = 0
Top = 360
Width = 990
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "已选项目(&T)"
Height = 180
Left = 2820
TabIndex = 2
Top = 420
Width = 990
End
End
End
Attribute VB_Name = "frmTakeStockWizardSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''
'
'盘点表新建向导选择窗体
'
'作者：苏梦
'
'日期：1998-07-25
'
'
''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Sub cmdButton1_Click(Index As Integer)
Dim ListIndex As Long
Dim strTemp As String
Dim i As Integer
Select Case Index
Case 0
ListIndex = ListSelect(0).ListIndex
If ListSelect(0).ListCount < 1 Then Exit Sub
ListSelect(1).AddItem ListSelect(0).list(ListIndex)
ListSelect(1).ItemData(ListSelect(1).NewIndex) = ListSelect(0).ItemData(ListIndex)
ListSelect(0).RemoveItem (ListIndex)
cmdButton1(0).Enabled = False
cmdButton1(3).Enabled = True
If ListIndex < ListSelect(0).ListCount Then
ListSelect(0).ListIndex = ListIndex
ElseIf ListSelect(0).ListCount <> 0 Then
ListSelect(0).ListIndex = ListIndex - 1
End If
Case 1
While ListSelect(0).ListCount <> 0
ListSelect(1).AddItem ListSelect(0).list(0)
ListSelect(1).ItemData(ListSelect(1).NewIndex) = ListSelect(0).ItemData(0)
ListSelect(0).RemoveItem 0
Wend
cmdButton1(1).Enabled = False
cmdButton1(3).Enabled = True
Case 2
ListIndex = ListSelect(1).ListIndex
If ListSelect(1).ListCount < 1 Then Exit Sub
ListSelect(0).AddItem ListSelect(1).list(ListIndex)
ListSelect(0).ItemData(ListSelect(0).NewIndex) = ListSelect(1).ItemData(ListIndex)
ListSelect(1).RemoveItem (ListIndex)
cmdButton1(2).Enabled = False
cmdButton1(1).Enabled = True
If ListIndex < ListSelect(1).ListCount Then
ListSelect(1).ListIndex = ListIndex
ElseIf ListSelect(1).ListCount <> 0 Then
ListSelect(1).ListIndex = ListIndex - 1
End If
Case 3
While ListSelect(1).ListCount <> 0
ListSelect(0).AddItem ListSelect(1).list(0)
ListSelect(0).ItemData(ListSelect(0).NewIndex) = ListSelect(1).ItemData(0)
ListSelect(1).RemoveItem 0
Wend
cmdButton1(3).Enabled = False
cmdButton1(1).Enabled = True
End Select
setcmdButton
If cmdButton1(Index).Enabled Then
cmdButton1(Index).SetFocus
End If
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim i As Long
Dim strTmp As String
strTmp = ""
If Me.Caption = "货位选择" Then
If ListSelect(1).ListCount <> 0 Then
For i = 1 To ListSelect(1).ListCount
If strTmp = "" Then
strTmp = ListSelect(1).ItemData(i - 1)
Else
strTmp = strTmp & "," & ListSelect(1).ItemData(i - 1)
End If
Next
strTmp = " (STPosition.lngPositionID IN(" & strTmp & "))"
Else
strTmp = "(STPosition.lngPositionID=0)"
End If
frmTakeStockWizard.strSqlP = strTmp
Else
If ListSelect(1).ListCount <> 0 Then
For i = 1 To ListSelect(1).ListCount
If strTmp = "" Then
strTmp = ListSelect(1).ItemData(i - 1)
Else
strTmp = strTmp & "," & ListSelect(1).ItemData(i - 1)
End If
Next
strTmp = " (Item.lngItemID IN(" & strTmp & "))"
Else
strTmp = "(Item.lngItemID=0)"
End If
frmTakeStockWizard.strSqlI = strTmp
End If
Unload Me
End Sub
Private Sub Form_Activate()
SetHelpID Me.HelpContextID
setcmdButton
End Sub
Private Sub Form_Load()
Me.Icon = Utility.GetFormResPicture(139, vbResIcon) '窗体图标
cmdOK.Picture = Utility.GetFormResPicture(1001, vbResBitmap) '确定
cmdCancel.Picture = Utility.GetFormResPicture(1002, vbResBitmap) '取消
If Me.Caption = "货位选择" Then
' SetHelpID 50103
Me.HelpContextID = 50103
Else
' SetHelpID 50102
Me.HelpContextID = 50102
End If
' setcmdButton
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Utility.UnLoadFormResPicture Me
Utility.RemoveFormResPicture 139
Utility.RemoveFormResPicture 1001
Utility.RemoveFormResPicture 1002
End Sub
Private Sub ListSelect_Click(Index As Integer)
setcmdButton
End Sub
Private Sub ListSelect_GotFocus(Index As Integer)
If ListSelect(Index).SelCount = 0 And ListSelect(Index).ListCount > 0 Then
ListSelect(Index).ListIndex = 0
End If
End Sub
Private Sub setcmdButton()
If ListSelect(0).ListIndex >= 0 Then
cmdButton1(0).Enabled = True
Else
cmdButton1(0).Enabled = False
End If
If ListSelect(1).ListIndex >= 0 Then
cmdButton1(2).Enabled = True
Else
cmdButton1(2).Enabled = False
End If
If ListSelect(0).ListCount > 0 Then
cmdButton1(1).Enabled = True
Else
cmdButton1(1).Enabled = False
End If
If ListSelect(1).ListCount > 0 Then
cmdButton1(3).Enabled = True
Else
cmdButton1(3).Enabled = False
End If
End Sub
Private Sub ListSelect_DblClick(Index As Integer)
Select Case Index
Case 0
If ListSelect(0).ListIndex >= 0 Then
ListSelect(1).AddItem ListSelect(0).list(ListSelect(0).ListIndex)
ListSelect(1).ItemData(ListSelect(1).NewIndex) = ListSelect(0).ItemData(ListSelect(0).ListIndex)
ListSelect(0).RemoveItem ListSelect(0).ListIndex
End If
Case 1
If ListSelect(1).ListIndex >= 0 Then
ListSelect(0).AddItem ListSelect(1).list(ListSelect(1).ListIndex)
ListSelect(0).ItemData(ListSelect(0).NewIndex) = ListSelect(1).ItemData(ListSelect(1).ListIndex)
ListSelect(1).RemoveItem ListSelect(1).ListIndex
End If
End Select
setcmdButton
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -