frmchainselectgoods.frm

注释：用VB开发的进销存系统源码

    
    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
    
    
    Dim i, j, sum
    Dim vBm As Variant
    On Error Resume Next
    vBm = grdDET.Bookmark
    grdDET.MoveFirst
    
    R = ""
    For i = 0 To grdDET.Rows - 1
        For j = 1 To grdDET.Columns.Count
            If grdDET.Columns(j).CellValue(grdDET.GetBookmark(i)) <> "" Then
                If R <> "" Then
                    R = R & "#" & Trim(grdDET.Columns(0).CellValue(grdDET.GetBookmark(i))) & "@" & Trim(grdDET.Columns(j).Name) & "$" & Trim(grdDET.Columns(j).CellValue(grdDET.GetBookmark(i)))
                Else
                    R = Trim(grdDET.Columns(0).CellValue(grdDET.GetBookmark(i))) & "@" & Trim(grdDET.Columns(j).Name) & "$" & Trim(grdDET.Columns(j).CellValue(grdDET.GetBookmark(i)))
                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 = "颜色"
    
    grdChainStore.Columns.RemoveAll
    grdChainStore.Columns.Add (0)
    grdChainStore.Columns(i).Width = 550
    grdChainStore.Columns(i).Locked = True
    grdChainStore.Columns(i).Name = "颜色"
    grdChainStore.Columns(i).Caption = "颜色"
    
    grdSale.Columns.RemoveAll
    grdSale.Columns.Add (0)
    grdSale.Columns(i).Width = 550
    grdSale.Columns(i).Locked = True
    grdSale.Columns(i).Name = "颜色"
    grdSale.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")
    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("尺寸"))
            
            grdChainStore.Columns.Add (i)
            grdChainStore.Columns(i).Width = 550
            grdChainStore.Columns(i).DataType = 4
            grdChainStore.Columns(i).Name = Trim(RsTemp("尺寸"))
            grdChainStore.Columns(i).Caption = Trim(RsTemp("尺寸"))
            
            grdSale.Columns.Add (i)
            grdSale.Columns(i).Width = 550
            grdSale.Columns(i).DataType = 4
            grdSale.Columns(i).Name = Trim(RsTemp("尺寸"))
            grdSale.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)
            
            grdChainStore.Columns.Add (i + 1)
            grdChainStore.Columns(i + 1).Width = 550
            grdChainStore.Columns(i + 1).DataType = 4
            grdChainStore.Columns(i + 1).Name = vSizeC(i)
            grdChainStore.Columns(i + 1).Caption = vSizeC(i)
            
            grdSale.Columns.Add (i + 1)
            grdSale.Columns(i + 1).Width = 550
            grdSale.Columns(i + 1).DataType = 4
            grdSale.Columns(i + 1).Name = vSizeC(i)
            grdSale.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("颜色"))
        grdChainStore.AddItem Trim(RsTemp("颜色"))
        grdSale.AddItem Trim(RsTemp("颜色"))
        RsTemp.MoveNext
    Wend
    grdDET.AllowAddNew = False
    grdStock.AllowAddNew = False
    grdChainStore.AllowAddNew = False
    grdSale.AllowAddNew = False
    
    grdDET.Update
    grdStock.Update
    grdChainStore.Update
    grdSale.Update
    
    If GetSetting("LSDSTAR", "库存设置", "配送库存计算", "1") = "1" Then
        sSQL = "select * from V_CalMainStore where 商品编码='" & GCode & "'"
    Else
        sSQL = "select * from 配送中心库存 where 商品编码='" & GCode & "'"
    End If
    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
    
    sSQL = "select * from 分店库存 where 商品编码='" & GCode & "' and 分店编码='" & ChainCode & "'"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    
    While Not RsTemp.EOF
        grdChainStore.MoveFirst
        For i = 0 To grdChainStore.Rows - 1
'            grdChainStore.Row = i
            If grdChainStore.Columns("颜色").Text = Trim(RsTemp("颜色")) Then grdChainStore.Columns(Trim(RsTemp("尺寸"))).Value = RsTemp("数量")
            grdChainStore.MoveNext
        Next i
        RsTemp.MoveNext
    Wend
    
    
    sSQL = "select * from 分店销售信息 where 商品编码='" & GCode & "' and 分店编码='" & ChainCode & "' and 销售时间 between '" & Format(dtpBegin.Value, "yyyy-mm-dd") & "' and '" & Format(dtpEnd.Value, "yyyy-mm-dd") & "'"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    
    While Not RsTemp.EOF
        grdSale.MoveFirst
        For i = 0 To grdSale.Rows - 1
            'grdSale.Row = i
            If grdSale.Columns("颜色").Text = Trim(RsTemp("颜色")) Then grdSale.Columns(Trim(RsTemp("尺寸"))).Value = RsTemp("数量")
            grdSale.MoveNext
        Next i
        RsTemp.MoveNext
    Wend

End Sub

Private Sub Command4_Click()
    Dim i, j, sum
    On Error Resume Next
    grdDET.Update
    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}"
    If KeyCode = 192 Then Call Command1_Click
End Sub

Private Sub Form_Load()
    dtpEnd.Value = Now
    dtpBegin.Value = Now - 7
End Sub

Private Sub txtCode_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Call Command3_Click
    End If
End Sub