frmchainstore.frm

服装销售系统,VB开发.没有解压密码

      Columns(0).Width=   3200
      Columns(0).DataType=   8
      Columns(0).FieldLen=   4096
      _ExtentX        =   5900
      _ExtentY        =   3969
      _StockProps     =   79
      Caption         =   "合计"
      BeginProperty PageFooterFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty PageHeaderFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin SSDataWidgets_B.SSDBGrid grdStock 
      Height          =   2280
      Left            =   5655
      TabIndex        =   14
      Top             =   5445
      Width           =   3435
      _Version        =   196614
      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        =   6059
      _ExtentY        =   4022
      _StockProps     =   79
      Caption         =   "库存商品信息"
      BackColor       =   -2147483624
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "商品编码"
      Height          =   180
      Left            =   9540
      TabIndex        =   7
      Top             =   6480
      Width           =   720
   End
End
Attribute VB_Name = "frmChainStore"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim RRR As New ADODB.Recordset

Private Sub Command1_Click()
    On Error Resume Next
    Dim I, j, N, c
    For I = 0 To 5
        grdS(I).Columns.RemoveAll
        grdS(I).Columns.Add (0)
        grdS(I).Columns(0).Width = 550
        grdS(I).Columns(0).Locked = True
        grdS(I).Columns(0).Name = "颜色"
        grdS(I).Columns(0).Caption = "颜色"
        grdS(I).Caption = "无"
    Next I
    
    
    grdStock.Columns.RemoveAll
    grdStock.Columns.Add (0)
    grdStock.Columns(0).Width = 550
    grdStock.Columns(0).Locked = True
    grdStock.Columns(0).Name = "颜色"
    grdStock.Columns(0).Caption = "颜色"
    grdStock.Caption = "无"

    
    grdS(5).Caption = "合计"
    
    sSQL = "SELECT 尺寸 FROM 商品信息 where 商品编码='" & txtCode.Text & "' group by 尺寸 order by  尺寸 desc"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    I = 1

    For j = 0 To 5
        RsTemp.MoveFirst
        While Not RsTemp.EOF
            grdS(j).Columns.Add (I)
            grdS(j).Columns(I).Width = 550
            grdS(j).Columns(I).DataType = 4
            grdS(j).Columns(I).Name = Trim(RsTemp("尺寸"))
            grdS(j).Columns(I).Caption = Trim(RsTemp("尺寸"))
            RsTemp.MoveNext
        Wend
    Next j
    
    RsTemp.MoveFirst
    While Not RsTemp.EOF
        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
    Wend

    
    sSQL = "SELECT 颜色 FROM 商品信息 where 商品编码='" & txtCode.Text & "' group by 颜色 "
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    For j = 0 To 5
        RsTemp.MoveFirst
        While Not RsTemp.EOF
            grdS(j).AddItem Trim(RsTemp("颜色"))
            RsTemp.MoveNext
        Wend
    Next j
    
    RsTemp.MoveFirst
    While Not RsTemp.EOF
        grdStock.AddItem Trim(RsTemp("颜色"))
        RsTemp.MoveNext
    Wend

    
    c = 0
    grdChainInfo.MoveFirst
    For N = 0 To grdChainInfo.Rows - 1
        If grdChainInfo.Columns("选择标志").Value = -1 And c < 5 Then
            sSQL = "select * from 分店库存 where 商品编码='" & txtCode.Text & "' and 分店编码='" & Trim(grdChainInfo.Columns("分店编码").Text) & "'"
            Set RsTemp = Nothing
            RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
            
            grdS(c).Caption = grdChainInfo.Columns("分店名称").Text
            While Not RsTemp.EOF
                grdS(c).MoveFirst
                For I = 0 To grdS(c).Rows - 1
                    'grdSale.Row = i
                    If grdS(c).Columns("颜色").Text = Trim(RsTemp("颜色")) Then grdS(c).Columns(Trim(RsTemp("尺寸"))).Value = RsTemp("数量")
                    grdS(c).MoveNext
                Next I
                RsTemp.MoveNext
            Wend
            c = c + 1
        End If
        grdChainInfo.MoveNext
    Next N
    
    
    sSQL = "select * from 配送中心库存 where 商品编码='" & txtCode.Text & "'"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    While Not RsTemp.EOF
        grdStock.MoveFirst
        For I = 0 To grdStock.Rows - 1
            'grdSale.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 Command2_Click()
    Unload Me
End Sub

Private Sub Command3_Click()
    On Error Resume Next
    Dim sSQL As String
    sSQL = "select 制表日期,商品编码,品名,单位 from lsjhd group by 制表日期,商品编码,品名,单位 order by 制表日期 desc"
    Set RRR = Nothing
    RRR.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    Set DataGrid1.DataSource = RRR
    DataGrid1.Refresh

End Sub


Private Sub Command4_Click()
    On Error Resume Next
    Dim I, j, N, m, c
    
    grdS(5).MoveFirst
    For I = 0 To grdS(5).Rows - 1
        For N = 1 To grdS(5).Columns.Count - 1
            grdS(5).Columns(N).Value = ""
        Next N
        grdS(5).MoveNext
    Next I
    
    grdS(5).Update
    grdS(5).MoveFirst
    For m = 0 To 5
        grdS(m).Row = 0
'        grdS(i).MoveFirst
    Next m
    For I = 0 To grdS(5).Rows - 1
        For j = 1 To grdS(5).Columns.Count - 1
            c = 0
            For N = 0 To 4
               If grdS(N).Columns(j).CellValue(grdS(N).GetBookmark(I)) <> "" Then c = c + Val(grdS(N).Columns(j).CellValue(grdS(N).GetBookmark(I)))
            Next N
            grdS(5).Columns(j).Text = c
        Next j
        grdS(5).MoveNext
'        For m = 0 To 5
'            grdS(m).MoveNext
'        Next m
    Next I

End Sub

Private Sub Command5_Click()
    On Error Resume Next
    Dim N, I, StrTemp
    
    grdS(5).MoveFirst
    For I = 0 To grdS(5).Rows - 1
        For N = 1 To grdS(5).Columns.Count - 1
            grdS(5).Columns(N).Value = ""
        Next N
        grdS(5).MoveNext
    Next I
    
    sSQL = "select 颜色,尺寸,sum(数量) as 数量 from 分店库存 where 商品编码='" & txtCode.Text & "'"
    StrTemp = ""
    grdChainInfo.MoveFirst
    
    For N = 0 To grdChainInfo.Rows - 1
        If grdChainInfo.Columns("选择标志").Value = -1 Then StrTemp = StrTemp & " 分店编码='" & Trim(grdChainInfo.Columns("分店编码").Text) & "' or"
        grdChainInfo.MoveNext
    Next N
    
    If StrTemp <> "" Then
        StrTemp = Mid(StrTemp, 1, Len(StrTemp) - 2)
        sSQL = sSQL & " and " & StrTemp & " group by 颜色,尺寸"
    End If
    
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    While Not RsTemp.EOF
        grdS(5).MoveFirst
        For I = 0 To grdStock.Rows - 1
            'grdSale.Row = i
            If grdS(5).Columns("颜色").Text = Trim(RsTemp("颜色")) Then grdS(5).Columns(Trim(RsTemp("尺寸"))).Value = RsTemp("数量")
            grdS(5).MoveNext
        Next I
        RsTemp.MoveNext
    Wend
End Sub

Private Sub DataGrid1_DblClick()
    On Error Resume Next
    txtCode.Text = RRR("商品编码")
    Call Command1_Click

End Sub

Private Sub Form_Load()
    On Error Resume Next
    sSQL = "select * from 分店主档 order by 分店编码"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    While Not RsTemp.EOF
        grdChainInfo.AddItem "" & vbTab & RsTemp("分店编码") & vbTab & RsTemp("分店名称")
        RsTemp.MoveNext
    Wend
End Sub

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