frmaddkind.frm

超市的管理系统

        Exit Sub
        
    End If
    
    If TxtUnit.Text = "" Then
    
        MsgBox "单位量不能为空，请重新输入！", vbInformation + vbOKOnly, "修改提示！"

        TxtUnit.Text = ""
        
        TxtUnit.SetFocus
        
        Exit Sub
        
    End If
    
    If TxtSPID.Text = "" Then
    
        MsgBox "商品编号不能为空，请重新输入！", vbInformation + vbOKOnly, "修改提示！"

        TxtSPID.Text = ""
        
       TxtSPID.SetFocus
        
        Exit Sub
        
    End If
    
    
    
    If TxtID.Enabled = False Then
    
        If MsgBox("确认要保存到数据库吗？", vbInformation + vbOKCancel, "保存确认！") = vbOK Then
        
            str1 = "update storage set productname= " & "'" & TxtName.Text & "'" & "," & "price=" & Val(TxtPrice.Text) & _
            "," & "storageamount=" & Val(TxtAmount.Text) & "," & "ispoint=" & "'" & TxtUnit.Text & "'" & "," & "suppliersid=" & _
            "'" & TxtSPID.Text & "'" & "where productid=" & "'" & TxtID.Text & "'"
        
            QueryXFInfo (str1)                                        '执行更新语句
            
            MsgBox "已成功到数据库！", vbInformation + vbOKOnly, "保存提示！"
            
        Else
        
            Exit Sub
            
        End If
        
    Else
    
        If MsgBox("确认要保存到数据库吗？", vbInformation + vbOKCancel, "保存确认！") = vbOK Then
        
             rct.MoveFirst
            
             Do While Not rct.EOF
             
                 If TxtName.Text = rct.Fields.Item(1).Value Then
                 
                     MsgBox "库存中已有此商品，请重新输入！", vbInformation + vbOKOnly, "修改提示！"
                     
                     TxtName.Text = ""
                     
                     TxtName.SetFocus
                     
                     rct.MoveFirst
                     
                     Exit Sub
                     
                 Else
                 
                     rct.MoveNext
                     
                 End If
                 
            Loop
             
            rct.MoveFirst
         
        
            rct.AddNew
            
            rct.Fields.Item(0).Value = TxtID.Text
            
            rct.Fields.Item(1).Value = TxtName.Text
            
            rct.Fields.Item(2).Value = TxtPrice.Text
            
            rct.Fields.Item(3).Value = TxtAmount.Text
            
            rct.Fields.Item(4).Value = TxtUnit.Text
            
            rct.Fields.Item(5).Value = TxtSPID.Text
            
            rct.UpdateBatch
            
            MsgBox "已成功到数据库！", vbInformation + vbOKOnly, "保存提示！"
            
        Else
        
            Exit Sub
            
        End If
    
    End If
        
        

End Sub

Private Sub Form_Load()
    
    Dim str As String

    str = "select * from storage"
    
    Set rct = QueryXFInfo(str)
    
    Dim str1 As String
    
    str1 = "select * from suppliers"
    
    Set rct1 = QueryXFInfo(str1)
    
    '窗体运行时表格的初始显示
    
    TxtID.Text = frmQStorage.MSFlexGrid1.TextMatrix(frmQStorage.MSFlexGrid1.Row, 1)
    
    TxtName.Text = frmQStorage.MSFlexGrid1.TextMatrix(frmQStorage.MSFlexGrid1.Row, 2)
    
    TxtPrice.Text = frmQStorage.MSFlexGrid1.TextMatrix(frmQStorage.MSFlexGrid1.Row, 3)
    
    TxtAmount.Text = frmQStorage.MSFlexGrid1.TextMatrix(frmQStorage.MSFlexGrid1.Row, 4)
    
    TxtUnit.Text = frmQStorage.MSFlexGrid1.TextMatrix(frmQStorage.MSFlexGrid1.Row, 5)
    
    TxtSPID.Text = frmQStorage.MSFlexGrid1.TextMatrix(frmQStorage.MSFlexGrid1.Row, 6)
    
    TxtID.Enabled = False

End Sub


Private Sub TxtAmount_LostFocus()

'以下为判断数量输入合法性
    
    If TxtAmount.Text <> "" Then
    
        If IsNumber(TxtAmount.Text) = True Then
        
           Exit Sub
            
        Else
        
            MsgBox "库存数量输入不合法，请重新输入！", vbInformation + vbOKOnly, "修改提示！"
            
            TxtAmount.Text = ""
            
            TxtAmount.SetFocus
            
            Exit Sub
            
        End If
        
    End If

End Sub

Private Sub TxtID_LostFocus()

'以下为判断商品编号量输入合法性

    If TxtID.Enabled = True Then
        
        rct.MoveFirst
        
        Do While Not rct.EOF
        
            If TxtID.Text = rct.Fields.Item(0).Value Then
            
                MsgBox "商品编号重复，请重新输入！", vbInformation + vbOKOnly, "修改提示！"
                
                TxtID.Text = ""
                
                TxtID.SetFocus
                
                rct.MoveFirst
                
                Exit Sub
                
            Else
            
                rct.MoveNext
                
            End If
            
        Loop
        
        rct.MoveFirst
    
    End If

End Sub

Private Sub TxtName_LostFocus()

'以下为判断商品名称输入合法性

    If TxtName.Text <> "" Then
    
        If IsChar(TxtName.Text) <> True Then
    
            MsgBox "该符号不允许被输入！", vbInformation + vbOKOnly, "错误提示！"
            
            TxtName.Text = ""
            
            TxtName.SetFocus
        
        End If
                                  
    End If

End Sub

Private Sub TxtPrice_LostFocus()

'以下为判断单价输入合法性

     If IsNumber(TxtPrice.Text) = True And TxtPrice.Text <> "0" Then
        
        Exit Sub
            
    Else
        
        MsgBox "输入单价不合法，请重新输入！", vbInformation + vbOKOnly, "修改提示！"
        
        TxtPrice.Text = ""
        
        TxtPrice.SetFocus
        
        Exit Sub
    
    End If

End Sub

Private Sub TxtSPID_LostFocus()

'以下为判断厂商编号输入合法性

    Dim intindex As Integer
    
    intindex = 0

    If TxtSPID.Text <> "" Then
    
        rct1.MoveFirst
        
        Do While Not rct1.EOF
        
            If Trim(TxtSPID.Text) = Trim(rct1.Fields.Item(0).Value) Then
            
                intindex = 1
                
                Exit Do
                
            Else
            
                rct1.MoveNext
                
            End If
            
        Loop
        
        If intindex = 0 Then
        
            MsgBox "数据库中无此厂商编号，请重新输入！", vbInformation + vbOKOnly, "修改提示！"
            
            TxtSPID.Text = ""
            
            TxtSPID.SetFocus
            
            rct1.MoveFirst
            
            Exit Sub
            
        End If
               
        rct1.MoveFirst
        
    End If

End Sub

Private Sub TxtUnit_LostFocus()

'以下为判断单位量输入合法性

    If TxtUnit.Text <> "" Then

        If TxtUnit.Text = "n" Or TxtUnit.Text = "N" Or TxtUnit.Text = "y" Or TxtUnit.Text = "Y" Then
        
            TxtUnit.Text = UCase(TxtUnit.Text)
        
            Exit Sub
            
        Else
        
           MsgBox "单位量输入不合法，请重新输入！", vbInformation + vbOKOnly, "修改提示！"
           
           TxtUnit.Text = ""
           
           TxtUnit.SetFocus
           
        End If
       
    End If
    
End Sub