📄 frmselectgoods.frm
字号:
VERSION 5.00
Object = "{8D650141-6025-11D1-BC40-0000C042AEC0}#3.0#0"; "ssdw3b32.ocx"
Begin VB.Form frmSelectGoods
BorderStyle = 3 'Fixed Dialog
Caption = "商品选择"
ClientHeight = 5295
ClientLeft = 45
ClientTop = 330
ClientWidth = 11055
Icon = "frmSelectGoods.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5295
ScaleWidth = 11055
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Command4
Caption = "加倍(&B)"
Height = 285
Left = 10155
TabIndex = 16
Top = 4035
Width = 825
End
Begin VB.TextBox txtBS
Height = 270
Left = 9300
TabIndex = 15
Text = "1"
Top = 4050
Width = 780
End
Begin VB.CommandButton cmdSum
Caption = "计算(&C)"
Height = 300
Left = 10125
TabIndex = 13
Top = 3660
Width = 825
End
Begin VB.TextBox txtSum
Height = 270
Left = 9330
TabIndex = 12
Top = 3675
Width = 765
End
Begin VB.TextBox txtMSG
BackColor = &H80000018&
Height = 360
Left = 2070
Locked = -1 'True
TabIndex = 9
Top = 4320
Width = 6135
End
Begin VB.TextBox txtPrc
Height = 285
Left = 6150
TabIndex = 3
Top = 3915
Width = 1995
End
Begin VB.CommandButton Command3
Caption = "..."
Height = 315
Left = 4755
TabIndex = 7
Top = 3945
Width = 465
End
Begin VB.TextBox txtCode
Height = 300
Left = 2055
TabIndex = 0
Top = 3930
Width = 2700
End
Begin VB.CommandButton Command2
Caption = "取消"
Height = 420
Left = 4830
TabIndex = 5
Top = 4800
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "确定"
Height = 390
Left = 2760
TabIndex = 4
Top = 4830
Width = 1485
End
Begin SSDataWidgets_B.SSDBGrid grdDET
Height = 3600
Left = 5250
TabIndex = 1
Top = 15
Width = 5745
_Version = 196617
DataMode = 2
Col.Count = 0
AllowAddNew = -1 'True
MultiLine = 0 'False
RowHeight = 450
Columns(0).Width= 3200
Columns(0).DataType= 8
Columns(0).FieldLen= 4096
_ExtentX = 10134
_ExtentY = 6350
_StockProps = 79
Caption = "商品选择信息"
BackColor = -2147483624
End
Begin SSDataWidgets_B.SSDBGrid grdStock
Height = 3540
Left = 0
TabIndex = 8
Top = 15
Width = 5190
_Version = 196617
DataMode = 2
Col.Count = 0
AllowAddNew = -1 'True
MultiLine = 0 'False
RowHeight = 450
Columns(0).Width= 3200
Columns(0).DataType= 8
Columns(0).FieldLen= 4096
_ExtentX = 9155
_ExtentY = 6244
_StockProps = 79
Caption = "库存商品信息"
BackColor = -2147483624
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "件数:"
Height = 180
Left = 8655
TabIndex = 14
Top = 4110
Width = 450
End
Begin VB.Label Label4
Caption = "合计："
Height = 165
Left = 8610
TabIndex = 11
Top = 3690
Width = 570
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "商品名称"
Height = 180
Left = 1200
TabIndex = 10
Top = 4395
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "单价[&P]"
Height = 180
Left = 5445
TabIndex = 2
Top = 3975
Width = 630
End
Begin VB.Label Label1
Caption = "商品编码"
Height = 195
Left = 1125
TabIndex = 6
Top = 3990
Width = 1065
End
End
Attribute VB_Name = "frmSelectGoods"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public R As String
Public GCode As String
Public vPrc
Public SType As String
Private Sub cmdSum_Click()
Dim i, j, sum
Dim vBm As Variant
On Error Resume Next
sum = 0
' grdDET.Update
'
' vBm = grdDET.Bookmark
' grdDET.MoveFirst
'
' For j = 0 To grdDET.Rows - 1
' For i = 1 To grdDET.Columns.Count - 1
' If grdDET.Columns(i).CellValue(grdDET.GetBookmark(i)) <> "" Then sum = sum + grdDET.Columns(i).CellValue(grdDET.GetBookmark(i))
' Next i
' Next j
' txtSum.Text = sum
' grdDET.Bookmark = vBm
grdDET.Update
grdDET.MoveFirst
For j = 0 To grdDET.Rows - 1
grdDET.Row = j
For i = 1 To grdDET.Columns.Count - 1
If grdDET.Columns(i).Text <> "" Then sum = sum + grdDET.Columns(i).Text
Next i
Next j
txtSum.Text = sum
End Sub
Private Sub Command1_Click()
Dim i, j
On Error Resume Next
R = ""
For i = 0 To grdDET.Rows - 1
grdDET.Row = i
For j = 1 To grdDET.Columns.Count
If grdDET.Columns(j).Text <> "" Then
If R <> "" Then
R = R & "#" & Trim(grdDET.Columns(0).Text) & "@" & Trim(grdDET.Columns(j).Name) & "$" & Trim(grdDET.Columns(j).Text)
Else
R = Trim(grdDET.Columns(0).Text) & "@" & Trim(grdDET.Columns(j).Name) & "$" & Trim(grdDET.Columns(j).Text)
End If
End If
Next j
Next i
vPrc = txtPrc.Text
Unload Me
End Sub
Private Sub Command2_Click()
R = ""
Unload Me
End Sub
Private Sub Command3_Click()
Dim i, tt
Dim vSizeC(0 To 8) As String
On Error Resume Next
vSizeC(0) = "S"
vSizeC(1) = "M"
vSizeC(2) = "L"
vSizeC(3) = "XL"
vSizeC(4) = "2XL"
vSizeC(5) = "3XL"
vSizeC(6) = "4XL"
vSizeC(7) = "5XL"
vSizeC(8) = "6XL"
GCode = Trim(txtCode.Text)
i = 0
grdDET.Columns.RemoveAll
grdDET.Columns.Add (0)
grdDET.Columns(i).Width = 550
grdDET.Columns(i).Locked = True
grdDET.Columns(i).Name = "颜色"
grdDET.Columns(i).Caption = "颜色"
grdStock.Columns.RemoveAll
grdStock.Columns.Add (0)
grdStock.Columns(i).Width = 550
grdStock.Columns(i).Locked = True
grdStock.Columns(i).Name = "颜色"
grdStock.Columns(i).Caption = "颜色"
sSQL = "SELECT 商品名称 FROM 商品信息 where 商品编码='" & GCode & "'"
Set RsTemp = Nothing
RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
If Not RsTemp.EOF Then txtMSG.Text = RsTemp("商品名称")
sSQL = "SELECT * FROM 商品主档 WHERE 商品编码='" & GCode & "'"
Set RsTemp = Nothing
Set RsTemp = OpenRS(sSQL)
If RsTemp.EOF Then
MsgBox "该商品编码不存在!" & vbCrLf & "请检查输入是否正确或查询商品编码.", vbExclamation, "提示窗口"
Exit Sub
End If
If SType = "销售" Then
tt = GetSetting("LSDSTAR", "库存设置", "销售价格提示", "1")
ElseIf SType = "配送" Then
tt = GetSetting("LSDSTAR", "库存设置", "配送价格提示", "1")
ElseIf SType = "进货" Then
tt = GetSetting("LSDSTAR", "库存设置", "进货价格提示", "1")
End If
Select Case tt
Case "1"
txtPrc.Text = RsTemp("含税进价")
Case "2"
txtPrc.Text = RsTemp("零售价")
Case "3"
txtPrc.Text = RsTemp("批发价1")
Case "4"
txtPrc.Text = RsTemp("批发价2")
End Select
If Not RsTemp("备用标志4") Then
sSQL = "SELECT 尺寸 FROM 商品信息 where 商品编码='" & GCode & "' group by 尺寸"
Set RsTemp = Nothing
RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
i = 1
While Not RsTemp.EOF
grdDET.Columns.Add (i)
grdDET.Columns(i).Width = 550
grdDET.Columns(i).Name = Trim(RsTemp("尺寸"))
grdDET.Columns(i).Caption = Trim(RsTemp("尺寸"))
grdStock.Columns.Add (i)
grdStock.Columns(i).Width = 550
grdStock.Columns(i).DataType = 4
grdStock.Columns(i).Name = Trim(RsTemp("尺寸"))
grdStock.Columns(i).Caption = Trim(RsTemp("尺寸"))
RsTemp.MoveNext
i = i + 1
Wend
Else
For i = 0 To 8
grdDET.Columns.Add (i + 1)
grdDET.Columns(i + 1).Width = 550
grdDET.Columns(i + 1).Name = vSizeC(i)
grdDET.Columns(i + 1).Caption = vSizeC(i)
grdStock.Columns.Add (i + 1)
grdStock.Columns(i + 1).Width = 550
grdStock.Columns(i + 1).DataType = 4
grdStock.Columns(i + 1).Name = vSizeC(i)
grdStock.Columns(i + 1).Caption = vSizeC(i)
Next i
End If
sSQL = "SELECT 颜色 FROM 商品信息 where 商品编码='" & GCode & "' group by 颜色 "
Set RsTemp = Nothing
RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
While Not RsTemp.EOF
grdDET.AddItem Trim(RsTemp("颜色"))
grdStock.AddItem Trim(RsTemp("颜色"))
RsTemp.MoveNext
Wend
grdDET.AllowAddNew = False
grdStock.AllowAddNew = False
If GetSetting("LSDSTAR", "库存设置", "配送库存计算", "1") = "1" Then
sSQL = "select * from V_CalMainStore where 商品编码='" & GCode & "'"
Else
sSQL = "select * from 配送中心库存 where 商品编码='" & GCode & "'"
End If
'sSQL = "select * from 配送中心库存 where 商品编码='" & GCode & "'"
Set RsTemp = Nothing
RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
While Not RsTemp.EOF
grdStock.MoveFirst
For i = 0 To grdStock.Rows - 1
' grdStock.Row = i
If grdStock.Columns("颜色").Text = Trim(RsTemp("颜色")) Then grdStock.Columns(Trim(RsTemp("尺寸"))).Value = RsTemp("数量")
grdStock.MoveNext
Next i
RsTemp.MoveNext
Wend
End Sub
Private Sub Command4_Click()
Dim i, j, sum
On Error Resume Next
grdDET.Update
grdDET.MoveFirst
For j = 0 To grdDET.Rows - 1
grdDET.Row = j
For i = 1 To grdDET.Columns.Count - 1
If grdDET.Columns(i).Text <> "" Then grdDET.Columns(i).Value = grdDET.Columns(i).Value * Val(txtBS.Text)
Next i
Next j
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{TAB}"
End Sub
Private Sub txtCode_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Call Command3_Click
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -