frmqstock.frm

超市的管理系统

                Else
                
                    rct1.MoveNext
                    
                End If
                
            Loop
            
                If intindex = 0 Then
            
                    MsgBox "无符合查询条件的进货记录表，请重新查询！", vbInformation + vbOKOnly, "查询提示！"
                    
                    Call CmdINT_Click
                    
                    Exit Sub
                    
                Else
                
                    MsgBox "共有" & intindex & "张符合查询条件的进货记录表！", vbInformation + vbOKOnly, "查询提示！"
                    
                
                End If
                
                If intindex = 1 Then
                
                        If viewRS(temp(0), DT(0)) = True Then
                   
                    End If
                   
                Else
                
                    HSC1.Enabled = True
                
                    HSC1.Min = 0
                    
                    HSC1.Max = intindex - 1
                        
                    If viewRS(temp(0), DT(0)) = True Then
                            
                    End If
                        
                End If
                
            End If
            
    End If
    
    
    
    CmdModify.Enabled = True
    
    CmdAdd.Enabled = True
    
    Dim str3 As String
    
    str3 = "select * from employee "
    
    Set rct3 = QueryXFInfo(str3)
    
    rct3.MoveFirst
    
    Do While Not rct3.EOF

        If Trim(rct3.Fields.Item(1).Value) = strName Then                              '判断用户的权限
        
            If rct3.Fields.Item(3).Value = "User" Then                                 '普通用户不能使用修改和删除按钮
            
                CmdClear.Enabled = False
                
                CmdDel.Enabled = False
                
                Exit Do
                
            Else
            
                CmdClear.Enabled = True
        
                CmdDel.Enabled = True
            
                Exit Do
                
            End If
            
        Else
        
            rct3.MoveNext
            
        End If
        
    Loop
    
    rct.MoveFirst
    
    rct1.MoveFirst
    
    CmdQuery.Enabled = False
        


End Sub

Private Sub Form_Load()

    Dim str As String
    
    str = "select * from stock"
    
    Set rct = QueryXFInfo(str)
    
    Dim str1 As String
    
    str1 = "select * from stockinvoice"
    
    Set rct1 = QueryXFInfo(str1)
    
    Dim str2 As String
    
    str2 = "select * from storage"
    
    Set rct2 = QueryXFInfo(str2)
    
    OpDT.Value = True
    
    HSC1.Enabled = False
    
    DTP1.Value = Date
    
    DTP2.Value = Date
    
    CmdClear.Enabled = False
    
    CmdDel.Enabled = False
    
    CmdModify.Enabled = False
    
    CmdAdd.Enabled = False
    
    Call flexView

End Sub

'声明初始化时表格显示函数

Private Sub flexView()

    Dim intindex As Integer

    MSFlexGrid1.ColWidth(0) = 12 * 25 * 4
    
    MSFlexGrid1.ColWidth(1) = 12 * 25 * 6
    
    MSFlexGrid1.ColWidth(2) = 12 * 25 * 8
    
    MSFlexGrid1.ColWidth(3) = 12 * 25 * 5
    
    MSFlexGrid1.ColWidth(4) = 12 * 25 * 7
    
    MSFlexGrid1.ColWidth(5) = 12 * 25 * 3
    
    MSFlexGrid1.Row = 0
    
    For intindex = 0 To 5
    
        MSFlexGrid1.Col = intindex
        
        MSFlexGrid1.CellAlignment = 4
        
        MSFlexGrid1.CellFontBold = True
        
    Next intindex
    
    MSFlexGrid1.TextMatrix(0, 0) = "序号"
    
    MSFlexGrid1.TextMatrix(0, 1) = "商品编号"
    
    MSFlexGrid1.TextMatrix(0, 2) = "商品名称"
    
    MSFlexGrid1.TextMatrix(0, 3) = "数量"
    
    MSFlexGrid1.TextMatrix(0, 4) = "厂商编号"
    
    MSFlexGrid1.TextMatrix(0, 5) = "记录号"

End Sub

'声明查询函数

Public Function viewRS(ByVal str As String, ByVal str1 As String) As Boolean

    Dim n As Integer                                                        '声明表格序号变量
    
    Dim id As Integer

    rct.MoveFirst

    Do While Not rct.EOF
    
        If rct.Fields.Item(5).Value = str Then                              '根据条件找到合适记录，并将它在表格中显示出来
        
            n = n + 1
                        
            MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
            
            For id = 0 To 5

                MSFlexGrid1.Col = id

                MSFlexGrid1.CellAlignment = 4

            Next id
            
            MSFlexGrid1.Col = 0
        
            MSFlexGrid1.Text = n
        
            MSFlexGrid1.Col = 1
                
            MSFlexGrid1.Text = rct.Fields.Item(1).Value
                
            MSFlexGrid1.Col = 2
            
            rct2.MoveFirst
            
            Do While Not rct2.EOF                                           '根据库存表的编号找到其商品名称
            
                If rct2.Fields.Item(0).Value = rct.Fields.Item(1).Value Then
                
                    MSFlexGrid1.Text = rct2.Fields.Item(1).Value
                    
                    Exit Do
                    
                Else
                
                    rct2.MoveNext
                    
                End If
                
            Loop
                
            MSFlexGrid1.Col = 3
                
            If Val(rct.Fields.Item(2).Value) < 1 Then                        '如果数字类型常量的值小于1，在小数点前补0
            
                MSFlexGrid1.Text = "0" & rct.Fields.Item(2).Value
                
            Else
            
                MSFlexGrid1.Text = rct.Fields.Item(2).Value
                
            End If
                
            MSFlexGrid1.Col = 4
            
            MSFlexGrid1.Text = rct.Fields.Item(4).Value
                
            MSFlexGrid1.Col = 5
            
            MSFlexGrid1.Text = rct.Fields.Item(0).Value
            
            MSFlexGrid1.AddItem (Empty)
            
            rct.MoveNext
            
        Else
        
            rct.MoveNext
            
        End If
        
    Loop
    
    If str <> "" Then
        
        MSFlexGrid1.AddItem (Empty)
            
        MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = " "
        
        MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = " "
        
        MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = " "
        
        MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 3) = " "
        
        MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4) = " "
        
        MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 5) = " "
        
        MSFlexGrid1.MergeCells = flexMergeFree
        
        MSFlexGrid1.MergeRow(MSFlexGrid1.Rows - 1) = True
        
        MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
        
        MSFlexGrid1.RowHeight(MSFlexGrid1.Rows - 1) = 600
         
        MSFlexGrid1.Col = 0
        
        MSFlexGrid1.CellBackColor = QBColor(15)
        
        MSFlexGrid1.CellFontSize = 14
        
        MSFlexGrid1.Text = "进货日期为：" & str1
        
        TxtID.Text = str
         
    Else
    
        Exit Function
        
    End If
        
            
    
End Function

Private Sub HSC1_Change()

    MSFlexGrid1.Clear
    
    Dim X As Integer

    Dim Y As Integer

    Y = 1

    X = MSFlexGrid1.Rows - 1

    For Y = X To 2 Step -1

        MSFlexGrid1.RemoveItem (Y)

    Next Y

    Call flexView
    
    If viewRS(temp(HSC1.Value), DT(HSC1.Value)) Then
    
    End If
    
    rct.MoveFirst
    
    rct1.MoveFirst

End Sub

Private Sub OpID_Click()

    TxtID.SetFocus

End Sub

Private Sub txtID_LostFocus()

    If IsChar(TxtID.Text) = False Then
    
        MsgBox "输入不合法，请重新输入！", vbInformation + vbOKOnly, "输入提示！"
        
        TxtID.Text = ""
        
        TxtID.SetFocus
        
    End If

End Sub