📄 frmcargo.frm

📁 网上销售源代码
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
End Sub

Private Sub tlbOperate_ButtonClick(ByVal Button As MSComctlLib.Button)
 Select Case Button.Key
        Case "update"
            '保存数据
                If P_SID = "" Then
                    Sava
                Else
                    Update
                End If
                
        Case "cancel"
            '撤消
            InitClear
        
        Case "first"
            '首页
            frmMQCargo.mintCurPage = 1
            gFillFg frmMQCargo.fg, frmMQCargo.mrstDriveRoom, frmMQCargo.tlbOperate.Buttons, frmMQCargo.mintCurPage, frmMQCargo.mintPageSize
            P_SID = frmMQCargo.fg.TextMatrix(1, 1)
            
            frmMQCargo.fg.TextMatrix(0, 0) = "序号"
            frmMQCargo.ShowID
            
            If frmMQCargo.mintCurPage = 1 Then
                If frmMQCargo.fg.Row = 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = False
                    Me.tlbOperate.Buttons("prev").Enabled = False
                    Me.tlbOperate.Buttons("next").Enabled = True
                    Me.tlbOperate.Buttons("last").Enabled = True
                End If
            End If
                        
        Case "prev"
            '前页
            If frmMQCargo.fg.Row = frmMQCargo.fg.Rows - 1 Then
                If frmMQCargo.mintCurPage <= frmMQCargo.mrstDriveRoom.PageCount Then
                    frmMQCargo.mintCurPage = frmMQCargo.mintCurPage - 1
                    gFillFg frmMQCargo.fg, frmMQCargo.mrstDriveRoom, frmMQCargo.tlbOperate.Buttons, frmMQCargo.mintCurPage, frmMQCargo.mintPageSize
                    P_SID = frmMQCargo.fg.TextMatrix(frmMQCargo.fg.Rows - 1, 1)
                                        frmMQCargo.fg.TextMatrix(0, 0) = "序号"
                    frmMQCargo.ShowID
                End If
            End If
            
            If frmMQCargo.mintCurPage = 1 Then
                If frmMQCargo.fg.Row = 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = False
                    Me.tlbOperate.Buttons("prev").Enabled = False
                    Me.tlbOperate.Buttons("next").Enabled = True
                    Me.tlbOperate.Buttons("last").Enabled = True
                End If
            End If
        
        Case "next"
            '下页
            If frmMQCargo.fg.Row = frmMQCargo.fg.Rows - 1 Then
                frmMQCargo.mintCurPage = frmMQCargo.mintCurPage + 1
                gFillFg frmMQCargo.fg, frmMQCargo.mrstDriveRoom, frmMQCargo.tlbOperate.Buttons, frmMQCargo.mintCurPage, frmMQCargo.mintPageSize
                P_SID = frmMQCargo.fg.TextMatrix(1, 1)
                frmMQCargo.fg.TextMatrix(0, 0) = "序号"
                frmMQCargo.ShowID
            End If
            
            If frmMQCargo.mintCurPage = frmMQCargo.mrstDriveRoom.PageCount Then
                If frmMQCargo.fg.Row = frmMQCargo.fg.Rows - 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = True
                    Me.tlbOperate.Buttons("prev").Enabled = True
                    Me.tlbOperate.Buttons("next").Enabled = False
                    Me.tlbOperate.Buttons("last").Enabled = False
                End If
            End If
            
        Case "last"
            '末页
            frmMQCargo.mintCurPage = -1
            gFillFg frmMQCargo.fg, frmMQCargo.mrstDriveRoom, frmMQCargo.tlbOperate.Buttons, frmMQCargo.mintCurPage, frmMQCargo.mintPageSize
            P_SID = frmMQCargo.fg.TextMatrix(frmMQCargo.fg.Rows - 1, 1)
            frmMQCargo.fg.TextMatrix(0, 0) = "序号"
            frmMQCargo.ShowID
               
            If frmMQCargo.mintCurPage = frmMQCargo.mrstDriveRoom.PageCount Then
                If frmMQCargo.fg.Row = frmMQCargo.fg.Rows - 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = True
                    Me.tlbOperate.Buttons("prev").Enabled = True
                    Me.tlbOperate.Buttons("next").Enabled = False
                    Me.tlbOperate.Buttons("last").Enabled = False
                End If
            End If
            
        Case "quit"
            Unload Me
     End Select
End Sub

Private Sub Sava()
'保存数据
Dim sql As String
Dim Asql As String
Dim o As Integer
Dim Ars As New ADODB.Recordset

If Trim(txtCargoID.Text) = "" Then
    MsgBox "商品编号不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtCargoName.Text) = "" Then
    MsgBox "商品名称不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboGoodsBandID.Text) = "" Then
    MsgBox "品牌信息不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboGoodsBigTypeID.Text) = "" Then
    MsgBox "商品大类信息不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboGoodsSmallTypeID.Text) = "" Then
    MsgBox "商品小类信息不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboUnit.Text) = "" Then
    MsgBox "单位信息不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtRetailPrice.Text) = "" Then
    MsgBox "零销单价不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtCostPrice.Text) = "" Then
    MsgBox "成本单价不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtJobPrice.Text) = "" Then
    MsgBox "批发单价不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtTopStock.Text) = "" Then
    MsgBox "最高库存不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtTopStock.Text) < 0 Then
    MsgBox "最高库存不能小于0", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtNeapStock.Text) = "" Then
    MsgBox "零销单价不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtNeapStock.Text) < 0 Then
    MsgBox "最低库存不能小于0", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtNeapStock.Text) > Trim(txtTopStock.Text) Then
    MsgBox "最低库存不能大于最高库存", vbInformation, "提示"
    Exit Sub
End If

'查询商品编号是否存在
sql = "Select CargoID from Cargo Where CargoID='" & Trim(txtCargoID.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "商品编号已存在，不能重复添加", vbInformation, "提示"
    Exit Sub
End If

'查询商品名称是否存在
sql = "Select CargoName from Cargo Where CargoName='" & Trim(txtCargoName.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "商品名称已存在，不能重复添加", vbInformation, "提示"
    Exit Sub
End If

On Error GoTo ErrShow
SQLDB.BeginTrans
    '添加单位
    If Trim(cboUnit.Text) <> "" Then
        sql = "Select Unit from Unit Where Unit='" & Trim(cboUnit.Text) & "'"
        Set Ars = SQLDB.Execute(sql)
        If Ars.EOF Then
            Asql = "Insert Into Unit(Unit) Values('" & Trim(cboUnit.Text) & "')"
            SQLDB.Execute Asql
        End If
    End If
    
    '添加颜色
    If Trim(cboColor.Text) <> "" Then
        sql = "Select Color from Color Where Color='" & Trim(cboColor.Text) & "'"
        Set Ars = SQLDB.Execute(sql)
        If Ars.EOF Then
            Asql = "Insert Into Color(Color) Values('" & Trim(cboColor.Text) & "')"
            SQLDB.Execute Asql
        End If
    End If

    '添加主表信息
'    Asql = "Insert into AreaStor(CargoID,CargoName,GoodsBandID,GoodsBigTypeID,GoodsSmallTypeID,Unit,Color," & _
'           "RetailPrice,CostPrice,JobPrice,TopStock,NeapStock,Picture) Values('" & Trim(txtCargoID.Text) & "'," & _
'           "'" & Trim(txtCargoName.Text) & "','" & Trim(cboGoodsBandID.Text) & "','" & Trim(cboGoodsBigTypeID.Text) & "'," & _
'           "'" & Trim(cboGoodsSmallTypeID.Text) & "','" & Trim(cboUnit.Text) & "','" & Trim(cboColor.Text) & "'," & _
'           "" & Trim(txtRetailPrice.Text) & "," & Trim(txtCostPrice.Text) & "," & Trim(txtJobPrice.Text) & "," & _
'           "" & Trim(txtTopStock.Text) & "," & Trim(txtNeapStock.Text) & ",'" & Trim(ptcPicture.Text) & "')"
Asql = "Insert into Cargo(CargoID,CargoName,GoodsBandID,GoodsBigTypeID,GoodsSmallTypeID,Unit,Color," & _
           "RetailPrice,CostPrice,JobPrice,TopStock,NeapStock) Values('" & Trim(txtCargoID.Text) & "'," & _
           "'" & Trim(txtCargoName.Text) & "','" & Trim(cboGoodsBandID.Text) & "','" & Trim(cboGoodsBigTypeID.Text) & "'," & _
           "'" & Trim(cboGoodsSmallTypeID.Text) & "','" & Trim(cboUnit.Text) & "','" & Trim(cboColor.Text) & "'," & _
           "" & Trim(txtRetailPrice.Text) & "," & Trim(txtCostPrice.Text) & "," & Trim(txtJobPrice.Text) & "," & _
           "" & Trim(txtTopStock.Text) & "," & Trim(txtNeapStock.Text) & ")"
    SQLDB.Execute Asql
SQLDB.CommitTrans
InitClear
frmMQCargo.QuerySalesRoom
MsgBox "添加成功", vbInformation, "提示"
Exit Sub
ErrShow:
    SQLDB.RollbackTrans
    MsgBox "添加商品信息出错" & Err.Description, vbInformation, "提示"
End Sub

Private Sub Update()
'保存数据
Dim sql As String
Dim Asql As String
Dim o As Integer
Dim Ars As New ADODB.Recordset

If Trim(txtCargoName.Text) = "" Then
    MsgBox "商品名称不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboGoodsBandID.Text) = "" Then
    MsgBox "品牌信息不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboGoodsBigTypeID.Text) = "" Then
    MsgBox "商品大类信息不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboGoodsSmallTypeID.Text) = "" Then
    MsgBox "商品小类信息不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboUnit.Text) = "" Then
    MsgBox "单位信息不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtRetailPrice.Text) = "" Then
    MsgBox "零销单价不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtCostPrice.Text) = "" Then
    MsgBox "成本单价不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtJobPrice.Text) = "" Then
    MsgBox "批发单价不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtTopStock.Text) = "" Then
    MsgBox "最高库存不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtTopStock.Text) < 0 Then
    MsgBox "最高库存不能小于0", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtNeapStock.Text) = "" Then
    MsgBox "零销单价不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtNeapStock.Text) < 0 Then
    MsgBox "最低库存不能小于0", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtNeapStock.Text) > Trim(txtTopStock.Text) Then
    MsgBox "最低库存不能大于最高库存", vbInformation, "提示"
    Exit Sub
End If

'查询商品名称是否存在
sql = "Select CargoName from Cargo Where CargoName='" & Trim(txtCargoName.Text) & "' and CargoID<>'" & Trim(txtCargoID.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "商品名称已存在，不能重复添加", vbInformation, "提示"
    Exit Sub
End If

On Error GoTo ErrShow
SQLDB.BeginTrans

    '添加单位
    If Trim(cboUnit.Text) <> "" Then
        sql = "Select Unit from Unit Where Unit='" & Trim(cboUnit.Text) & "'"
        Set Ars = SQLDB.Execute(sql)
        If Ars.EOF Then
            Asql = "Insert Into Unit(Unit) Values('" & Trim(cboUnit.Text) & "')"
            SQLDB.Execute Asql
        End If
    End If
    
    '添加颜色
    If Trim(cboColor.Text) <> "" Then
        sql = "Select Color from Color Where Color='" & Trim(cboColor.Text) & "'"
        Set Ars = SQLDB.Execute(sql)
        If Ars.EOF Then
            Asql = "Insert Into Color(Color) Values('" & Trim(cboColor.Text) & "')"
            SQLDB.Execute Asql
        End If
    End If
    
    
    '添加主表信息
    Asql = "Update AreaStor set CargoName='" & Trim(txtCargoName.Text) & "'," & _
           "GoodsBandID='" & Trim(cboGoodsBandID.Text) & "',GoodsBigTypeID='" & Trim(cboGoodsBigTypeID.Text) & "'," & _
           "GoodsSmallTypeID='" & Trim(cboGoodsSmallTypeID.Text) & "',Unit='" & Trim(cboUnit.Text) & "'," & _
           "Color='" & Trim(cboColor.Text) & "'," & _
           "RetailPrice=" & Trim(txtRetailPrice.Text) & ",CostPrice=" & Trim(txtCostPrice.Text) & ", " & _
           "JobPrice=" & Trim(txtJobPrice.Text) & ",TopStock=" & Trim(txtTopStock.Text) & "," & _
           "NeapStock=" & Trim(txtNeapStock.Text) & ",Picture='" & Trim(txtCargoID.Text) & "' Where " & _
           "CargoID='" & Trim(txtCargoID.Text) & "'"
    SQLDB.Execute Asql
SQLDB.CommitTrans
InitClear
frmMQCargo.QuerySalesRoom
MsgBox "修改成功", vbInformation, "提示"
Exit Sub
ErrShow:
    SQLDB.RollbackTrans
    MsgBox "修改商品信息出错" & Err.Description, vbInformation, "提示"
End Sub

Private Sub InitClear()
'清空文本柜数据
    txtCargoID.Text = ""
    txtCargoName.Text = ""
    txtRetailPrice.Text = 0
    txtCostPrice.Text = 0
    txtJobPrice.Text = 0
    txtTopStock.Text = 0
    txtNeapStock.Text = 0
End Sub

Private Sub Initcbo()
'初使化下接框
Dim sql As String
Dim Ars As New ADODB.Recordset

'查询品牌
sql = "Select GoodsBandID from GoodsBand"
Set Ars = SQLDB.Execute(sql)
Do While Not Ars.EOF
    cboGoodsBandID.AddItem Ars("GoodsBandID")
Ars.MoveNext
cboGoodsBandID.ListIndex = 0
Loop

'查询商品大类
sql = "Select GoodsBigTypeID from GoodsBigGenus"
Set Ars = SQLDB.Execute(sql)
Do While Not Ars.EOF
    cboGoodsBigTypeID.AddItem Ars("GoodsBigTypeID")
Ars.MoveNext
cboGoodsBigTypeID.ListIndex = 0
Loop

'查询商品小类
If Trim(cboGoodsBigTypeID.Text) <> "" Then
    sql = "Select GoodsSmallTypeID from GoodsSmallGenus Where GoodsBigTypeID='" & Trim(cboGoodsBigTypeID.Text) & "'"
    Set Ars = SQLDB.Execute(sql)
    Do While Not Ars.EOF
        cboGoodsSmallTypeID.AddItem Ars("GoodsSmallTypeID")
    Ars.MoveNext
    cboGoodsSmallTypeID.ListIndex = 0
    Loop
End If

'查询单位信息
sql = "Select Unit from Unit"
Set Ars = SQLDB.Execute(sql)
Do While Not Ars.EOF
    cboUnit.AddItem Ars("Unit")
Ars.MoveNext
cboUnit.ListIndex = 0
Loop

'查询
sql = "Select Color from Color"
Set Ars = SQLDB.Execute(sql)
Do While Not Ars.EOF
    cboColor.AddItem Ars("Color")
Ars.MoveNext
cboColor.ListIndex = 0
Loop

End Sub
上一页 12
💿 文件大小 787 K
👤 上传用户 a956303013
📂 所属分类 SQL Server
🏷️ 相关标签

#销售 #源代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -