goodsmodify.frm

即时通讯

                        goodsname.text = ""
                        'Exit Sub
                    End If
            Next j
    m_recordset.Close
    Else
        presetprice.text = "0"
        Text5.text = "0"
        Text6.text = "0"
        Text7.text = "0"
        Text3.text = "0"
    End If
            'm_recordset.Close
End Sub

Private Sub presetprice_Change()
    If good_type = 1 Then
        If Len(Trim(Text3.text)) <> 0 Then
            Text5.text = CDbl(Trim(Text3.text) * CDbl(Trim(presetprice.text)))
        End If
    End If
    If good_type = 0 Then
        If Len(Trim(Text3.text)) <> 0 Then
            Text5.text = CDbl(Trim(Text3.text) * CDbl(Trim(presetprice.text)))
        End If
    End If
End Sub

Private Sub save_cmd_Click()
If stockorderlistsupplier.type_g = 1 Then
    If good_type = 1 Then                              ' 表示商品记录保存成功
        good_name1 = Trim(goodsname.text)
        If Not Check Then                              ' 判断输入文本的内容
            Exit Sub
        End If
        If StockOrder.currentrow > StockOrder.MSHFlexGrid1.Rows - 1 Then
                StockOrder.MSHFlexGrid1.AddItem ""
        End If
        With StockOrder
            .MSHFlexGrid1.TextMatrix(.currentrow, 0) = ""
            .MSHFlexGrid1.TextMatrix(.currentrow, 8) = Trim(goodsname.text)             ' 商品编号
            .MSHFlexGrid1.TextMatrix(.currentrow, 2) = Trim(bigunit.text)               ' 商品编号
            .MSHFlexGrid1.TextMatrix(.currentrow, 3) = Trim(Text3.text)                 ' 数量
            .MSHFlexGrid1.TextMatrix(.currentrow, 4) = CDbl(Trim(presetprice.text))     ' 单价
            .MSHFlexGrid1.TextMatrix(.currentrow, 5) = CDbl(Trim(Text5.text))           ' 金额
            .MSHFlexGrid1.TextMatrix(.currentrow, 6) = Trim(Text6.text)                 ' 完成数量
            .MSHFlexGrid1.TextMatrix(.currentrow, 7) = Trim(Text7.text)                 ' 商品备注
            .MSHFlexGrid1.TextMatrix(.currentrow, 1) = Trim(Text1.text)                 ' 商品备注
            .currentrow = .currentrow + 1
        End With
        Unload Me
    End If
    
    If good_type = 0 Then                          ' 修改商品
    If Not Check Then                              ' 判断输入文本的内容
         Exit Sub
    End If
    With StockOrder
        .MSHFlexGrid1.TextMatrix(.good_name, 0) = Trim(stockorderdetailid)
        .MSHFlexGrid1.TextMatrix(.good_name, 8) = Trim(goodsname.text)                  ' 商品名称
        .MSHFlexGrid1.TextMatrix(.good_name, 2) = Trim(bigunit.text)                    ' 商品编号
        .MSHFlexGrid1.TextMatrix(.good_name, 3) = Trim(Text3.text)                      ' 数量
        .MSHFlexGrid1.TextMatrix(.good_name, 4) = CDbl(Trim(presetprice.text))          ' 单价
        .MSHFlexGrid1.TextMatrix(.good_name, 5) = CDbl(Trim(Text5.text))                ' 金额
        .MSHFlexGrid1.TextMatrix(.good_name, 6) = Trim(Text6.text)                      ' 完成数量
        .MSHFlexGrid1.TextMatrix(.good_name, 7) = Trim(Text7.text)                      ' 商品备注
        .MSHFlexGrid1.TextMatrix(.good_name, 1) = Trim(Text1.text)                 ' 商品备注
    End With
    Unload Me
End If
ElseIf stockorderlistsupplier.type_g = 0 Then
    If good_type = 1 Then                              ' 表示商品记录保存成功
        good_name1 = Trim(goodsname.text)
        If Not Check Then                              ' 判断输入文本的内容
            Exit Sub
        End If
        If StockOrder.i > StockOrder.MSHFlexGrid1.Rows - 1 Then
                StockOrder.MSHFlexGrid1.AddItem ""
        End If
        With StockOrder
            .MSHFlexGrid1.TextMatrix(.i, 0) = ""
            .MSHFlexGrid1.TextMatrix(.i, 8) = Trim(goodsname.text)                  ' 商品编号
            .MSHFlexGrid1.TextMatrix(.i, 2) = Trim(bigunit.text)                    ' 商品编号
            .MSHFlexGrid1.TextMatrix(.i, 3) = Trim(Text3.text)                      ' 数量
            .MSHFlexGrid1.TextMatrix(.i, 4) = CDbl(Trim(presetprice.text))          ' 单价
            .MSHFlexGrid1.TextMatrix(.i, 5) = CDbl(Trim(Text5.text))                ' 金额
            .MSHFlexGrid1.TextMatrix(.i, 6) = Trim(Text6.text)                      ' 完成数量
            .MSHFlexGrid1.TextMatrix(.i, 7) = Trim(Text7.text)                      ' 商品备注
            .MSHFlexGrid1.TextMatrix(.i, 1) = Trim(Text1.text)                      ' 商品备注
            .i = .i + 1
        End With
        Unload Me
End If
If good_type = 0 Then                          ' 修改商品
    If Not Check Then                              ' 判断输入文本的内容
         Exit Sub
    End If
    With StockOrder
        .MSHFlexGrid1.TextMatrix(.good_name, 0) = Trim(stockorderdetailid)
        If Trim(goodsname.text) = Trim(StockOrder.goodsn) Then
        .MSHFlexGrid1.TextMatrix(.good_name, 8) = Trim(goodsname.text)                      ' 商品名称
        .MSHFlexGrid1.TextMatrix(.good_name, 2) = Trim(bigunit.text)                        ' 商品编号
        .MSHFlexGrid1.TextMatrix(.good_name, 3) = Trim(Text3.text)                          ' 数量
        .MSHFlexGrid1.TextMatrix(.good_name, 4) = CDbl(Trim(presetprice.text))              ' 单价
        .MSHFlexGrid1.TextMatrix(.good_name, 5) = CDbl(Trim(Text5.text))                    ' 金额
        .MSHFlexGrid1.TextMatrix(.good_name, 6) = Trim(Text6.text)                          ' 完成数量
        .MSHFlexGrid1.TextMatrix(.good_name, 7) = Trim(Text7.text)                          ' 商品备注
        .MSHFlexGrid1.TextMatrix(.good_name, 1) = Trim(Text1.text)                          ' 商品备注
        Else
        .MSHFlexGrid1.TextMatrix(.good_name, 8) = Trim(goodsname.text)                      ' 商品名称
        .MSHFlexGrid1.TextMatrix(.good_name, 2) = Trim(bigunit.text)                        ' 商品编号
        .MSHFlexGrid1.TextMatrix(.good_name, 3) = Trim(Text3.text)                          ' 数量
        .MSHFlexGrid1.TextMatrix(.good_name, 4) = CDbl(Trim(presetprice.text))              ' 单价
        .MSHFlexGrid1.TextMatrix(.good_name, 5) = CDbl(Trim(Text5.text))                    ' 金额
        .MSHFlexGrid1.TextMatrix(.good_name, 6) = Trim(Text6.text)                          ' 完成数量
        .MSHFlexGrid1.TextMatrix(.good_name, 7) = Trim(Text7.text)                          ' 商品备注
        .MSHFlexGrid1.TextMatrix(.good_name, 1) = Trim(Text1.text)                          ' 商品备注
        End If
    End With
    Unload Me
End If
End If
End Sub

Private Sub xgjl()
        With StockOrder
            stockorderdetailid = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 0))
            goodsname.text = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 8))
            goodsname.Tag = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 8))
            bigunit.text = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 2))                          ' 调用stockorder窗体good_name全局变量
            bigunit.Tag = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 2))
            Text5.text = CDbl(.MSHFlexGrid1.TextMatrix(.good_name, 5))
            Text5.Tag = CDbl(.MSHFlexGrid1.TextMatrix(.good_name, 5))
            presetprice.text = CDbl(Trim(.MSHFlexGrid1.TextMatrix(.good_name, 4)))
            presetprice.Tag = CDbl(.MSHFlexGrid1.TextMatrix(.good_name, 4))
            Text3.text = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 3))
            Text3.Tag = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 3))
            Text6.text = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 6))
            Text6.Tag = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 6))
            Text7.text = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 7))
            Text7.Tag = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 7))
            Text1.text = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 1))
            Text1.Tag = Trim(.MSHFlexGrid1.TextMatrix(.good_name, 1))
        End With
End Sub

Private Sub Text3_Change()
    If Not IsNumeric(Text3.text) Then
        MainForm.g_msgText = "数量,,你输入的数字格式有错误！"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Text3.text = ""
        Text3.SetFocus
        Exit Sub
    End If
  If good_type = 1 Then
    If Len(Trim(Text3.text)) <> 0 Then
        Text5.text = CDbl(Trim(Text3.text) * CDbl(Trim(presetprice.text)))
    End If
  End If
 If good_type = 0 Then
        Text5.text = CDbl(Trim(Text3.text)) * CDbl(Trim(presetprice.text))
 End If
End Sub


Private Sub xz_cmd_Click()
    If good_type = 1 Then                        ' 表示商品记录保存成功
        If StockOrder.currentrow > StockOrder.MSHFlexGrid1.Rows - 1 Then
                StockOrder.MSHFlexGrid1.AddItem ""
        End If
        With StockOrder
            .MSHFlexGrid1.TextMatrix(.currentrow, 0) = ""
            .MSHFlexGrid1.TextMatrix(.currentrow, 8) = Trim(goodsname.text)
            .MSHFlexGrid1.TextMatrix(.currentrow, 2) = Trim(bigunit.text)
            .MSHFlexGrid1.TextMatrix(.currentrow, 3) = Trim(Text3.text)
            .MSHFlexGrid1.TextMatrix(.currentrow, 4) = Trim(presetprice.text)
            .MSHFlexGrid1.TextMatrix(.currentrow, 5) = Trim(Text5.text)
            .MSHFlexGrid1.TextMatrix(.currentrow, 6) = Trim(Text6.text)
            .MSHFlexGrid1.TextMatrix(.currentrow, 7) = Trim(Text7.text)
            .MSHFlexGrid1.TextMatrix(.currentrow, 1) = Trim(Text1.text)
            .currentrow = .currentrow + 1
        End With
        Call clear                          ' 调用清空函数
    End If
End Sub

Private Sub clear()                         ' 清空函数
    goodsname.text = ""
    bigunit.text = ""
    Text3.text = 0
    presetprice.text = 0
    Text5.text = ""
    Text6.text = ""
    Text7.text = ""
    Text1.text = ""
    Text1.Tag = ""
End Sub
'**************************************
'*    功 能 描 述 :判断输入文本框数据的合法性
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Function Check() As Boolean
    Check = True
    If Len(Trim(goodsname.text)) = 0 Then                   ' 判断商品名称是否为空
        MainForm.g_msgText = "商品名称不能为空！"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        'goodsname.SetFocus
        Check = False
        Exit Function
    End If
    If Len(Trim(bigunit.text)) = 0 Then                     ' 判断单位是否为空
        MainForm.g_msgText = "单位不能为空!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        bigunit.SetFocus
        Check = False
        Exit Function
    End If
    If Len(Trim(presetprice.text)) = 0 Then                 ' 判断单价是否为空
        MainForm.g_msgText = "单价不能为空!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        presetprice.SetFocus
        Check = False
        Exit Function
    End If
    If Len(Trim(Text5.text)) = 0 Then                   ' 判断金额是否为空
        MainForm.g_msgText = "金额不能为空!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Text5.SetFocus
        Check = False
        Exit Function
    End If
    If Len(Trim(Text3.text)) = 0 Then                   ' 判断数量是否为空
        MainForm.g_msgText = "数量不能为空!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Text3.SetFocus
        Check = False
        Exit Function
    End If
    If Trim(Text3.text) = 0 Then                    ' 判断数量是否为空
        MainForm.g_msgText = "数量不能为0!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Text3.SetFocus
        Check = False
        Exit Function
    End If
End Function